diff --git a/radiation/radiation_tripleclouds_lw.F90 b/radiation/radiation_tripleclouds_lw.F90 index e7c0f26a..f59db244 100644 --- a/radiation/radiation_tripleclouds_lw.F90 +++ b/radiation/radiation_tripleclouds_lw.F90 @@ -232,7 +232,8 @@ subroutine solver_tripleclouds_lw(nlev,istartcol,iendcol, & ! Section 3: Clear-sky calculation ! -------------------------------------------------------- - if (.not. config%do_lw_aerosol_scattering) then + if (.not. config%use_aerosols & + .or. .not. config%do_lw_aerosol_scattering) then ! No scattering in clear-sky flux calculation; note that here ! the first two dimensions of the input arrays are unpacked ! into vectors inside the routine