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

Timestamp:

2007-02-27T15:46:47+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_025:RB: suppress hard-coded logical units except for dimg and coupled

File:

• trunk/NEMO/OPA_SRC/mppini_2.h90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/mppini_2.h90

@@ -466 +466 @@
       ! Save processor layout in ascii file
       IF (lwp) THEN
-         inum = 11 ! how do we know that 11 is ok???
-         OPEN(inum,FILE='layout.dat')
+         CALL ctlopn( inum, 'layout.dat', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
+            &         1, numout, .FALSE., 1 )
          WRITE(inum,'(6i8)') jpnij,jpi,jpj,jpk,jpiglo,jpjglo
          WRITE(inum,'(a)') 'NAREA nlci nlcj nldi nldj nlei nlej nimpp njmpp'