Changeset 1305 for trunk/LMDZ.VENUS/libf/phyvenus/clesphys.h

Timestamp:

Jul 8, 2014, 2:21:53 PM (10 years ago)

Author:

slebonnois

Message:

SL: VENUS PHOTOCHEMISTRY. Needs Lapack (see arch files...)

File:

• trunk/LMDZ.VENUS/libf/phyvenus/clesphys.h (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/clesphys.h

@@ -11 +11 @@
        LOGICAL ok_orodr,ok_orolf,ok_gw_nonoro
        LOGICAL ok_kzmin
+       LOGICAL ok_cloud, ok_chem, reinit_trac, ok_sedim
        INTEGER nbapp_rad, nbapp_chim, iflag_con, iflag_ajs
-       INTEGER lev_histhf, lev_histday, lev_histmth
+       INTEGER lev_histins, lev_histday, lev_histmth
        INTEGER tr_scheme
        REAL    ecriphy
@@ -19 +20 @@
        REAL    ksta, inertie
 
-       COMMON/clesphys_l/cycle_diurne, soil_model,                      &
-     &     ok_orodr, ok_orolf, ok_gw_nonoro, ok_kzmin
+       COMMON/clesphys_l/ cycle_diurne, soil_model,                     &
+     &     ok_orodr, ok_orolf, ok_gw_nonoro, ok_kzmin,                  &
+     &     ok_cloud, ok_chem, reinit_trac, ok_sedim
 
-       COMMON/clesphys_i/nbapp_rad, nbapp_chim,                         &
+       COMMON/clesphys_i/ nbapp_rad, nbapp_chim,                        &
      &     iflag_con, iflag_ajs,                                        &
-     &     lev_histhf, lev_histday, lev_histmth, tr_scheme
+     &     lev_histins, lev_histday, lev_histmth, tr_scheme
 
-       COMMON/clesphys_r/ecriphy, solaire, z0, lmixmin,                 &
+       COMMON/clesphys_r/ ecriphy, solaire, z0, lmixmin,                &
      &     ksta, inertie