Changeset 8662 for branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90

Timestamp:

2017-10-26T13:15:54+02:00 (6 years ago)

Author:

andmirek

Message:

#1962 change variable names to follow NEMO coding convention

File:

• branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90 (modified) (3 diffs)

branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90

@@ -48 +48 @@
 !XIOS write restart   
    LOGICAL, PUBLIC            ::   lwxios          !: read single file restart using XIOS
-   INTEGER, PUBLIC            ::   wxioso          !: type of restart file when writing using XIOS 1 - single, 2 - multiple
+   INTEGER, PUBLIC            ::   nxioso          !: type of restart file when writing using XIOS 1 - single, 2 - multiple
 
 
@@ -71 +71 @@
    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 = 95  
-!$AGRIF_END_DO_NOT_TREAT
-
    TYPE, PUBLIC :: RST_FIELD  
     CHARACTER(len=30) :: vname = "NO_NAME" ! names of variables in restart file
@@ -80 +77 @@
     LOGICAL           :: active =.FALSE. ! for restart write only: true - write field, false do not write field
    END TYPE RST_FIELD
+!$AGRIF_END_DO_NOT_TREAT
+
    TYPE(RST_FIELD), PUBLIC :: rst_wfields(max_rst_fields)