Changeset 724 for trunk/NEMO/TOP_SRC/TRP/trcadv_muscl.F90

Timestamp:

2007-10-22T11:49:50+02:00 (17 years ago)

Author:

cetlod

Message:

Update modules for passive tracers transport trends computation, see ticket:13

File:

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

trunk/NEMO/TOP_SRC/TRP/trcadv_muscl.F90

@@ -27 +27 @@
    !!----------------------------------------------------------------------
    !!   TOP 1.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trcadv_muscl.F90,v 1.13 2007/10/12 09:26:30 opalod Exp $ 
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------
@@ -103 +103 @@
 
       DO jn = 1, jptra
-
+#if defined key_trc_diatrd
+        DO jk = 1,jpk
+           DO jj = 1,jpj
+              DO ji = 1,jpi
+                 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),1) = 0.
+                 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),2) = 0.
+                 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),3) = 0.
+              END DO
+            END DO
+          END DO
+#endif
          ! I. Horizontal advective fluxes
          ! ------------------------------