Changeset 7531

Timestamp:

2017-01-06T16:13:06+01:00 (7 years ago)

Author:

timgraham

Message:

Trivial fix for #1820

File:

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

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

@@ -4004 +4004 @@
       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
       !!----------------------------------------------------------------------
@@ -4010 +4010 @@
       ! 
       ! ----------------
-      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 ' &