source: branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/par_trc.F90 @ 10149

Last change on this file since 10149 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
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
[8280]10   !!              -   !  2014-06  (A. Yool, J. Palmieri) adding MEDUSA-2
[186]11   !!----------------------------------------------------------------------
[945]12   USE par_kind          ! kind parameters
13   !
14   USE par_pisces    ! PISCES  model
[1836]15   USE par_c14b      ! C14 bomb tracer
[945]16   USE par_cfc       ! CFC 11 and 12 tracers
[8442]17   USE par_age       ! AGE  tracer
[945]18   USE par_my_trc    ! user defined passive tracers
[8442]19   USE par_idtra     ! Idealize tracer
[8280]20   USE par_medusa    ! MEDUSA model
[186]21
22   IMPLICIT NONE
23
[4230]24   ! Passive tracers : Maximum number of tracers. Needed to define data structures
25   ! ---------------
26   INTEGER, PUBLIC,  PARAMETER ::   jpmaxtrc = 100
27
[945]28   ! Passive tracers : Total size
29   ! ---------------               ! total number of passive tracers, of 2d and 3d output and trend arrays
[8442]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
[945]33   !                     ! total number of sms diagnostic arrays
[8442]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 
[945]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
[186]43
[4529]44   REAL(wp), PUBLIC  :: rtrn  = 0.5 * EPSILON( 1.e0 )    !: truncation value
[2528]45
46   !!----------------------------------------------------------------------
47   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
[6486]48   !! $Id$
[2528]49   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
[945]50   !!======================================================================
[186]51END MODULE par_trc
Note: See TracBrowser for help on using the repository browser.