Changeset 517 for codes/icosagcm/trunk/src/etat0_start_file.f90

Timestamp:

12/22/16 10:58:34 (7 years ago)

Author:

ymipsl

Message:

forgotten files from previous commit

YM

File:

• codes/icosagcm/trunk/src/etat0_start_file.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/etat0_start_file.f90

@@ -9 +9 @@
   USE xios_mod
   USE omp_para
+  USE time_mod
+  USE restart_mod
   IMPLICIT NONE
     
     IF (is_omp_master) THEN
-      IF (using_xios) CALL xios_set_file_attr("start", enabled=.TRUE.)
+      IF (using_xios) THEN
+        CALL xios_set_file_attr("start", enabled=.TRUE., mode="read", output_freq=(itaumax+1)*xios_timestep)
+      ENDIF
     ENDIF
+    write_start=.FALSE.
     
   END SUBROUTINE init_etat0