modg_project_stabViscNumFluxY_Q Subroutine

  1. atl_modg_kernel_module.f90
  2. atl_modg_kernel_module
  3. modg_project_stabViscNumFluxY_Q

private subroutine modg_project_stabViscNumFluxY_Q(numFlux, faceState, equation, maxPolyDegree, length, nElems_fluid, projection, poly_proj)

Projection of the numerical flux in y direction onto the testfunctions.

Arguments

TypeIntentOptionalAttributesName
real(kind=rk), intent(inout) :: numFlux(:,:,:,:)

The numerical flux on the faces in modal representations. Dimension is (maxPolyDegree+1)^2 , nScalars
real(kind=rk), intent(inout) :: faceState(:,:,:,:)

The state on the faces in modal representations. Dimension is (maxPolyDegree+1)^2 , nScalars
type(atl_Equations_type), intent(in) :: equation

The equation system under consideration
integer, intent(in) :: maxPolyDegree

The maximal polynomial degree in each spatial direction.
real(kind=rk), intent(in) :: length

The length of the cubes.
integer, intent(in) :: nElems_fluid

The element index
real(kind=rk), intent(inout) :: projection(:,:,:)

The numerical flux projected onto the test functions.
type(ply_poly_project_type), intent(inout) :: poly_proj

Projection for the current level

Calls

proc~~modg_project_stabviscnumfluxy_q~~CallsGraph proc~modg_project_stabviscnumfluxy_q modg_project_stabViscNumFluxY_Q proc~atl_mult_nu22_navierstokes atl_mult_nu22_NavierStokes proc~modg_project_stabviscnumfluxy_q->proc~atl_mult_nu22_navierstokes proc~atl_mult_nu12_navierstokes atl_mult_nu12_NavierStokes proc~modg_project_stabviscnumfluxy_q->proc~atl_mult_nu12_navierstokes interface~ply_poly_project_n2m ply_poly_project_n2m proc~modg_project_stabviscnumfluxy_q->interface~ply_poly_project_n2m proc~ply_facevalleftbndtestgrad ply_faceValLeftBndTestGrad proc~modg_project_stabviscnumfluxy_q->proc~ply_facevalleftbndtestgrad interface~ply_poly_project_m2n ply_poly_project_m2n proc~modg_project_stabviscnumfluxy_q->interface~ply_poly_project_m2n proc~atl_mult_nu32_navierstokes atl_mult_nu32_NavierStokes proc~modg_project_stabviscnumfluxy_q->proc~atl_mult_nu32_navierstokes proc~ply_facevalrightbndtestgrad ply_faceValRightBndTestGrad proc~modg_project_stabviscnumfluxy_q->proc~ply_facevalrightbndtestgrad proc~ply_scalprodduallegdiff ply_scalProdDualLegDiff proc~modg_project_stabviscnumfluxy_q->proc~ply_scalprodduallegdiff proc~ply_facevalleftbndtest ply_faceValLeftBndTest proc~modg_project_stabviscnumfluxy_q->proc~ply_facevalleftbndtest proc~ply_facevalrightbndtest ply_faceValRightBndTest proc~modg_project_stabviscnumfluxy_q->proc~ply_facevalrightbndtest proc~ply_scalproddualleg ply_scalProdDualLeg proc~modg_project_stabviscnumfluxy_q->proc~ply_scalproddualleg proc~ply_poly_project_n2m_multivar ply_poly_project_n2m_multiVar interface~ply_poly_project_n2m->proc~ply_poly_project_n2m_multivar proc~ply_poly_project_m2n_multivar ply_poly_project_m2n_multiVar interface~ply_poly_project_m2n->proc~ply_poly_project_m2n_multivar proc~ply_fxt_m2n_3d ply_fxt_m2n_3D proc~ply_poly_project_m2n_multivar->proc~ply_fxt_m2n_3d interface~ply_legtopnt_2d ply_legToPnt_2D proc~ply_poly_project_m2n_multivar->interface~ply_legtopnt_2d proc~ply_fxt_m2n_1d ply_fxt_m2n_1D proc~ply_poly_project_m2n_multivar->proc~ply_fxt_m2n_1d proc~ply_l2p_trafo_2d ply_l2p_trafo_2D proc~ply_poly_project_m2n_multivar->proc~ply_l2p_trafo_2d proc~ply_fxt_m2n_2d ply_fxt_m2n_2D proc~ply_poly_project_m2n_multivar->proc~ply_fxt_m2n_2d proc~ply_l2p_trafo_1d ply_l2p_trafo_1D proc~ply_poly_project_m2n_multivar->proc~ply_l2p_trafo_1d proc~ply_l2p_trafo_3d ply_l2p_trafo_3D proc~ply_poly_project_m2n_multivar->proc~ply_l2p_trafo_3d interface~ply_legtopnt_3d ply_LegTopnt_3D proc~ply_poly_project_m2n_multivar->interface~ply_legtopnt_3d proc~ply_fxt_n2m_1d ply_fxt_n2m_1D proc~ply_poly_project_n2m_multivar->proc~ply_fxt_n2m_1d interface~ply_pnttoleg_2d ply_pntToLeg_2D proc~ply_poly_project_n2m_multivar->interface~ply_pnttoleg_2d proc~ply_poly_project_n2m_multivar->proc~ply_l2p_trafo_2d proc~ply_fxt_n2m_3d ply_fxt_n2m_3D proc~ply_poly_project_n2m_multivar->proc~ply_fxt_n2m_3d proc~ply_fxt_n2m_2d ply_fxt_n2m_2D proc~ply_poly_project_n2m_multivar->proc~ply_fxt_n2m_2d proc~ply_poly_project_n2m_multivar->proc~ply_l2p_trafo_1d proc~ply_poly_project_n2m_multivar->proc~ply_l2p_trafo_3d interface~ply_pnttoleg_3d ply_pntToLeg_3D proc~ply_poly_project_n2m_multivar->interface~ply_pnttoleg_3d

Called by

proc~~modg_project_stabviscnumfluxy_q~~CalledByGraph proc~modg_project_stabviscnumfluxy_q modg_project_stabViscNumFluxY_Q proc~atl_modg_project_numflux atl_modg_project_NumFlux proc~atl_modg_project_numflux->proc~modg_project_stabviscnumfluxy_q proc~test_project_stabviscnumflux test_project_stabViscNumFlux proc~test_project_stabviscnumflux->proc~modg_project_stabviscnumfluxy_q proc~atl_modg_kernel_utests atl_modg_kernel_utests proc~atl_modg_kernel_utests->proc~test_project_stabviscnumflux proc~compute_rhs_cubes_modg compute_rhs_cubes_modg proc~compute_rhs_cubes_modg->proc~atl_modg_project_numflux proc~compute_rhs_cubes compute_rhs_cubes proc~compute_rhs_cubes->proc~compute_rhs_cubes_modg interface~atl_compute_rhs atl_compute_rhs interface~atl_compute_rhs->proc~compute_rhs_cubes

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iVar
integer, private :: iElem
integer, private :: iPoint
integer, private :: testPos
integer, private :: iVP
integer, private :: iTestX
integer, private :: iTestY
integer, private :: iTestZ
integer, private :: iTestFace
integer, private :: iOversamp
integer, private :: iOrig
integer, private :: iDof
integer, private :: iDofY
integer, private :: iDofX
integer, private :: nScalars
integer, private :: nPoints
integer, private :: nPVars
integer, private :: nOversamp
real(kind=rk), private :: p_a_left(equation%varSys%nScalars)
real(kind=rk), private :: p_b_left(equation%varSys%nScalars)
real(kind=rk), private :: p_c_left(equation%varSys%nScalars)
real(kind=rk), private :: p_a_right(equation%varSys%nScalars)
real(kind=rk), private :: p_b_right(equation%varSys%nScalars)
real(kind=rk), private :: p_c_right(equation%varSys%nScalars)
real(kind=rk), private, allocatable:: flux_left(:,:)
real(kind=rk), private, allocatable:: pointVal_flux_left(:,:)
real(kind=rk), private, allocatable:: pointVal_left(:,:)
real(kind=rk), private, allocatable:: state_left(:,:)
real(kind=rk), private, allocatable:: nodal_a_left(:,:)
real(kind=rk), private, allocatable:: nodal_b_left(:,:)
real(kind=rk), private, allocatable:: nodal_c_left(:,:)
real(kind=rk), private, allocatable:: modalA_left(:,:)
real(kind=rk), private, allocatable:: modalB_left(:,:)
real(kind=rk), private, allocatable:: modalC_left(:,:)
real(kind=rk), private, allocatable:: flux_right(:,:)
real(kind=rk), private, allocatable:: pointVal_flux_right(:,:)
real(kind=rk), private, allocatable:: pointVal_right(:,:)
real(kind=rk), private, allocatable:: state_right(:,:)
real(kind=rk), private, allocatable:: nodal_a_right(:,:)
real(kind=rk), private, allocatable:: nodal_b_right(:,:)
real(kind=rk), private, allocatable:: nodal_c_right(:,:)
real(kind=rk), private, allocatable:: modalA_right(:,:)
real(kind=rk), private, allocatable:: modalB_right(:,:)
real(kind=rk), private, allocatable:: modalC_right(:,:)
real(kind=rk), private :: velocity_left(3)
real(kind=rk), private :: velocity_right(3)
real(kind=rk), private :: jacobiDet
real(kind=rk), private :: testY_val_left
real(kind=rk), private :: testY_grad_val_left
real(kind=rk), private :: testY_val_right
real(kind=rk), private :: testY_grad_val_right
real(kind=rk), private :: outerNormalLeft
real(kind=rk), private :: outerNormalRight
real(kind=rk), private :: legprod
real(kind=rk), private :: legprod_square
real(kind=rk), private :: tmp_left(equation%varSys%nScalars)
real(kind=rk), private :: tmp_right(equation%varSys%nScalars)