1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: drag C 4 ! Purpose: Common block containing drag arrays C 5 ! C 6 ! Author: M. Syamlal Date: 20-MAY-92 C 7 ! C 8 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 9 MODULE drag 10 11 ! Gas-solids drag 12 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: F_gs 13 14 ! Gas-solids drag coefficient/ep_s 15 ! Needed in computation of some conditional limits of various KT 16 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: dgA_s 17 18 ! Solids-solids drag 19 DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: F_ss 20 21 ! Off diagonal friction coefficient in HYS drag relation 22 DOUBLE PRECISION, DIMENSION(:, :, :), ALLOCATABLE :: beta_ij 23 24 ! Temporary storage: Volume x average at momentum cell centers 25 ! DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE :: VxF_gs 26 27 28 END MODULE drag 29