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

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

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