Changeset 739 for tags

Timestamp:

2007-11-19T16:30:05+01:00 (16 years ago)

Author:

cetlod

Message:

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

File:

• tags/nemo_v2_3/NEMO/TOP_SRC/TRP/trcsbc.F90 (modified) (3 diffs)

tags/nemo_v2_3/NEMO/TOP_SRC/TRP/trcsbc.F90

@@ -24 +24 @@
    !!----------------------------------------------------------------------
    !!   TOP 1.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trcsbc.F90,v 1.10 2007/10/12 09:26:30 opalod Exp $ 
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------
@@ -74 +74 @@
       zsrau = 1. / rauw
       IF( .NOT. ln_sco )  zse3t = 1. / fse3t(1,1,1)
+#if defined key_trc_diatrd
+      DO jn = 1, jptra
+        IF (luttrd(jn)) trtrd(:,:,:,ikeep(jn),jpdiatrc) = 0.0
+      END DO
+#endif
 
       DO jn = 1, jptra
@@ -85 +90 @@
                ! add the trend to the general tracer trend
                tra(ji,jj,1,jn) = tra(ji,jj,1,jn) + ztra
+#if defined key_trc_diatrd
+               IF (luttrd(jn)) trtrd(ji,jj,1,ikeep(jn),jpdiatrc) = trtrd(ji,jj,1,jn,jpdiatrc)+ztra
+#endif
             END DO
          END DO