Changeset 4756 for LMDZ6/trunk/libf/phylmd/StratAer

Timestamp:

Nov 30, 2023, 3:54:13 PM (14 months ago)

Author:

lebasn

Message:

StratAer?: update field and file_def for new tracers mode + change strato compo print (only 1st step).

File:

• LMDZ6/trunk/libf/phylmd/StratAer/traccoag_mod.F90 (modified) (2 diffs)

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

@@ -117 +117 @@
 
     IF(flag_new_strat_compo) THEN
-       WRITE(lunout,*) 'traccoag: USE STRAT COMPO from Tabazadeh 1994', flag_new_strat_compo
+       IF(debutphy) WRITE(lunout,*) 'traccoag: USE STRAT COMPO from Tabazadeh 1994', flag_new_strat_compo
        ! STRACOMP (H2O, P, t_seri -> aerosol composition (R2SO4)) : binary routine (from reprobus)
        ! H2SO4 mass fraction in aerosol (%) from Tabazadeh et al. (1994).
@@ -125 +125 @@
        CALL denh2sa_taba(t_seri)
     ELSE
-       WRITE(lunout,*) 'traccoag: USE STRAT COMPO from Bekki 2D model', flag_new_strat_compo
+       IF(debutphy) WRITE(lunout,*) 'traccoag: USE STRAT COMPO from Bekki 2D model', flag_new_strat_compo
        ! STRACOMP (H2O, P, t_seri -> aerosol composition (R2SO4)) 
        ! H2SO4 mass fraction in aerosol (%)