Changeset 7532 for branches/2016/dev_merge_2016
- Timestamp:
- 2017-01-06T16:14:31+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r7421 r7532 4349 4349 INTEGER , INTENT(inout) :: kios ! IO status after reading the namelist 4350 4350 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 print4351 CHARACTER(len=5) :: clios ! string to convert iostat in character for print 4352 4352 LOGICAL , INTENT(in ) :: ldwp ! boolean term for print 4353 4353 !!---------------------------------------------------------------------- 4354 4354 ! 4355 WRITE (clios, '(I 4.0)') kios4355 WRITE (clios, '(I5.0)') kios 4356 4356 IF( kios < 0 ) THEN 4357 4357 CALL ctl_warn( 'end of record or file while reading namelist ' &
Note: See TracChangeset
for help on using the changeset viewer.