1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv! 2 ! ! 3 ! Module name: DES_SPECIES ! 4 ! ! 5 ! Purpose: Common elements for MFIX-DEM species transfer. ! 6 ! condition. ! 7 ! ! 8 ! Author: J.Musser Date: 16-Jun-10 ! 9 ! ! 10 ! Comments: ! 11 ! ! 12 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^! 13 MODULE DES_RXNS 14 15 ! USE param 16 USE rxn_com, only: reaction_block 17 18 ! Data Storage: 19 !---------------------------------------------------------------------// 20 ! discrete solids species mass fractions (PARTICLES, 0:MAX_DES_NMAX)) 21 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: DES_X_s 22 23 ! Rate of production/consumption of solids species 24 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: DES_R_s 25 26 ! Numerical integration: 27 !---------------------------------------------------------------------// 28 ! Previous time step's rate of change. Used for Adams-Bashforth 29 ! time integration scheme. 30 ! 1) particle mass 31 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: dMdt_OLD 32 ! 2) particle species mass 33 DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: dXdt_OLD 34 35 ! Interphase transfer variables. 36 !---------------------------------------------------------------------// 37 ! Amount produced of gas phase species 38 DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: DES_R_gp 39 ! Amount consumed of gas phase species 40 DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: DES_R_gc 41 ! Net production (+) or consumption (-) of gas phase species 42 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: DES_SUM_R_g 43 ! Amount of interphase mass transfer. 44 DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: DES_R_PHASE 45 ! Amount of gas phase enthalpy change due to phase change/chemical reaction 46 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: DES_HOR_g 47 48 ! Phase change/reactive chemistry: 49 !---------------------------------------------------------------------// 50 ! Actual number of Reactions 51 INTEGER NO_OF_DES_RXNS 52 53 ! Array linking all of the reaction data. 54 TYPE(REACTION_BLOCK), DIMENSION(:), TARGET, ALLOCATABLE :: DES_Reaction 55 56 57 END MODULE DES_RXNS 58