Delta-scaling added to SW calculation.

climbfuji · Nov 20, 2019 · 50b82a5 · 50b82a5
1 parent 54e0066
commit 50b82a5
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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