atl_ere_eval_onEdge Subroutine

  1. atl_exact_riemann_euler_module.f90
  2. atl_exact_riemann_euler_module
  3. atl_ere_eval_onEdge

public elemental subroutine atl_ere_eval_onEdge(me, rho_left, vn_left, v1_left, v2_left, p_left, rho_right, vn_right, v1_right, v2_right, p_right, rho, vn, v1, v2, p)

Evaluate the state on the edge using the exact riemann solver

Arguments

TypeIntentOptionalAttributesName
type(atl_ere_solState1D_type), intent(in) :: me

Description of the general constants for the Riemann solver.
real(kind=rk), intent(in) :: rho_left
real(kind=rk), intent(in) :: vn_left
real(kind=rk), intent(in) :: v1_left
real(kind=rk), intent(in) :: v2_left
real(kind=rk), intent(in) :: p_left
real(kind=rk), intent(in) :: rho_right
real(kind=rk), intent(in) :: vn_right
real(kind=rk), intent(in) :: v1_right
real(kind=rk), intent(in) :: v2_right
real(kind=rk), intent(in) :: p_right
real(kind=rk), intent(out) :: rho
real(kind=rk), intent(out) :: vn
real(kind=rk), intent(out) :: v1
real(kind=rk), intent(out) :: v2
real(kind=rk), intent(out) :: p

Calls

proc~~atl_ere_eval_onedge~~CallsGraph proc~atl_ere_eval_onedge atl_ere_eval_onEdge proc~nr_start nr_start proc~atl_ere_eval_onedge->proc~nr_start proc~nr_1side nr_1side proc~atl_ere_eval_onedge->proc~nr_1side

Called by

proc~~atl_ere_eval_onedge~~CalledByGraph proc~atl_ere_eval_onedge atl_ere_eval_onEdge proc~atl_godunoveuler1d atl_GodunovEuler1D proc~atl_godunoveuler1d->proc~atl_ere_eval_onedge proc~atl_godunoveuler2d atl_GodunovEuler2D proc~atl_godunoveuler2d->proc~atl_ere_eval_onedge proc~atl_godunoveuler atl_GodunovEuler proc~atl_godunoveuler->proc~atl_ere_eval_onedge

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: du
real(kind=rk), private :: u
real(kind=rk), private :: cl
real(kind=rk), private :: cr
real(kind=rk), private :: p0
real(kind=rk), private :: cha
real(kind=rk), private :: fl
real(kind=rk), private :: fld
real(kind=rk), private :: fr
real(kind=rk), private :: frd
real(kind=rk), private :: pratio
real(kind=rk), private :: cratio
integer, private :: kk