Changeset 3339 for LMDZ6/branches/IPSLCM6.0.15/libf/dynphy_lonlat

Timestamp:

Jun 1, 2018, 12:47:52 PM (7 years ago)

Author:

acozic

Message:

merge with rev 3338 of the trunk
(add a flag chemistry_couple to use Ozone offline or Ozone calcul by Inca)

Location:

LMDZ6/branches/IPSLCM6.0.15

Files:

• . (modified) (1 prop)
• libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90 (modified) (2 diffs)

LMDZ6/branches/IPSLCM6.0.15/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)