Changeset 1824 for trunk/LMDZ.COMMON/libf/dyn3d/conf_gcm.F90

Timestamp:

Nov 21, 2017, 4:03:44 PM (7 years ago)

Author:

emillour

Message:

Common dynamics:

• enable possiblity to store multiple time steps in the restart.nc file (flag "ecritstart" gives the frequency, in dynamical steps).
• fixed dynredem_mod.F90 to correctly write multiple time steps.
• fixed computation of JH_cur in the mars case where "hour_ini" contains the initial time of day read from the start.nc file
• minor fix in dynetat0.F90

RY

File:

• trunk/LMDZ.COMMON/libf/dyn3d/conf_gcm.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/conf_gcm.F90

@@ -16 +16 @@
                          offline, ok_dyn_ave, ok_dyn_ins, ok_dynzon, &
                          output_grads_dyn, periodav, planet_type, &
-                         raz_date, resetvarc, starttime, timestart
+                         raz_date, resetvarc, starttime, timestart, &
+                         ecritstart
   USE infotrac, ONLY : type_trac
   use assert_m, only: assert
@@ -183 +184 @@
   call getin("timestart",timestart)
       
+!Config  Key  = ecritstart
+!Config  Desc = Mars - frequency of restart.nc output (dyn timesteps)
+!Config  Def  = 0
+!Config  Help = Mars - frequency of restart.nc output (dyn timesteps)
+  ecritstart = 0
+  CALL getin('ecritstart',ecritstart)
+
 !Config  Key  = less1day
 !Config  Desc = Possibilite d'integrer moins d'un jour