atl_modg_LoclinEuler_physFlux Subroutine

public subroutine atl_modg_LoclinEuler_physFlux(equation, res, state, iElem, iDir, penalizationData, poly_proj, material, nodal_data, nodal_GradData, nodal_res, ElemLength, scheme_min, scheme_current)

Calculate the physical flux for the MODG scheme and Linearized euler equation.

Arguments

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

The equation system we are working with

real(kind=rk), intent(inout) :: res(:,:)

The result in the modal form

real(kind=rk), intent(in), optional :: state(:,:)

The state in the modal form

integer, intent(in) :: iElem

The current element index

integer, intent(in) :: iDir

The current direction

type(atl_penalizationData_type), intent(inout) :: penalizationData

The Penalization data

type(ply_poly_project_type), intent(inout) :: poly_proj

The projection datatype for the projection information

type(atl_material_type), intent(inout) :: material

The material information

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

The state data in the nodal form

real(kind=rk), intent(in), optional :: nodal_GradData(:,:,:)
real(kind=rk), intent(inout) :: nodal_res(:,:)

The result in the nodal form

real(kind=rk), intent(in) :: ElemLength

The length of the current element

type(atl_scheme_type), intent(inout) :: scheme_min

The scheme information of the min level (This is needed for the temp

type(atl_scheme_type), intent(inout) :: scheme_current

Information about the current level


Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iDof
integer, private :: nDofs
integer, private :: rot(5)
real(kind=rk), private :: state_0(5)
real(kind=rk), private :: vsq
real(kind=rk), private :: R_inv
real(kind=rk), private :: R_inv_sq
real(kind=rk), private :: isen
real(kind=rk), private :: isencoef
real(kind=rk), private :: A_21
real(kind=rk), private :: A_22
real(kind=rk), private :: A_23
real(kind=rk), private :: A_24
real(kind=rk), private :: A_25
real(kind=rk), private :: A_31
real(kind=rk), private :: A_32
real(kind=rk), private :: A_33
real(kind=rk), private :: A_41
real(kind=rk), private :: A_42
real(kind=rk), private :: A_44
real(kind=rk), private :: A_51
real(kind=rk), private :: A_52
real(kind=rk), private :: A_53
real(kind=rk), private :: A_54
real(kind=rk), private :: A_55