source: trunk/NEMO/TOP_SRC/CFC/par_cfc.F90 @ 1004

Last change on this file since 1004 was 1004, checked in by cetlod, 13 years ago

Update CFC modules to take into account the re-organization of TOP initialization phase, see ticket 168

File size: 2.8 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_cfc     = .TRUE.      !: CFC flag
25   INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  2          !: number of passive tracers
26   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  0          !: additional 2d output arrays ('key_trc_diaadd')
27   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  0          !: 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_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.