Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90
- 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_nf90.F90
r6491 r12555 84 84 ! ! ============= 85 85 IF( ldwrt ) THEN ! ... in write mode 86 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode' 86 IF(lwp .AND. nprint > 0) THEN 87 WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode' 88 IF(lflush) CALL flush(numout) 89 ENDIF 87 90 IF( snc4set%luse ) THEN 88 91 CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_WRITE , if90id ), clinfo) … … 92 95 CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy ), clinfo) 93 96 ELSE ! ... in read mode 94 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in READ mode' 97 IF(lwp .AND. nprint > 0) THEN 98 WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in READ mode' 99 IF(lflush) CALL flush(numout) 100 ENDIF 95 101 CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_NOWRITE, if90id, chunksize = ichunk ), clinfo) 96 102 ENDIF … … 103 109 cdname = TRIM(cltmp) 104 110 ENDIF 105 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' create new file: '//TRIM(cdname)//' in WRITE mode' 111 IF(lwp .AND. nprint > 0) THEN 112 WRITE(numout,*) TRIM(clinfo)//' create new file: '//TRIM(cdname)//' in WRITE mode' 113 IF(lflush) CALL flush(numout) 114 ENDIF 106 115 107 116 IF( llclobber ) THEN ; imode = IOR( NF90_64BIT_OFFSET, NF90_CLOBBER ) … … 109 118 ENDIF 110 119 IF( snc4set%luse ) THEN 111 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode' 120 IF(lwp .AND. nprint > 0) THEN 121 WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode' 122 IF(lflush) CALL flush(numout) 123 ENDIF 112 124 CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5) 113 125 IF( llclobber ) THEN ; imode = IOR(ihdf5, NF90_CLOBBER) … … 158 170 & len = iom_file(kiomid)%lenuld ), clinfo ) 159 171 ENDIF 160 IF(lwp) WRITE(numout,*) ' ---> '//TRIM(cdname)//' OK' 172 IF(lwp .AND. nprint > 0) THEN 173 WRITE(numout,*) ' ---> '//TRIM(cdname)//' OK' 174 IF(lflush) CALL flush(numout) 175 ENDIF 161 176 ELSE 162 177 kiomid = 0 ! return error flag … … 431 446 ! trick: defined to 0 to say that dimension variables are defined but not yet written 432 447 iom_file(kiomid)%dimsz(1, 1) = 0 433 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done' 448 IF(lwp .AND. nprint > 1) THEN 449 WRITE(numout,*) TRIM(clinfo)//' define dimension variables done' 450 IF(lflush) CALL flush(numout) 451 ENDIF 434 452 ENDIF 435 453 ! define the data if it is not already done … … 498 516 CALL iom_nf90_check(SET_NF90_DEF_VAR_CHUNKING(if90id, idvar, ichunkalg, ichunksz), clinfo) 499 517 CALL iom_nf90_check(SET_NF90_DEF_VAR_DEFLATE(if90id, idvar, ishuffle, ideflate, ideflate_level), clinfo) 500 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz 501 ENDIF 502 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' defined ok' 518 IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz 519 ENDIF 520 IF(lwp .AND. nprint > 1) THEN 521 WRITE(numout,*) TRIM(clinfo)//' defined ok' 522 IF(lflush) CALL flush(numout) 523 ENDIF 503 524 ELSE 504 525 idvar = kvid … … 543 564 CALL iom_nf90_check(NF90_INQUIRE_DIMENSION( if90id, 3, len = iom_file(kiomid)%dimsz(1,3) ), clinfo) 544 565 iom_file(kiomid)%dimsz(1 , 4) = 1 ! unlimited dimension 545 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done' 566 IF(lwp .AND. nprint > 1) THEN 567 WRITE(numout,*) TRIM(clinfo)//' write dimension variables done' 568 IF(lflush) CALL flush(numout) 569 ENDIF 546 570 ENDIF 547 571 ENDIF … … 561 585 IF( iom_file(kiomid)%luld(idvar) ) iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar) & 562 586 & = iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar) + 1 563 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' written ok' 587 IF(lwp .AND. nprint > 0) THEN 588 WRITE(numout,*) TRIM(clinfo)//' written ok' 589 IF(lflush) CALL flush(numout) 590 ENDIF 564 591 ENDIF 565 592 !
Note: See TracChangeset
for help on using the changeset viewer.