New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
par_trc_trp.F90 in trunk/NEMO/TOP_SRC – NEMO

source: trunk/NEMO/TOP_SRC/par_trc_trp.F90 @ 719

Last change on this file since 719 was 719, checked in by ctlod, 17 years ago

get back to the nemo_v2_3 version for trunk
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 3.1 KB
RevLine 
[186]1MODULE par_trc_trp
2   !!======================================================================
3   !!                        ***  par_trc_trp  ***
4   !! passive tracers :   set the number of passive tracers
5   !!======================================================================
6   !! History :
7   !!   9.0  !  04-03  (C. Ethe)  Orignal
8   !!----------------------------------------------------------------------
[340]9   !!  TOP 1.0,  LOCEAN-IPSL (2005)
[719]10   !! $Header$
[340]11   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
[274]12   !!----------------------------------------------------------------------
[186]13#if defined key_passivetrc
14   !!---------------------------------------------------------------------
15   !!   'key_passivetrc'   :                               Passive tracer
16   !!---------------------------------------------------------------------
17
18   IMPLICIT NONE
19   PUBLIC
20   
21   !! jptra   : number of passive tracers
22   !! jpdia2d : additional 2d output
23   !! jpdia3d : additional 3d output
24
[335]25#if defined key_trc_lobster1
[186]26   !!---------------------------------------------------------------------
27   !!   'key_trc_lobster1'   :            LOBSTER1 Source Minus Sink model
28   !!---------------------------------------------------------------------
29   INTEGER, PUBLIC, PARAMETER :: jptra   = 6
[433]30#if defined key_trc_diaadd
[335]31   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 19
[186]32   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 3
[433]33#endif
[186]34#elif defined key_cfc
35   !!---------------------------------------------------------------------
[335]36   !!   'key_cfc'   :                      CFC Source Minus Sink model
[186]37   !!---------------------------------------------------------------------
38   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
[433]39#if defined key_trc_diaadd
[186]40   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
41   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
[433]42#endif
[186]43#elif defined key_trc_pisces
44   !!---------------------------------------------------------------------
45   !!   'key_trc_pisces'   :                  PISCES Source Minus Sink model
46   !!---------------------------------------------------------------------
[617]47#if ! defined key_trc_kriest
[186]48   INTEGER, PUBLIC, PARAMETER :: jptra   = 24
[433]49#if defined key_trc_diaadd
[186]50   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 13
51   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 11
[617]52#  endif
53#else
54   INTEGER, PUBLIC, PARAMETER :: jptra   = 23
55#if defined key_trc_diaadd
56   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 13
57   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 18
58#  endif
[433]59#endif
[186]60#else
61   !!---------------------------------------------------------------------
62   !!   'default'   :          temperature and salinity as passive tracers
63   !!---------------------------------------------------------------------
64   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
65#if defined key_trc_diaadd
66   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
67   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
68#endif
69#endif
70
71#else
72   !!======================================================================
73   !!  Empty module : No passive tracer
74   !!======================================================================
75#endif
76
77END MODULE par_trc_trp
Note: See TracBrowser for help on using the repository browser.