Changeset 1581 for trunk/NEMO/OPA_SRC/DIA/diawri.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/DIA/diawri.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DIA/diawri.F90

@@ -150 +150 @@
       REAL(wp), DIMENSION(jpi,jpj) :: &
          zw2d                            ! temporary workspace
-      CHARACTER (len=80) :: clname
       !!----------------------------------------------------------------------
       !
@@ -209 +208 @@
 
          ! WRITE root name in date.file for use by postpro
-         IF( lwp) THEN
+         IF(lwp) THEN
             CALL dia_nam( clhstnam, nwrite,' ' )
-            clname = 'date.file'
-            CALL ctlopn( inum, clname,  'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, 1 )
+            CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
             WRITE(inum,*) clhstnam
             CLOSE(inum)