source: branches/dev_001_GM/NEMO/TOP_SRC/CFC/par_cfc.F90 @ 769

Last change on this file since 769 was 769, checked in by gm, 13 years ago

dev_001_GM - suppression of upper case in module names: par_LOBSTER, etc…

File size: 2.9 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 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_pisces , ONLY : jp_pisces    !: number of tracers in PISCES
14
15   IMPLICIT NONE
16   PUBLIC
17
18   INTEGER, PUBLIC, PARAMETER ::   jp_lp      = jp_lobster + jp_pisces   !: cumulative number of passive tracers
19   
20#if defined key_cfc
21   !!---------------------------------------------------------------------
22   !!   'key_cfc'   :                                          CFC tracers
23   !!---------------------------------------------------------------------
24   LOGICAL, PUBLIC, PARAMETER ::   lk_trc_cfc = .TRUE.       !: CFC flag
25   INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  2           !: number of passive tracers
26   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  1           !: additional 2d output arrays ('key_trc_diaadd')
27   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  1           !: additional 3d output arrays ('key_trc_diaadd')
28   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_trd =  0           !: number of sms trends for CFC
29   
30   ! assign an index in trc arrays for each CFC prognostic variables
31   INTEGER, PUBLIC, PARAMETER ::   jp11       = jp_lp + 1                !: CFC-11
32   INTEGER, PUBLIC, PARAMETER ::   jp12       = jp_lp + 2                !: CFC-12   
33#else
34   !!---------------------------------------------------------------------
35   !!   Default     :                                       No CFC tracers
36   !!---------------------------------------------------------------------
37   LOGICAL, PUBLIC, PARAMETER ::   lk_trc_cfc = .FALSE.      !: CFC flag
38   INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  0           !: No CFC tracers
39   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  0           !: No CFC additional 2d output arrays
40   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  0           !: No CFC additional 3d output arrays
41   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_trd =  0           !: number of sms trends for CFC
42#endif
43
44   ! Starting/ending CFC do-loop indices (N.B. no CFC : jp_cfc0 > jp_cfc1 the do-loop are never done)
45   INTEGER, PUBLIC, PARAMETER ::   jp_cfc0    = jp_lp + 1       !: First index of CFC tracers
46   INTEGER, PUBLIC, PARAMETER ::   jp_cfc1    = jp_lp + jp_cfc  !: Last  index of CFC tracers
47
48   !!======================================================================
49END MODULE par_cfc
Note: See TracBrowser for help on using the repository browser.