Changeset 8193 for branches/UKMO/dev_r5518_GO6_package_fix_rnf_MOCI_TEST_SUITE/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90

Timestamp:

2017-06-20T10:46:27+02:00 (7 years ago)

Author:

andmirek

Message:

ticket #1914 back to 8188

File:

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

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

@@ -51 +51 @@
 !$AGRIF_DO_NOT_TREAT
    INTEGER, PUBLIC            ::   iom_open_init = 0   !: used to initialize iom_file(:)%nfid to 0
-!XIOS read restart   
-   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. 
 
    TYPE, PUBLIC ::   file_descriptor
@@ -74 +70 @@
    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  
-!  CHARACTER(len=30),DIMENSION(max_rst_fields), PUBLIC   :: rst_fields ! names of variables in restart file
-
-   TYPE, PUBLIC :: RST_FIELD  
-    CHARACTER(len=30) :: vname ! names of variables in restart file
-    CHARACTER(len=30) :: grid
-   END TYPE RST_FIELD
-   TYPE(RST_FIELD), PUBLIC :: rst_fields(max_rst_fields)
-
 !$AGRIF_END_DO_NOT_TREAT