source: trunk/NEMO/TOP_SRC/par_trc.F90 @ 1254

Last change on this file since 1254 was 1254, checked in by cetlod, 12 years ago

update parameter files to take into account the new C14 bomb tracer model, see ticket:298

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.9 KB
Line 
1MODULE par_trc
2   !!======================================================================
3   !!                        ***  par_trc  ***
4   !! TOP :   set the passive tracers parameters
5   !!======================================================================
6   !! History :    -   !  1996-01  (M. Levy)  original code
7   !!              -   !  1999-07  (M. Levy)  for LOBSTER1 or NPZD model
8   !!              -   !  2000-04  (O. Aumont, M.A. Foujols)  HAMOCC3 and P3ZD
9   !!             1.0  !  2004-03  (C. Ethe) Free form and module
10   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
11   !!----------------------------------------------------------------------
12   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)
13   !! $Id$
14   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
15   !!----------------------------------------------------------------------
16   USE par_kind          ! kind parameters
17   !
18   USE par_lobster   ! LOBSTER model
19   USE par_pisces    ! PISCES  model
20   USE par_cfc       ! CFC 11 and 12 tracers
21   USE par_c14b      ! C14 bomb tracer
22   USE par_my_trc    ! user defined passive tracers
23
24   IMPLICIT NONE
25   PUBLIC
26
27   ! Passive tracers : Total size
28   ! ---------------               ! total number of passive tracers, of 2d and 3d output and trend arrays
29   INTEGER, PUBLIC, PARAMETER ::   jptra    =  jp_lobster    + jp_pisces     + jp_cfc     + jp_c14b     + jp_my_trc
30   INTEGER, PUBLIC, PARAMETER ::   jpdia2d  =  jp_lobster_2d + jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d  + jp_my_trc_2d
31   INTEGER, PUBLIC, PARAMETER ::   jpdia3d  =  jp_lobster_3d + jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d  + jp_my_trc_3d
32   !                     ! total number of sms diagnostic arrays
33   INTEGER, PUBLIC, PARAMETER ::   jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd
34   
35   !  1D configuration ("key_c1d")
36   ! -----------------
37# if defined key_c1d
38   LOGICAL, PUBLIC, PARAMETER ::   lk_trc_c1d   = .TRUE.   !: 1D pass. tracer configuration flag
39# else   
40   LOGICAL, PUBLIC, PARAMETER ::   lk_trc_c1d   = .FALSE.  !: 1D pass. tracer configuration flag
41# endif
42
43   ! Passive tracers : size for TRP trends diagnotics (used if 'key_trc_diatrd' defined)
44#if defined key_trcldf_eiv
45# if defined key_trcdmp
46   INTEGER, PARAMETER :: jpdiatrc = 11      !: trends: 3*(advection + diffusion + eiv ) + damping + sms
47# else
48   INTEGER, PARAMETER :: jpdiatrc = 10      !: trends: 3*(advection + diffusion + eiv )           + sms
49# endif
50#else
51# if defined key_trcdmp
52   INTEGER, PARAMETER :: jpdiatrc =  8      !: trends: 3*(advection + diffusion       ) + damping + sms
53# else
54   INTEGER, PARAMETER :: jpdiatrc =  7      !: trends: 3*(advection + diffusion       ) + damping + sms
55# endif
56#endif
57
58   REAL(wp), PUBLIC  :: rtrn  = 1.e-15      !: truncation value     
59   !!======================================================================
60END MODULE par_trc
Note: See TracBrowser for help on using the repository browser.