modg_2d_project_source_P Subroutine

  1. atl_modg_2d_kernel_module.f90
  2. atl_modg_2d_kernel_module
  3. modg_2d_project_source_P

private subroutine modg_2d_project_source_P(nScalars, sourcedata, maxPolyDegree, mesh, kerneldata, currentLevel)

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

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: nScalars

The number scalar variables in the equation system.
type(atl_source_type), intent(in) :: sourcedata

The modal representation of the source
integer, intent(in) :: maxPolyDegree

The maximal polynomial degree of the modg scheme
type(atl_cube_elem_type), intent(in) :: mesh

The cubical elements.
type(atl_kerneldata_type), intent(inout) :: kerneldata

The data of the kernel. This one is updated by the projection.
integer, intent(in) :: currentLevel

The current level

Calls

proc~~modg_2d_project_source_p~~CallsGraph proc~modg_2d_project_source_p modg_2d_project_source_P proc~ply_scalproddualleg ply_scalProdDualLeg proc~modg_2d_project_source_p->proc~ply_scalproddualleg

Called by

proc~~modg_2d_project_source_p~~CalledByGraph proc~modg_2d_project_source_p modg_2d_project_source_P proc~atl_modg_2d_project_source atl_modg_2d_project_source proc~atl_modg_2d_project_source->proc~modg_2d_project_source_p proc~compute_rhs_cubes_modg_2d compute_rhs_cubes_modg_2d proc~compute_rhs_cubes_modg_2d->proc~atl_modg_2d_project_source 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 :: elemPos
integer, private :: xTestFunc
integer, private :: yTestFunc
integer, private :: testPos
integer, private :: xAnsFuncMin
integer, private :: xAnsFunc
integer, private :: yAnsFuncMin
integer, private :: yAnsFunc
integer, private :: ansPos
integer, private :: varPos
integer, private :: iSource
integer, private :: nSourceElems
integer, private :: testPosMax
real(kind=rk), private :: jacobiDet
real(kind=rk), private :: xScalProd
real(kind=rk), private :: yScalProd