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

trunk/NEMO/OPA_SRC/mppini.F90

@@ -129 +129 @@
       !!----------------------------------------------------------------------
       !! * Local variables
-      CHARACTER (len=32) ::   clname
       INTEGER ::   ji, jj, jn               ! dummy loop indices
       INTEGER ::   &
@@ -335 +334 @@
      ! Save processor layout in layout.dat file 
        IF (lwp) THEN
-        clname = 'layout.dat'
-        CALL ctlopn( inum, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
-           &         1, numout, .FALSE., 1 )
+        CALL ctl_opn( inum, 'layout.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea )
         WRITE(inum,'(a)') '   jpnij     jpi     jpj     jpk  jpiglo  jpjglo'
         WRITE(inum,'(6i8)') jpnij,jpi,jpj,jpk,jpiglo,jpjglo