Changeset 12767 for NEMO/branches/UKMO/NEMO_4.0.2_GO8_package_ENHANCE-02_ISF_nemo/src/OCE/ISF/isfutils.F90

Timestamp:

2020-04-17T16:07:33+02:00 (4 years ago)

Author:

mathiot

Message:

NEMO_4.0.2_GO8_package_ENHANCE-02_ISF_nemo: change to be able to run WED025

File:

• NEMO/branches/UKMO/NEMO_4.0.2_GO8_package_ENHANCE-02_ISF_nemo/src/OCE/ISF/isfutils.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.2_GO8_package_ENHANCE-02_ISF_nemo/src/OCE/ISF/isfutils.F90

@@ -40 +40 @@
       REAL(wp), DIMENSION(jpi,jpj), INTENT(  out) :: pvar          ! output variable
       !!-------------------------- IN  -------------------------------------
-      CHARACTER(len=256)          , INTENT(in   ) :: cdfile   ! input file name
-      CHARACTER(len=34)           , INTENT(in   ) :: cdvar    ! variable name
+      CHARACTER(len=*)           , INTENT(in   ) :: cdfile   ! input file name
+      CHARACTER(len=*)           , INTENT(in   ) :: cdvar    ! variable name
       !!--------------------------------------------------------------------
       INTEGER :: inum