source: branches/UKMO/AMM15_v3_6_STABLE_package/NEMOGCM/NEMO/TOP_SRC/par_trc.F90 @ 8058

Last change on this file since 8058 was 8058, checked in by jgraham, 4 years ago

Clear keywords

File size: 2.3 KB
RevLine 
[186]1MODULE par_trc
2   !!======================================================================
3   !!                        ***  par_trc  ***
[945]4   !! TOP :   set the passive tracers parameters
[186]5   !!======================================================================
[945]6   !! History :    -   !  1996-01  (M. Levy)  original code
7   !!              -   !  2000-04  (O. Aumont, M.A. Foujols)  HAMOCC3 and P3ZD
8   !!             1.0  !  2004-03  (C. Ethe) Free form and module
9   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
[186]10   !!----------------------------------------------------------------------
[945]11   USE par_kind          ! kind parameters
12   !
13   USE par_pisces    ! PISCES  model
[1836]14   USE par_c14b      ! C14 bomb tracer
[945]15   USE par_cfc       ! CFC 11 and 12 tracers
16   USE par_my_trc    ! user defined passive tracers
[186]17
18   IMPLICIT NONE
19
[4230]20   ! Passive tracers : Maximum number of tracers. Needed to define data structures
21   ! ---------------
22   INTEGER, PUBLIC,  PARAMETER ::   jpmaxtrc = 100
23
[945]24   ! Passive tracers : Total size
25   ! ---------------               ! total number of passive tracers, of 2d and 3d output and trend arrays
[3680]26   INTEGER, PUBLIC,  PARAMETER ::   jptra    =  jp_pisces     + jp_cfc     + jp_c14b    + jp_my_trc
27   INTEGER, PUBLIC,  PARAMETER ::   jpdia2d  =  jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d + jp_my_trc_2d
28   INTEGER, PUBLIC,  PARAMETER ::   jpdia3d  =  jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d + jp_my_trc_3d
[945]29   !                     ! total number of sms diagnostic arrays
[3680]30   INTEGER, PUBLIC,  PARAMETER ::   jpdiabio =  jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd
[945]31   
32   !  1D configuration ("key_c1d")
33   ! -----------------
34# if defined key_c1d
35   LOGICAL, PUBLIC, PARAMETER ::   lk_trc_c1d   = .TRUE.   !: 1D pass. tracer configuration flag
36# else   
37   LOGICAL, PUBLIC, PARAMETER ::   lk_trc_c1d   = .FALSE.  !: 1D pass. tracer configuration flag
38# endif
[186]39
[4529]40   REAL(wp), PUBLIC  :: rtrn  = 0.5 * EPSILON( 1.e0 )    !: truncation value
[2528]41
42   !!----------------------------------------------------------------------
43   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
[8058]44   !! $Id$
[2528]45   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
[945]46   !!======================================================================
[186]47END MODULE par_trc
Note: See TracBrowser for help on using the repository browser.