Changeset 5924 for LMDZ6/trunk/libf/phylmd/StratAer/aer_sedimnt.f90

Timestamp:

Dec 9, 2025, 3:08:05 PM (11 hours ago)

Author:

lebasn

Message:

StratAer?: remove old params and rename others for coherence (flag_nucl and flag_strat_compo). Use integer instead of boolean to choose compo and nucleation methods.

File:

• LMDZ6/trunk/libf/phylmd/StratAer/aer_sedimnt.f90 (modified) (2 diffs)

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

@@ -18 +18 @@
 
   USE phys_local_var_mod, ONLY: mdw, budg_sed_part, DENSO4, DENSO4B, f_r_wet, f_r_wetB, vsed_aer
-  USE strataer_local_var_mod, ONLY: flag_new_strat_compo
+  USE strataer_local_var_mod, ONLY: flag_strat_compo
   USE dimphy, ONLY : klon,klev
   USE infotrac_phy
@@ -90 +90 @@
 
       ! stokes-velocity with cunnigham slip- flow correction
-      IF(flag_new_strat_compo) THEN
+      IF(flag_strat_compo) THEN
          ! stokes-velocity with cunnigham slip- flow correction
          ZVAER(JL,JK,nb) = 2./9.*(DENSO4B(JL,JK,nb)*1000.-ZRHO)*RG/zvis(JL,JK)*(f_r_wetB(JL,JK,nb)*mdw(nb)/2.)**2.* &