Changeset 4650


Ignore:
Timestamp:
2014-05-29T11:08:22+02:00 (6 years ago)
Author:
acc
Message:

#1325. Minor fix to iom.F90 to prevent incorrect filename generation and allow existing restart files to be correctly overwritten if ln_clobber is .true.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r4292 r4650  
    344344            CALL ctl_stop( TRIM(clinfo), 'We want to write in a new file but '//TRIM(clname)//' already exists...' ) 
    345345            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 
    346348         ENDIF 
    347349      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.