Changeset 10770 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
- Timestamp:
- 2019-03-15T17:03:41+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r9830 r10770 484 484 iom_file(jf)%nfid = 0 ! free the id 485 485 IF( PRESENT(kiomid) ) kiomid = 0 ! return 0 as id to specify that the file was closed 486 IF(lwp ) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok'486 IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok' 487 487 ELSEIF( PRESENT(kiomid) ) THEN 488 488 WRITE(ctmp1,*) '--->', kiomid … … 924 924 925 925 IF( istop == nstop ) THEN ! no additional errors until this point... 926 IF(lwp) WRITE(numout,"(10x,' read ',a,' (rec: ',i6,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name) 926 IF(lwp .AND. nprint > 1) & 927 WRITE(numout,"(10x,' read ',a,' (rec: ',i6,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name) 927 928 928 929 !--- overlap areas and extra hallows (mpp)
Note: See TracChangeset
for help on using the changeset viewer.