Changeset 483 for codes/icosagcm/trunk/src/icosagcm.f90

Timestamp:

09/26/16 14:09:01 (8 years ago)

Author:

ymipsl

Message:

• Add functionnality to input/output field of type U (value on the edges)
• Management of start/restart files by XIOS

YM

File:

• codes/icosagcm/trunk/src/icosagcm.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/icosagcm.f90

@@ -20 +20 @@
   USE physics_mod
   USE tracer_mod
+  USE restart_mod
+  USE etat0_mod
   IMPLICIT NONE
   
@@ -31 +33 @@
     CALL compute_domain
     CALL init_transfert
-    CALL init_etat0
     CALL init_writefield
     CALL init_trace
@@ -48 +49 @@
     IF (is_mpi_root) CALL write_apbp
     CALL init_time
+    CALL init_restart
+    CALL init_etat0
 
     CALL output_field_init