Changeset 483 for codes/icosagcm/trunk/src/etat0.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/etat0.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/etat0.f90

@@ -14 +14 @@
   
   SUBROUTINE init_etat0
-  USE etat0_database_mod
+  USE etat0_database_mod, init_etat0_database => init_etat0 
+  USE etat0_start_file_mod, init_etat0_start_file => init_etat0 
   IMPLICIT NONE
 
@@ -26 +27 @@
       CASE ('williamson91.6')
       CASE ('start_file')
+        CALL init_etat0_start_file
       CASE ('database')
         CALL init_etat0_database