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

TypeIntentOptionalAttributesName
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


Calls

proc~~atl_acoustic_2d_numflux_cube_vec~~CallsGraph proc~atl_acoustic_2d_numflux_cube_vec atl_acoustic_2d_numflux_cube_vec proc~atl_acoustic_2d_numflux_onedir atl_acoustic_2d_numFlux_oneDir proc~atl_acoustic_2d_numflux_cube_vec->proc~atl_acoustic_2d_numflux_onedir

Called by

proc~~atl_acoustic_2d_numflux_cube_vec~~CalledByGraph proc~atl_acoustic_2d_numflux_cube_vec atl_acoustic_2d_numflux_cube_vec interface~atl_acoustic_2d_numflux atl_acoustic_2d_numflux interface~atl_acoustic_2d_numflux->proc~atl_acoustic_2d_numflux_cube_vec proc~atl_modg_2d_acoustic_numflux atl_modg_2d_acoustic_numFlux proc~atl_modg_2d_acoustic_numflux->interface~atl_acoustic_2d_numflux proc~compute_rhs_cubes_modg_2d compute_rhs_cubes_modg_2d proc~compute_rhs_cubes_modg_2d->proc~atl_modg_2d_acoustic_numflux proc~compute_rhs_cubes compute_rhs_cubes proc~compute_rhs_cubes->proc~compute_rhs_cubes_modg_2d

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iSide
integer, private :: left
integer, private :: right
integer, private :: iDof
real(kind=rk), private :: leftstate(3)
real(kind=rk), private :: rightstate(3)