File: N:\mfix\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       USE qmomk_parameters
15     
16       !     QMOMK variables
17     
18       !     Old values of quadrature weights (NN, Nx, Ny, Nz, phase)
19       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_N0
20       !     Old values of moments
21       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_M0
22       !     Old values of abscissas
23       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_U0
24       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_V0
25       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_W0
26       !     Current values of weights
27       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_N1
28       !     Current values of moments
29       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_M1
30       !     Current values of abscissas
31       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_U1
32       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_V1
33       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_W1
34     
35       !    Mean velocities
36       DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: QMOMK_U_S
37       DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: QMOMK_V_S
38       DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: QMOMK_W_S
39       !    Drag term
40       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_TAU_DRAG
41       DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: QMOMK_F_GS
42     
43       !    Collision time
44       DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: QMOMK_COLLISION_TIME
45     
46       !     QMOMB logicals
47     
48       LOGICAL QMOMK
49       LOGICAL QMOMK_COUPLED
50       LOGICAL PRINT_QMOMK_DATA
51     
52     
53       CHARACTER(64) QMOMK_TYPE
54       !     Strings
55     
56       !     Collision operator
57       !     Accepted values: BGK, Boltzmann
58       CHARACTER(64) QMOMK_COLLISIONS
59     
60       !     Wall BC type
61       !     Accepted values: SPECULAR_REFLECTIVE
62       CHARACTER(64) QMOMK_WALL_BC_TYPE
63       !     Integers
64     
65       INTEGER QMOMK_COLLISIONS_ORDER
66     
67       !     QMOMB time step
68       DOUBLE PRECISION :: QMOMK_DT
69     
70       !     QMOMB CFL number
71       DOUBLE PRECISION :: QMOMK_CFL
72     
73     END MODULE qmom_kinetic_equation
74