File: N:\mfix\model\qmomk\qmomk_parameters_mod.f

1     MODULE qmomk_parameters
2     
3       IMPLICIT NONE
4     
5     
6       !     QMOMK array dimensions
7     
8       !     Number of moments
9       INTEGER, PARAMETER :: QMOMK_NMOM = 20
10       !     Number of nodes and abscissas
11       INTEGER, PARAMETER :: QMOMK_NN = 8
12       !     Dimension of the covariance matrix
13       INTEGER, PARAMETER :: QMOMK_NCOV = 3
14     
15       !     Eps values
16       DOUBLE PRECISION, PARAMETER  :: eps = 1.D-6
17       DOUBLE PRECISION, PARAMETER  :: eps2 = 1.D-4
18       DOUBLE PRECISION, PARAMETER  :: epsu = 1.D0
19       DOUBLE PRECISION, PARAMETER  :: epsv = 1.D0
20       DOUBLE PRECISION, PARAMETER  :: epsw = 1.D0
21       DOUBLE PRECISION, PARAMETER  :: epsn = 1.D-15
22     
23       !     Quadrature initialization
24       DOUBLE PRECISION, PARAMETER  :: nleft = 1.D-4
25       DOUBLE PRECISION, PARAMETER  :: nright = 1.D-4
26       DOUBLE PRECISION, PARAMETER  :: uleft = 1.D-4
27       DOUBLE PRECISION, PARAMETER  :: uright = 1.D-4
28       DOUBLE PRECISION, PARAMETER  :: vleft = 1.D-4
29       DOUBLE PRECISION, PARAMETER  :: vright = 1.D-4
30       DOUBLE PRECISION, PARAMETER  :: wleft = 1.D-4
31       DOUBLE PRECISION, PARAMETER  :: wright = 1.D-4
32     
33       !     Granular temperature lower limit
34       DOUBLE PRECISION, PARAMETER  :: MINIMUM_THETA = 1.0D-6
35       DOUBLE PRECISION, PARAMETER  :: MAXIMUM_SIGMA = 1.0D-6
36     
37     END MODULE qmomk_parameters
38