Changeset 2038 for branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/trcstp.F90

Timestamp:

2010-08-02T12:57:40+02:00 (14 years ago)

Author:

cetlod

Message:

Apply the merge to passive tracers, see ticket:693

File:

• branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/trcstp.F90 (modified) (4 diffs)

branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/trcstp.F90

@@ -10 +10 @@
    !! * Modules used
    USE oce_trc          ! ocean dynamics and active tracers variables
-   USE trp_trc
+   USE trc
    USE trctrp           ! passive tracers transport
    USE trcsms           ! passive tracers sources and sinks
@@ -17 +17 @@
    USE trcwri
    USE trcrst
-   USE trdmld_trc_oce
+   USE trdmod_trc_oce
    USE trdmld_trc
    USE iom
@@ -52 +52 @@
       CHARACTER (len=25)    ::  charout
 
-      ! this ROUTINE is called only every ndttrc time step
-      IF( MOD( kt , ndttrc ) /= 0 ) RETURN
+      ! this ROUTINE is called only every nn_dttrc time step
+      IF( MOD( kt , nn_dttrc ) /= 0 ) RETURN
 
       IF(ln_ctl) THEN
@@ -59 +59 @@
          CALL prt_ctl_trc_info(charout)
       ENDIF
+
+      tra(:,:,:,:) = 0.
 
       IF( kt == nittrc000 .AND. lk_trdmld_trc  )  &