Changeset 1581 for trunk/NEMO/OPA_SRC/prtctl.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/OPA_SRC/prtctl.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/prtctl.F90

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