Changeset 8297 for branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90

Timestamp:

2017-07-07T12:13:34+02:00 (7 years ago)

Author:

andmirek

Message:

#1882 New way of defining what is in restart file

File:

• branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90 (modified) (1 diff)

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

@@ -75 +75 @@
    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  
-
-
-   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)
-   !  values needed to set correctlyfiles in reast file when using XIOS for writing
 !$AGRIF_END_DO_NOT_TREAT
    !!=====================================================================