Changeset 2172
- Timestamp:
- 2010-10-06T17:40:00+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/IOM/iom_nf90.F90
r1488 r2172 94 94 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' create new file: '//TRIM(cdname)//' in WRITE mode' 95 95 96 IF( llclobber ) THEN ; imode = NF90_CLOBBER97 ELSE ; imode = NF90_NOCLOBBER96 IF( llclobber ) THEN ; imode = IOR( NF90_64BIT_OFFSET, NF90_CLOBBER ) 97 ELSE ; imode = IOR( NF90_64BIT_OFFSET, NF90_NOCLOBBER ) 98 98 ENDIF 99 99 CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id, chunksize = ichunk ), clinfo)
Note: See TracChangeset
for help on using the changeset viewer.