source: branches/dev_001_GM/NEMO/TOP_SRC/MY_TRC/par_MY_TRC.F90 @ 768

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

dev_001_GM - create 1 trclsm_ module by trc model (CFC, LOBSTER, PISCES..) + some bug corrections

File size: 3.0 KB
Line 
1MODULE par_MY_TRC
2   !!======================================================================
3   !!                        ***  par_MY_TRC  ***
4   !! TOP :   set the MY_TRC 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   USE par_CFC    , ONLY : jp_cfc       !: number of tracers in CFC
15
16   IMPLICIT NONE
17   PUBLIC
18
19   INTEGER, PUBLIC, PARAMETER ::   jp_lpc  = jp_lobster + jp_pisces + jp_cfc   !: cumulative number of TRC
20
21#if defined key_trc_my_trc
22   !!---------------------------------------------------------------------
23   !!   'key_trc_my_trc'                     user defined tracers (MY_TRC)
24   !!---------------------------------------------------------------------
25   LOGICAL, PUBLIC, PARAMETER ::   lk_my_trc     = .TRUE.   !: PTS flag
26   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc     =  3       !: number of PTS tracers
27   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc_2d  =  1       !: additional 2d output arrays ('key_trc_diaadd')
28   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc_3d  =  1       !: additional 3d output arrays ('key_trc_diaadd')
29   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc_trd =  0       !: number of sms trends for MY_TRC
30
31   ! assign an index in trc arrays for each PTS prognostic variables
32   INTEGER, PUBLIC, PARAMETER ::   jp_myt1 = jp_lpc + 1     !: 1st MY_TRC tracer
33   INTEGER, PUBLIC, PARAMETER ::   jp_myt2 = jp_lpc + 1     !: 2nd MY_TRC tracer
34   INTEGER, PUBLIC, PARAMETER ::   jp_myt3 = jp_lpc + 1     !: 3rd MY_TRC tracer
35
36#else
37   !!---------------------------------------------------------------------
38   !!   Default                           No user defined tracers (MY_TRC)
39   !!---------------------------------------------------------------------
40   LOGICAL, PUBLIC, PARAMETER ::   lk_my_trc     = .FALSE.  !: MY_TRC flag
41   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc     =  0       !: No MY_TRC tracers
42   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc_2d  =  0       !: No MY_TRC additional 2d output arrays
43   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc_3d  =  0       !: No MY_TRC additional 3d output arrays
44   INTEGER, PUBLIC, PARAMETER ::   jp_my_trc_trd =  0       !: number of sms trends for MY_TRC
45#endif
46
47   ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done)
48   INTEGER, PUBLIC, PARAMETER ::   jpf_myt = jp_lpc + 1           !: First index of CFC passive tracers
49   INTEGER, PUBLIC, PARAMETER ::   jpl_myt = jp_lpc + jp_my_trc   !: Last  index of CFC passive tracers
50
51   !!======================================================================
52END MODULE par_MY_TRC
Note: See TracBrowser for help on using the repository browser.