diff --git a/physics/rrtmgp_sw_rte.F90 b/physics/rrtmgp_sw_rte.F90
index c8cf4e0e8..5adf04bee 100644
--- 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