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

Timestamp:

Jan 16, 2014, 9:49:42 AM (11 years ago)

Author:

slebonnois

Message:

SL: update for tracers management in phytrac, Venus

File:

• trunk/LMDZ.VENUS/libf/phyvenus/clesphys.h (modified) (1 diff)

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

@@ -10 +10 @@
        LOGICAL cycle_diurne,soil_model
        LOGICAL ok_orodr,ok_orolf,ok_gw_nonoro
+       LOGICAL ok_kzmin
        INTEGER nbapp_rad, nbapp_chim, iflag_con, iflag_ajs
+       INTEGER lev_histhf, lev_histday, lev_histmth
+       INTEGER tr_scheme
        REAL    ecriphy
        REAL    solaire
        REAL    z0, lmixmin
        REAL    ksta, inertie
-       LOGICAL ok_kzmin
-       INTEGER lev_histhf, lev_histday, lev_histmth
 
-       COMMON/clesphys/cycle_diurne, soil_model,                        &
-     &     ok_orodr, ok_orolf, ok_gw_nonoro, nbapp_rad, nbapp_chim      &
-     &     , ecriphy                                                    &
-     &     , iflag_con, iflag_ajs, solaire, z0, lmixmin, ksta           &
-     &     , ok_kzmin, lev_histhf, lev_histday, lev_histmth             &
-     &     , inertie
+       COMMON/clesphys_l/cycle_diurne, soil_model,                      &
+     &     ok_orodr, ok_orolf, ok_gw_nonoro, ok_kzmin
 
+       COMMON/clesphys_i/nbapp_rad, nbapp_chim,                         &
+     &     iflag_con, iflag_ajs,                                        &
+     &     lev_histhf, lev_histday, lev_histmth, tr_scheme
+
+       COMMON/clesphys_r/ecriphy, solaire, z0, lmixmin,                 &
+     &     ksta, inertie
+