modg_2d_project_penalization_Q Subroutine

  1. atl_modg_2d_kernel_module.f90
  2. atl_modg_2d_kernel_module
  3. modg_2d_project_penalization_Q

private subroutine modg_2d_project_penalization_Q(nScalars, mesh, maxPolyDegree, kerneldata, penalizationdata)

Projection of the penalization terms (in modal representation) to the test functions.

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: nScalars

The number scalar variables in the equation system.
type(atl_cube_elem_type), intent(in) :: mesh

The cubical elements.
integer, intent(in) :: maxPolyDegree

The maximal polynomial degree of the modg scheme
type(atl_kerneldata_type), intent(inout) :: kerneldata

The data of the kernel. This one is updated by the projection.
type(atl_penalizationData_type), intent(in) :: penalizationdata

Volumetric data for the penalization

Calls

proc~~modg_2d_project_penalization_q~~CallsGraph proc~modg_2d_project_penalization_q modg_2d_project_penalization_Q proc~ply_scalproddualleg ply_scalProdDualLeg proc~modg_2d_project_penalization_q->proc~ply_scalproddualleg

Called by

proc~~modg_2d_project_penalization_q~~CalledByGraph proc~modg_2d_project_penalization_q modg_2d_project_penalization_Q proc~atl_modg_2d_project_numflux atl_modg_2d_project_NumFlux proc~atl_modg_2d_project_numflux->proc~modg_2d_project_penalization_q proc~compute_rhs_cubes_modg_2d compute_rhs_cubes_modg_2d proc~compute_rhs_cubes_modg_2d->proc~atl_modg_2d_project_numflux proc~compute_rhs_cubes compute_rhs_cubes proc~compute_rhs_cubes->proc~compute_rhs_cubes_modg_2d interface~atl_compute_rhs atl_compute_rhs interface~atl_compute_rhs->proc~compute_rhs_cubes

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iElem
integer, private :: xTestFunc
integer, private :: yTestFunc
integer, private :: testPos
integer, private :: xAnsFuncMin
integer, private :: xAnsFunc
integer, private :: yAnsFuncMin
integer, private :: yAnsFunc
integer, private :: ansPos
real(kind=rk), private :: jacobiDet
real(kind=rk), private :: xScalProd
real(kind=rk), private :: yScalProd
integer, private :: mpd1
integer, private :: mpd1_square