get_cmax Function

private pure function get_cmax(u, x, flux_dim) result(wC)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: u(nw_phys)
real(kind=dp), intent(in) :: x(1:ndim)
integer, intent(in) :: flux_dim

Return Value real(kind=dp)


Called by

proc~~get_cmax~7~~CalledByGraph proc~get_cmax~7 get_cmax proc~riemann_llf_prim~4 riemann_llf_prim proc~riemann_llf_prim~4->proc~get_cmax~7 proc~reconflux_muscl_llf_prim~4 reconflux_muscl_llf_prim proc~reconflux_muscl_llf_prim~4->proc~riemann_llf_prim~4 proc~finite_volume_local_muscl_llf~4 finite_volume_local_muscl_llf proc~finite_volume_local_muscl_llf~4->proc~reconflux_muscl_llf_prim~4 proc~finite_volume_local~4 finite_volume_local proc~finite_volume_local~4->proc~finite_volume_local_muscl_llf~4

Source Code

pure real(dp) function get_cmax(u, x, flux_dim) result(wC)
  
  real(dp), intent(in)  :: u(nw_phys)
  real(dp), intent(in)  :: x(1:ndim)
  integer, intent(in)   :: flux_dim
  real(dp)              :: mag

  mag = u(iw_b1-1+flux_dim)

  wC = dsqrt(phys_gamma*u(iw_e)/u(iw_rho)) + abs(u(iw_mom(1))*mag)

end function get_cmax