des_rxns_mod.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
!                                                                      !
!  Module name: DES_SPECIES                                            !
!                                                                      !
!  Purpose: Common elements for MFIX-DEM species transfer.             !
!  condition.                                                          !
!                                                                      !
!  Author: J.Musser                                   Date: 16-Jun-10  !
!                                                                      !
!  Comments:                                                           !
!                                                                      !
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
      MODULE des_rxns

      ! USE param
      USE rxn_com, only: reaction_block

! Data Storage:
!---------------------------------------------------------------------//
! discrete solids species mass fractions (PARTICLES, 0:MAX_DES_NMAX))
      DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: des_x_s

! Rate of production/consumption of solids species
      DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: des_r_s

! Numerical integration:
!---------------------------------------------------------------------//
! Previous time step's rate of change. Used for Adams-Bashforth
! time integration scheme.
! 1) particle mass
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: dmdt_old
! 2) particle species mass
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: dxdt_old

! Interphase transfer variables.
!---------------------------------------------------------------------//
! Amount produced of gas phase species
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: des_r_gp
! Amount consumed of gas phase species
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: des_r_gc
! Net production (+) or consumption (-)  of gas phase species
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: des_sum_r_g
! Amount of interphase mass transfer.
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: des_r_phase
! Amount of gas phase enthalpy change due to phase change/chemical reaction
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: des_hor_g

! Phase change/reactive chemistry:
!---------------------------------------------------------------------//
! Actual number of Reactions
      INTEGER no_of_des_rxns

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


      END MODULE des_rxns