1 MODULE kintheory 2 3 4 Use param 5 Use param1 6 7 8 ! coefficient terms needed for stress (in addition to 9 ! mu_s and lambda_s which are defined in visc_s_mod, allocated 10 ! in allocate_arrays and initialized in set_constprop; and 11 ! P_s which is defined in fldvar_mod, allocated in 12 ! allocate_arrays, and initialized in init_fvars) 13 ! stress term with gradient in particle M velocity 14 DOUBLE PRECISION, DIMENSION(:, :, :), ALLOCATABLE :: MU_sM_ip 15 ! stress term with gradient in particle L velocity 16 DOUBLE PRECISION, DIMENSION(:, :, :), ALLOCATABLE :: MU_sL_ip 17 ! stress term with trace in particle M velocity 18 DOUBLE PRECISION, DIMENSION(:, :, :), ALLOCATABLE :: XI_sM_ip 19 ! stress term with trace in particle L velocity 20 DOUBLE PRECISION, DIMENSION(:, :, :), ALLOCATABLE :: XI_sL_ip 21 22 23 24 ! coefficient terms needed for momentum source (in addition to 25 ! F_SS which is defined in drag_mod, allocated in allocate_arrays 26 ! and initialized in set_constprop) 27 ! momentum source term with gradient in number density 28 DOUBLE PRECISION, DIMENSION(:, :, :), ALLOCATABLE :: Fnu_s_ip 29 ! momentum source term with gradient in mixture temperature or 30 ! with the gradient in temperature of species M 31 DOUBLE PRECISION, DIMENSION(:, :, :), ALLOCATABLE :: FT_sM_ip 32 ! momentum source term with gradient in temperature of species L 33 DOUBLE PRECISION, DIMENSION(:, :, :), ALLOCATABLE :: FT_sL_ip 34 35 36 37 ! coefficient terms needed for heat flux (in addition to 38 ! kth_s which is defined in set_constprop, allocated 39 ! allocate_arrays and initialized in init_fvars) 40 ! heat flux term with gradient in granular temperature of species L 41 DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: Kth_sL_ip 42 ! heat flux term with gradient in number density of species M 43 DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: Knu_sM_ip 44 ! heat flux term with gradient in number density of species L 45 DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: Knu_sL_ip 46 ! heat flux term with velocity difference 47 DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: Kvel_s_ip 48 49 50 51 ! coefficient terms needed for energy dissipation 52 ! energy dissipation with difference in species granular 53 ! temperature: transfer between solid solid phases 54 DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: ED_ss_ip 55 ! energy dissipation term 56 DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: EDT_s_ip 57 ! energy dissipation with divergence of velocity of species M 58 DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: EDvel_sM_ip 59 ! energy dissipation with divergence of velocity of species L 60 DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: EDvel_sL_ip 61 ! coefficient A2, xsi used in multiple places in GTSH theory 62 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: A2_gtsh 63 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: xsi_gtsh 64 65 ! Solids source terms needed for Iddir & Arastoopour (2005) 66 ! kinetic theory model 67 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: KTMOM_U_s 68 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: KTMOM_V_s 69 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: KTMOM_W_s 70 71 END MODULE kintheory 72