Changeset 8001 for branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90

Timestamp:

2017-05-08T17:00:32+02:00 (7 years ago)

Author:

andmirek

Message:

Reading restart with XIOS works and is bit comparable with NEMO default restart. Tested in MO GO6 eORCA25 configuration - suite u-al584

File:

• branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90

@@ -52 +52 @@
    INTEGER, PUBLIC            ::   iom_open_init = 0   !: used to initialize iom_file(:)%nfid to 0
 !XIOS read restart   
-   LOGICAL, PUBLIC            ::   lxios_read = .FALSE.
+   LOGICAL, PUBLIC            ::   lxios_read          !: read single file restart using XIOS
    LOGICAL, PUBLIC            ::   lxios_sini = .FALSE. ! is restart in a single file
    LOGICAL, PUBLIC            ::   lxios_set  = .FALSE. 
@@ -74 +74 @@
    END TYPE file_descriptor
    TYPE(file_descriptor), DIMENSION(jpmax_files), PUBLIC ::   iom_file !: array containing the info for all opened files
+   INTEGER, PARAMETER, PUBLIC                   :: max_rst_fields = 85  !maximum number of variables in a restart file
+   CHARACTER(len=30),DIMENSION(max_rst_fields), PUBLIC   :: rst_fields ! names of variables in restart file
+
 !$AGRIF_END_DO_NOT_TREAT