atl_acoustic_2d_numflux_cube_vec Subroutine

private subroutine atl_acoustic_2d_numflux_cube_vec(nTotalFaces, nSides, nFaceDofs, faceRep, faceFlux, leftPos, rightPos, var, acoustic, idir)

VK ! call lax friedrich flux VK call atl_laxFriedAcoustic(left = leftstate, & VK & right = rightstate, & VK & acoustic = acoustic, & VK & flux = flux, & VK & iDir = idir ) VK VK faceFlux(left,iDof,var,2) = flux

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nTotalFaces
integer,	intent(in)			::	nSides
integer,	intent(in)			::	nFaceDofs
real(kind=rk),	intent(in)			::	faceRep(nTotalFaces,nFaceDofs,3,2)
real(kind=rk),	intent(inout)			::	faceFlux(nTotalFaces,nFaceDofs,3,2)
integer,	intent(in)			::	leftPos(nSides)
integer,	intent(in)			::	rightPos(nsides)
integer,	intent(in)			::	var(3)
type(atl_acoustic_type),	intent(in)			::	acoustic	Datatype for acoustic equation include all background data
integer,	intent(in)			::	idir	Direction of the flow, used for background velocity