From b876e1e4a47dd6caded4f430aeceb2f829e06761 Mon Sep 17 00:00:00 2001 From: "larissa.reames@noaa.gov" Date: Fri, 10 Jan 2025 20:30:20 +0000 Subject: [PATCH] Replaced 'rrtmg' in warning/error message with 'radiation' to avoid confusion. --- physics/Interstitials/UFS_SCM_NEPTUNE/GFS_radiation_post.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_radiation_post.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_radiation_post.F90 index 475fdc4bf..e1b5211f1 100644 --- a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_radiation_post.F90 +++ b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_radiation_post.F90 @@ -138,7 +138,7 @@ 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) @@ -146,7 +146,7 @@ subroutine GFS_radiation_post_run (nCol, nLev, nDay, iSFC, iTOA, idxday, doLWrad 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)