Changeset 724 for trunk/NEMO/TOP_SRC/par_trc.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/par_trc.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/par_trc.F90

@@ -11 +11 @@
    !!----------------------------------------------------------------------
    !!  TOP 1.0,  LOCEAN-IPSL (2005)
-   !! $Header$
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/par_trc.F90,v 1.6 2007/10/12 09:22:19 opalod Exp $
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
    !!----------------------------------------------------------------------
@@ -29 +29 @@
 !! we keep 3 more trends for eddy induced flux (gent velocity)
 #    if defined key_trcdmp
+   INTEGER , PARAMETER :: jpdiatrc = 11
+#    else
    INTEGER , PARAMETER :: jpdiatrc = 10
-#    else
-   INTEGER , PARAMETER :: jpdiatrc = 9
 #    endif
 #  else
 #    if defined key_trcdmp
+   INTEGER , PARAMETER :: jpdiatrc = 8
+#    else
    INTEGER , PARAMETER :: jpdiatrc = 7
-#    else
-   INTEGER , PARAMETER :: jpdiatrc = 6
 #    endif
 #  endif