Changeset 389 for trunk/NEMO/OPA_SRC/DIA/diawri.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/DIA/diawri.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DIA/diawri.F90

@@ -120 +120 @@
       REAL(wp), DIMENSION(jpi,jpj) :: &
          zw2d                            ! temporary workspace
+      CHARACTER (len=80) :: clname
       !!----------------------------------------------------------------------
       
@@ -172 +173 @@
          ! WRITE root name in date.file for use by postpro
          CALL dia_nam( clhstnam, nwrite,' ' )
-         CALL ctlopn( inum, 'date.file', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, 1 )
+         clname = 'date.file'
+         CALL ctlopn( inum, clname,  'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, 1 )
          WRITE(inum,*) clhstnam
          CLOSE(inum)