Changeset 1532 for trunk/LMDZ.MARS/libf/dyn3d

Timestamp:

Apr 7, 2016, 3:53:15 PM (9 years ago)

Author:

emillour

Message:

Mars GCM:

• Some fixes for buggy outputs in 1D introduced by previous code modifications.
• made statto.h a module.
• ecritphy in dyn3d/control_mod.F90 should be an integer, not a real.

EM

File:

• trunk/LMDZ.MARS/libf/dyn3d/control_mod.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/dyn3d/control_mod.F90

@@ -12 +12 @@
   integer,save :: anneeref ! reference year # ! not used
   real,save :: periodav
-  real,save :: ecritphy ! output data in "diagfi.nc" every ecritphy dynamical steps 
+  integer,save :: ecritphy ! output data in "diagfi.nc" every ecritphy dynamical steps 
   integer,save :: ecritstart ! output data in "start.nc" every ecritstart dynamical steps 
   real,save :: timestart ! time start for run in "start.nc"