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 | 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 |
---|
17 | ! |
---|
18 | |
---|
19 | IMPLICIT NONE |
---|
20 | |
---|
21 | INTEGER, PUBLIC, PARAMETER :: jpmaxtrc = 100 ! Maximum number of tracers |
---|
22 | |
---|
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 |
---|
28 | |
---|
29 | INTEGER, PUBLIC :: jp_dia3d !: number of 3D diagnostic variables |
---|
30 | INTEGER, PUBLIC :: jp_dia2d !: number of 2D diagnostic variables |
---|
31 | |
---|
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 | |
---|
43 | END MODULE par_trc |
---|