Changeset 3294 for trunk/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/trcwri.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

@@ -1 +1 @@
 MODULE trcwri
-   !!===================================================================================
+   !!======================================================================
    !!                       *** MODULE trcwri ***
    !!    TOP :   Output of passive tracers
-   !!====================================================================================
+   !!======================================================================
    !! History :   1.0  !  2009-05 (C. Ethe)  Original code
    !!----------------------------------------------------------------------
-#if defined key_top &&  defined key_iomput
+#if defined key_top && defined key_iomput
    !!----------------------------------------------------------------------
-   !!   'key_top' && 'key_iomput'                              TOP models
+   !!   'key_top'                                           TOP models
    !!----------------------------------------------------------------------
    !! trc_wri_trc   :  outputs of concentration fields
    !!----------------------------------------------------------------------
-   USE dom_oce         ! ocean space and time domain variables
-   USE oce_trc
-   USE trc
-   USE iom
-   USE dianam
+   USE dom_oce     ! ocean space and time domain variables
+   USE oce_trc     ! shared variables between ocean and passive tracers
+   USE trc         ! passive tracers common variables 
+   USE iom         ! I/O manager
+   USE dianam      ! Output file name
 
    IMPLICIT NONE
@@ -36 +36 @@
       INTEGER, INTENT( in ) :: kt
       !!---------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('trc_wri')
       !
       CALL iom_setkt  ( kt + nn_dttrc - 1 )       ! set the passive tracer time step
       CALL trc_wri_trc( kt              )       ! outputs for tracer concentration
       CALL iom_setkt  ( kt              )       ! set the model time step
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('trc_wri')
       !
    END SUBROUTINE trc_wri
@@ -50 +53 @@
       !! ** Purpose :   output passive tracers fields 
       !!---------------------------------------------------------------------
-      INTEGER, INTENT( in ) :: kt       ! ocean time-step
-      INTEGER               :: jn
-      CHARACTER (len=20)    :: cltra
-      CHARACTER (len=40) :: clhstnam
+      INTEGER, INTENT( in )     :: kt       ! ocean time-step
+      INTEGER                   :: jn
+      CHARACTER (len=20)        :: cltra
+      CHARACTER (len=40)        :: clhstnam
       INTEGER ::   inum = 11            ! temporary logical unit
       !!---------------------------------------------------------------------
  
-      IF( lk_offline .AND. kt == nit000 .AND. lwp ) THEN    ! WRITE root name in date.file for use by postpro
+      IF( lk_offline .AND. kt == nittrc000 .AND. lwp ) THEN    ! WRITE root name in date.file for use by postpro
          CALL dia_nam( clhstnam, nn_writetrc,' ' )
          CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )