From 3eac9fe5c4680a704e5172180b4c0f81a0a052a9 Mon Sep 17 00:00:00 2001
From: Xin Zhang <xinzhang1215@gmail.com>
Date: Wed, 8 Jul 2020 13:22:34 +0800
Subject: [PATCH] Enable TUV diags for higher debug_level

---
 chem/rxn.F | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/chem/rxn.F b/chem/rxn.F
index 604a0af2db..0e9eff5a78 100644
--- a/chem/rxn.F
+++ b/chem/rxn.F
@@ -157,10 +157,11 @@ SUBROUTINE rxn_init( nw, wl )
       integer, intent(in) :: nw
       real, intent(in)    :: wl(nw)
 
-      integer :: astat, m, n
+      integer :: astat, m, n, debug_level
       character(len=256) :: emsg
 
       call set_initialization( status=.true. )
+      call get_wrf_debug_level( debug_level )
 
       if( .not. allocated( xsqy_tab ) ) then
          allocate( xsqy_tab(kj),stat=astat )
@@ -200,7 +201,9 @@ SUBROUTINE rxn_init( nw, wl )
       npht_tab = 2
       call setup_sub_calls( the_subs,npht_tab )
 
-      call diagnostics
+      IF ( 100 .LE. debug_level ) THEN
+        call diagnostics
+      ENDIF
 
       call rdxs_init( nw, wl )