File: RELATIVE:/../../../mfix.git/model/mflux_mod.f

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
2     !                                                                      C
3     !  Module name: mflux                                                  C
4     !  Purpose: Module for mass fluxes and densities at faces              C
5     !                                                                      C
6     !  Author: M. Syamlal                                 Date: dd-mmm-yy  C
7     !                                                                      C
8     !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
9     
10           MODULE mflux
11     
12     ! x-component of gas mass flux
13           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Flux_gE
14     ! y-component of gas mass flux
15           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Flux_gN
16     ! z-component of gas mass flux
17           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Flux_gT
18     
19     ! y-component of solids mass flux
20           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  Flux_sN
21     ! x-component of solids mass flux
22           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  Flux_sE
23     ! z-component of solids mass flux
24           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  Flux_sT
25     
26     ! Added mass Flux Components to be used for scalar eq.
27     ! Note: added mass apply only to one solids phase (M=M_AM)
28           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: Flux_gSE
29           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: Flux_sSE
30           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: Flux_gSN
31           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: Flux_sSN
32           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: Flux_gST
33           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: Flux_sST
34     
35     ! macroscopic gas density at east face
36           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  ROP_gE
37     ! macroscopic gas density at north face
38           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  ROP_gN
39     ! macroscopic gas density at top face
40           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  ROP_gT
41     ! macroscopic solids density at north face
42           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  ROP_sN
43     ! macroscopic solids density at east face
44           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  ROP_sE
45     ! macroscopic solids density at top face
46           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  ROP_sT
47     
48     
49     ! for GHD Theory
50     ! x-component of solids total number density flux
51           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Flux_nE
52     ! y-component of solids total number density flux
53           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Flux_nN
54     ! z-component of solids total number density flux
55           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Flux_nT
56     ! end GHD Theory modification
57     
58     
59           END MODULE mflux
60