cmp_boundary_calc_m Module

Uses

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Derived Types

type, public :: hug_star_t

Components

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	public		::	vstar
real(kind=dp),	public		::	ustar
real(kind=dp),	public		::	W
real(kind=dp),	public		::	K
real(kind=dp),	public		::	ev_v
real(kind=dp),	public		::	dustar_dPstar
real(kind=dp),	public		::	dvstar_dPstar
real(kind=dp),	public		::	dvstar_dv_LR
real(kind=dp),	public		::	dvstar_dp_LR
logical,	public		::	ok
integer,	public		::	n_iter

type, public, extends(brent_t) :: hug_brent_t

Components

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	public		::	Pstar
real(kind=dp),	public		::	p_LR
real(kind=dp),	public		::	v_LR
real(kind=dp),	public		::	e_LR

Type-Bound Procedures

procedure, public :: f => hug_brent_f

Functions

public function function_of_pstar_PT(sgnBC, Pstar, Rotank, Ctank, Ptank, Einttank, p_LR, u_LR, z_LR)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	sgnBC
real(kind=dp),	intent(in)			::	Pstar
real(kind=dp),	intent(in)			::	Rotank
real(kind=dp),	intent(in)			::	Ctank
real(kind=dp),	intent(in)			::	Ptank
real(kind=dp),	intent(in)			::	Einttank
real(kind=dp),	intent(in)			::	p_LR
real(kind=dp),	intent(in)			::	u_LR
real(kind=dp),	intent(in)			::	z_LR

Return Value real(kind=dp)

public function derivative_function_of_pstar_PT(sgnBC, Pstar, Rotank, Ctank, Ptank, p_LR, u_LR, z_LR)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	sgnBC
real(kind=dp),	intent(in)			::	Pstar
real(kind=dp),	intent(in)			::	Rotank
real(kind=dp),	intent(in)			::	Ctank
real(kind=dp),	intent(in)			::	Ptank
real(kind=dp),	intent(in)			::	p_LR
real(kind=dp),	intent(in)			::	u_LR
real(kind=dp),	intent(in)			::	z_LR

Return Value real(kind=dp)

public function hug_brent_f(me, x) result(H)

Arguments

Type	Intent	Optional	Attributes		Name
class(hug_brent_t),	intent(in)			::	me
real(kind=dp),	intent(in)			::	x

Return Value real(kind=dp)

public function function_of_pstar_MT(sgnBC, Pstar, Ttank, mdot, AreaPP, p_LR, u_LR, z_LR)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	sgnBC
real(kind=dp),	intent(in)			::	Pstar
real(kind=dp),	intent(in)			::	Ttank
real(kind=dp),	intent(in)			::	mdot
real(kind=dp),	intent(in)			::	AreaPP
real(kind=dp),	intent(in)			::	p_LR
real(kind=dp),	intent(in)			::	u_LR
real(kind=dp),	intent(in)			::	z_LR

Return Value real(kind=dp)

Subroutines

public subroutine jacobian_star(Cons_star, Jacob_star)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in),		dimension(:)	::	Cons_star
real(kind=dp),	intent(out),		dimension(:,:)	::	Jacob_star

public subroutine jacobian_star_Req_rem(PrimStar, Jacob_star)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in),		dimension(:)	::	PrimStar
real(kind=dp),	intent(out),		dimension(:,:)	::	Jacob_star

public subroutine solve_boundary_PT(me, ss)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

Type	Intent	Optional	Attributes		Name
type(boundary_t),	intent(inout)			::	me
real(kind=dp),	intent(out)			::	ss

public pure subroutine derUstar_acoustic(BB, DerBBdU, dc, sgnBC, c_LR, ro_LR, u_LR, DerUstar)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	BB
real(kind=dp),	intent(in)			::	DerBBdU(Nb_VarC)
real(kind=dp),	intent(in)			::	dc(Nb_VarC)
real(kind=dp),	intent(in)			::	sgnBC
real(kind=dp),	intent(in)			::	c_LR
real(kind=dp),	intent(in)			::	ro_LR
real(kind=dp),	intent(in)			::	u_LR
real(kind=dp),	intent(out)			::	DerUstar(Nb_VarC)

public subroutine hugoniot_star_state(sgnBC, Pstar, Ro_LR, p_LR, u_LR, c_LR, st)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	sgnBC
real(kind=dp),	intent(in)			::	Pstar
real(kind=dp),	intent(in)			::	Ro_LR
real(kind=dp),	intent(in)			::	p_LR
real(kind=dp),	intent(in)			::	u_LR
real(kind=dp),	intent(in)			::	c_LR
type(hug_star_t),	intent(out)			::	st

public subroutine solve_boundary_MT(me, ss)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

Type	Intent	Optional	Attributes		Name
type(boundary_t),	intent(inout)			::	me
real(kind=dp),	intent(out)			::	ss

public subroutine boundary_resolution_from_and_to_ports(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(boundary_t),	intent(inout)			::	me