Replaced 'rrtmg' in warning/error message with 'radiation' to avoid c…

…onfusion.
ufs-community · Jan 10, 2025 · b876e1e · b876e1e
1 parent 9d251ba
commit b876e1e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_radiation_post.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_radiation_post.F90
@@ -138,15 +138,15 @@ subroutine GFS_radiation_post_run (nCol, nLev, nDay, iSFC, iTOA, idxday, doLWrad
 
           ! Clear-sky heating-rate (optional)
           if (do_lw_clrsky_hr) then
-             call check_error_msg('GFS_rrtmgp_post',compute_heating_rate(  &
+             call check_error_msg('GFS_radiation_post',compute_heating_rate(  &
                   fluxlwUP_clrsky,   & ! IN  - RRTMGP upward longwave clear-sky flux profiles (W/m2)
                   fluxlwDOWN_clrsky, & ! IN  - RRTMGP downward longwave clear-sky flux profiles (W/m2)
                   p_lev,             & ! IN  - Pressure @ layer-interfaces (Pa)
                   htrlwc))             ! OUT - Longwave clear-sky heating rate (K/sec)
           endif
 
           ! All-sky heating-rate (mandatory)
-          call check_error_msg('GFS_rrtmgp_post',compute_heating_rate(     &
+          call check_error_msg('GFS_radiation_post',compute_heating_rate(     &
                fluxlwUP_allsky,      & ! IN  - RRTMGP upward longwave all-sky flux profiles (W/m2)
                fluxlwDOWN_allsky,    & ! IN  - RRTMGP downward longwave all-sky flux profiles (W/m2)
                p_lev,                & ! IN  - Pressure @ layer-interfaces (Pa)