Changeset 2200 for branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/IOM
- Timestamp:
- 2010-10-11T13:43:18+02:00 (14 years ago)
- Location:
- branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/IOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/IOM/iom_ioipsl.F90
r1488 r2200 81 81 iln = INDEX( cdname, '.nc' ) 82 82 IF( ldwrt ) THEN ! the file should be open in write mode so we create it... 83 IF( llclobber ) THEN ; clstatus = 'REPLACE '84 ELSE ; clstatus = 'NEW '83 IF( llclobber ) THEN ; clstatus = 'REPLACE 64' 84 ELSE ; clstatus = 'NEW 64' 85 85 ENDIF 86 86 IF( jpnij > 1 ) THEN -
branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/IOM/iom_nf90.F90
r1488 r2200 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.