Changeset 434 for trunk/NEMO/OPA_SRC/mppini.F90

Timestamp:

2006-04-10T17:46:12+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_044 : CT : update the passive tracers TOP component and the standard GYRE configuration

File:

• trunk/NEMO/OPA_SRC/mppini.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/mppini.F90

@@ -143 +143 @@
          iimppt, ijmppt, ilcit, ilcjt       ! temporary workspace
       REAL(wp) ::   zidom, zjdom            ! temporary scalars
-      CHARACTER(len=80) :: clname
       !!----------------------------------------------------------------------
 
@@ -351 +350 @@
        IF (lwp) THEN
         inum = 11    
-        clname = 'layout.dat'
-        CALL ctlopn(inum, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, 0)
-        
+
+        OPEN(inum,FILE='layout.dat')
+        WRITE(inum,'(a)') '   jpnij     jpi     jpj     jpk  jpiglo  jpjglo'
         WRITE(inum,'(6i8)') jpnij,jpi,jpj,jpk,jpiglo,jpjglo
         WRITE(inum,'(a)') 'NAREA nlci nlcj nldi nldj nlei nlej nimpp njmpp'