estimate_speeds_minmax Subroutine

private subroutine estimate_speeds_minmax(uL, uR, xC, flux_dim, wL, wR)

Uses

  • proc~~estimate_speeds_minmax~4~~UsesGraph proc~estimate_speeds_minmax~4 estimate_speeds_minmax module~mod_comm_lib mod_comm_lib proc~estimate_speeds_minmax~4->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) :: wL
real(kind=dp), intent(out) :: wR

Calls

proc~~estimate_speeds_minmax~4~~CallsGraph proc~estimate_speeds_minmax~4 estimate_speeds_minmax proc~mpistop mpistop proc~estimate_speeds_minmax~4->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Called by

proc~~estimate_speeds_minmax~4~~CalledByGraph proc~estimate_speeds_minmax~4 estimate_speeds_minmax proc~riemann_hll_prim~4 riemann_hll_prim proc~riemann_hll_prim~4->proc~estimate_speeds_minmax~4 proc~reconflux_muscl_hll_prim~4 reconflux_muscl_hll_prim proc~reconflux_muscl_hll_prim~4->proc~riemann_hll_prim~4 proc~finite_volume_local_muscl_hll~4 finite_volume_local_muscl_hll proc~finite_volume_local_muscl_hll~4->proc~reconflux_muscl_hll_prim~4 proc~finite_volume_local~4 finite_volume_local proc~finite_volume_local~4->proc~finite_volume_local_muscl_hll~4

Source Code

subroutine estimate_speeds_minmax(uL, uR, xC, flux_dim, wL, wR)
#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) :: wL, wR

#ifndef _CRAYFTN
  call mpistop("estimate_speeds_minmax not implemented for this physics module")
#endif
  wL = -1._dp
  wR = -1._dp

end subroutine estimate_speeds_minmax