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, 8 years ago | |
|---|---|
|
|
| File size: 1.5 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 :: 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 | !!====================================================================== |
| 36 | END MODULE par_trc |
Note: See TracBrowser
for help on using the repository browser.
