Changeset 4650
- Timestamp:
- 2014-05-29T11:08:22+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r4292 r4650 344 344 CALL ctl_stop( TRIM(clinfo), 'We want to write in a new file but '//TRIM(clname)//' already exists...' ) 345 345 istop = nstop + 1 ! make sure that istop /= nstop so we don't open the file 346 ELSEIF( llwrt ) THEN ! the file exists and we are in write mode with permission to 347 clname = cltmpn ! overwrite so get back the file name without the cpu number 346 348 ENDIF 347 349 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.