source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/config/ppsrc/phys/tracer_h.f90 @ 224

Last change on this file since 224 was 224, checked in by ymipsl, 10 years ago
File size: 2.1 KB
Line 
1
2       module tracer_h
3
4       implicit none
5
6       character*20, DIMENSION(:), ALLOCATABLE :: noms   ! name of the tracer
7       real, DIMENSION(:), ALLOCATABLE :: mmol     ! mole mass of tracer (g/mol-1)
8       real, DIMENSION(:), ALLOCATABLE :: radius   ! dust and ice particle radius (m)
9       real, DIMENSION(:), ALLOCATABLE :: rho_q    ! tracer densities (kg.m-3)
10       real, DIMENSION(:), ALLOCATABLE :: qext     ! Single Scat. Extinction coeff at 0.67 um
11       real, DIMENSION(:), ALLOCATABLE :: alpha_lift  ! saltation vertical flux/horiz flux ratio (m-1)
12       real, DIMENSION(:), ALLOCATABLE :: alpha_devil ! lifting coeeficient by dust devil
13       real, DIMENSION(:), ALLOCATABLE :: qextrhor ! Intermediate for computing opt. depth from q
14
15      real varian      ! Characteristic variance of log-normal distribution
16      real r3n_q     ! used to compute r0 from number and mass mixing ratio
17      real rho_dust     ! Mars dust density (kg.m-3)
18      real rho_ice     ! Water ice density (kg.m-3)
19      real rho_co2     ! CO2 ice density (kg.m-3)
20      real ref_r0        ! for computing reff=ref_r0*r0 (in log.n. distribution)
21
22! tracer indexes: these are initialized in initracer and should be 0 if the
23!                 corresponding tracer does not exist
24      ! dust
25      integer, DIMENSION(:), ALLOCATABLE :: igcm_dustbin ! for dustbin 'dust' tracers
26      ! dust, special doubleq case
27      integer :: igcm_dust_mass   ! dust mass mixing ratio (for transported dust)
28      integer :: igcm_dust_number ! dust number mixing ratio (transported dust)
29      ! water
30      integer :: igcm_h2o_vap ! water vapour
31      integer :: igcm_h2o_ice ! water ice
32      ! chemistry:
33      integer :: igcm_co2
34      integer :: igcm_co
35      integer :: igcm_o
36      integer :: igcm_o1d
37      integer :: igcm_o2
38      integer :: igcm_o3
39      integer :: igcm_h
40      integer :: igcm_h2
41      integer :: igcm_oh
42      integer :: igcm_ho2
43      integer :: igcm_h2o2
44      integer :: igcm_n2
45      integer :: igcm_ar
46      ! other tracers
47      integer :: igcm_ar_n2 ! for simulations using co2 +neutral gaz
48      integer :: igcm_co2_ice ! CO2 ice
49
50       end module tracer_h
51
Note: See TracBrowser for help on using the repository browser.