source: branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/par_trc.F90

Last change on this file was 8442, checked in by frrh, 3 years ago

Commit changes relating to Met Office GMED ticket 340 for the
tidying of MEDUSA related code and debugging statements in the TOP code.

Only code introduced at revision 8434 of branch
http://fcm3/projects/NEMO.xm/log/branches/NERC/dev_r5518_GO6_split_trcbiomedusa
is included here, all previous revisions of that branch having been dealt with
under GMED ticket 339.

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_age       ! AGE  tracer
18   USE par_my_trc    ! user defined passive tracers
19   USE par_idtra     ! Idealize tracer
20   USE par_medusa    ! MEDUSA model
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_age    + jp_my_trc    + jp_idtra     + jp_medusa   
31   INTEGER, PUBLIC,  PARAMETER ::   jpdia2d  =  jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d + jp_age_2d + jp_my_trc_2d + jp_idtra_2d  + jp_medusa_2d
32   INTEGER, PUBLIC,  PARAMETER ::   jpdia3d  =  jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d + jp_age_3d + jp_my_trc_3d + jp_idtra_3d  + jp_medusa_3d
33   !                     ! total number of sms diagnostic arrays
34   INTEGER, PUBLIC,  PARAMETER ::   jpdiabio =  jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_age_trd + jp_my_trc_trd + jp_idtra_trd + jp_medusa_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.