Changeset 3338 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd

Timestamp:

May 31, 2018, 5:10:35 PM (6 years ago)

Author:

acozic

Message:

Add a flag chemistry_couple to give the choice between use O3 read in offline files or O3 calcul by Inca model

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

@@ -110 +110 @@
   INTEGER :: iflag_radia, iflag_cldcon, iflag_ratqs
   REAL    :: ratqsbas, ratqshaut, tau_ratqs
-  LOGICAL :: ok_ade, ok_aie, ok_alw, ok_cdnc, aerosol_couple
+  LOGICAL :: ok_ade, ok_aie, ok_alw, ok_cdnc, aerosol_couple, chemistry_couple
   INTEGER :: flag_aerosol
   INTEGER :: flag_aerosol_strat
@@ -133 +133 @@
                    iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs,            &
                    ok_ade, ok_aie, ok_alw, ok_cdnc, aerosol_couple,     &
-                   flag_aerosol, flag_aerosol_strat, new_aod,           &
-                   flag_bc_internal_mixture, bl95_b0, bl95_b1,          &
-                   read_climoz,                                         &
-                   alp_offset)
+                   chemistry_couple, flag_aerosol, flag_aerosol_strat,  &
+                   new_aod, flag_bc_internal_mixture, bl95_b0, bl95_b1, &
+                   read_climoz, alp_offset)
   CALL phys_state_var_init(read_climoz)