File: N:\mfix\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     ! 'Solids' first coefficient of (shear) viscosity(i,j,k) multiplied
8     ! by the volume fraction of that phase if ishii otherwise by 1
9           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  EPMU_s
10     
11     ! Granular first coefficient of (shear) viscosity(i,j,k)
12     ! Viscous contribution
13           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  MU_s_v
14     
15     ! Granular first coefficient of (shear) viscosity(i,j,k)
16     ! Plastic contribution
17           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  MU_s_p
18     
19     ! Granular first coefficient of (shear) viscosity(i,j,k)
20     ! Frictional contribution
21           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  MU_s_f
22     
23     ! Bulk viscosity
24           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: Mu_b_v
25     
26     ! Granular first coefficient of (shear) viscosity(i,j,k)
27     ! Collisional contribution of viscous component
28           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  MU_s_c
29     
30     ! Granular second coefficient of viscosity(i,j,k)
31           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  LAMBDA_s
32     
33     ! 'Solids' second coefficient of viscosity(i,j,k) multiplied by
34     ! the volume fraction of that phase if ishii otherwise by 1
35           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  EPLAMBDA_s
36     
37     ! Granular second coefficient of (shear) viscosity(i,j,k)
38     ! Viscous contribution
39           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Lambda_s_v
40     
41     ! Granular second coefficient of (shear) viscosity(i,j,k)
42     ! Plastic contribution
43           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Lambda_s_p
44     
45     ! Granular second coefficient of (shear) viscosity(i,j,k)
46     ! Frictional contribution
47           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Lambda_s_f
48     
49     ! Granular second coefficient of viscosity
50     ! Collisional contribution of viscous component
51           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  LAMBDA_s_c
52     
53     ! Packed bed (close packed) void fraction
54           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: EP_star_array
55     
56     ! Start of Blending
57           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: EP_g_blend_start
58     
59     ! End of Blending
60           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: EP_g_blend_end
61     
62     ! trace of D_s (rate of strain tensor) at i, j, k
63           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  trD_s
64     
65     ! Second invariant of the deviator of D_s
66           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: I2_devD_s
67     
68     ! Boyle-Massoudi stress tensor coefficient (i,j,k)
69           DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  ALPHA_s
70     
71     ! For Boyle-Massoudi stress tensor
72     ! Trace of M_s
73           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: trM_s
74     
75     ! Trace of (D_s)(M_s)
76           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: trDM_s
77     
78     
79                 END MODULE visc_s
80