rxns_mod.f

Go to the documentation of this file.

      MODULE rxns

        use param, only: dim_m, dim_n_all, dim_n_g, dim_n_s
        Use rxn_com, only: reaction_block

! reaction rates
      DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  reactionrates

! number of ReactionRates
      INTEGER nrr
! total number of species
      INTEGER n_all

      LOGICAL rdatabase(0:dim_m, dim_n_g)

!-----------------------------------------------------------------------

! Indicates that reaction rates are to be calculated.
      LOGICAL :: rrate
! Indicates if the legacy reaction rates file (rrates.f) is used.
      LOGICAL :: use_rrates

! Rate of production of gas species
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: r_gp
! Rate of consumption of gas species/X_g
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: rox_gc
! Net production of gas
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: sum_r_g

! Rate of production of solids species
      DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: r_sp
! Rate of consumption of solids species/X_s
      DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: rox_sc
! Net production of solids
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE ::  sum_r_s

! Rate of mass transfer from phase M to Phase L
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE ::  r_phase

! Actual number of Reactions
      INTEGER no_of_rxns

! Species names -- Legacy variable
      CHARACTER(len=18) species_name(dim_n_all)

! Gas phase species names (database) and aliases
      CHARACTER(len=18) species_g(dim_n_g) ! database name
      CHARACTER(len=32)  species_alias_g(dim_n_g) ! alias

! Solids phase species names (database) and aliases
      CHARACTER(len=18) species_s(dim_m, dim_n_s) ! database name
      CHARACTER(len=32)  species_alias_s(dim_m, dim_n_s) ! alias

! Array linking all of the reaction data.
      TYPE(reaction_block), DIMENSION(:), TARGET, ALLOCATABLE :: reaction

      END MODULE rxns