New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
par_trc.F90 in branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC – NEMO

source: branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/par_trc.F90 @ 7709

Last change on this file since 7709 was 6715, checked in by jpalmier, 8 years ago

JPALM -- 16-06-2016 -- MEDUSA branch update :

-- pass co2 flux and dms_surf through restart for atm coupling.
-- introduce CFC cycle for dynamic evolution comparison
-- add Tim Graham Age tracer
-- include MEDUSA Q10 modif
-- svn-key removed
-- still need debug stage

File size: 2.6 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   !!              -   !  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
10   !!              -   !  2014-06  (A. Yool, J. Palmieri) adding MEDUSA-2
11   !!----------------------------------------------------------------------
12   USE par_kind          ! kind parameters
13   !
14   USE par_pisces    ! PISCES  model
15   USE par_c14b      ! C14 bomb tracer
16   USE par_cfc       ! CFC 11 and 12 tracers
17   USE par_my_trc    ! user defined passive tracers
18   USE par_medusa    ! MEDUSA model
19   USE par_idtra     ! Idealize tracer
20   USE par_age       ! AGE  tracer
21
22   IMPLICIT NONE
23
24   ! Passive tracers : Maximum number of tracers. Needed to define data structures
25   ! ---------------
26   INTEGER, PUBLIC,  PARAMETER ::   jpmaxtrc = 100
27
28   ! Passive tracers : Total size
29   ! ---------------               ! total number of passive tracers, of 2d and 3d output and trend arrays
30   INTEGER, PUBLIC,  PARAMETER ::   jptra    =  jp_pisces     + jp_cfc     + jp_c14b    + jp_my_trc    + jp_medusa    + jp_idtra     + jp_age
31   INTEGER, PUBLIC,  PARAMETER ::   jpdia2d  =  jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d + jp_my_trc_2d + jp_medusa_2d + jp_idtra_2d  + jp_age_2d
32   INTEGER, PUBLIC,  PARAMETER ::   jpdia3d  =  jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d + jp_my_trc_3d + jp_medusa_3d + jp_idtra_3d  + jp_age_3d
33   !                     ! total number of sms diagnostic arrays
34   INTEGER, PUBLIC,  PARAMETER ::   jpdiabio =  jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd + jp_medusa_trd + jp_idtra_trd + jp_age_trd
35   
36   !  1D configuration ("key_c1d")
37   ! -----------------
38# if defined key_c1d
39   LOGICAL, PUBLIC, PARAMETER ::   lk_trc_c1d   = .TRUE.   !: 1D pass. tracer configuration flag
40# else   
41   LOGICAL, PUBLIC, PARAMETER ::   lk_trc_c1d   = .FALSE.  !: 1D pass. tracer configuration flag
42# endif
43
44   REAL(wp), PUBLIC  :: rtrn  = 0.5 * EPSILON( 1.e0 )    !: truncation value
45
46   !!----------------------------------------------------------------------
47   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
48   !! $Id$
49   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
50   !!======================================================================
51END MODULE par_trc
Note: See TracBrowser for help on using the repository browser.