Changeset 819

Timestamp:

03/27/19 15:45:37 (5 years ago)

Author:

ymipsl

Message:

New parameter in run .def

etat0_start_iteration_reset = y/n default (n)

Reset the start iteration value read in start.nc to 0

YM

File:

• codes/icosagcm/trunk/src/initial/etat0_start_file.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/initial/etat0_start_file.f90

@@ -45 +45 @@
     LOGICAL :: etat0_start_file_colocated=.FALSE.
     INTEGER :: ind
+    LOGICAL :: raz
 
       CALL getin("etat0_start_file_colocated",etat0_start_file_colocated)  
@@ -110 +111 @@
 
       CALL bcast(itau0)
+      raz=.FALSE.
+      CALL getin("etat0_start_iteration_reset",raz)
+      IF (raz) itau0=0
       CALL getin("etat0_start_iteration",itau0)