Changeset 3408 for LMDZ6/branches/IPSLCM6.0.15/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

Timestamp:

Oct 25, 2018, 5:23:18 PM (6 years ago)

Author:

Laurent Fairhead

Message:

Modifications needed for VolMIP diagnostics for IPSLCM6.1.8
NL/LF

File:

• LMDZ6/branches/IPSLCM6.0.15/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, chemistry_couple
+  LOGICAL :: ok_ade, ok_aie, ok_volcan, ok_alw, ok_cdnc, aerosol_couple, chemistry_couple
   INTEGER :: flag_aerosol
   INTEGER :: flag_aerosol_strat
@@ -126 +126 @@
 ! Physics configuration
 !*******************************************************************************
-  CALL conf_phys(  ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES,     &
-                   callstats,                                           &
-                   solarlong0,seuil_inversion,                          &
-                   fact_cldcon, facttemps,ok_newmicro,iflag_radia,      &
-                   iflag_cldcon,                                        &
-                   iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs,            &
-                   ok_ade, ok_aie, ok_alw, ok_cdnc, aerosol_couple,     &
-                   chemistry_couple, flag_aerosol, flag_aerosol_strat,  &
-                   new_aod, flag_bc_internal_mixture, bl95_b0, bl95_b1, &
-                   read_climoz, alp_offset)
+  CALL conf_phys(  ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES,       &
+                   callstats,                                             &
+                   solarlong0,seuil_inversion,                            &
+                   fact_cldcon, facttemps,ok_newmicro,iflag_radia,        &
+                   iflag_cldcon,                                          &
+                   iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs,              &
+                   ok_ade, ok_aie, ok_volcan, ok_alw, ok_cdnc,            &
+                   aerosol_couple, 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)