private subroutine atl_acoustic_numflux_cube_vec(nTotalFaces, nSides, nFaceDofs, faceRep, faceFlux, leftPos, rightPos, var, acoustic, idir)
VK leftstate = faceRep(left,iDof,var,2)
VK rightstate = faceRep(right,iDof,var,1)
VK
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
VK !upwind case (at the moment not needed, since U0=0)
VK faceFlux(left, iDof,var,2)= faceRep(left,iDof,var,2)
VK faceFlux(right,iDof,var,1) = faceFlux(left,iDof,var,2)
VK
Arguments
Type Intent Optional Attributes Name
intent(in)
::
nTotalFaces
intent(in)
::
nSides
intent(in)
::
nFaceDofs
intent(in)
::
faceRep (nTotalFaces,nFaceDofs,4,2)
intent(inout)
::
faceFlux (nTotalFaces,nFaceDofs,4,2)
intent(in)
::
leftPos (nSides)
intent(in)
::
rightPos (nsides)
intent(in)
::
var (4)
atl_acoustic_type ),intent(in)
::
acoustic Datatype for acoustic equation include all background data
intent(in)
::
idir Direction of the flow, used for background velocity
Calls
proc~~atl_acoustic_numflux_cube_vec~~CallsGraph
proc~atl_acoustic_numflux_cube_vec
atl_acoustic_numflux_cube_vec
proc~atl_acoustic_numflux_onedir
atl_acoustic_numFlux_oneDir
proc~atl_acoustic_numflux_cube_vec->proc~atl_acoustic_numflux_onedir
Nodes of different colours represent the following:
Graph Key
Subroutine
Subroutine
Function
Function
Interface
Interface
Unknown Procedure Type
Unknown Procedure Type
Program
Program
This Page's Entity
This Page's Entity
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Called by
proc~~atl_acoustic_numflux_cube_vec~~CalledByGraph
proc~atl_acoustic_numflux_cube_vec
atl_acoustic_numflux_cube_vec
interface~atl_acoustic_numflux
atl_acoustic_numflux
interface~atl_acoustic_numflux->proc~atl_acoustic_numflux_cube_vec
proc~atl_modg_acoustic_numflux
atl_modg_acoustic_numFlux
proc~atl_modg_acoustic_numflux->interface~atl_acoustic_numflux
proc~compute_rhs_cubes_modg
compute_rhs_cubes_modg
proc~compute_rhs_cubes_modg->proc~atl_modg_acoustic_numflux
proc~compute_rhs_cubes
compute_rhs_cubes
proc~compute_rhs_cubes->proc~compute_rhs_cubes_modg
Nodes of different colours represent the following:
Graph Key
Subroutine
Subroutine
Function
Function
Interface
Interface
Unknown Procedure Type
Unknown Procedure Type
Program
Program
This Page's Entity
This Page's Entity
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Variables
Type Visibility Attributes Name Initial
private ::
iSide VK real(kind=rk) :: leftstate(4), rightstate(4)
VK real(kind=rk) :: flux(4)
private ::
left VK real(kind=rk) :: leftstate(4), rightstate(4)
VK real(kind=rk) :: flux(4)
private ::
right VK real(kind=rk) :: leftstate(4), rightstate(4)
VK real(kind=rk) :: flux(4)
private ::
iDof VK real(kind=rk) :: leftstate(4), rightstate(4)
VK real(kind=rk) :: flux(4)
private ::
iter VK real(kind=rk) :: leftstate(4), rightstate(4)
VK real(kind=rk) :: flux(4)