From 50b82a57dc0b660adf1825f4f5982172c70104ae Mon Sep 17 00:00:00 2001 From: Dustin Swales Date: Wed, 20 Nov 2019 10:50:34 -0700 Subject: [PATCH] Delta-scaling added to SW calculation. --- physics/rrtmgp_sw_rte.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/physics/rrtmgp_sw_rte.F90 b/physics/rrtmgp_sw_rte.F90 index 29e9fa4de..a01c9cb70 100644 --- a/physics/rrtmgp_sw_rte.F90 +++ b/physics/rrtmgp_sw_rte.F90 @@ -175,6 +175,7 @@ subroutine rrtmgp_sw_rte_run(Model, Interstitial, Radtend, Statein, ncol, sw_gas ! Compute clear-sky fluxes (if requested) ! Clear-sky fluxes are gas+aerosol call check_error_msg('rrtmgp_sw_rte_run',sw_optical_props_aerosol_daylit%increment(sw_optical_props_clrsky_daylit)) + call check_error_msg('rrtmgp_sw_rte_run',sw_optical_props_clrsky_daylit%delta_scale()) if (l_ClrSky_HR) then call check_error_msg('rrtmgp_sw_rte_run',rte_sw( & sw_optical_props_clrsky_daylit, & ! IN - optical-properties @@ -190,6 +191,7 @@ subroutine rrtmgp_sw_rte_run(Model, Interstitial, Radtend, Statein, ncol, sw_gas endif ! Compute all-sky fluxes + call check_error_msg('rrtmgp_sw_rte_run',sw_optical_props_clouds_daylit%delta_scale()) call check_error_msg('rrtmgp_sw_rte_run',sw_optical_props_clouds_daylit%increment(sw_optical_props_clrsky_daylit)) call check_error_msg('rrtmgp_sw_rte_run',rte_sw( & sw_optical_props_clrsky_daylit, & ! IN - optical-properties