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

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

CL + CE : NEMO TRC_SRC start
  • 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#if defined key_passivetrc
10   !!---------------------------------------------------------------------
11   !!   'key_passivetrc'   :                               Passive tracer
12   !!---------------------------------------------------------------------
13   !!----------------------------------------------------------------------
14   !!  OPA 9.0, LODYC-IPSL (2004)
15   !!----------------------------------------------------------------------
16
17   IMPLICIT NONE
18   PUBLIC
19   
20   !! jptra   : number of passive tracers
21   !! jpdia2d : additional 2d output
22   !! jpdia3d : additional 3d output
23
24#if defined key_trc_npzd
25   !!---------------------------------------------------------------------
26   !!   'key_trc_npzd'   :                    NPZD Source Minus Sink model
27   !!---------------------------------------------------------------------
28   INTEGER, PUBLIC, PARAMETER :: jptra   = 4
29#if defined key_trc_diaadd
30   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
31   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
32#endif
33#elif defined key_trc_lobster1
34   !!---------------------------------------------------------------------
35   !!   'key_trc_lobster1'   :            LOBSTER1 Source Minus Sink model
36   !!---------------------------------------------------------------------
37   INTEGER, PUBLIC, PARAMETER :: jptra   = 6
38#if defined key_trc_diaadd
39   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 18
40   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 3
41#endif
42#elif defined key_trc_hamocc3
43#  if defined key_trc_p3zd
44#       if defined key_trc_biohamocc13
45   !!---------------------------------------------------------------------
46   !!   'key_trc_p3zd && key_trc_biohamocc13' P3ZD Source Minus Sink model
47   !!---------------------------------------------------------------------
48   INTEGER, PUBLIC, PARAMETER :: jptra   = 11
49#if defined key_trc_diaadd
50   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
51   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
52#endif
53   !!---------------------------------------------------------------------
54   !!   'key_trc_p3zd'   :                    P3ZD Source Minus Sink model
55   !!---------------------------------------------------------------------
56#       else
57   INTEGER, PUBLIC, PARAMETER :: jptra   = 10
58   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
59   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
60#       endif
61#   else
62   !!---------------------------------------------------------------------
63   !!  'key_trc_hamocc3 && key_trc_biohamocc13' HAMMOCC Source Minus Sink model
64   !!---------------------------------------------------------------------
65#       if defined key_trc_biohamocc13
66   INTEGER, PUBLIC, PARAMETER :: jptra   = 8
67#if defined key_trc_diaadd
68   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
69   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
70#endif
71#       else
72   !!---------------------------------------------------------------------
73   !!  'key_trc_hamocc3 ' HAMMOCC Source Minus Sink model
74   !!---------------------------------------------------------------------
75   INTEGER, PUBLIC, PARAMETER :: jptra   = 7
76#if defined key_trc_diaadd
77   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
78   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
79#endif
80#       endif
81#   endif
82#elif defined key_cfc
83   !!---------------------------------------------------------------------
84   !!   'key_trc_cfc'   :                      CFC Source Minus Sink model
85   !!---------------------------------------------------------------------
86   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
87#if defined key_trc_diaadd
88   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
89   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
90#endif
91#elif defined key_gosac
92   !!---------------------------------------------------------------------
93   !!   'key_trc_gosac'   :                  GOSAC Source Minus Sink model
94   !!---------------------------------------------------------------------
95   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
96#if defined key_trc_diaadd
97   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
98   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
99#endif
100#elif defined key_trc_age
101   !!---------------------------------------------------------------------
102   !!   'key_trc_age'   :                    AGE Source Minus Sink model
103   !!---------------------------------------------------------------------
104   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
105#if defined key_trc_diaadd
106   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
107   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
108#endif
109#elif defined key_trc_pisces
110   !!---------------------------------------------------------------------
111   !!   'key_trc_pisces'   :                  PISCES Source Minus Sink model
112   !!---------------------------------------------------------------------
113   INTEGER, PUBLIC, PARAMETER :: jptra   = 24
114#if defined key_trc_diaadd
115   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 13
116   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 11
117#endif
118#else
119   !!---------------------------------------------------------------------
120   !!   'default'   :          temperature and salinity as passive tracers
121   !!---------------------------------------------------------------------
122   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
123#if defined key_trc_diaadd
124   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
125   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
126#endif
127#endif
128
129#else
130   !!======================================================================
131   !!  Empty module : No passive tracer
132   !!======================================================================
133#endif
134
135END MODULE par_trc_trp
Note: See TracBrowser for help on using the repository browser.