File: N:\mfix\model\rxns_mod.f

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