Changeset 171 for codes/icosagcm/trunk/src/write_field.f90

Timestamp:

09/23/13 18:06:31 (11 years ago)

Author:

ymipsl

Message:

• XIOS integration -

Compiling with "-with_xios" option. Adapt path to find XIOS library (arch.path)
Retro-compatible with the old output. If xios is not present, dynamico will use the standard writefield function.
Need to have the iodef.xml configuration file in the exec directory

YM

File:

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

codes/icosagcm/trunk/src/write_field.f90

@@ -2 +2 @@
 USE genmod
 implicit none
-  
+  PRIVATE  
   INTEGER,SAVE :: ncprec
   
@@ -11 +11 @@
   END TYPE ncvar
 
-  integer, parameter :: MaxWriteField = 1000
-  integer, dimension(MaxWriteField),save :: FieldId
-  TYPE(ncvar), dimension(MaxWriteField),save :: FieldVarId
-  integer, dimension(MaxWriteField),save :: FieldIndex
-  character(len=255), dimension(MaxWriteField) ::  FieldName 
+  INTEGER, PARAMETER :: MaxWriteField = 1000
+  INTEGER, DIMENSION(MaxWriteField),SAVE :: FieldId
+  TYPE(ncvar), dimension(MaxWriteField),SAVE :: FieldVarId
+  INTEGER, DIMENSION(MaxWriteField),SAVE :: FieldIndex
+  CHARACTER(len=255), DIMENSION(MaxWriteField) ::  FieldName 
    
-  integer,save :: NbField = 0
+  INTEGER,SAVE :: NbField = 0
   
-  contains
+  PUBLIC init_writeField, writefield, close_files
+  
+  CONTAINS
   
     SUBROUTINE init_writeField