atl_modg_1d_euler_penalization_NonConst Subroutine

  1. atl_modg_1d_euler_kernel_module.f90
  2. atl_modg_1d_euler_kernel_module
  3. atl_modg_1d_euler_penalization_NonConst

public subroutine atl_modg_1d_euler_penalization_NonConst(equation, poly_proj, nodal_data, scheme_min, penalizationData, iElem, material)

Arguments

TypeIntentOptionalAttributesName
type(atl_Equations_type), intent(in) :: equation

The equation you solve.
type(ply_poly_project_type), intent(inout) :: poly_proj

Poly project
real(kind=rk), intent(in), optional :: nodal_data(:,:)

The state in nodal form
type(atl_scheme_type), intent(inout) :: scheme_min

The scheme information
type(atl_penalizationData_type), intent(inout) :: penalizationData

The penalization data
integer, intent(in) :: iElem

The current Element
type(atl_material_type), intent(in) :: material

Material description for the faces on the current level

Calls

proc~~atl_modg_1d_euler_penalization_nonconst~~CallsGraph proc~atl_modg_1d_euler_penalization_nonconst atl_modg_1d_euler_penalization_NonConst interface~ply_poly_project_n2m ply_poly_project_n2m proc~atl_modg_1d_euler_penalization_nonconst->interface~ply_poly_project_n2m proc~ply_convertfromoversample ply_convertFromOversample proc~atl_modg_1d_euler_penalization_nonconst->proc~ply_convertfromoversample proc~ply_poly_project_n2m_multivar ply_poly_project_n2m_multiVar interface~ply_poly_project_n2m->proc~ply_poly_project_n2m_multivar proc~ply_convertfromoversample_3d ply_convertFromOversample_3d proc~ply_convertfromoversample->proc~ply_convertfromoversample_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_fxt_n2m_1d ply_fxt_n2m_1D proc~ply_poly_project_n2m_multivar->proc~ply_fxt_n2m_1d interface~ply_pnttoleg_2d ply_pntToLeg_2D proc~ply_poly_project_n2m_multivar->interface~ply_pnttoleg_2d proc~ply_l2p_trafo_2d ply_l2p_trafo_2D proc~ply_poly_project_n2m_multivar->proc~ply_l2p_trafo_2d proc~ply_fxt_n2m_3d ply_fxt_n2m_3D proc~ply_poly_project_n2m_multivar->proc~ply_fxt_n2m_3d proc~ply_fxt_n2m_2d ply_fxt_n2m_2D proc~ply_poly_project_n2m_multivar->proc~ply_fxt_n2m_2d proc~ply_l2p_trafo_1d ply_l2p_trafo_1D proc~ply_poly_project_n2m_multivar->proc~ply_l2p_trafo_1d proc~ply_l2p_trafo_3d ply_l2p_trafo_3D proc~ply_poly_project_n2m_multivar->proc~ply_l2p_trafo_3d interface~ply_pnttoleg_3d ply_pntToLeg_3D proc~ply_poly_project_n2m_multivar->interface~ply_pnttoleg_3d fxtf_flptld_n2m fxtf_flptld_n2m proc~ply_fxt_n2m_1d->fxtf_flptld_n2m proc~ply_pnttoleg_2d_multvar ply_pntToLeg_2D_multVar interface~ply_pnttoleg_2d->proc~ply_pnttoleg_2d_multvar proc~ply_pnttoleg_2d_singvar ply_pntToLeg_2D_singVar interface~ply_pnttoleg_2d->proc~ply_pnttoleg_2d_singvar proc~ply_l2_projection ply_l2_projection proc~ply_l2p_trafo_2d->proc~ply_l2_projection proc~ply_fxt_n2m_3d->fxtf_flptld_n2m proc~ply_fxt_n2m_2d->fxtf_flptld_n2m proc~ply_l2p_trafo_1d->proc~ply_l2_projection proc~ply_l2p_trafo_3d->proc~ply_l2_projection proc~ply_pnttoleg_3d_singvar ply_pntToLeg_3D_singVar interface~ply_pnttoleg_3d->proc~ply_pnttoleg_3d_singvar proc~ply_pnttoleg_3d_multvar ply_pntToLeg_3D_multVar interface~ply_pnttoleg_3d->proc~ply_pnttoleg_3d_multvar

Called by

proc~~atl_modg_1d_euler_penalization_nonconst~~CalledByGraph proc~atl_modg_1d_euler_penalization_nonconst atl_modg_1d_euler_penalization_NonConst proc~modg_1d_compute_project_physflux modg_1d_compute_project_physFlux proc~modg_1d_compute_project_physflux->proc~atl_modg_1d_euler_penalization_nonconst proc~compute_rhs_cubes_modg_1d compute_rhs_cubes_modg_1d proc~compute_rhs_cubes_modg_1d->proc~modg_1d_compute_project_physflux proc~compute_rhs_cubes compute_rhs_cubes proc~compute_rhs_cubes->proc~compute_rhs_cubes_modg_1d interface~atl_compute_rhs atl_compute_rhs interface~atl_compute_rhs->proc~compute_rhs_cubes

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iPoint
integer, private :: glob_elem_ind
real(kind=rk), private :: temperature
real(kind=rk), private :: pressure
real(kind=rk), private :: penalization(poly_proj%body_1D%nquadpoints,3)