source: branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/par_trc.F90 @ 7041

Last change on this file since 7041 was 7041, checked in by cetlod, 4 years ago

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

  • Property svn:keywords set to Id
File size: 1.5 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   !!----------------------------------------------------------------------
11   USE par_kind          ! kind parameters
12   !
13   !
14   USE par_pisces
15   USE par_c14 
16   USE par_cfc
17   USE par_age 
18   USE par_my_trc
19
20   IMPLICIT NONE
21
22   INTEGER, PUBLIC, PARAMETER  :: jptra_max = 100    !   Maximum number of passive tracers
23   INTEGER, PUBLIC             :: jptra     ! Total number of tracers
24   INTEGER, PUBLIC             :: jp_lc     ! Total number of tracers
25
26   ! Passive tracers : Maximum number of tracers. Needed to define data structures
27   ! ---------------
28   INTEGER, PUBLIC,  PARAMETER ::   jpmaxtrc = 100
29   REAL(wp), PUBLIC  :: rtrn  = 0.5 * EPSILON( 1.e0 )    !: truncation value
30
31   !!----------------------------------------------------------------------
32   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
33   !! $Id$
34   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
35   !!======================================================================
36END MODULE par_trc
Note: See TracBrowser for help on using the repository browser.