Changeset 5926 for LMDZ6/trunk/libf/phylmd/StratAer/traccoag_mod.f90

Timestamp:

Dec 11, 2025, 4:17:28 PM (3 months ago)

Author:

lebasn

Message:

StratAer?: bugfix on last commit + SAI mode

File:

• LMDZ6/trunk/libf/phylmd/StratAer/traccoag_mod.f90 (modified) (3 diffs)

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

@@ -121 +121 @@
     WHERE (stratomask.GT.0.5) is_strato=.TRUE. 
 
-    IF(flag_strat_compo) THEN
+    IF(flag_strat_compo.EQ.2) THEN
        IF(debutphy) WRITE(lunout,*) 'traccoag: COMPO/DENSITY (Tabazadeh 97) + H2O kelvin effect', flag_strat_compo
        ! STRACOMP (H2O, P, t_seri, R -> R2SO4 + Kelvin effect) : Taba97, Socol, etc...
@@ -146 +146 @@
     
 !--initialise emission diagnostics
-    if (nErupt > 0 .and. (flag_emit == 1 .or. flag_emit == 4)) budg_emi(:,1)=0.0
+    budg_emi(:,1)=0.0
     budg_emi_ocs(:)=0.0
     budg_emi_so2(:)=0.0
@@ -383 +383 @@
                    & *pplay(i,j)/t_seri(i,j)/RD                           ! [air mass concentration in kg air /m3A]
               
-              IF(flag_strat_compo) THEN
+              IF(flag_strat_compo.EQ.2) THEN
                  !     SAD_sulfate: SAD WET sulfate aerosols (cm2/cm3)
                  SAD_sulfate(i,j) = SAD_sulfate(i,j) + nd_mode(i,j,it) &     ! [DRY part/m3A (in bin it)]