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

Timestamp:

2006-03-09T18:22:04+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• configuration parameters are just integer when agrif is used
• add call to agrif routines with key_agrif

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
       !!----------------------------------------------------------------------
 
@@ -350 +351 @@
        IF (lwp) THEN
         inum = 11    
-
-        OPEN(inum,FILE='layout.dat')
+        clname = 'layout.dat'
+        CALL ctlopn(inum, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, 0)
+        
         WRITE(inum,'(6i8)') jpnij,jpi,jpj,jpk,jpiglo,jpjglo
         WRITE(inum,'(a)') 'NAREA nlci nlcj nldi nldj nlei nlej nimpp njmpp'