Changeset 1795 for LMDZ5/branches/testing/libf/phylmd/etat0_netcdf.F90

Timestamp:

Jul 18, 2013, 10:20:28 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Version testing basee sur la r1794

---

Testing release based on r1794

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/etat0_netcdf.F90 (modified) (4 diffs)

LMDZ5/branches/testing/libf/phylmd/etat0_netcdf.F90

@@ -24 +24 @@
   USE conf_phys_m,            ONLY: conf_phys
 ! For parameterization of ozone chemistry:
-  use regr_lat_time_coefoz_m, only: regr_lat_time_coefoz
-  use press_coefoz_m, only: press_coefoz
-  use regr_pr_o3_m, only: regr_pr_o3
+  USE regr_lat_time_coefoz_m, only: regr_lat_time_coefoz
+  USE press_coefoz_m, only: press_coefoz
+  USE regr_pr_o3_m, only: regr_pr_o3
   USE netcdf, ONLY : NF90_OPEN, NF90_NOWRITE, NF90_CLOSE, NF90_NOERR
+  USE indice_sol_mod
 #endif
   IMPLICIT NONE
@@ -47 +48 @@
 #include "comvert.h"
 #include "comconst.h"
-#include "indicesol.h"
 #include "dimsoil.h"
 #include "temps.h"
@@ -101 +101 @@
   LOGICAL :: ok_LES, ok_ade, ok_aie, ok_cdnc, aerosol_couple, new_aod, callstats
   INTEGER :: iflag_radia, flag_aerosol
+  LOGICAL :: flag_aerosol_strat
   REAL    :: bl95_b0, bl95_b1, fact_cldcon, facttemps, ratqsbas, ratqshaut
   REAL    :: tau_ratqs
@@ -137 +138 @@
                    iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs,            &
                    ok_ade, ok_aie, ok_cdnc, aerosol_couple,             &
-                   flag_aerosol, new_aod,                               &
+                   flag_aerosol, flag_aerosol_strat, new_aod,           &
                    bl95_b0, bl95_b1,                                    &
                    read_climoz,                                         &