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

Last change on this file since 719 was 719, checked in by ctlod, 13 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
Line 
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   !!----------------------------------------------------------------------
9   !!  TOP 1.0,  LOCEAN-IPSL (2005)
10   !! $Header$
11   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
12   !!----------------------------------------------------------------------
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
25#if defined key_trc_lobster1
26   !!---------------------------------------------------------------------
27   !!   'key_trc_lobster1'   :            LOBSTER1 Source Minus Sink model
28   !!---------------------------------------------------------------------
29   INTEGER, PUBLIC, PARAMETER :: jptra   = 6
30#if defined key_trc_diaadd
31   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 19
32   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 3
33#endif
34#elif defined key_cfc
35   !!---------------------------------------------------------------------
36   !!   'key_cfc'   :                      CFC Source Minus Sink model
37   !!---------------------------------------------------------------------
38   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
39#if defined key_trc_diaadd
40   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
41   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
42#endif
43#elif defined key_trc_pisces
44   !!---------------------------------------------------------------------
45   !!   'key_trc_pisces'   :                  PISCES Source Minus Sink model
46   !!---------------------------------------------------------------------
47#if ! defined key_trc_kriest
48   INTEGER, PUBLIC, PARAMETER :: jptra   = 24
49#if defined key_trc_diaadd
50   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 13
51   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 11
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
59#endif
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.