eval_source_gravitation Subroutine

private subroutine eval_source_gravitation(fun, varSys, time, mesh, poly_proj, currentLevel, state, material, sourcedata)

Todo

PV: Create a unit test for this routine and compare it to the version before the new varSys

Arguments

Type IntentOptional Attributes Name
class(atl_source_op_type), intent(in) :: fun

Description of method to update source
type(tem_varSys_type), intent(in) :: varSys

variable system
type(tem_time_type), intent(in) :: time

Point in time at which to evaluate the variable.
type(atl_cube_elem_type), intent(in) :: mesh

Current level mesh information
type(ply_poly_project_type), intent(inout) :: poly_proj

Parameters for projection
integer, intent(in) :: currentLevel

current level
real(kind=rk), intent(in) :: state(:,:,:)

The state in modal space. This is needed for several source terms that have to be applied to the current state
real(kind=rk), intent(in) :: material(:)

Material description for the complete domain. Used for evaluation of some source terms.
real(kind=rk), intent(inout) :: sourcedata(:,:,:)

The source data to update. When all source terms are added to this buffer, it is applied to the state.

Calls

proc~~eval_source_gravitation~~CallsGraph proc~eval_source_gravitation eval_source_gravitation proc~atl_equation_evaluate_source_nodal atl_equation_evaluate_source_nodal proc~eval_source_gravitation->proc~atl_equation_evaluate_source_nodal get_valofindex get_valofindex proc~atl_equation_evaluate_source_nodal->get_valofindex interface~ply_poly_project_m2n ply_poly_project_m2n proc~atl_equation_evaluate_source_nodal->interface~ply_poly_project_m2n interface~ply_poly_project_n2m ply_poly_project_n2m proc~atl_equation_evaluate_source_nodal->interface~ply_poly_project_n2m proc~ply_convert2oversample ply_convert2oversample proc~atl_equation_evaluate_source_nodal->proc~ply_convert2oversample proc~ply_convertfromoversample ply_convertFromOversample proc~atl_equation_evaluate_source_nodal->proc~ply_convertfromoversample val val proc~atl_equation_evaluate_source_nodal->val proc~ply_poly_project_m2n_multivar ply_poly_project_m2n_multiVar interface~ply_poly_project_m2n->proc~ply_poly_project_m2n_multivar proc~ply_poly_project_n2m_multivar ply_poly_project_n2m_multiVar interface~ply_poly_project_n2m->proc~ply_poly_project_n2m_multivar proc~ply_convert2oversample_1d ply_convert2oversample_1d proc~ply_convert2oversample->proc~ply_convert2oversample_1d proc~ply_convert2oversample_2d ply_convert2oversample_2d proc~ply_convert2oversample->proc~ply_convert2oversample_2d proc~ply_convert2oversample_3d ply_convert2oversample_3d proc~ply_convert2oversample->proc~ply_convert2oversample_3d proc~ply_convertfromoversample_1d ply_convertFromOversample_1d proc~ply_convertfromoversample->proc~ply_convertfromoversample_1d proc~ply_convertfromoversample_2d ply_convertFromOversample_2d proc~ply_convertfromoversample->proc~ply_convertfromoversample_2d proc~ply_convertfromoversample_3d ply_convertFromOversample_3d proc~ply_convertfromoversample->proc~ply_convertfromoversample_3d interface~ply_legtopnt_2d ply_legToPnt_2D proc~ply_poly_project_m2n_multivar->interface~ply_legtopnt_2d interface~ply_legtopnt_3d ply_LegTopnt_3D proc~ply_poly_project_m2n_multivar->interface~ply_legtopnt_3d proc~ply_fxt_m2n_1d ply_fxt_m2n_1D proc~ply_poly_project_m2n_multivar->proc~ply_fxt_m2n_1d proc~ply_fxt_m2n_2d ply_fxt_m2n_2D proc~ply_poly_project_m2n_multivar->proc~ply_fxt_m2n_2d proc~ply_fxt_m2n_3d ply_fxt_m2n_3D proc~ply_poly_project_m2n_multivar->proc~ply_fxt_m2n_3d proc~ply_l2p_trafo_1d ply_l2p_trafo_1D proc~ply_poly_project_m2n_multivar->proc~ply_l2p_trafo_1d proc~ply_l2p_trafo_2d ply_l2p_trafo_2D proc~ply_poly_project_m2n_multivar->proc~ply_l2p_trafo_2d proc~ply_l2p_trafo_3d ply_l2p_trafo_3D proc~ply_poly_project_m2n_multivar->proc~ply_l2p_trafo_3d interface~ply_pnttoleg_2d ply_pntToLeg_2D proc~ply_poly_project_n2m_multivar->interface~ply_pnttoleg_2d interface~ply_pnttoleg_3d ply_pntToLeg_3D proc~ply_poly_project_n2m_multivar->interface~ply_pnttoleg_3d proc~ply_fxt_n2m_1d ply_fxt_n2m_1D proc~ply_poly_project_n2m_multivar->proc~ply_fxt_n2m_1d proc~ply_fxt_n2m_2d ply_fxt_n2m_2D proc~ply_poly_project_n2m_multivar->proc~ply_fxt_n2m_2d proc~ply_fxt_n2m_3d ply_fxt_n2m_3D proc~ply_poly_project_n2m_multivar->proc~ply_fxt_n2m_3d proc~ply_poly_project_n2m_multivar->proc~ply_l2p_trafo_1d proc~ply_poly_project_n2m_multivar->proc~ply_l2p_trafo_2d proc~ply_poly_project_n2m_multivar->proc~ply_l2p_trafo_3d