File: /nfs/home/0/users/jenkins/mfix.git/model/scalars_mod.f

1     
2           MODULE scalars
3     
4           use param, only: dim_scalar
5     
6     ! Number of scalar equations solved
7           INTEGER :: NScalar
8     
9     ! Index of phase associated with scalar n
10           INTEGER, DIMENSION(1:DIM_Scalar) :: Phase4Scalar
11     
12     ! Source term for User-defined Scalars is linearized as
13     ! S = Scalar_c - Scalar_p * Scalar
14           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  Scalar_c
15           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  Scalar_p
16     
17     ! Diffusion coefficient for User-defined Scalars
18           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  Dif_Scalar
19     
20     ! New scalars for population balance equation
21           DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE ::  Source_a
22           DOUBLE PRECISION, DIMENSION(:),   ALLOCATABLE ::  S_bar
23           DOUBLE PRECISION, DIMENSION(:),   ALLOCATABLE ::  omega
24           DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: Matrix_a
25           DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: Matrix_b
26           DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: Matrix_c
27           DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: Inv_a
28           DOUBLE PRECISION, DIMENSION(:),   ALLOCATABLE :: ystart
29           DOUBLE PRECISION, DIMENSION(:),   ALLOCATABLE :: A
30           DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: beta_a
31           INTEGER :: IJK_INDEX
32     
33     
34           END MODULE scalars
35