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

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

nemo_v1_update_023 : CE + RB + CT : new evolution of modules
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.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   !!----------------------------------------------------------------------
11#if defined key_passivetrc
12   !!---------------------------------------------------------------------
13   !!   'key_passivetrc'   :                               Passive tracer
14   !!---------------------------------------------------------------------
15
16   IMPLICIT NONE
17   PUBLIC
18   
19   !! jptra   : number of passive tracers
20   !! jpdia2d : additional 2d output
21   !! jpdia3d : additional 3d output
22
23#if defined key_trc_lobster1
24   !!---------------------------------------------------------------------
25   !!   'key_trc_lobster1'   :            LOBSTER1 Source Minus Sink model
26   !!---------------------------------------------------------------------
27   INTEGER, PUBLIC, PARAMETER :: jptra   = 6
28#  if defined key_trc_diaadd
29   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 19
30   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 3
31#  endif
32#elif defined key_cfc
33   !!---------------------------------------------------------------------
34   !!   'key_cfc'   :                      CFC Source Minus Sink model
35   !!---------------------------------------------------------------------
36   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
37#  if defined key_trc_diaadd
38   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
39   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
40#  endif
41#elif defined key_trc_pisces
42   !!---------------------------------------------------------------------
43   !!   'key_trc_pisces'   :                  PISCES Source Minus Sink model
44   !!---------------------------------------------------------------------
45   INTEGER, PUBLIC, PARAMETER :: jptra   = 24
46#  if defined key_trc_diaadd
47   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 13
48   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 11
49#  endif
50#else
51   !!---------------------------------------------------------------------
52   !!   'default'   :          temperature and salinity as passive tracers
53   !!---------------------------------------------------------------------
54   INTEGER, PUBLIC, PARAMETER :: jptra   = 2
55#if defined key_trc_diaadd
56   INTEGER, PUBLIC, PARAMETER :: jpdia2d = 1
57   INTEGER, PUBLIC, PARAMETER :: jpdia3d = 1
58#endif
59#endif
60
61#else
62   !!======================================================================
63   !!  Empty module : No passive tracer
64   !!======================================================================
65#endif
66
67END MODULE par_trc_trp
Note: See TracBrowser for help on using the repository browser.