mod_heatloss Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
type(settings_t),	private,	pointer	::	settings	=>	null()
type(background_t),	private,	pointer	::	background	=>	null()
type(cooling_t),	private,	pointer	::	cooling	=>	null()
type(conduction_t),	private,	pointer	::	conduction	=>	null()
type(grid_t),	private,	pointer	::	grid	=>	null()
character(len=*),	public,	parameter	::	msg_heatloss_balance	=	("unable to enforce thermal balance when heating is disabled. "//"Set 'force_thermal_balance = .false.' in the parfile or enable heating.")

Derived Types

type, public :: heatloss_t

Components

Type	Visibility	Attributes		Name		Initial
type(cooling_t),	public		::	cooling
type(heating_t),	public		::	heating

Type-Bound Procedures

procedure, public :: get_L0
procedure, public :: get_dLdT
procedure, public :: get_dLdrho
procedure, public :: check_if_thermal_balance_needs_enforcing
procedure, public :: delete

Functions

public function new_heatloss(settings_tgt, background_tgt) result(heatloss)

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(heatloss_t)

private impure elemental function get_L0(this, x)

Arguments

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

Return Value real(kind=dp)

private impure elemental function get_dLdT(this, x)

Arguments

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

Return Value real(kind=dp)

private impure elemental function get_dLdrho(this, x)

Arguments

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

Return Value real(kind=dp)

private function H_for_thermal_balance(x)

Arguments

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

Return Value real(kind=dp)

private function is_adiabatic()

Arguments

None

Return Value logical

Subroutines

private subroutine set_module_pointers(conduction_tgt, grid_tgt, cooling_tgt)

Arguments

Type	Intent	Optional	Attributes		Name
type(conduction_t),	intent(in),		target	::	conduction_tgt
type(grid_t),	intent(in),		target	::	grid_tgt
type(cooling_t),	intent(in),		target	::	cooling_tgt

private subroutine check_if_thermal_balance_needs_enforcing(this, conduction_tgt, grid_tgt)

Arguments

Type	Intent	Optional	Attributes		Name
class(heatloss_t),	intent(inout)			::	this
type(conduction_t),	intent(in)			::	conduction_tgt
type(grid_t),	intent(in)			::	grid_tgt

private subroutine log_usr_H_func_warning()

Arguments

None

private subroutine delete(this)

Arguments

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