estimate_speeds_toro_pvrs Subroutine

private subroutine estimate_speeds_toro_pvrs(uL, uR, xC, flux_dim, sL, sR)

Uses

  • proc~~estimate_speeds_toro_pvrs~~UsesGraph proc~estimate_speeds_toro_pvrs estimate_speeds_toro_pvrs module~mod_comm_lib mod_comm_lib proc~estimate_speeds_toro_pvrs->module~mod_comm_lib

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: uL(nw_phys)
real(kind=dp), intent(in) :: uR(nw_phys)
real(kind=dp), intent(in) :: xC(ndim)
integer, intent(in) :: flux_dim
real(kind=dp), intent(out) :: sL
real(kind=dp), intent(out) :: sR

Calls

proc~~estimate_speeds_toro_pvrs~~CallsGraph proc~estimate_speeds_toro_pvrs estimate_speeds_toro_pvrs proc~mpistop mpistop proc~estimate_speeds_toro_pvrs->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Called by

proc~~estimate_speeds_toro_pvrs~~CalledByGraph proc~estimate_speeds_toro_pvrs estimate_speeds_toro_pvrs proc~riemann_hllc_prim riemann_hllc_prim proc~riemann_hllc_prim->proc~estimate_speeds_toro_pvrs proc~reconflux_muscl_hllc_prim reconflux_muscl_hllc_prim proc~reconflux_muscl_hllc_prim->proc~riemann_hllc_prim proc~finite_volume_local_muscl_hllc finite_volume_local_muscl_hllc proc~finite_volume_local_muscl_hllc->proc~reconflux_muscl_hllc_prim proc~finite_volume_local finite_volume_local proc~finite_volume_local->proc~finite_volume_local_muscl_hllc

Source Code

subroutine estimate_speeds_toro_pvrs(uL, uR, xC, flux_dim, sL, sR)
#ifndef _CRAYFTN
  use mod_comm_lib, only: mpistop
#endif
  
  real(dp), intent(in)  :: uL(nw_phys), uR(nw_phys)
  real(dp), intent(in)  :: xC(ndim)
  integer,  intent(in)  :: flux_dim
  real(dp), intent(out) :: sL, sR

#ifndef _CRAYFTN
  call mpistop("estimate_speeds_toro_pvrs not implemented for this physics module")
#endif
  sL = -1._dp
  sR = -1._dp

end subroutine estimate_speeds_toro_pvrs