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, 7 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.
