Changeset 12649 for NEMO/trunk/src/OCE/IOM/iom_def.F90

Timestamp:

2020-04-03T09:11:57+02:00 (4 years ago)

Author:

smasson

Message:

trunk: clean and unique 3rd dimension in iom_rstput, see #2432

File:

• NEMO/trunk/src/OCE/IOM/iom_def.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/IOM/iom_def.F90

@@ -50 +50 @@
    TYPE, PUBLIC ::   file_descriptor
       CHARACTER(LEN=240)                        ::   name     !: name of the file
+      CHARACTER(LEN=3  )                        ::   comp     !: name of component opening the file ('OCE', 'ICE'...)
       INTEGER                                   ::   nfid     !: identifier of the file (0 if closed)
                                                               !: jpioipsl option has been removed)
@@ -64 +65 @@
       REAL(kind=wp), DIMENSION(jpmax_vars)      ::   scf      !: scale_factor of the variables
       REAL(kind=wp), DIMENSION(jpmax_vars)      ::   ofs      !: add_offset of the variables
-      INTEGER                                   ::   nlev     ! number of vertical levels
    END TYPE file_descriptor
    TYPE(file_descriptor), DIMENSION(jpmax_files), PUBLIC ::   iom_file !: array containing the info for all opened files