scalars_mod.f

Go to the documentation of this file.

      MODULE scalars

      use param, only: dim_scalar

! Number of scalar equations solved
      INTEGER :: nscalar

! Index of phase associated with scalar n
      INTEGER, DIMENSION(1:DIM_Scalar) :: phase4scalar

! Source term for User-defined Scalars is linearized as
! S = Scalar_c - Scalar_p * Scalar
      DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  scalar_c
      DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  scalar_p

! Diffusion coefficient for User-defined Scalars
      DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  dif_scalar

! New scalars for population balance equation
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE ::  source_a
      DOUBLE PRECISION, DIMENSION(:),   ALLOCATABLE ::  s_bar
      DOUBLE PRECISION, DIMENSION(:),   ALLOCATABLE ::  omega
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: matrix_a
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: matrix_b
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: matrix_c
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: inv_a
      DOUBLE PRECISION, DIMENSION(:),   ALLOCATABLE :: ystart
      DOUBLE PRECISION, DIMENSION(:),   ALLOCATABLE :: a
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: beta_a
      INTEGER :: ijk_index


      END MODULE scalars