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

Timestamp:

Dec 9, 2025, 3:08:05 PM (8 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/micphy_tstep.f90 (modified) (3 diffs)

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

@@ -57 +57 @@
        & 1.*(7.990811e-4 + 1.*(-7.458060e-4 + 1.*2.58139e-4 )))))
 
-  IF(.not.flag_new_strat_compo) THEN
+  IF(.not.flag_strat_compo) THEN
      ! STRAACT (R2SO4, t_seri -> H2SO4 activity coefficient (ACTSO4)) for cond/evap
      CALL STRAACT(ACTSO4)
@@ -97 +97 @@
       ENDIF
       ! compute cond/evap rate in kg(H2SO4)/kgA/s
-      IF(flag_new_strat_compo) THEN
+      IF(flag_strat_compo) THEN
          R2SO4ik(:)   = R2SO4B(ilon,ilev,:)
          DENSO4ik(:)  = DENSO4B(ilon,ilev,:)
@@ -144 +144 @@
         & *pplay(ilon,ilev)/t_seri(ilon,ilev)/RD/1.E6/mH2SO4mol
     ! compute cond/evap rate in kg(H2SO4)/kgA/s (now only evap for pdtphys)
-    IF(flag_new_strat_compo) THEN
+    IF(flag_strat_compo) THEN
        CALL condens_evapor_rate_kelvin(rhoa,t_seri(ilon,ilev),pplay(ilon,ilev), &
             & R2SO4(ilon,ilev),DENSO4(ilon,ilev),f_r_wet(ilon,ilev), &