Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/IOM/restart.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/restart.F90
r9321 r12555 110 110 ' open ocean restart NetCDF file: ',TRIM(clpath)//clname 111 111 END SELECT 112 IF ( snc4set%luse ) WRITE(numout,*) ' opened for NetCDF4 chunking and compression' 113 IF( kt == nitrst - 1 ) THEN ; WRITE(numout,*) ' kt = nitrst - 1 = ', kt 114 ELSE ; WRITE(numout,*) ' kt = ' , kt 112 IF(nprint > 1) THEN 113 IF ( snc4set%luse ) WRITE(numout,*) ' opened for NetCDF4 chunking and compression' 114 IF( kt == nitrst - 1) THEN 115 WRITE(numout,*) ' kt = nitrst - 1 = ', kt 116 ELSE 117 WRITE(numout,*) ' kt = ' , kt 118 ENDIF 115 119 ENDIF 120 IF(lflush) CALL flush(numout) 116 121 ENDIF 117 122 ! … … 209 214 IF ( snc4set%luse ) WRITE(numout,*) 'rst_read : configured with NetCDF4 support' 210 215 WRITE(numout,*) '~~~~~~~~' 216 IF(lflush) CALL flush(numout) 211 217 ENDIF 212 218
Note: See TracChangeset
for help on using the changeset viewer.