Changeset 617 for trunk/NEMO/TOP_SRC/par_trc_trp.F90

Timestamp:

2007-02-21T14:03:10+01:00 (17 years ago)

Author:

opalod

Message:

* empty log message *

File:

• trunk/NEMO/TOP_SRC/par_trc_trp.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/par_trc_trp.F90

@@ -45 +45 @@
    !!   'key_trc_pisces'   :                  PISCES Source Minus Sink model
    !!---------------------------------------------------------------------
+#if ! defined key_trc_kriest
    INTEGER, PUBLIC, PARAMETER :: jptra   = 24
 #if defined key_trc_diaadd
    INTEGER, PUBLIC, PARAMETER :: jpdia2d = 13
    INTEGER, PUBLIC, PARAMETER :: jpdia3d = 11
+#  endif
+#else
+   INTEGER, PUBLIC, PARAMETER :: jptra   = 23
+#if defined key_trc_diaadd
+   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 13
+   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 18
+#  endif
 #endif
 #else