New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7532 – NEMO

Changeset 7532


Ignore:
Timestamp:
2017-01-06T16:14:31+01:00 (7 years ago)
Author:
timgraham
Message:

Trivial fix for #1820. Committing to merge branch so it goes back onto trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r7421 r7532  
    43494349      INTEGER         , INTENT(inout) ::   kios    ! IO status after reading the namelist 
    43504350      CHARACTER(len=*), INTENT(in   ) ::   cdnam   ! group name of namelist for which error occurs 
    4351       CHARACTER(len=4)                ::   clios   ! string to convert iostat in character for print 
     4351      CHARACTER(len=5)                ::   clios   ! string to convert iostat in character for print 
    43524352      LOGICAL         , INTENT(in   ) ::   ldwp    ! boolean term for print 
    43534353      !!---------------------------------------------------------------------- 
    43544354      ! 
    4355       WRITE (clios, '(I4.0)')   kios 
     4355      WRITE (clios, '(I5.0)')   kios 
    43564356      IF( kios < 0 ) THEN          
    43574357         CALL ctl_warn( 'end of record or file while reading namelist '   & 
Note: See TracChangeset for help on using the changeset viewer.