File: RELATIVE:/../../../mfix.git/model/qmomk/qmom_kinetic_equation_mod.f

1     !                                                                       C
2     !   Module name: QMOMKIN                                                C
3     !   Purpose: QMOMK mod file                                           C
4     !                                                                       C
5     !                                                                       C
6     !   Author: Alberto Passalacqua                        Date:            C
7     !   Reviewer:                                          Date:            C
8     !   Comments:                                                           C
9     !                                                                       C
10     !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
11     
12     MODULE qmom_kinetic_equation
13     
14     
15       USE param
16       USE param1
17       USE qmomk_parameters
18     
19       !     QMOMK variables
20     
21       !     Old values of quadrature weights (NN, Nx, Ny, Nz, phase)
22       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_N0
23       !     Old values of moments
24       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_M0
25       !     Old values of abscissas
26       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_U0
27       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_V0
28       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_W0
29       !     Current values of weights
30       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_N1
31       !     Current values of moments
32       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_M1
33       !     Current values of abscissas
34       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_U1
35       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_V1
36       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_W1
37     
38       !    Mean velocities
39       DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: QMOMK_U_S
40       DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: QMOMK_V_S
41       DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: QMOMK_W_S
42       !    Drag term
43       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_TAU_DRAG
44       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_F_GS
45     
46       !    Collision time
47       DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: QMOMK_COLLISION_TIME
48     
49       !     QMOMB logicals
50     
51       LOGICAL QMOMK
52       LOGICAL QMOMK_COUPLED
53       LOGICAL PRINT_QMOMK_DATA
54     
55     
56       CHARACTER(64) QMOMK_TYPE
57       !     Strings
58     
59       !     Collision operator
60       !     Accepted values: BGK, Boltzmann
61       CHARACTER(64) QMOMK_COLLISIONS
62     
63       !     Wall BC type
64       !     Accepted values: SPECULAR_REFLECTIVE
65       CHARACTER(64) QMOMK_WALL_BC_TYPE
66       !     Integers
67     
68       INTEGER QMOMK_COLLISIONS_ORDER
69     
70       !     QMOMB time step
71       DOUBLE PRECISION :: QMOMK_DT
72     
73       !     QMOMB CFL number
74       DOUBLE PRECISION :: QMOMK_CFL
75     
76     END MODULE qmom_kinetic_equation
77