New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4650 – NEMO

Changeset 4650


Ignore:
Timestamp:
2014-05-29T11:08:22+02:00 (9 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.