atl_HLLEuler2D

public subroutine atl_HLLEuler2D(euler, state_left, state_right, material_left, material_right, nPoints, flux)

Calculate the 2D HLL flux given the left an right state.

Properly treat porosity and penalty terms. Currently they are completely ignored!

Type	Intent		Name
class(atl_euler_type),	intent(in)	::	euler
real(kind=rk),	intent(in)	::	state_left(:,:)	The state on the face from its left limit (in conservative variables).
real(kind=rk),	intent(in)	::	state_right(:,:)	The state on the face from its right limit (in conservative variables).
real(kind=rk),	intent(in)	::	material_left(:,:)	The left value of the characteristic function (stemming from penalization)
real(kind=rk),	intent(in)	::	material_right(:,:)	The right value of the characteristic function (stemming from penalization)
integer,	intent(in)	::	nPoints	Number of points to evaluate the flux at.
real(kind=rk),	intent(out)	::	flux(:,:)	Resulting flux for the left element (in conservative variables).

Type	Visibility		Name
real(kind=rk),	private	::	fcl(4)
real(kind=rk),	private	::	fcr(4)
real(kind=rk),	private	::	priml(4)
real(kind=rk),	private	::	primr(4)
real(kind=rk),	private	::	hl
real(kind=rk),	private	::	hr
real(kind=rk),	private	::	sqrt_rho_r
real(kind=rk),	private	::	sqrt_rho_l
real(kind=rk),	private	::	u_mean
real(kind=rk),	private	::	v_mean
real(kind=rk),	private	::	h_mean
real(kind=rk),	private	::	c_mean
real(kind=rk),	private	::	sr
real(kind=rk),	private	::	sl
real(kind=rk),	private	::	cr
real(kind=rk),	private	::	cl
real(kind=rk),	private	::	isen_coeff
real(kind=rk),	private	::	icm1
integer,	private	::	iPoint
integer,	private	::	mm
integer,	private	::	mr