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_c14b.F90 in branches/UKMO/dev_r5518_GO6_MEDUSA_dummyrun/NEMOGCM/NEMO/TOP_SRC/C14b – NEMO

source: branches/UKMO/dev_r5518_GO6_MEDUSA_dummyrun/NEMOGCM/NEMO/TOP_SRC/C14b/par_c14b.F90 @ 8155

Last change on this file since 8155 was 8155, checked in by frrh, 7 years ago

Merge branches/NERC/dev_r5518_NOC_MEDUSA_Stable revisions 5711:8147, thus
svn merge -r 5711:8147.

We also resolve conflicts by hand, typically relating to retaining files
in the AGRIF direcories. Nothing in main OPA_SRC aor TOP_SRC code.

File size: 4.9 KB
Line 
1MODULE par_c14b
2   !!======================================================================
3   !!                        ***  par_c14b ***
4   !! TOP :   set the C14 bomb parameters
5   !!======================================================================
6   !! History :   2.0  !  2008-12  (C. Ethe, G. Madec)  revised architecture
7   !!----------------------------------------------------------------------
8   USE par_pisces , ONLY : jp_pisces       !: number of tracers in PISCES
9   USE par_pisces , ONLY : jp_pisces_2d    !: number of 2D diag in PISCES
10   USE par_pisces , ONLY : jp_pisces_3d    !: number of 3D diag in PISCES
11   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES
12
13   USE par_medusa , ONLY : jp_medusa       !: number of tracers in MEDUSA
14   USE par_medusa , ONLY : jp_medusa_2d    !: number of 2D diag in MEDUSA
15   USE par_medusa , ONLY : jp_medusa_3d    !: number of 3D diag in MEDUSA
16   USE par_medusa , ONLY : jp_medusa_trd   !: number of biological diag in MEDUSA
17
18   USE par_idtra  , ONLY : jp_idtra        !: number of tracers in MEDUSA
19   USE par_idtra  , ONLY : jp_idtra_2d     !: number of tracers in MEDUSA
20   USE par_idtra  , ONLY : jp_idtra_3d     !: number of tracers in MEDUSA
21   USE par_idtra  , ONLY : jp_idtra_trd    !: number of tracers in MEDUSA
22
23   USE par_cfc    , ONLY : jp_cfc          !: number of tracers in CFC
24   USE par_cfc    , ONLY : jp_cfc_2d       !: number of 2D diag in CFC
25   USE par_cfc    , ONLY : jp_cfc_3d       !: number of 3D diag in CFC
26   USE par_cfc    , ONLY : jp_cfc_trd      !: number of biological diag in CFC
27
28
29   IMPLICIT NONE
30
31   INTEGER, PARAMETER ::   jp_lb      =  jp_pisces     + jp_medusa     +   &
32                      jp_idtra      + jp_cfc                               !: cum. number of pass. tracers
33   INTEGER, PARAMETER ::   jp_lb_2d   =  jp_pisces_2d  + jp_medusa_2d  +   &
34                      jp_idtra_2d   + jp_cfc_2d  !:
35   INTEGER, PARAMETER ::   jp_lb_3d   =  jp_pisces_3d  + jp_medusa_3d  +   &
36                      jp_idtra_3d   + jp_cfc_3d  !:
37   INTEGER, PARAMETER ::   jp_lb_trd  =  jp_pisces_trd + jp_medusa_trd +   &
38                      jp_idtra_trd  + jp_cfc_trd !:
39   
40#if defined key_c14b
41   !!---------------------------------------------------------------------
42   !!   'key_c14b'   :                                   C14 bomb tracer
43   !!---------------------------------------------------------------------
44   LOGICAL, PUBLIC, PARAMETER ::   lk_c14b     = .TRUE.      !: C14 bomb flag
45   INTEGER, PUBLIC, PARAMETER ::   jp_c14b     =  1          !: number of passive tracers
46   INTEGER, PUBLIC, PARAMETER ::   jp_c14b_2d  =  2          !: additional 2d output arrays ('key_trc_diaadd')
47   INTEGER, PUBLIC, PARAMETER ::   jp_c14b_3d  =  1          !: additional 3d output arrays ('key_trc_diaadd')
48   INTEGER, PUBLIC, PARAMETER ::   jp_c14b_trd =  0          !: number of sms trends for C14
49   INTEGER, PUBLIC, PARAMETER ::   jpc14       = jp_lb + 1   !: assign an index in trc arrays for C14 bomb
50#else
51   !!---------------------------------------------------------------------
52   !!   Default     :                                       No C14 tracer
53   !!---------------------------------------------------------------------
54   LOGICAL, PUBLIC, PARAMETER ::   lk_c14b     = .FALSE.     !: C14 bomb flag
55   INTEGER, PUBLIC, PARAMETER ::   jp_c14b     =  0          !: No C14 tracers
56   INTEGER, PUBLIC, PARAMETER ::   jp_c14b_2d  =  0          !: No C14 additional 2d output arrays
57   INTEGER, PUBLIC, PARAMETER ::   jp_c14b_3d  =  0          !: No C14 additional 3d output arrays
58   INTEGER, PUBLIC, PARAMETER ::   jp_c14b_trd =  0          !: number of sms trends for C14
59#endif
60
61   ! Starting/ending C14 do-loop indices (N.B. no C14 : jp_c14b0 > jp_c14b1 the do-loop are never done)
62   INTEGER, PUBLIC, PARAMETER ::   jp_c14b0     = jp_lb     + 1            !: First index of C14 tracer
63   INTEGER, PUBLIC, PARAMETER ::   jp_c14b1     = jp_lb     + jp_c14b      !: Last  index of C14 tracer
64   INTEGER, PUBLIC, PARAMETER ::   jp_c14b0_2d  = jp_lb_2d  + 1            !: First index of C14 tracer
65   INTEGER, PUBLIC, PARAMETER ::   jp_c14b1_2d  = jp_lb_2d  + jp_c14b_2d   !: Last  index of C14 tracer
66   INTEGER, PUBLIC, PARAMETER ::   jp_c14b0_3d  = jp_lb_3d  + 1            !: First index of C14 tracer
67   INTEGER, PUBLIC, PARAMETER ::   jp_c14b1_3d  = jp_lb_3d  + jp_c14b_3d   !: Last  index of C14 tracer
68   INTEGER, PUBLIC, PARAMETER ::   jp_c14b0_trd = jp_lb_trd + 1            !: First index of C14 tracer
69   INTEGER, PUBLIC, PARAMETER ::   jp_c14b1_trd = jp_lb_trd + jp_c14b_trd  !: Last  index of C14 tracer
70
71   !!----------------------------------------------------------------------
72   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
73   !! $Id$
74   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
75   !!======================================================================
76END MODULE par_c14b
Note: See TracBrowser for help on using the repository browser.