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 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 of solids species 24 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: DES_R_sp 25 ! rate of consumption of solids species 26 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: DES_R_sc 27 28 ! combined rate of production and consumption of solids species 29 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: DES_SUM_R_s 30 31 32 ! Numerical integration: 33 !---------------------------------------------------------------------// 34 ! Previous time step's rate of change. Used for Adams-Bashforth 35 ! time integration scheme. 36 ! 1) particle mass 37 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: dMdt_OLD 38 ! 2) particle species mass 39 DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: dXdt_OLD 40 41 ! Interphase transfer variables. 42 !---------------------------------------------------------------------// 43 ! Amount produced of gas phase species 44 DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: DES_R_gp 45 ! Amount consumed of gas phase species 46 DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: DES_R_gc 47 ! Net production (+) or consumption (-) of gas phase species 48 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: DES_SUM_R_g 49 ! Amount of interphase mass transfer. 50 DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: DES_R_PHASE 51 ! Amount of gas phase enthalpy change due to phase change/chemical reaction 52 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: DES_HOR_g 53 54 ! Phase change/reactive chemistry: 55 !---------------------------------------------------------------------// 56 ! Actual number of Reactions 57 INTEGER NO_OF_DES_RXNS 58 59 ! Array linking all of the reaction data. 60 TYPE(REACTION_BLOCK), DIMENSION(:), TARGET, ALLOCATABLE :: DES_Reaction 61 62 63 END MODULE DES_RXNS 64