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_cfc.F90 in branches/UKMO/r6232_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/CFC – NEMO

source: branches/UKMO/r6232_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/CFC/par_cfc.F90 @ 11132

Last change on this file since 11132 was 11132, checked in by jcastill, 5 years ago

Remove svn keywords

File size: 3.7 KB
Line 
1MODULE par_cfc
2   !!======================================================================
3   !!                        ***  par_cfc  ***
4   !! TOP :   set the CFC parameters
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
7   !!----------------------------------------------------------------------
8   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
9   !! $Id$
10   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
11   !!----------------------------------------------------------------------
12   USE par_pisces , ONLY : jp_pisces       !: number of tracers in PISCES
13   USE par_pisces , ONLY : jp_pisces_2d    !: number of 2D diag in PISCES
14   USE par_pisces , ONLY : jp_pisces_3d    !: number of 3D diag in PISCES
15   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES
16
17   IMPLICIT NONE
18
19   INTEGER, PARAMETER ::   jp_lc      =  jp_pisces     !: cumulative number of passive tracers
20   INTEGER, PARAMETER ::   jp_lc_2d   =  jp_pisces_2d  !:
21   INTEGER, PARAMETER ::   jp_lc_3d   =  jp_pisces_3d  !:
22   INTEGER, PARAMETER ::   jp_lc_trd  =  jp_pisces_trd !:
23   
24#if defined key_cfc
25   !!---------------------------------------------------------------------
26   !!   'key_cfc'   :                                          CFC tracers
27   !!---------------------------------------------------------------------
28   LOGICAL, PUBLIC, PARAMETER ::   lk_cfc     = .TRUE.      !: CFC flag
29   INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  1          !: number of passive tracers
30   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  2          !: additional 2d output arrays ('key_trc_diaadd')
31   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  0          !: additional 3d output arrays ('key_trc_diaadd')
32   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_trd =  0          !: number of sms trends for CFC
33   
34   ! assign an index in trc arrays for each CFC prognostic variables
35   INTEGER, PUBLIC, PARAMETER ::   jpc11       = jp_lc + 1   !: CFC-11
36   INTEGER, PUBLIC, PARAMETER ::   jpc12       = jp_lc + 2   !: CFC-12   
37#else
38   !!---------------------------------------------------------------------
39   !!   Default     :                                       No CFC tracers
40   !!---------------------------------------------------------------------
41   LOGICAL, PUBLIC, PARAMETER ::   lk_cfc     = .FALSE.     !: CFC flag
42   INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  0          !: No CFC tracers
43   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  0          !: No CFC additional 2d output arrays
44   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  0          !: No CFC additional 3d output arrays
45   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_trd =  0          !: number of sms trends for CFC
46#endif
47
48   ! Starting/ending CFC do-loop indices (N.B. no CFC : jp_cfc0 > jp_cfc1 the do-loop are never done)
49   INTEGER, PUBLIC, PARAMETER ::   jp_cfc0     = jp_lc + 1       !: First index of CFC tracers
50   INTEGER, PUBLIC, PARAMETER ::   jp_cfc1     = jp_lc + jp_cfc  !: Last  index of CFC tracers
51   INTEGER, PUBLIC, PARAMETER ::   jp_cfc0_2d  = jp_lc_2d  + 1       !: First index of CFC tracers
52   INTEGER, PUBLIC, PARAMETER ::   jp_cfc1_2d  = jp_lc_2d  + jp_cfc_2d  !: Last  index of CFC tracers
53   INTEGER, PUBLIC, PARAMETER ::   jp_cfc0_3d  = jp_lc_3d  + 1       !: First index of CFC tracers
54   INTEGER, PUBLIC, PARAMETER ::   jp_cfc1_3d  = jp_lc_3d  + jp_cfc_3d  !: Last  index of CFC tracers
55   INTEGER, PUBLIC, PARAMETER ::   jp_cfc0_trd = jp_lc_trd + 1       !: First index of CFC tracers
56   INTEGER, PUBLIC, PARAMETER ::   jp_cfc1_trd = jp_lc_trd + jp_cfc_trd  !: Last  index of CFC tracers
57
58   !!======================================================================
59END MODULE par_cfc
Note: See TracBrowser for help on using the repository browser.