Changeset 4650 for trunk/NEMOGCM/NEMO/OPA_SRC/IOM

Timestamp:

2014-05-29T11:08:22+02:00 (10 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:

• trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -344 +344 @@
             CALL ctl_stop( TRIM(clinfo), 'We want to write in a new file but '//TRIM(clname)//' already exists...' )
             istop = nstop + 1                      ! make sure that istop /= nstop so we don't open the file
+         ELSEIF( llwrt ) THEN     ! the file exists and we are in write mode with permission to 
+            clname = cltmpn       ! overwrite so get back the file name without the cpu number
          ENDIF
       ENDIF