Changeset 1581 for trunk/NEMO/OPA_SRC/mppini_2.h90

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_2.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/mppini_2.h90

@@ -40 +40 @@
       !!----------------------------------------------------------------------
       !! * Modules used
+      USE in_out_manager  ! I/O Manager
       USE iom
    
       !! Local variables
-      CHARACTER (len=32) :: clname
       INTEGER :: ji, jj, jn, jproc, jarea     ! dummy loop indices
       INTEGER ::  inum                        ! temporary logical unit
@@ -463 +463 @@
       ! Save processor layout in ascii 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,'(6i8)') jpnij,jpi,jpj,jpk,jpiglo,jpjglo
          WRITE(inum,'(a)') 'NAREA nlci nlcj nldi nldj nlei nlej nimpp njmpp'