Changeset 584 for trunk/NEMO/OPA_SRC

Timestamp:

2006-11-15T11:42:27+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_080 : CT : increase lenght from 16 to 32 of variables name

File:

• trunk/NEMO/OPA_SRC/IOM/iom_rstdimg.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/IOM/iom_rstdimg.F90

@@ -64 +64 @@
       INTEGER                                 ::   in0d, in1d, in2d, in3d     ! number of 0/1/2/3D variables
       INTEGER                                 ::   ipni, ipnj, ipnij, iarea   ! domain decomposition 
-      CHARACTER(LEN=8), DIMENSION(jpmax_vars) ::   clna0d, clna1d, clna2d, clna3d     ! name of 0/1/2/3D variables
+      CHARACTER(LEN=32), DIMENSION(jpmax_vars) ::   clna0d, clna1d, clna2d, clna3d     ! name of 0/1/2/3D variables
       REAL(wp),         DIMENSION(jpmax_vars) ::   zval0d, zval1d, zval2d, zval3d     ! value of 0d variables or record
       !                                                                               ! position for 1/2/3D variables
@@ -213 +213 @@
       INTEGER                                 ::   inx, iny, inz              ! x,y,z dimension of the variable
       INTEGER                                 ::   in0d, in1d, in2d, in3d     ! number of 0/1/2/3D variables
-      CHARACTER(LEN=8), DIMENSION(jpmax_vars) ::   clna0d, clna1d, clna2d, clna3d     ! name of 0/1/2/3D variables
-      REAL(wp),         DIMENSION(jpmax_vars) ::   zval0d, zval1d, zval2d, zval3d     ! value of 0d variables or record
+      CHARACTER(LEN=32), DIMENSION(jpmax_vars) ::   clna0d, clna1d, clna2d, clna3d    ! name of 0/1/2/3D variables
+      REAL(wp),          DIMENSION(jpmax_vars) ::   zval0d, zval1d, zval2d, zval3d    ! value of 0d variables or record
       !                                                                               ! position for 1/2/3D variables
       !---------------------------------------------------------------------