atl_modg_project_source_P Subroutine

  1. atl_modg_kernel_module.f90
  2. atl_modg_kernel_module
  3. atl_modg_project_source_P

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

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

Arguments

TypeIntentOptionalAttributesName
type(atl_source_type), intent(in) :: sourcedata

The modal representation of the source
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.
integer, intent(in) :: currentLevel

The current level

Calls

proc~~atl_modg_project_source_p~~CallsGraph proc~atl_modg_project_source_p atl_modg_project_source_P proc~ply_scalproddualleg ply_scalProdDualLeg proc~atl_modg_project_source_p->proc~ply_scalproddualleg

Called by

proc~~atl_modg_project_source_p~~CalledByGraph proc~atl_modg_project_source_p atl_modg_project_source_P proc~atl_modg_project_source atl_modg_project_source proc~atl_modg_project_source->proc~atl_modg_project_source_p proc~compute_rhs_cubes_modg compute_rhs_cubes_modg proc~compute_rhs_cubes_modg->proc~atl_modg_project_source 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(kind=long_k), private :: elemPos
integer, private :: iElem
integer, private :: xTestFunc
integer, private :: yTestFunc
integer, private :: zTestFunc
integer, private :: testPos
integer, private :: xAnsFuncMin
integer, private :: xAnsFunc
integer, private :: yAnsFuncMin
integer, private :: yAnsFunc
integer, private :: zAnsFuncMin
integer, private :: zAnsFunc
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
real(kind=rk), private :: zScalProd