Changeset 951 for branches/dev_001_GM/NEMO/OFF_SRC/IOM/iom_def.F90

Timestamp:

2008-05-14T18:42:10+02:00 (16 years ago)

Author:

cetlod

Message:

phasing the OFFLINE module to the new version of NEMO, see ticket 146

File:

• branches/dev_001_GM/NEMO/OFF_SRC/IOM/iom_def.F90 (modified) (4 diffs)

branches/dev_001_GM/NEMO/OFF_SRC/IOM/iom_def.F90

@@ -5 +5 @@
    !!====================================================================
    !! History :  9.0  ! 06 09  (S. Masson) Original code
+   !!             "   ! 07 07  (D. Storkey) Add uldname
    !!--------------------------------------------------------------------
    !!---------------------------------------------------------------------------------
    !! OPA 9.0 , LOCEAN-IPSL (2006) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/IOM/iom_def.F90,v 1.7 2007/06/05 10:33:38 opalod Exp $ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!---------------------------------------------------------------------------------
@@ -24 +25 @@
    INTEGER, PARAMETER, PUBLIC ::   jpdom_local_noovlap = 6   !: (nldi:nlei  ,nldj:nlej  )
    INTEGER, PARAMETER, PUBLIC ::   jpdom_unknown       = 7   !: No dimension checking
+   INTEGER, PARAMETER, PUBLIC ::   jpdom_autoglo       = 8   !: 
+   INTEGER, PARAMETER, PUBLIC ::   jpdom_autodta       = 9   !: 
 
    INTEGER, PARAMETER, PUBLIC ::   jpioipsl    = 100      !: Use ioipsl (fliocom only) library
@@ -41 +44 @@
 
    INTEGER, PARAMETER, PUBLIC ::   jpmax_files  = 20   !: maximum number of simultaneously opened file
-   INTEGER, PARAMETER, PUBLIC ::   jpmax_vars   = 60   !: maximum number of variables in one file
+   INTEGER, PARAMETER, PUBLIC ::   jpmax_vars   = 360  !: maximum number of variables in one file
    INTEGER, PARAMETER, PUBLIC ::   jpmax_dims   =  4   !: maximum number of dimensions for one variable
    INTEGER, PARAMETER, PUBLIC ::   jpmax_digits =  5   !: maximum number of digits for the cpu number in the file name
 
+!$AGRIF_DO_NOT_TREAT
    INTEGER, PUBLIC            ::   iom_init = 0        !: used to initialize iom_file(:)%nfid to 0
-!$AGRIF_DO_NOT_TREAT
+
    TYPE, PUBLIC ::   file_descriptor
       CHARACTER(LEN=240)                        ::   name     !: name of the file
@@ -54 +58 @@
       INTEGER                                   ::   iduld    !: id of the unlimited dimension
       INTEGER                                   ::   irec     !: writing record position  
-      CHARACTER(LEN=16), DIMENSION(jpmax_vars)  ::   cn_var   !: names of the variables
+      CHARACTER(LEN=32)                         ::   uldname  !: name of the unlimited dimension
+      CHARACTER(LEN=32), DIMENSION(jpmax_vars)  ::   cn_var   !: names of the variables
       INTEGER, DIMENSION(jpmax_vars)            ::   nvid     !: id of the variables
       INTEGER, DIMENSION(jpmax_vars)            ::   ndims    !: number of dimensions of the variables