Changeset 1656 for trunk/NEMO/TOP_SRC/trcdia.F90

Timestamp:

2009-10-14T16:30:35+02:00 (15 years ago)

Author:

cetlod

Message:

Creation of the date.file in OFFLINE mode, see ticket:551

File:

• trunk/NEMO/TOP_SRC/trcdia.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/trcdia.F90

@@ -109 +109 @@
       LOGICAL ::   ll_print = .FALSE.
       CHARACTER (len=40) :: clhstnam, clop
+#if defined key_off_tra
+      INTEGER ::   inum = 11             ! temporary logical unit
+#endif
       CHARACTER (len=20) :: cltra, cltrau
       CHARACTER (len=80) :: cltral
@@ -163 +166 @@
             &                    ' limit storage in depth = ', ipk
 
+#if defined key_off_tra
+        ! WRITE root name in date.file for use by postpro
+         IF(lwp) THEN
+            CALL dia_nam( clhstnam, nwritetrc,' ' )
+            CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
+            WRITE(inum,*) clhstnam
+            CLOSE(inum)
+         ENDIF
+#endif
 
          ! Define the NETCDF files for passive tracer concentration