mod_thermal_conduction Module

This module is responsible for calculating and setting the thermal conduction values based on the equilibrium configuration.

Uses

Variables

Type	Visibility	Attributes		Name		Initial
type(settings_t),	private,	pointer	::	settings
type(background_t),	private,	pointer	::	background

Derived Types

type, public :: conduction_t

Components

Type	Visibility	Attributes		Name		Initial
procedure(real(dp)),	public,	pointer, nopass	::	tcpara
procedure(real(dp)),	public,	pointer, nopass	::	dtcparadT
procedure(real(dp)),	public,	pointer, nopass	::	tcperp
procedure(real(dp)),	public,	pointer, nopass	::	dtcperpdrho
procedure(real(dp)),	public,	pointer, nopass	::	dtcperpdT
procedure(real(dp)),	public,	pointer, nopass	::	dtcperpdB2

Type-Bound Procedures

procedure, public :: get_dtcparadr
procedure, public :: get_dtcperpdr
procedure, public :: get_tcprefactor
procedure, public :: get_dtcprefactordr
procedure, public :: delete

Functions

public function new_conduction(settings_tgt, background_tgt) result(conduction)

Arguments

Type	Intent	Optional	Attributes		Name
type(settings_t),	intent(in),		target	::	settings_tgt
type(background_t),	intent(in),		target	::	background_tgt

Return Value type(conduction_t)

private function get_tcpara(x)

Arguments

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

Return Value real(kind=dp)

private function get_dtcparadT(x)

Arguments

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

Return Value real(kind=dp)

private impure elemental function get_dtcparadr(this, x)

Arguments

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

Return Value real(kind=dp)

private function get_tcperp(x)

Arguments

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

Return Value real(kind=dp)

private function get_dtcperpdrho(x)

Arguments

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

Return Value real(kind=dp)

private function get_dtcperpdT(x)

Arguments

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

Return Value real(kind=dp)

private function get_dtcperpdB2(x)

Arguments

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

Return Value real(kind=dp)

private impure elemental function get_dtcperpdr(this, x)

Arguments

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

Return Value real(kind=dp)

private impure elemental function get_tcprefactor(this, x)

Arguments

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

Return Value real(kind=dp)

private impure elemental function get_dtcprefactordr(this, x)

Arguments

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

Return Value real(kind=dp)

Subroutines

private subroutine delete(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(conduction_t),	intent(inout)			::	this