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

Timestamp:

2007-04-12T16:00:53+02:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_031:RB: correct some file names for AGRIF

File:

• trunk/NEMO/OPA_SRC/mppini_2.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/mppini_2.h90

@@ -43 +43 @@
    
       !! Local variables
+      CHARACTER (len=32) :: clname
       INTEGER :: ji, jj, jn, jproc, jarea     ! dummy loop indices
       INTEGER ::  inum                        ! temporary logical unit
@@ -466 +467 @@
       ! Save processor layout in ascii file
       IF (lwp) THEN
-         CALL ctlopn( inum, 'layout.dat', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
+         clname = 'layout.dat'
+         CALL ctlopn( inum, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
             &         1, numout, .FALSE., 1 )
          WRITE(inum,'(6i8)') jpnij,jpi,jpj,jpk,jpiglo,jpjglo