mod_conduction_settings Module

Uses

- mod_global_variables

Contents

Derived Types

conduction_settings_t

Functions

new_conduction_settings is_enabled has_parallel_conduction get_fixed_tc_para has_fixed_tc_para has_perpendicular_conduction get_fixed_tc_perp has_fixed_tc_perp

Subroutines

disable enable_para_conduction set_fixed_tc_para enable_perp_conduction set_fixed_tc_perp

Derived Types

type, public :: conduction_settings_t

Components

Type	Visibility	Attributes		Name		Initial
logical,	private		::	para_conduction
logical,	private		::	fixed_tc_para
real(kind=dp),	private		::	fixed_tc_para_value
logical,	private		::	perp_conduction
logical,	private		::	fixed_tc_perp
real(kind=dp),	private		::	fixed_tc_perp_value

Type-Bound Procedures

procedure, public :: disable
procedure, public :: is_enabled
procedure, public :: enable_para_conduction
procedure, public :: has_parallel_conduction
procedure, public :: set_fixed_tc_para
procedure, public :: get_fixed_tc_para
procedure, public :: has_fixed_tc_para
procedure, public :: enable_perp_conduction
procedure, public :: has_perpendicular_conduction
procedure, public :: set_fixed_tc_perp
procedure, public :: get_fixed_tc_perp
procedure, public :: has_fixed_tc_perp

Functions

public pure function new_conduction_settings() result(conduction)

Arguments

None

Return Value type(conduction_settings_t)

private pure function is_enabled(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(conduction_settings_t),	intent(in)			::	this

Return Value logical

private pure function has_parallel_conduction(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(conduction_settings_t),	intent(in)			::	this

Return Value logical

private pure function get_fixed_tc_para(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(conduction_settings_t),	intent(in)			::	this

Return Value real(kind=dp)

private pure function has_fixed_tc_para(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(conduction_settings_t),	intent(in)			::	this

Return Value logical

private pure function has_perpendicular_conduction(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(conduction_settings_t),	intent(in)			::	this

Return Value logical

private pure function get_fixed_tc_perp(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(conduction_settings_t),	intent(in)			::	this

Return Value real(kind=dp)

private pure function has_fixed_tc_perp(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(conduction_settings_t),	intent(in)			::	this

Return Value logical

Subroutines

private pure subroutine disable(this)

Arguments

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

private pure subroutine enable_para_conduction(this)

Arguments

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

private pure subroutine set_fixed_tc_para(this, tc_para)

Arguments

Type	Intent	Optional	Attributes		Name
class(conduction_settings_t),	intent(inout)			::	this
real(kind=dp),	intent(in)			::	tc_para

private pure subroutine enable_perp_conduction(this)

Arguments

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

private pure subroutine set_fixed_tc_perp(this, tc_perp)

Arguments

Type	Intent	Optional	Attributes		Name
class(conduction_settings_t),	intent(inout)			::	this
real(kind=dp),	intent(in)			::	tc_perp