qmom_kinetic_equation_mod.f

Go to the documentation of this file.

!                                                                       C
!   Module name: QMOMKIN                                                C
!   Purpose: QMOMK mod file                                           C
!                                                                       C
!                                                                       C
!   Author: Alberto Passalacqua                        Date:            C
!   Reviewer:                                          Date:            C
!   Comments:                                                           C
!                                                                       C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C

MODULE qmom_kinetic_equation

  USE qmomk_parameters

  !     QMOMK variables

  !     Old values of quadrature weights (NN, Nx, Ny, Nz, phase)
  DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: qmomk_n0
  !     Old values of moments
  DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: qmomk_m0
  !     Old values of abscissas
  DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: qmomk_u0
  DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: qmomk_v0
  DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: qmomk_w0
  !     Current values of weights
  DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: qmomk_n1
  !     Current values of moments
  DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: qmomk_m1
  !     Current values of abscissas
  DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: qmomk_u1
  DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: qmomk_v1
  DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: qmomk_w1

  !    Mean velocities
  DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: qmomk_u_s
  DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: qmomk_v_s
  DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: qmomk_w_s
  !    Drag term
  DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: qmomk_tau_drag
  DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: qmomk_f_gs

  !    Collision time
  DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: qmomk_collision_time

  !     QMOMB logicals

  LOGICAL qmomk
  LOGICAL qmomk_coupled
  LOGICAL print_qmomk_data


  CHARACTER(64) qmomk_type
  !     Strings

  !     Collision operator
  !     Accepted values: BGK, Boltzmann
  CHARACTER(64) qmomk_collisions

  !     Wall BC type
  !     Accepted values: SPECULAR_REFLECTIVE
  CHARACTER(64) qmomk_wall_bc_type
  !     Integers

  INTEGER qmomk_collisions_order

  !     QMOMB time step
  DOUBLE PRECISION :: qmomk_dt

  !     QMOMB CFL number
  DOUBLE PRECISION :: qmomk_cfl

END MODULE qmom_kinetic_equation