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_my_trc.F90 in trunk/NEMO/TOP_SRC/MY_TRC – NEMO

source: trunk/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90 @ 1253

Last change on this file since 1253 was 1253, checked in by cetlod, 15 years ago

update parameter files to take into account the new C14 bomb tracer model, see ticket:298
  • Property svn:keywords set to Id
File size: 4.9 KB
Line 
1MODULE par_my_trc
2   !!======================================================================
3   !!                        ***  par_my_trc  ***
4   !! TOP :   set the MY_TRC parameters
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
7   !!----------------------------------------------------------------------
8   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)
9   !! $Id$
10   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
11   !!----------------------------------------------------------------------
12   USE par_lobster, ONLY : jp_lobster      !: number of tracers in LOBSTER
13   USE par_lobster, ONLY : jp_lobster_2d   !: number of 2D diag in LOBSTER
14   USE par_lobster, ONLY : jp_lobster_3d   !: number of 3D diag in LOBSTER
15   USE par_lobster, ONLY : jp_lobster_trd  !: number of biological diag in LOBSTER
16
17   USE par_pisces , ONLY : jp_pisces       !: number of tracers in PISCES
18   USE par_pisces , ONLY : jp_pisces_2d    !: number of 2D diag in PISCES
19   USE par_pisces , ONLY : jp_pisces_3d    !: number of 3D diag in PISCES
20   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES
21
22   USE par_cfc    , ONLY : jp_cfc          !: number of tracers in CFC
23   USE par_cfc    , ONLY : jp_cfc_2d       !: number of tracers in CFC
24   USE par_cfc    , ONLY : jp_cfc_3d       !: number of tracers in CFC
25   USE par_cfc    , ONLY : jp_cfc_trd      !: number of tracers in CFC
26
27   USE par_c14b   , ONLY : jp_c14b         !: number of tracers in C14
28   USE par_c14b   , ONLY : jp_c14b_2d      !: number of tracers in C14
29   USE par_c14b   , ONLY : jp_c14b_3d      !: number of tracers in C14
30   USE par_c14b   , ONLY : jp_c14b_trd     !: number of tracers in C14
31
32   IMPLICIT NONE
33   PUBLIC
34
35   INTEGER, PUBLIC, PARAMETER ::   jp_lpc      = jp_lobster     + jp_pisces     + jp_cfc     + jp_c14b     !:
36   INTEGER, PUBLIC, PARAMETER ::   jp_lpc_2d   = jp_lobster_2d  + jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d  !:
37   INTEGER, PUBLIC, PARAMETER ::   jp_lpc_3d   = jp_lobster_3d  + jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d  !:
38   INTEGER, PUBLIC, PARAMETER ::   jp_lpc_trd  = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_c14b_trd !:
39
40#if defined key_my_trc
41   !!---------------------------------------------------------------------
42   !!   'key_my_trc'                     user defined tracers (MY_TRC)
43   !!---------------------------------------------------------------------
44   LOGICAL, PUBLIC, PARAMETER ::   lk_my_trc     = .TRUE.   !: PTS flag
45   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc     =  2       !: number of PTS tracers
46   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc_2d  =  0       !: additional 2d output arrays ('key_trc_diaadd')
47   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc_3d  =  0       !: additional 3d output arrays ('key_trc_diaadd')
48   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc_trd =  0       !: number of sms trends for MY_TRC
49
50   ! assign an index in trc arrays for each PTS prognostic variables
51   INTEGER, PUBLIC, PARAMETER ::   jpmyt1 = jp_lpc + 1     !: 1st MY_TRC tracer
52   INTEGER, PUBLIC, PARAMETER ::   jpmyt2 = jp_lpc + 2     !: 2nd MY_TRC tracer
53
54#else
55   !!---------------------------------------------------------------------
56   !!   Default                           No user defined tracers (MY_TRC)
57   !!---------------------------------------------------------------------
58   LOGICAL, PUBLIC, PARAMETER ::   lk_my_trc     = .FALSE.  !: MY_TRC flag
59   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc     =  0       !: No MY_TRC tracers
60   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc_2d  =  0       !: No MY_TRC additional 2d output arrays
61   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc_3d  =  0       !: No MY_TRC additional 3d output arrays
62   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc_trd =  0       !: number of sms trends for MY_TRC
63#endif
64
65   ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done)
66   INTEGER, PUBLIC, PARAMETER ::   jp_myt0     = jp_lpc     + 1              !: First index of MY_TRC passive tracers
67   INTEGER, PUBLIC, PARAMETER ::   jp_myt1     = jp_lpc     + jp_my_trc      !: Last  index of MY_TRC passive tracers
68   INTEGER, PUBLIC, PARAMETER ::   jp_myt0_2d  = jp_lpc_2d  + 1              !: First index of MY_TRC passive tracers
69   INTEGER, PUBLIC, PARAMETER ::   jp_myt1_2d  = jp_lpc_2d  + jp_my_trc_2d   !: Last  index of MY_TRC passive tracers
70   INTEGER, PUBLIC, PARAMETER ::   jp_myt0_3d  = jp_lpc_3d  + 1              !: First index of MY_TRC passive tracers
71   INTEGER, PUBLIC, PARAMETER ::   jp_myt1_3d  = jp_lpc_3d  + jp_my_trc_3d   !: Last  index of MY_TRC passive tracers
72   INTEGER, PUBLIC, PARAMETER ::   jp_myt0_trd = jp_lpc_trd + 1              !: First index of MY_TRC passive tracers
73   INTEGER, PUBLIC, PARAMETER ::   jp_myt1_trd = jp_lpc_trd + jp_my_trc_trd  !: Last  index of MY_TRC passive tracers
74
75   !!======================================================================
76END MODULE par_my_trc
Note: See TracBrowser for help on using the repository browser.