modg_1d_project_source_Q Subroutine

  1. atl_modg_1d_kernel_module.f90
  2. atl_modg_1d_kernel_module
  3. modg_1d_project_source_Q

private subroutine modg_1d_project_source_Q(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~~modg_1d_project_source_q~~CallsGraph proc~modg_1d_project_source_q modg_1d_project_source_Q proc~ply_scalproddualleg ply_scalProdDualLeg proc~modg_1d_project_source_q->proc~ply_scalproddualleg

Called by

proc~~modg_1d_project_source_q~~CalledByGraph proc~modg_1d_project_source_q modg_1d_project_source_Q proc~modg_1d_project_testfunc_q modg_1d_project_testFunc_Q proc~modg_1d_project_testfunc_q->proc~modg_1d_project_source_q proc~atl_modg_1d_project_testfunc atl_modg_1d_project_testFunc proc~atl_modg_1d_project_testfunc->proc~modg_1d_project_testfunc_q proc~compute_rhs_cubes_modg_1d compute_rhs_cubes_modg_1d proc~compute_rhs_cubes_modg_1d->proc~atl_modg_1d_project_testfunc proc~compute_rhs_cubes compute_rhs_cubes proc~compute_rhs_cubes->proc~compute_rhs_cubes_modg_1d

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer(kind=long_k), private :: elemPos
integer, private :: iElem
integer, private :: xTestFunc
integer, private :: testPos
integer, private :: xAnsFuncMin
integer, private :: xAnsFunc
integer, private :: ansPos
integer, private :: varPos
integer, private :: iSource
integer, private :: nSourceElems
real(kind=rk), private :: jacobiDet
real(kind=rk), private :: xScalProd