Changeset 732 for tags/nemo_v2_3/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90

Timestamp:

2007-11-19T16:19:15+01:00 (17 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/trczdf_iso_vopt.F90 (modified) (2 diffs)

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

@@ -36 +36 @@
    !!----------------------------------------------------------------------
    !!   TOP 1.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90,v 1.12 2007/10/12 09:26:30 opalod Exp $ 
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------
@@ -548 +548 @@
                   ztavg = ( zwx(ji,jj,jk) - zwx(ji,jj,jk+1) ) * zbtr
                   !  WARNING trtrd(ji,jj,jk,7) used for vertical gent velocity trend  not for damping !!!
-                  IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),7) = ztavg
+                  IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),9) = ztavg
 #   endif
                   IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),6) = ztav - ztavg