Changeset 2083 for LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F

Timestamp:

Jul 9, 2014, 4:43:31 PM (10 years ago)

Author:

Ehouarn Millour

Message:

• Minor fix in dyn3dpar/leapfrog_p.F , should call geopot_p and not geopot
• Added a sanity check in iniacademic
• Added flag "resetvarc" to trigger a reset of initial values in sortvarc
• Removed "sortvarc0" since the job can now be done with "resetvarc" and having set flag resertvarc to true.

EM

File:

• LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F

@@ -177 +177 @@
       raz_date = 0
       CALL getin('raz_date', raz_date)
+
+!Config  Key  = resetvarc
+!Config  Desc = Reinit des variables de controle
+!Config  Def  = n
+!Config  Help = Reinit des variables de controle
+      resetvarc = .false.
+      CALL getin('resetvarc',resetvarc)
 
 !Config  Key  = nday