Removing some debug-level prints from RRTMG lw (#3)

TYPE: no impact KEYWORDS: remove some debug-level prints SOURCE: internal DESCRIPTION OF CHANGES: Debug-level 150 prints were printing at too many grid points, and are not useful. These will be deleted. LIST OF MODIFIED FILES : phys/module_ra_rrtmg_lw.F phys/module_ra_rrtmg_lwf.F TESTS CONDUCTED: None.
mkavulich · Sep 16, 2016 · ba46355 · ba46355
1 parent 5ce8bd5
commit ba46355
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 25 deletions.
diff --git a/phys/module_ra_rrtmg_lw.F b/phys/module_ra_rrtmg_lw.F
@@ -12018,10 +12018,6 @@ SUBROUTINE RRTMG_LWRAD(                                        &
 !Mukul change the flags here with reference to the new effective cloud/ice/snow radius
          IF (ICLOUD .ne. 0) THEN
             IF ( has_reqc .ne. 0) THEN
-               IF ( wrf_dm_on_monitor() ) THEN
-                 WRITE(message,*)'RRTMG: pre-computed cloud droplet effective radius found, setting inflglw=3'
-                 call wrf_debug(150, message)
-               ENDIF
                inflglw = 3
                DO K=kts,kte
                   recloud1D(ncol,K) = MAX(2.5, re_cloud(I,K,J)*1.E6)
@@ -12040,10 +12036,6 @@ SUBROUTINE RRTMG_LWRAD(                                        &
             ENDIF
 
             IF ( has_reqi .ne. 0) THEN
-               IF ( wrf_dm_on_monitor() ) THEN
-                 WRITE(message,*)'RRTMG: pre-computed cloud ice effective radius found, setting inflglw=4 and iceflglw=4'
-                 call wrf_debug(150, message)
-               ENDIF
                inflglw  = 4
                iceflglw = 4
                DO K=kts,kte
@@ -12083,10 +12075,6 @@ SUBROUTINE RRTMG_LWRAD(                                        &
             ENDIF
 
             IF ( has_reqs .ne. 0) THEN
-               IF ( wrf_dm_on_monitor() ) THEN
-                 WRITE(message,*)'RRTMG: pre-computed snow effective radius found, setting inflglw=5 and iceflglw=5'
-                 call wrf_debug(150, message)
-               ENDIF
                inflglw  = 5
                iceflglw = 5
                DO K=kts,kte

diff --git a/phys/module_ra_rrtmg_lwf.F b/phys/module_ra_rrtmg_lwf.F
@@ -15826,11 +15826,6 @@ SUBROUTINE RRTMG_LWRAD_FAST(                                &
 !Mukul change the flags here with reference to the new effective cloud/ice/snow radius
          IF (ICLOUD .ne. 0) THEN
             IF ( has_reqc .ne. 0) THEN
-               IF ( wrf_dm_on_monitor() ) THEN
-                 WRITE(message,*)'RRTMG: pre-computed cloud droplet effective '// &
-                                 'radius found, setting inflglw=3'
-                 call wrf_debug(150, message)
-               ENDIF
                inflglw = 3
                DO K=kts,kte
                   recloud1D(icol,K) = MAX(2.5, re_cloud(I,K,J)*1.E6)
@@ -15849,10 +15844,6 @@ SUBROUTINE RRTMG_LWRAD_FAST(                                &
             ENDIF
 
             IF ( has_reqi .ne. 0) THEN
-               IF ( wrf_dm_on_monitor() ) THEN
-                 WRITE(message,*)'RRTMG: pre-computed cloud ice effective radius found, setting inflglw=4 and iceflglw=4'
-                 call wrf_debug(150, message)
-               ENDIF
                inflglw  = 4
                iceflglw = 4
                DO K=kts,kte
@@ -15873,10 +15864,6 @@ SUBROUTINE RRTMG_LWRAD_FAST(                                &
             ENDIF
 
             IF ( has_reqs .ne. 0) THEN
-               IF ( wrf_dm_on_monitor() ) THEN
-                 WRITE(message,*)'RRTMG: pre-computed snow effective radius found, setting inflglw=5 and iceflglw=5'
-                 call wrf_debug(150, message)
-               ENDIF
                inflglw  = 5
                iceflglw = 5
                DO K=kts,kte