Changeset 2174
- Timestamp:
- 2010-10-06T18:13:12+02:00 (14 years ago)
- Location:
- trunk/NEMO
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/IOM/iom_ioipsl.F90
r1749 r2174 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 -
trunk/NEMO/OFF_SRC/IOM/iom_nf90.F90
r1749 r2174 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) -
trunk/NEMO/OPA_SRC/IOM/iom_ioipsl.F90
r1488 r2174 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
Note: See TracChangeset
for help on using the changeset viewer.