Changeset 1581 for trunk/NEMO/TOP_SRC/prtctl_trc.F90

Timestamp:

2009-08-05T16:53:12+02:00 (15 years ago)

Author:

smasson

Message:

ctlopn cleanup, see ticket:515 and ticket:237

File:

• trunk/NEMO/TOP_SRC/prtctl_trc.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/prtctl_trc.F90

@@ -247 +247 @@
       DO js = sind, eind
          WRITE(clfile_out,FMT=clb_name) js-1
-         CALL ctlopn( numid_trc(js -narea + 1), clfile_out, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
-            &         1, numout, .FALSE., 1 )
+         CALL ctl_opn( numid_trc(js -narea + 1), clfile_out, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
          j_id = numid_trc(js -narea + 1)
          WRITE(j_id,*)