Ignore:
Timestamp:
2017-01-06T16:13:06+01:00 (4 years ago)
Author:
timgraham
Message:

Trivial fix for #1820

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r6917 r7531  
    40044004      INTEGER          , INTENT(inout) ::   kios      ! IO status after reading the namelist 
    40054005      CHARACTER(len=*) , INTENT(in   ) ::   cdnam     ! group name of namelist for which error occurs 
    4006       CHARACTER(len=4)                 ::   clios     ! string to convert iostat in character for print 
     4006      CHARACTER(len=5)                 ::   clios     ! string to convert iostat in character for print 
    40074007      LOGICAL          , INTENT(in   ) ::   ldwp      ! boolean term for print 
    40084008      !!---------------------------------------------------------------------- 
     
    40104010      !  
    40114011      ! ---------------- 
    4012       WRITE (clios, '(I4.0)') kios 
     4012      WRITE (clios, '(I5.0)') kios 
    40134013      IF( kios < 0 ) THEN          
    40144014         CALL ctl_warn( 'W A R N I N G:  end of record or file while reading namelist ' & 
Note: See TracChangeset for help on using the changeset viewer.