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

Timestamp:

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

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

@@ -9 +9 @@
   USE yomcst_mod_h, ONLY : RG
   USE phys_local_var_mod, ONLY : OCS_lifetime, budg_3D_ocs_to_so2, budg_ocs_to_so2
-  USE strataer_local_var_mod, ONLY : flag_min_rreduce
-
+  
   IMPLICIT NONE
 
@@ -37 +36 @@
             rreduce = OCS_lifetime(ilon,ilev)
             ! Check lifetime rreduce < timestep*3 (such as H2SO4 loss > 0.28*H2SO4) with exp(-1/3)=0.72
-            IF(flag_min_rreduce) THEN
-               IF (rreduce .LT. (3.*pdtphys)) rreduce = 3.*pdtphys
-            ENDIF
+            IF (rreduce .LT. (3.*pdtphys)) rreduce = 3.*pdtphys
             budg_3D_ocs_to_so2(ilon,ilev)=tr_seri(ilon,ilev,id_OCS_strat)*(1.0-exp(-pdtphys/rreduce))
             tr_seri(ilon,ilev,id_OCS_strat)=tr_seri(ilon,ilev,id_OCS_strat) - budg_3D_ocs_to_so2(ilon,ilev)