Revert "Delta-scale SW before incrementing aerosol optics."

This reverts commit 122a750.
climbfuji · Dec 16, 2019 · e105f48 · e105f48
1 parent 81abe37
commit e105f48
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/physics/rrtmgp_sw_rte.F90 b/physics/rrtmgp_sw_rte.F90
@@ -165,10 +165,10 @@ subroutine rrtmgp_sw_rte_run(doSWrad, nCol, nLev, nDay, idxday, coszen, p_lay, t
        sfc_alb_dif = 0.5_kind_phys*(sfc_alb_nir_dif(:,idxday(1:nday)) + sfc_alb_uvvis_dif(:,idxday(1:nday)))
 
        ! Compute clear-sky fluxes (if requested)
-       ! Delta-scale optical properties
-       call check_error_msg('rrtmgp_sw_rte_run',sw_optical_props_clrsky%delta_scale())
        ! Clear-sky fluxes (gas+aerosol)
        call check_error_msg('rrtmgp_sw_rte_run',sw_optical_props_aerosol%increment(sw_optical_props_clrsky))
+       ! Delta-scale optical properties
+       call check_error_msg('rrtmgp_sw_rte_run',sw_optical_props_clrsky%delta_scale())
        if (l_ClrSky_HR) then
           call check_error_msg('rrtmgp_sw_rte_run',rte_sw(     &
                sw_optical_props_clrsky,      & ! IN  - optical-properties