Changeset 7806 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

Timestamp:

2017-03-17T08:46:30+01:00 (7 years ago)

Author:

cbricaud

Message:

phaze dev_r5003_MERCATOR6_CRS branch with rev7805 of 3.6_stable branch

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 (modified) (2 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -4026 +4026 @@
       INTEGER          , INTENT(inout) ::   kios      ! IO status after reading the namelist
       CHARACTER(len=*) , INTENT(in   ) ::   cdnam     ! group name of namelist for which error occurs
-      CHARACTER(len=4)                 ::   clios     ! string to convert iostat in character for print
+      CHARACTER(len=5)                 ::   clios     ! string to convert iostat in character for print
       LOGICAL          , INTENT(in   ) ::   ldwp      ! boolean term for print
       !!----------------------------------------------------------------------
@@ -4032 +4032 @@
       ! 
       ! ----------------
-      WRITE (clios, '(I4.0)') kios
+      WRITE (clios, '(I5.0)') kios
       IF( kios < 0 ) THEN         
          CALL ctl_warn( 'W A R N I N G:  end of record or file while reading namelist ' &