riemann_pattern_compressible_pvl

type, public, extends(riemann_pattern_compressible_object) :: riemann_pattern_compressible_pvl

Compressible Riemann (states) PVL pattern object class.

Variables

a_1 a_2 a_3 a_4 compute_waves_ eos_1 eos_4 p23 p_1 p_4 r_1 r_2 r_3 r_4 s_1 s_2 s_3 s_4 u23 u_1 u_4

Type-Bound Procedures

assignment(=) compute_fluxes compute_states23_from_u23 compute_u23 compute_up23 compute_waves compute_waves_u23 compute_waves_up23 description initialize rpat_assign_rpat

Source Code

riemann_pattern_compressible_pvl

Components

Type	Visibility	Attributes		Name		Initial
real(kind=R8P),	public		::	a_1	=	0._R8P	Speed of sound of state 1.
real(kind=R8P),	public		::	a_2	=	0._R8P	Speed of sound of state 2.
real(kind=R8P),	public		::	a_3	=	0._R8P	Speed of sound of state 3.
real(kind=R8P),	public		::	a_4	=	0._R8P	Speed of sound of state 4.
procedure(compute_waves_interface),	public,	pointer	::	compute_waves_	=>	compute_waves_up23	Compute waves speed.
type(eos_compressible),	public		::	eos_1			Equation of state 1.
type(eos_compressible),	public		::	eos_4			Equation of state 4.
real(kind=R8P),	public		::	p23	=	0._R8P	Pressure of intermediate states.
real(kind=R8P),	public		::	p_1	=	0._R8P	Pressure of state 1.
real(kind=R8P),	public		::	p_4	=	0._R8P	Pressure of state 4.
real(kind=R8P),	public		::	r_1	=	0._R8P	Density of state 1.
real(kind=R8P),	public		::	r_2	=	0._R8P	Density of state 2.
real(kind=R8P),	public		::	r_3	=	0._R8P	Density of state 3.
real(kind=R8P),	public		::	r_4	=	0._R8P	Density of state 4.
real(kind=R8P),	public		::	s_1	=	0._R8P	Left-front of left wave.
real(kind=R8P),	public		::	s_2	=	0._R8P	Right-front of left wave.
real(kind=R8P),	public		::	s_3	=	0._R8P	Left-front of right wave.
real(kind=R8P),	public		::	s_4	=	0._R8P	Right-front of right wave.
real(kind=R8P),	public		::	u23	=	0._R8P	Velocity (normal) of intermediate states.
real(kind=R8P),	public		::	u_1	=	0._R8P	Velocity (normal) of state 1.
real(kind=R8P),	public		::	u_4	=	0._R8P	Velocity (normal) of state 4.

Type-Bound Procedures

generic, public :: assignment(=) => rpat_assign_rpat

Overload =.

private pure subroutine rpat_assign_rpat(lhs, rhs)

Operator =.

Arguments

Type	Intent	Optional	Attributes		Name
class(riemann_pattern_compressible_object),	intent(inout)			::	lhs	Left hand side.
class(riemann_pattern_object),	intent(in)			::	rhs	Right hand side.

procedure, public, pass(self) :: compute_fluxes

Compute fluxes at interface x=xo.

private elemental subroutine compute_fluxes(self, normal, fluxes)

Compute fluxes at initial discontinuity interface.

Arguments

Type	Intent		Name
class(riemann_pattern_compressible_object),	intent(in)	::	self	Riemann (states) pattern solution.
type(vector),	intent(in)	::	normal	Normal (versor) of face where fluxes are given.
class(conservative_object),	intent(inout)	::	fluxes	Fluxes at initial discontinuity interface.

procedure, public, pass(self) :: compute_states23_from_u23

Compute interstates 2 and 3 given veloctiy S=u23.

private elemental subroutine compute_states23_from_u23(self, p_2, p_3)

Compute interstates 2 and 3 given (an approximation of) veloctiy S=u23.

Arguments

Type	Intent		Name
class(riemann_pattern_compressible_object),	intent(inout)	::	self	Riemann (states) pattern solution.
real(kind=R8P),	intent(out)	::	p_2	Pressure of state 2.
real(kind=R8P),	intent(out)	::	p_3	Pressure of state 3.

procedure, private, pass(self) :: compute_u23

Compute interstates velocity.

private elemental subroutine compute_u23(self)

Compute interstates velocity.

Arguments

Type Intent Optional Attributes Name

class(riemann_pattern_compressible_pvl), intent(inout) :: self
Riemann (states) pattern solution.

Type	Intent	Optional	Attributes		Name
class(riemann_pattern_compressible_pvl),	intent(inout)			::	self	Riemann (states) pattern solution.

procedure, private, pass(self) :: compute_up23

Compute interstates velocity and pressure.

private elemental subroutine compute_up23(self)

Compute interstates velocity and pressure.

Arguments

Type Intent Optional Attributes Name

class(riemann_pattern_compressible_pvl), intent(inout) :: self
Riemann (states) pattern solution.

Type	Intent	Optional	Attributes		Name
class(riemann_pattern_compressible_pvl),	intent(inout)			::	self	Riemann (states) pattern solution.

procedure, public, pass(self) :: compute_waves

Compute waves speed.

private pure subroutine compute_waves(self)

Compute waves speed.

Arguments

Type Intent Optional Attributes Name

class(riemann_pattern_compressible_pvl), intent(inout) :: self
Riemann (states) pattern solution.

Type	Intent	Optional	Attributes		Name
class(riemann_pattern_compressible_pvl),	intent(inout)			::	self	Riemann (states) pattern solution.

procedure, private, pass(self) :: compute_waves_u23

Compute waves speed by u23 algorithm.

private pure subroutine compute_waves_u23(self)

Compute waves speed u23 algorithm.

Arguments

Type Intent Optional Attributes Name

class(riemann_pattern_compressible_pvl), intent(inout) :: self
Riemann (states) pattern solution.

Type	Intent	Optional	Attributes		Name
class(riemann_pattern_compressible_pvl),	intent(inout)			::	self	Riemann (states) pattern solution.

procedure, private, pass(self) :: compute_waves_up23

Compute waves speed by up23 algorithm.

private pure subroutine compute_waves_up23(self)

Compute waves speed u23 algorithm.

Arguments

Type Intent Optional Attributes Name

class(riemann_pattern_compressible_pvl), intent(inout) :: self
Riemann (states) pattern solution.

Type	Intent	Optional	Attributes		Name
class(riemann_pattern_compressible_pvl),	intent(inout)			::	self	Riemann (states) pattern solution.

procedure, public, pass(self) :: description

Return pretty-printed object description.

private pure function description(self, prefix) result(desc)

Return a pretty-formatted object description.

Arguments

Type	Intent	Optional	Attributes		Name
class(riemann_pattern_compressible_object),	intent(in)			::	self	Riemann pattern.
character(len=*),	intent(in),	optional		::	prefix	Prefixing string.

Return Value character(len=:), allocatable

Description.

procedure, public, pass(self) :: initialize

Initialize pattern with left and right states.

private elemental subroutine initialize(self, eos_left, state_left, eos_right, state_right, normal)

Initialize pattern with left and right states.

Arguments

Type	Intent		Name
class(riemann_pattern_compressible_object),	intent(inout)	::	self	Riemann (states) pattern solution.
class(eos_object),	intent(in)	::	eos_left	Equation of state for left state.
class(conservative_object),	intent(in)	::	state_left	Left Riemann state.
class(eos_object),	intent(in)	::	eos_right	Equation of state for right state.
class(conservative_object),	intent(in)	::	state_right	Right Riemann state.
type(vector),	intent(in)	::	normal	Normal (versor) of face where fluxes are given.

procedure, public, pass(lhs) :: rpat_assign_rpat

Operator =.

private pure subroutine rpat_assign_rpat(lhs, rhs)

Operator =.

Arguments

Type	Intent	Optional	Attributes		Name
class(riemann_pattern_compressible_object),	intent(inout)			::	lhs	Left hand side.
class(riemann_pattern_object),	intent(in)			::	rhs	Right hand side.

Source Code

type, extends(riemann_pattern_compressible_object) :: riemann_pattern_compressible_pvl
   !< Compressible Riemann (states) PVL pattern object class.
   procedure(compute_waves_interface), pointer :: compute_waves_ => compute_waves_up23 !< Compute waves speed.
   contains
      procedure, pass(self) :: compute_waves !< Compute waves speed.
      ! private methods
      procedure, pass(self), private :: compute_u23        !< Compute interstates velocity.
      procedure, pass(self), private :: compute_up23       !< Compute interstates velocity and pressure.
      procedure, pass(self), private :: compute_waves_u23  !< Compute waves speed by `u23` algorithm.
      procedure, pass(self), private :: compute_waves_up23 !< Compute waves speed by `up23` algorithm.
endtype riemann_pattern_compressible_pvl

riemann_pattern_compressible_pvl Derived Type

Variables

Type-Bound Procedures

Source Code

All Derived Types

type, public, extends(riemann_pattern_compressible_object) :: riemann_pattern_compressible_pvl

Variables

Type-Bound Procedures

Source Code

Components

Type-Bound Procedures

generic, public :: assignment(=) => rpat_assign_rpat

private pure subroutine rpat_assign_rpat(lhs, rhs)

Arguments

procedure, public, pass(self) :: compute_fluxes

private elemental subroutine compute_fluxes(self, normal, fluxes)

Arguments

procedure, public, pass(self) :: compute_states23_from_u23

private elemental subroutine compute_states23_from_u23(self, p_2, p_3)

Arguments

procedure, private, pass(self) :: compute_u23

private elemental subroutine compute_u23(self)

Arguments

procedure, private, pass(self) :: compute_up23

private elemental subroutine compute_up23(self)

Arguments

procedure, public, pass(self) :: compute_waves

private pure subroutine compute_waves(self)

Arguments

procedure, private, pass(self) :: compute_waves_u23

private pure subroutine compute_waves_u23(self)

Arguments

procedure, private, pass(self) :: compute_waves_up23

private pure subroutine compute_waves_up23(self)

Arguments

procedure, public, pass(self) :: description

private pure function description(self, prefix) result(desc)

Arguments

Return Value character(len=:), allocatable

procedure, public, pass(self) :: initialize

private elemental subroutine initialize(self, eos_left, state_left, eos_right, state_right, normal)

Arguments

procedure, public, pass(lhs) :: rpat_assign_rpat

private pure subroutine rpat_assign_rpat(lhs, rhs)

Arguments

Source Code

All Derived Types