Changeset 7898
- Timestamp:
- 2017-04-11T15:16:15+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_netcdf4/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90
r7896 r7898 85 85 IF( ldwrt ) THEN ! ... in write mode 86 86 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode' 87 IF( snc4set%luse ) THEN 87 #if defined key_netcdf4 88 88 CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_WRITE , if90id ), clinfo) 89 ELSE 89 #else 90 90 CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_WRITE , if90id, chunksize = ichunk ), clinfo) 91 ENDIF 91 #endif 92 92 CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy ), clinfo) 93 93 ELSE ! ... in read mode … … 108 108 ELSE ; imode = IOR( NF90_64BIT_OFFSET, NF90_NOCLOBBER ) 109 109 ENDIF 110 111 110 #if defined key_netcdf4 112 111 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode' … … 119 118 CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id, chunksize = ichunk ), clinfo) 120 119 #endif 121 122 120 CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy ), clinfo) 123 121 ! define dimensions
Note: See TracChangeset
for help on using the changeset viewer.