| [186] | 1 | MODULE 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 |
|---|
| [186] | 10 | !!---------------------------------------------------------------------- |
|---|
| [945] | 11 | USE par_kind ! kind parameters |
|---|
| [7646] | 12 | USE par_pisces ! PISCES model parameters |
|---|
| 13 | USE par_cfc ! CFCs tracers parameters |
|---|
| 14 | USE par_c14 ! C14 tracer parameters |
|---|
| 15 | USE par_age ! AGE tracer parameters |
|---|
| 16 | USE par_my_trc ! MY_TRC model parameters |
|---|
| [945] | 17 | ! |
|---|
| [186] | 18 | |
|---|
| 19 | IMPLICIT NONE |
|---|
| 20 | |
|---|
| [7646] | 21 | INTEGER, PUBLIC, PARAMETER :: jpmaxtrc = 100 ! Maximum number of tracers |
|---|
| [4230] | 22 | |
|---|
| [7646] | 23 | INTEGER, PUBLIC :: jptra !: Total number of passive tracers |
|---|
| 24 | INTEGER, PUBLIC :: jp_pisces !: number of passive tracers in PISCES model |
|---|
| 25 | INTEGER, PUBLIC :: jp_cfc !: number of CFC passive tracers |
|---|
| 26 | INTEGER, PUBLIC :: jp_my_trc !: number of passive tracers in MY_TRC model |
|---|
| 27 | INTEGER, PUBLIC :: jp_bgc !: number of passive tracers for the BGC model |
|---|
| [186] | 28 | |
|---|
| [7646] | 29 | INTEGER, PUBLIC :: jp_dia3d !: number of 3D diagnostic variables |
|---|
| 30 | INTEGER, PUBLIC :: jp_dia2d !: number of 2D diagnostic variables |
|---|
| [2528] | 31 | |
|---|
| [7646] | 32 | LOGICAL, PUBLIC :: ln_pisces !: PISCES flag |
|---|
| 33 | LOGICAL, PUBLIC :: ln_age !: AGE flag |
|---|
| 34 | LOGICAL, PUBLIC :: ln_cfc11 !: CFC11 flag |
|---|
| 35 | LOGICAL, PUBLIC :: ln_cfc12 !: CFC12 flag |
|---|
| 36 | LOGICAL, PUBLIC :: ln_sf6 !: SF6 flag |
|---|
| 37 | LOGICAL, PUBLIC :: ll_cfc !: CFC flag |
|---|
| 38 | LOGICAL, PUBLIC :: ln_c14 !: C14 flag |
|---|
| 39 | LOGICAL, PUBLIC :: ln_my_trc !: MY_TRC flag |
|---|
| 40 | |
|---|
| 41 | REAL(wp), PUBLIC :: rtrn = 0.5 * EPSILON( 1.e0 ) !: truncation value |
|---|
| 42 | |
|---|
| [186] | 43 | END MODULE par_trc |
|---|
