Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Removing some debug-level prints from RRTMG lw #3

Merged
merged 2 commits into from
Sep 16, 2016
Merged

Removing some debug-level prints from RRTMG lw #3

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
eff5076
Changes for 160915
dudhia Sep 15, 2016
80ed900
Changes for 160916
dudhia Sep 16, 2016
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
12 changes: 0 additions & 12 deletions phys/module_ra_rrtmg_lw.F
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Jimy,
These are already at level 150, and they are formatted exactly as we ask people to do. Do these messages appear to often when the debug level is set to 150 (as in every time through the scheme)? Hardly anyone runs with debug this high, so these messages should not be problematic for most people.
Dave

Expand All @@ -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
Expand Down Expand Up @@ -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
Expand Down
13 changes: 0 additions & 13 deletions phys/module_ra_rrtmg_lwf.F
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand All @@ -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
Expand All @@ -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
Expand Down