Changeset 1846 for branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diagap.F90

Timestamp:

2010-04-21T14:26:53+02:00 (14 years ago)

Author:

mafoipsl

Message:

Increase length of characters string to allow long name of experiments.

File:

• branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diagap.F90 (modified) (1 diff)

branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diagap.F90

@@ -72 +72 @@
       INTEGER ::   ji, jj, jk   ! dummy loop indices
       INTEGER ::   it, itmod    ! time step indices
-      CHARACTER (len=40) ::   clhstnam
+      CHARACTER (len=72) ::   clhstnam
       CHARACTER (len=40) ::   clop
       REAL(wp) ::   zbt, zdt    ! temporary scalar