Changeset 483 for codes/icosagcm/trunk/src/etat0_database.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_database.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/etat0_database.f90

@@ -4 +4 @@
 CONTAINS
 
-  SUBROUTINE init_etat0_database
+  SUBROUTINE init_etat0
   USE xios_mod
+  USE omp_para
   IMPLICIT NONE
   
-    CALL xios_set_fieldgroup_attr("read_fields",enabled=.TRUE.)
-    CALL xios_set_filegroup_attr("read_files",enabled=.TRUE.)
-
-  END SUBROUTINE init_etat0_database
+    IF (is_omp_master) THEN
+      CALL xios_set_fieldgroup_attr("read_fields",enabled=.TRUE.)
+      CALL xios_set_filegroup_attr("read_files",enabled=.TRUE.)
+    ENDIF
+  END SUBROUTINE init_etat0
 
   SUBROUTINE etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q)