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

Timestamp:

2020-12-04T08:48:38+01:00 (3 years ago)

Author:

laurent

Message:

Merging branch "2020/dev_r13648_ASINTER-04_laurent_bulk_ice", ticket #2369

File:

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

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

@@ -17 +17 @@
    INTEGER, PARAMETER, PUBLIC ::   jpdom_local         = 2   !: (Nis0: Nie0 ,Njs0: Nje0 )
    INTEGER, PARAMETER, PUBLIC ::   jpdom_unknown       = 3   !: No dimension checking
-   INTEGER, PARAMETER, PUBLIC ::   jpdom_auto          = 4   !: 
+   INTEGER, PARAMETER, PUBLIC ::   jpdom_auto          = 4   !:
    INTEGER, PARAMETER, PUBLIC ::   jpdom_auto_xy       = 5   !: Automatically set horizontal dimensions only
 
@@ -33 +33 @@
 !$AGRIF_DO_NOT_TREAT
    INTEGER, PUBLIC            ::   iom_open_init = 0   !: used to initialize iom_file(:)%nfid to 0
-!XIOS write restart   
+!XIOS write restart
    LOGICAL, PUBLIC            ::   lwxios = .FALSE.    !: write single file restart using XIOS
    INTEGER, PUBLIC            ::   nxioso = 0          !: type of restart file when writing using XIOS 1 - single, 2 - multiple
-!XIOS read restart   
+!XIOS read restart
    LOGICAL, PUBLIC            ::   lrxios = .FALSE.     !: read single file restart using XIOS main switch
    LOGICAL, PUBLIC            ::   lxios_sini = .FALSE. ! is restart in a single file
@@ -50 +50 @@
       INTEGER                                   ::   iduld    !: id of the unlimited dimension
       INTEGER                                   ::   lenuld   !: length of the unlimited dimension (number of records in file)
-      INTEGER                                   ::   irec     !: writing record position  
+      INTEGER                                   ::   irec     !: writing record position
       CHARACTER(LEN=32)                         ::   uldname  !: name of the unlimited dimension
       CHARACTER(LEN=32), DIMENSION(jpmax_vars)  ::   cn_var   !: names of the variables
@@ -56 +56 @@
       INTEGER, DIMENSION(jpmax_vars)            ::   ndims    !: number of dimensions of the variables
       LOGICAL, DIMENSION(jpmax_vars)            ::   luld     !: variable using the unlimited dimension
-      INTEGER, DIMENSION(jpmax_dims,jpmax_vars) ::   dimsz    !: size of variables dimensions 
+      INTEGER, DIMENSION(jpmax_dims,jpmax_vars) ::   dimsz    !: size of variables dimensions
       REAL(kind=wp), DIMENSION(jpmax_vars)      ::   scf      !: scale_factor of the variables
       REAL(kind=wp), DIMENSION(jpmax_vars)      ::   ofs      !: add_offset of the variables