Changeset 1656

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

Location:

trunk/NEMO/TOP_SRC

Files:

• trcdia.F90 (modified) (2 diffs)
• trcwri.F90 (modified) (3 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

trunk/NEMO/TOP_SRC/trcwri.F90

@@ -15 +15 @@
    USE trc
    USE iom
+#if defined key_off_tra
+   USE oce_trc
+   USE dianam
+#endif
 
    IMPLICIT NONE
@@ -40 +44 @@
       INTEGER               :: jn
       CHARACTER (len=20)    :: cltra
+#if defined key_off_tra
+      CHARACTER (len=40) :: clhstnam
+      INTEGER ::   inum = 11            ! temporary logical unit
+#endif
+
       !!---------------------------------------------------------------------
  
@@ -46 +55 @@
 
       CALL iom_setkt( kt + ndttrc - 1 ) ! set the passive tracer time step
+
+#if defined key_off_tra
+      IF( kt == nittrc000 ) THEN
+        ! 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
+#endif
+
 
       ! write the tracer concentrations in the file