File: /nfs/home/0/users/jenkins/mfix.git/model/rxns_mod.f

1           MODULE rxns
2     
3           Use param
4           Use param1
5           Use rxn_com
6     
7     ! reaction rates
8           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  ReactionRates
9     
10     ! number of ReactionRates
11           INTEGER nRR
12     ! total number of species
13           INTEGER N_all
14     
15           LOGICAL rDatabase(0:DIM_M, DIM_N_g)
16     
17     !-----------------------------------------------------------------------
18     
19     ! Indicates that reaction rates are to be calculated.
20           LOGICAL :: RRATE
21     ! Indicates if the legacy reaction rates file (rrates.f) is used.
22          LOGICAL USE_RRATES
23     
24     ! Rate of production of gas species
25           DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: R_gp
26     ! Rate of consumption of gas species/X_g
27           DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: RoX_gc
28     ! Net production of gas
29           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: SUM_R_g
30     
31     ! Rate of production of solids species
32           DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: R_sp
33     ! Rate of consumption of solids species/X_s
34           DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: RoX_sc
35     ! Net production of solids
36           DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE ::  SUM_R_s
37     
38     ! Rate of mass transfer from phase M to Phase L
39           DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE ::  R_phase
40     
41     ! Actual number of Reactions
42           INTEGER NO_OF_RXNS
43     
44     ! Species names -- Legacy variable
45           CHARACTER(len=18) SPECIES_NAME(DIM_N_ALL)
46     
47     ! Gas phase species names (database) and aliases
48           CHARACTER(len=18) SPECIES_g(DIM_N_g) ! database name
49           CHARACTER(len=32)  SPECIES_ALIAS_g(DIM_N_g) ! alias
50     
51     ! Solids phase species names (database) and aliases
52           CHARACTER(len=18) SPECIES_s(DIM_M, DIM_N_s) ! database name
53           CHARACTER(len=32)  SPECIES_ALIAS_s(DIM_M, DIM_N_s) ! alias
54     
55     ! Array linking all of the reaction data.
56           TYPE(REACTION_BLOCK), DIMENSION(:), TARGET, ALLOCATABLE :: Reaction
57     
58           END MODULE rxns
59