lib_nusselt_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(nusselt_t),	public,	allocatable, target	::	nusselts(:)
procedure(init_nusselt_ext_if),	public,	pointer	::	init_nusselt_ext	=>	null()

Abstract Interfaces

abstract interface

public function init_nusselt_ext_if(cfg_len, cfg_str, c_pt, nuss_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)				::	nuss_ptr

Return Value logical

Derived Types

type, public :: nusselt_t

Components

Type	Visibility	Attributes		Name		Initial
character(len=:),	public,	allocatable	::	nusselt_corr
type(c_ptr),	public		::	nuss_cfg	=	C_NULL_PTR
procedure(itf_4var),	public,	pointer, nopass	::	nuss	=>	nusselt_correlation_not_implemented
procedure(itf_4var),	public,	pointer, nopass	::	nuss_der_Re	=>	null()
procedure(itf_4var),	public,	pointer, nopass	::	nuss_der_Pra	=>	null()
procedure(itf_4var),	public,	pointer, nopass	::	nuss_der_Tother	=>	null()
procedure(itf_4var),	public,	pointer, nopass	::	nuss_der_T	=>	null()

Type-Bound Procedures

procedure, public :: nusselt => nusselt_correlation
procedure, public :: nusselt_der_Re => nusselt_correlation_der_Re
procedure, public :: nusselt_der_Pra => nusselt_correlation_der_Pra
procedure, public :: nusselt_der_Tother => nusselt_correlation_der_Tother
procedure, public :: nusselt_der_T => nusselt_correlation_der_T

type, public :: pipe_cfg_t

Components

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	public		::	a
real(kind=dp),	public		::	b
real(kind=dp),	public		::	c

type, public :: DBG_cfg_t

Components

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	public		::	NuL
real(kind=dp),	public		::	a
real(kind=dp),	public		::	b
real(kind=dp),	public		::	c
real(kind=dp),	public		::	d

Functions

public function nusselt_pipe(c_pt, Re, Pra, Tother, T) result(nusselt) bind(C)

Arguments

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

Return Value real(kind=dp)

public function nusselt_DBG(c_pt, Re, Pra, Tother, T) result(nusselt) bind(C)

Arguments

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

Return Value real(kind=dp)

public function nusselt_DBG_der_Re(c_pt, Re, Pra, Tother, T) result(nusselt_der_Re) bind(C)

Arguments

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

Return Value real(kind=dp)

public function nusselt_DBG_der_Pra(c_pt, Re, Pra, Tother, T) result(nusselt_der_Pra) bind(C)

Arguments

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

Return Value real(kind=dp)

public function nusselt_DBG_der_Tother(c_pt, Re, Pra, Tother, T) result(nusselt_der_Tother) bind(C)

Arguments

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

Return Value real(kind=dp)

public function nusselt_DBG_der_T(c_pt, Re, Pra, Tother, T) result(nusselt_der_T) bind(C)

Arguments

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

Return Value real(kind=dp)

public function nusselt_correlation(me, Re, Pra, Tother, T)

Arguments

Type	Intent	Optional	Attributes		Name
class(nusselt_t),	intent(inout)			::	me
real(kind=dp),	intent(in)			::	Re
real(kind=dp),	intent(in)			::	Pra
real(kind=dp),	intent(in),	optional		::	Tother
real(kind=dp),	intent(in),	optional		::	T

Return Value real(kind=dp)

public function nusselt_correlation_der_Re(me, Re, Pra, Tother, T)

Arguments

Type	Intent	Optional	Attributes		Name
class(nusselt_t),	intent(inout)			::	me
real(kind=dp),	intent(in)			::	Re
real(kind=dp),	intent(in)			::	Pra
real(kind=dp),	intent(in),	optional		::	Tother
real(kind=dp),	intent(in),	optional		::	T

Return Value real(kind=dp)

public function nusselt_correlation_der_Pra(me, Re, Pra, Tother, T)

Arguments

Type	Intent	Optional	Attributes		Name
class(nusselt_t),	intent(inout)			::	me
real(kind=dp),	intent(in)			::	Re
real(kind=dp),	intent(in)			::	Pra
real(kind=dp),	intent(in),	optional		::	Tother
real(kind=dp),	intent(in),	optional		::	T

Return Value real(kind=dp)

public function nusselt_correlation_der_Tother(me, Re, Pra, Tother, T)

Arguments

Type	Intent	Optional	Attributes		Name
class(nusselt_t),	intent(inout)			::	me
real(kind=dp),	intent(in)			::	Re
real(kind=dp),	intent(in)			::	Pra
real(kind=dp),	intent(in),	optional		::	Tother
real(kind=dp),	intent(in),	optional		::	T

Return Value real(kind=dp)

public function nusselt_correlation_der_T(me, Re, Pra, Tother, T)

Arguments

Type	Intent	Optional	Attributes		Name
class(nusselt_t),	intent(inout)			::	me
real(kind=dp),	intent(in)			::	Re
real(kind=dp),	intent(in)			::	Pra
real(kind=dp),	intent(in),	optional		::	Tother
real(kind=dp),	intent(in),	optional		::	T

Return Value real(kind=dp)

public function nusselt_correlation_not_implemented(c_pt, Re, Pra, Tother, T) result(ret_val) bind(C)

Arguments

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

Return Value real(kind=dp)

Subroutines

public subroutine load_nusselts(cfgs)

Arguments

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

public subroutine set_nusselt_correlation(nss, cfg, built_in_name)

Arguments

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

public subroutine nusselt_init(me, cfg)

Arguments

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

public subroutine nusselt_pipe_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 nusselt_DBG_init(cfg, c_pt)

Arguments

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