source:
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/par_trc.F90
@
7046
Last change on this file since 7046 was 7046, checked in by cetlod, 8 years ago | |
---|---|
|
|
File size: 1.1 KB |
Line | |
---|---|
1 | MODULE 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 :: jpmaxtrc = 100 ! Maximum number of tracers |
23 | INTEGER, PUBLIC :: jptra ! Total number of tracers |
24 | INTEGER, PUBLIC :: jp_lc ! Total number of tracers |
25 | |
26 | REAL(wp), PUBLIC :: rtrn = 0.5 * EPSILON( 1.e0 ) !: truncation value |
27 | |
28 | END MODULE par_trc |
Note: See TracBrowser
for help on using the repository browser.