- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r10006 r12555 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.