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 @ 331

Last change on this file since 331 was 274, checked in by opalod, 19 years ago

nemo_v1_update_005:RB: update headers for the TOP component.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 5.8 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_npzd
26   !!---------------------------------------------------------------------
27   !!   'key_trc_npzd'   :                    NPZD Source Minus Sink model
28   !!---------------------------------------------------------------------
29   INTEGER, PUBLIC, PARAMETER :: jptra   = 4
30#if defined key_trc_diaadd
31   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
32   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
33#endif
34#elif defined key_trc_lobster1
35   !!---------------------------------------------------------------------
36   !!   'key_trc_lobster1'   :            LOBSTER1 Source Minus Sink model
37   !!---------------------------------------------------------------------
38   INTEGER, PUBLIC, PARAMETER :: jptra   = 6
39#if defined key_trc_diaadd
40   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 18
41   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 3
42#endif
43#elif defined key_trc_hamocc3
44#  if defined key_trc_p3zd
45#       if defined key_trc_biohamocc13
46   !!---------------------------------------------------------------------
47   !!   'key_trc_p3zd && key_trc_biohamocc13' P3ZD Source Minus Sink model
48   !!---------------------------------------------------------------------
49   INTEGER, PUBLIC, PARAMETER :: jptra   = 11
50#if defined key_trc_diaadd
51   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
52   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
53#endif
54   !!---------------------------------------------------------------------
55   !!   'key_trc_p3zd'   :                    P3ZD Source Minus Sink model
56   !!---------------------------------------------------------------------
57#       else
58   INTEGER, PUBLIC, PARAMETER :: jptra   = 10
59   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
60   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
61#       endif
62#   else
63   !!---------------------------------------------------------------------
64   !!  'key_trc_hamocc3 && key_trc_biohamocc13' HAMMOCC Source Minus Sink model
65   !!---------------------------------------------------------------------
66#       if defined key_trc_biohamocc13
67   INTEGER, PUBLIC, PARAMETER :: jptra   = 8
68#if defined key_trc_diaadd
69   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
70   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
71#endif
72#       else
73   !!---------------------------------------------------------------------
74   !!  'key_trc_hamocc3 ' HAMMOCC Source Minus Sink model
75   !!---------------------------------------------------------------------
76   INTEGER, PUBLIC, PARAMETER :: jptra   = 7
77#if defined key_trc_diaadd
78   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
79   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
80#endif
81#       endif
82#   endif
83#elif defined key_cfc
84   !!---------------------------------------------------------------------
85   !!   'key_trc_cfc'   :                      CFC Source Minus Sink model
86   !!---------------------------------------------------------------------
87   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
88#if defined key_trc_diaadd
89   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
90   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
91#endif
92#elif defined key_gosac
93   !!---------------------------------------------------------------------
94   !!   'key_trc_gosac'   :                  GOSAC Source Minus Sink model
95   !!---------------------------------------------------------------------
96   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
97#if defined key_trc_diaadd
98   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
99   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
100#endif
101#elif defined key_trc_age
102   !!---------------------------------------------------------------------
103   !!   'key_trc_age'   :                    AGE Source Minus Sink model
104   !!---------------------------------------------------------------------
105   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
106#if defined key_trc_diaadd
107   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
108   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
109#endif
110#elif defined key_trc_pisces
111   !!---------------------------------------------------------------------
112   !!   'key_trc_pisces'   :                  PISCES Source Minus Sink model
113   !!---------------------------------------------------------------------
114   INTEGER, PUBLIC, PARAMETER :: jptra   = 24
115#if defined key_trc_diaadd
116   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 13
117   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 11
118#endif
119#else
120   !!---------------------------------------------------------------------
121   !!   'default'   :          temperature and salinity as passive tracers
122   !!---------------------------------------------------------------------
123   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
124#if defined key_trc_diaadd
125   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
126   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
127#endif
128#endif
129
130#else
131   !!======================================================================
132   !!  Empty module : No passive tracer
133   !!======================================================================
134#endif
135
136END MODULE par_trc_trp
Note: See TracBrowser for help on using the repository browser.