atl_modg_1d_euler_physFlux_nonConst Subroutine

  1. atl_modg_1d_euler_kernel_module.f90
  2. atl_modg_1d_euler_kernel_module
  3. atl_modg_1d_euler_physFlux_nonConst

public subroutine atl_modg_1d_euler_physFlux_nonConst(equation, poly_proj, res, pointVal, penalty_char, U_o)

Calculate the physical flux for the MODG scheme and Euler equation with variable characteristic (mask function) in the element.

Arguments

TypeIntentOptionalAttributesName
type(atl_Equations_type) :: equation

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

Parameters for projection
real(kind=rk), intent(inout) :: res(:,:)

The physical flux result to be stored in
real(kind=rk), intent(in) :: pointVal(:,:)

Nodal representation of the polynomial with in each cell.
real(kind=rk), intent(in) :: penalty_char(:)

Characteristic (mask) function of the material penalization.

This should be 0 everywhere where there is no material, and 1 where there is material. obstacle velocity
real(kind=rk), intent(in) :: U_o(:)

Calls

proc~~atl_modg_1d_euler_physflux_nonconst~~CallsGraph proc~atl_modg_1d_euler_physflux_nonconst atl_modg_1d_euler_physFlux_nonConst proc~atl_physfluxeuler_1d atl_physFluxEuler_1d proc~atl_modg_1d_euler_physflux_nonconst->proc~atl_physfluxeuler_1d

Called by

proc~~atl_modg_1d_euler_physflux_nonconst~~CalledByGraph proc~atl_modg_1d_euler_physflux_nonconst atl_modg_1d_euler_physFlux_nonConst proc~modg_1d_compute_project_physflux modg_1d_compute_project_physFlux proc~modg_1d_compute_project_physflux->proc~atl_modg_1d_euler_physflux_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 :: nQuadpoints
real(kind=rk), private :: porosity_fact
real(kind=rk), private :: penalty_scaling