source: branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/CFC/par_cfc.F90 @ 5787

Last change on this file since 5787 was 5787, checked in by jpalmier, 5 years ago

JPALM — 12-10-2015 — now CFC module knows about MEDUSA

File size: 4.0 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   USE par_medusa , ONLY : jp_medusa       !: number of tracers in PISCES
18   USE par_medusa , ONLY : jp_medusa_2d    !: number of 2D diag in PISCES
19   USE par_medusa , ONLY : jp_medusa_3d    !: number of 3D diag in PISCES
20   USE par_medusa , ONLY : jp_medusa_trd   !: number of biological diag in PISCES
21
22   IMPLICIT NONE
23
24   INTEGER, PARAMETER ::   jp_lc      =  jp_pisces     !: cumulative number of passive tracers
25   INTEGER, PARAMETER ::   jp_lc_2d   =  jp_pisces_2d  !:
26   INTEGER, PARAMETER ::   jp_lc_3d   =  jp_pisces_3d  !:
27   INTEGER, PARAMETER ::   jp_lc_trd  =  jp_pisces_trd !:
28   
29#if defined key_cfc
30   !!---------------------------------------------------------------------
31   !!   'key_cfc'   :                                          CFC tracers
32   !!---------------------------------------------------------------------
33   LOGICAL, PUBLIC, PARAMETER ::   lk_cfc     = .TRUE.      !: CFC flag
34   INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  1          !: number of passive tracers
35   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  2          !: additional 2d output arrays ('key_trc_diaadd')
36   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  0          !: additional 3d output arrays ('key_trc_diaadd')
37   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_trd =  0          !: number of sms trends for CFC
38   
39   ! assign an index in trc arrays for each CFC prognostic variables
40   INTEGER, PUBLIC, PARAMETER ::   jpc11       = jp_lc + 1   !: CFC-11
41   INTEGER, PUBLIC, PARAMETER ::   jpc12       = jp_lc + 2   !: CFC-12   
42#else
43   !!---------------------------------------------------------------------
44   !!   Default     :                                       No CFC tracers
45   !!---------------------------------------------------------------------
46   LOGICAL, PUBLIC, PARAMETER ::   lk_cfc     = .FALSE.     !: CFC flag
47   INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  0          !: No CFC tracers
48   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  0          !: No CFC additional 2d output arrays
49   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  0          !: No CFC additional 3d output arrays
50   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_trd =  0          !: number of sms trends for CFC
51#endif
52
53   ! Starting/ending CFC do-loop indices (N.B. no CFC : jp_cfc0 > jp_cfc1 the do-loop are never done)
54   INTEGER, PUBLIC, PARAMETER ::   jp_cfc0     = jp_lc + 1       !: First index of CFC tracers
55   INTEGER, PUBLIC, PARAMETER ::   jp_cfc1     = jp_lc + jp_cfc  !: Last  index of CFC tracers
56   INTEGER, PUBLIC, PARAMETER ::   jp_cfc0_2d  = jp_lc_2d  + 1       !: First index of CFC tracers
57   INTEGER, PUBLIC, PARAMETER ::   jp_cfc1_2d  = jp_lc_2d  + jp_cfc_2d  !: Last  index of CFC tracers
58   INTEGER, PUBLIC, PARAMETER ::   jp_cfc0_3d  = jp_lc_3d  + 1       !: First index of CFC tracers
59   INTEGER, PUBLIC, PARAMETER ::   jp_cfc1_3d  = jp_lc_3d  + jp_cfc_3d  !: Last  index of CFC tracers
60   INTEGER, PUBLIC, PARAMETER ::   jp_cfc0_trd = jp_lc_trd + 1       !: First index of CFC tracers
61   INTEGER, PUBLIC, PARAMETER ::   jp_cfc1_trd = jp_lc_trd + jp_cfc_trd  !: Last  index of CFC tracers
62
63   !!======================================================================
64END MODULE par_cfc
Note: See TracBrowser for help on using the repository browser.