Changeset 5559 for LMDZ6/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.f90

Timestamp:

Feb 24, 2025, 3:39:32 PM (11 hours ago)

Author:

lebasn

Message:

StratAer?: clean duplicated module loading, specify loading vars from module + variable initialisation for debug mode.

File:

• LMDZ6/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.f90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.f90

@@ -39 +39 @@
   tau_strat_wave=0.0
   tau_lw_abs_rrtm=0.0
-
+  
+!-- init tau_strat vars
+  tau_strat_550(:,:) =0.0
+  tau_strat_1020(:,:)=0.0
+  
   CALL miecalc_aer(tau_strat, piz_strat, cg_strat, tau_strat_wave, tau_lw_abs_rrtm, paprs, debut)
-
-!!--test CK: deactivate radiative effect of aerosol
-!  tau_strat=0.0
-!  piz_strat=0.0
-!  cg_strat=0.0
-!  tau_strat_wave=0.0
-!  tau_lw_abs_rrtm=0.0
-
-!--test CK: deactivate SW radiative effect of aerosol (but leave LW)
-!  tau_strat=0.0
-!  piz_strat=0.0
-!  cg_strat=0.0
-
-!  DO wave=1, nwave_sw
-!  tau_strat_wave(:,:,wave)=0.0
-!  ENDDO
-
-!--test CK: deactivate LW radiative effect of aerosol (but leave SW)
-!  tau_lw_abs_rrtm=0.0
-
-!  DO wave=nwave_sw+1, nwave_sw+nwave_lw
-!  tau_strat_wave(:,:,wave)=0.0
-!  ENDDO
 
 !--total vertical aod at the 5 SW + 1 LW wavelengths