Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
MODULE par_trc
!!======================================================================
!! *** par_trc ***
!! TOP : set the passive tracers parameters
!!======================================================================
!! History : - ! 1996-01 (M. Levy) original code
!! - ! 2000-04 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD
!! 1.0 ! 2004-03 (C. Ethe) Free form and module
!! 2.0 ! 2007-12 (C. Ethe, G. Madec) revised architecture
!!----------------------------------------------------------------------
USE par_kind ! kind parameters
USE par_pisces ! PISCES model parameters
USE par_cfc ! CFCs tracers parameters
USE par_c14 ! C14 tracer parameters
USE par_age ! AGE tracer parameters
USE par_my_trc ! MY_TRC model parameters
!
IMPLICIT NONE
INTEGER, PUBLIC, PARAMETER :: jpmaxtrc = 100 ! Maximum number of tracers
INTEGER, PUBLIC :: jptra !: Total number of passive tracers
INTEGER, PUBLIC :: jp_pisces !: number of passive tracers in PISCES model
INTEGER, PUBLIC :: jp_cfc !: number of CFC passive tracers
INTEGER, PUBLIC :: jp_my_trc !: number of passive tracers in MY_TRC model
INTEGER, PUBLIC :: jp_bgc !: number of passive tracers for the BGC model
INTEGER, PUBLIC :: jp_dia3d !: number of 3D diagnostic variables
INTEGER, PUBLIC :: jp_dia2d !: number of 2D diagnostic variables
LOGICAL, PUBLIC :: ln_pisces !: PISCES flag
LOGICAL, PUBLIC :: ln_age !: AGE flag
LOGICAL, PUBLIC :: ln_cfc11 !: CFC11 flag
LOGICAL, PUBLIC :: ln_cfc12 !: CFC12 flag
LOGICAL, PUBLIC :: ln_sf6 !: SF6 flag
LOGICAL, PUBLIC :: ll_cfc !: CFC flag
LOGICAL, PUBLIC :: ln_c14 !: C14 flag
LOGICAL, PUBLIC :: ln_my_trc !: MY_TRC flag
REAL(wp), PUBLIC :: rtrn = 0.5 * EPSILON( 1.e0 ) !: truncation value
END MODULE par_trc