qmomk_parameters_mod.f

Go to the documentation of this file.

MODULE qmomk_parameters

  IMPLICIT NONE


  !     QMOMK array dimensions

  !     Number of moments
  INTEGER, PARAMETER :: qmomk_nmom = 20
  !     Number of nodes and abscissas
  INTEGER, PARAMETER :: qmomk_nn = 8
  !     Dimension of the covariance matrix
  INTEGER, PARAMETER :: qmomk_ncov = 3

  !     Eps values
  DOUBLE PRECISION, PARAMETER  :: eps = 1.d-6
  DOUBLE PRECISION, PARAMETER  :: eps2 = 1.d-4
  DOUBLE PRECISION, PARAMETER  :: epsu = 1.d0
  DOUBLE PRECISION, PARAMETER  :: epsv = 1.d0
  DOUBLE PRECISION, PARAMETER  :: epsw = 1.d0
  DOUBLE PRECISION, PARAMETER  :: epsn = 1.d-15

  !     Quadrature initialization
  DOUBLE PRECISION, PARAMETER  :: nleft = 1.d-4
  DOUBLE PRECISION, PARAMETER  :: nright = 1.d-4
  DOUBLE PRECISION, PARAMETER  :: uleft = 1.d-4
  DOUBLE PRECISION, PARAMETER  :: uright = 1.d-4
  DOUBLE PRECISION, PARAMETER  :: vleft = 1.d-4
  DOUBLE PRECISION, PARAMETER  :: vright = 1.d-4
  DOUBLE PRECISION, PARAMETER  :: wleft = 1.d-4
  DOUBLE PRECISION, PARAMETER  :: wright = 1.d-4

  !     Granular temperature lower limit
  DOUBLE PRECISION, PARAMETER  :: minimum_theta = 1.0d-6
  DOUBLE PRECISION, PARAMETER  :: maximum_sigma = 1.0d-6

END MODULE qmomk_parameters