atl_modg_euler_kernel_module

Module for routines and datatypes of MOdal Discontinuous Galerkin (MODG) scheme for the Euler equation. This scheme is a spectral scheme for linear, purley hyperbolic partial differential equation systems.

Uses

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Subroutines

public subroutine atl_modg_euler_physFlux_const(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 Euler equation.

Arguments

Type	Intent	Optional		Name
type(atl_Equations_type),	intent(in)		::	equation	The equation you solve.
real(kind=rk),	intent(inout)		::	res(:,:)	To store the resulting phy flux in modal form
real(kind=rk),	intent(in),	optional	::	state(:,:)	The state of the equation
integer,	intent(in)		::	iElem	The current Element
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	Poly project
type(atl_material_type),	intent(inout)		::	material	Material description for the faces on the current level
real(kind=rk),	intent(in),	optional	::	nodal_data(:,:)	The state in nodal form
real(kind=rk),	intent(in),	optional	::	nodal_GradData(:,:,:)
real(kind=rk),	intent(inout)		::	nodal_res(:,:)
real(kind=rk),	intent(in)		::	ElemLength	Length of the element
type(atl_scheme_type),	intent(inout)		::	scheme_min	The scheme information
type(atl_scheme_type),	intent(inout)		::	scheme_current

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

PV 20150820 Get the correct penalization data here

Arguments

Type	Intent	Optional		Name
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(inout)		::	material	Material description for the faces on the current level

public subroutine atl_modg_euler_physFlux_NonConst(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 Euler equation.

Arguments

Type	Intent	Optional		Name
type(atl_Equations_type),	intent(in)		::	equation	The equation you solve.
real(kind=rk),	intent(inout)		::	res(:,:)	To store the resulting phy flux in modal form
real(kind=rk),	intent(in),	optional	::	state(:,:)	The state of the equation
integer,	intent(in)		::	iElem	The current Element
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	Poly project
type(atl_material_type),	intent(inout)		::	material	Material description for the faces on the current level
real(kind=rk),	intent(in),	optional	::	nodal_data(:,:)	The state in nodal form
real(kind=rk),	intent(in),	optional	::	nodal_GradData(:,:,:)
real(kind=rk),	intent(inout)		::	nodal_res(:,:)
real(kind=rk),	intent(in)		::	ElemLength	Length of the element
type(atl_scheme_type),	intent(inout)		::	scheme_min	The scheme information
type(atl_scheme_type),	intent(inout)		::	scheme_current

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

PV 20150820 Get the correct penalization data here

Arguments

Type	Intent	Optional		Name
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(inout)		::	material	Material description for the faces on the current level

public subroutine atl_modg_euler_numFlux(equation, facedata, poly_proj, material)

Calculate the numerical flux for Euler equation and MODG scheme

Arguments

Type	Intent		Name
type(atl_Equations_type),	intent(in)	::	equation	The equation you solve.
type(atl_facedata_type),	intent(inout)	::	facedata	The face representation of the state.
type(ply_poly_project_type),	intent(inout)	::	poly_proj	Parameter for projection.
type(atl_material_type),	intent(inout)	::	material	Material description for the faces on the current level

public subroutine atl_modg_euler_oneDim_numFlux_const(equation, nSides, faceRep, faceFlux, leftPos, rightPos, poly_proj, varRotation, material_left, material_right)

Numerical flux calculation for Euler equation across the faces in a single spatial direction.

Arguments

Type	Intent		Name
type(atl_Equations_type),	intent(in)	::	equation	The equation you solve.
integer,	intent(in)	::	nSides	The number of faces to compute the flux for
real(kind=rk),	intent(in)	::	faceRep(:,:,:,:)	The state on the face.
real(kind=rk),	intent(inout)	::	faceFlux(:,:,:,:)	The fluxes on the face.
integer,	intent(in)	::	leftPos(:)	The positions of the faces to calculate the fluxes for (for elements left and right of the face).
integer,	intent(in)	::	rightPos(:)	The positions of the faces to calculate the fluxes for (for elements left and right of the face).
type(ply_poly_project_type),	intent(inout)	::	poly_proj	Parameter for used projection
integer,	intent(in)	::	varRotation(equation%varSys%nScalars)
real(kind=rk),	intent(in)	::	material_left(:,:,:)	The penalization material left and right of the face
real(kind=rk),	intent(in)	::	material_right(:,:,:)	The penalization material left and right of the face

public subroutine atl_modg_euler_oneDim_numFlux_nonconst(equation, nSides, faceRep, faceFlux, leftPos, rightPos, poly_proj, varRotation, material_left, material_right)

Numerical flux calculation for Euler equation across the faces in a single spatial direction.

Arguments

Type	Intent		Name
type(atl_Equations_type),	intent(in)	::	equation	The equation you solve.
integer,	intent(in)	::	nSides	The number of faces to compute the flux for
real(kind=rk),	intent(in)	::	faceRep(:,:,:,:)	The state on the face.
real(kind=rk),	intent(inout)	::	faceFlux(:,:,:,:)	The fluxes on the face.
integer,	intent(in)	::	leftPos(:)	The positions of the faces to calculate the fluxes for (for elements left and right of the face).
integer,	intent(in)	::	rightPos(:)	The positions of the faces to calculate the fluxes for (for elements left and right of the face).
type(ply_poly_project_type),	intent(inout)	::	poly_proj	Parameter for used projection
integer,	intent(in)	::	varRotation(equation%varSys%nScalars)
real(kind=rk),	intent(in)	::	material_left(:,:,:)	The penalization material left and right of the face
real(kind=rk),	intent(in)	::	material_right(:,:,:)	The penalization material left and right of the face

atl_modg_euler_kernel_module Module

Contents

Subroutines

Uses

Used by

Subroutines

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

Arguments

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

Arguments

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

Arguments

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

Arguments

public subroutine atl_modg_euler_numFlux(equation, facedata, poly_proj, material)

Arguments

public subroutine atl_modg_euler_oneDim_numFlux_const(equation, nSides, faceRep, faceFlux, leftPos, rightPos, poly_proj, varRotation, material_left, material_right)

Arguments

public subroutine atl_modg_euler_oneDim_numFlux_nonconst(equation, nSides, faceRep, faceFlux, leftPos, rightPos, poly_proj, varRotation, material_left, material_right)

Arguments