lib_friction_correlations_m Module

Uses

- krn_global_tools_m
- fortran_yaml_c
- lib_input_m
- iso_c_binding
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.

Variables

Type	Visibility	Attributes		Name		Initial
type(friction_t),	public,	allocatable, target	::	frictions(:)
procedure(init_friction_ext_if),	public,	pointer	::	init_friction_ext	=>	null()

Abstract Interfaces

abstract interface

public function init_friction_ext_if(cfg_len, cfg_str, c_pt, frict_ptr) bind(C)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_int),			value	::	cfg_len
character(len=*)				::	cfg_str
type(c_ptr)				::	c_pt
type(c_funptr)				::	frict_ptr

Return Value logical

Derived Types

type, public :: friction_t

Components

Type	Visibility	Attributes		Name		Initial
character(len=:),	public,	allocatable	::	friction_corr
type(c_ptr),	public		::	frict_cfg	=	C_NULL_PTR
procedure(itf_1var),	public,	pointer, nopass	::	frict	=>	friction_correlation_not_implemented
procedure(itf_1var),	public,	pointer, nopass	::	frict_der	=>	null()

Type-Bound Procedures

procedure, public :: friction => friction_correlation
procedure, public :: friction_der => friction_correlation_der

type, public :: blasius_cfg_t

Components

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	public		::	alpha
real(kind=dp),	public		::	beta

type, public :: katheder_cfg_t

Components

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	public		::	alpha
real(kind=dp),	public		::	beta
real(kind=dp),	public		::	VoidFr
real(kind=dp),	public		::	Re_min

type, public :: central_spiral_cfg_t

Components

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	public		::	alpha
real(kind=dp),	public		::	beta

Functions

public function friction_factor_blasius(c_pt, Re) result(friction) bind(C)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	c_pt
real(kind=dp),			value	::	Re

Return Value real(kind=dp)

public function friction_factor_blasius_der(c_pt, Re) result(friction_der) bind(C)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	c_pt
real(kind=dp),			value	::	Re

Return Value real(kind=dp)

public function friction_factor_katheder(c_pt, Re) result(friction) bind(C)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	c_pt
real(kind=dp),			value	::	Re

Return Value real(kind=dp)

public function friction_factor_katheder_der(c_pt, Re) result(friction_der) bind(C)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	c_pt
real(kind=dp),			value	::	Re

Return Value real(kind=dp)

public function friction_factor_central_spiral(c_pt, Re) result(friction) bind(C)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	c_pt
real(kind=dp),			value	::	Re

Return Value real(kind=dp)

public function friction_factor_central_spiral_der(c_pt, Re) result(friction_der) bind(C)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	c_pt
real(kind=dp),			value	::	Re

Return Value real(kind=dp)

public function friction_correlation(me, Re)

Arguments

Type	Intent	Optional	Attributes		Name
class(friction_t),	intent(inout)			::	me
real(kind=dp),	intent(in)			::	Re

Return Value real(kind=dp)

public function friction_correlation_der(me, Re)

Arguments

Type	Intent	Optional	Attributes		Name
class(friction_t),	intent(inout)			::	me
real(kind=dp),	intent(in)			::	Re

Return Value real(kind=dp)

public function friction_correlation_not_implemented(c_pt, Re) result(ret_val) bind(C)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	c_pt
real(kind=dp),			value	::	Re

Return Value real(kind=dp)

public function friction_factor_laminar(Re)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	Re

Return Value real(kind=dp)

public function der_friction_factor_laminar(Re)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	Re

Return Value real(kind=dp)

Subroutines

public subroutine load_frictions(cfgs)

Arguments

Type	Intent	Optional	Attributes		Name
class(input_t),	intent(in)			::	cfgs(:)

public subroutine set_friction_correlation(fct, cfg, built_in_name)

Arguments

Type	Intent	Optional	Attributes		Name
type(friction_t),	intent(inout)			::	fct
class(input_t),	intent(in)			::	cfg
character(len=*),	intent(in)			::	built_in_name

public subroutine friction_init(me, cfg)

Arguments

Type	Intent	Optional	Attributes		Name
class(friction_t),	intent(inout),		pointer	::	me
class(input_t),	intent(in),		target	::	cfg

public subroutine friction_factor_blasius_init(cfg, c_pt)

Arguments

Type	Intent	Optional	Attributes		Name
class(input_t),	intent(in),		target	::	cfg
type(c_ptr),	intent(out)			::	c_pt

public subroutine friction_factor_katheder_init(cfg, c_pt)

Arguments

Type	Intent	Optional	Attributes		Name
class(input_t),	intent(in),		target	::	cfg
type(c_ptr),	intent(out)			::	c_pt

public subroutine friction_factor_central_spiral_init(cfg, c_pt)

Arguments

Type	Intent	Optional	Attributes		Name
class(input_t),	intent(in),		target	::	cfg
type(c_ptr),	intent(out)			::	c_pt