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

1           MODULE visc_s
2     
3     
4     ! Granular first coefficient of (shear) viscosity(i,j,k)
5           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  MU_s
6     
7     ! Granular first coefficient of (shear) viscosity(i,j,k)
8     ! Viscous contribution
9           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  MU_s_v
10     
11     ! Granular first coefficient of (shear) viscosity(i,j,k)
12     ! Plastic contribution
13           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  MU_s_p
14     
15     ! Granular first coefficient of (shear) viscosity(i,j,k)
16     ! Frictional contribution
17           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  MU_s_f
18     
19     ! Bulk viscosity
20           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: Mu_b_v
21     
22     ! Granular first coefficient of (shear) viscosity(i,j,k)
23     ! Collisional contribution of viscous component
24           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  MU_s_c
25     
26     ! Granular second coefficient of viscosity(i,j,k)
27           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  LAMBDA_s
28     
29     ! Granular second coefficient of (shear) viscosity(i,j,k)
30     ! Viscous contribution
31           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Lambda_s_v
32     
33     ! Granular second coefficient of (shear) viscosity(i,j,k)
34     ! Plastic contribution
35           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Lambda_s_p
36     
37     ! Granular second coefficient of (shear) viscosity(i,j,k)
38     ! Frictional contribution
39           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Lambda_s_f
40     
41     ! Granular second coefficient of viscosity
42     ! Collisional contribution of viscous component
43           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  LAMBDA_s_c
44     
45     ! Packed bed (close packed) void fraction
46           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: EP_star_array
47     
48     ! Start of Blending
49           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: EP_g_blend_start
50     
51     ! End of Blending
52           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: EP_g_blend_end
53     
54     ! trace of D_s (rate of strain tensor) at i, j, k
55           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  trD_s
56     
57     ! Second invariant of the deviator of D_s
58           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: I2_devD_s
59     
60     ! Boyle-Massoudi stress tensor coefficient (i,j,k)
61           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  ALPHA_s
62     
63     ! For Boyle-Massoudi stress tensor
64     ! Trace of M_s
65           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: trM_s
66     
67     ! Trace of (D_s)(M_s)
68           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: trDM_s
69     
70     ! Relative velocity array
71           DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: VREL_array
72     
73     
74                 END MODULE visc_s
75