units_t Derived Type

type, public :: units_t

Components

Type	Visibility	Attributes		Name		Initial
logical,	private		::	units_set
logical,	private		::	cgs
logical,	private		::	based_on_density
logical,	private		::	based_on_temperature
logical,	private		::	based_on_numberdensity
real(kind=dp),	private		::	unit_length
real(kind=dp),	private		::	unit_time
real(kind=dp),	private		::	unit_density
real(kind=dp),	private		::	unit_velocity
real(kind=dp),	private		::	unit_temperature
real(kind=dp),	private		::	unit_pressure
real(kind=dp),	private		::	unit_magneticfield
real(kind=dp),	private		::	unit_numberdensity
real(kind=dp),	private		::	unit_mass
real(kind=dp),	private		::	mean_molecular_weight
real(kind=dp),	private		::	unit_resistivity
real(kind=dp),	private		::	unit_lambdaT
real(kind=dp),	private		::	unit_conduction

Type-Bound Procedures

procedure, public :: in_cgs

private pure function in_cgs(this)

Arguments

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

Return Value logical

procedure, public :: are_set

private pure function are_set(this)

Arguments

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

Return Value logical

procedure, public :: set_units_from_density

private pure subroutine set_units_from_density(this, unit_length, unit_magneticfield, unit_density, mean_molecular_weight)

Arguments

Type	Intent	Optional	Attributes		Name
class(units_t),	intent(inout)			::	this
real(kind=dp),	intent(in)			::	unit_length
real(kind=dp),	intent(in)			::	unit_magneticfield
real(kind=dp),	intent(in)			::	unit_density
real(kind=dp),	intent(in),	optional		::	mean_molecular_weight

procedure, public :: set_units_from_temperature

private pure subroutine set_units_from_temperature(this, unit_length, unit_magneticfield, unit_temperature, mean_molecular_weight)

Arguments

Type	Intent	Optional	Attributes		Name
class(units_t),	intent(inout)			::	this
real(kind=dp),	intent(in)			::	unit_length
real(kind=dp),	intent(in)			::	unit_magneticfield
real(kind=dp),	intent(in)			::	unit_temperature
real(kind=dp),	intent(in),	optional		::	mean_molecular_weight

procedure, public :: set_units_from_numberdensity

private pure subroutine set_units_from_numberdensity(this, unit_length, unit_temperature, unit_numberdensity, mean_molecular_weight)

Arguments

Type	Intent	Optional	Attributes		Name
class(units_t),	intent(inout)			::	this
real(kind=dp),	intent(in)			::	unit_length
real(kind=dp),	intent(in)			::	unit_temperature
real(kind=dp),	intent(in)			::	unit_numberdensity
real(kind=dp),	intent(in),	optional		::	mean_molecular_weight

procedure, public :: set_mean_molecular_weight

private pure subroutine set_mean_molecular_weight(this, mean_molecular_weight)

Arguments

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

procedure, public :: get_unit_length

private pure function get_unit_length(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_unit_time

private pure function get_unit_time(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_unit_density

private pure function get_unit_density(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_unit_velocity

private pure function get_unit_velocity(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_unit_temperature

private pure function get_unit_temperature(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_unit_pressure

private pure function get_unit_pressure(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_unit_magneticfield

private pure function get_unit_magneticfield(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_unit_numberdensity

private pure function get_unit_numberdensity(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_unit_mass

private pure function get_unit_mass(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_mean_molecular_weight

private pure function get_mean_molecular_weight(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_unit_resistivity

private pure function get_unit_resistivity(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_unit_lambdaT

private pure function get_unit_lambdaT(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_unit_conduction

private pure function get_unit_conduction(this)

Arguments

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

Return Value real(kind=dp)

procedure, public :: get_unit_gravity

private pure function get_unit_gravity(this)

Arguments

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

Return Value real(kind=dp)

procedure, private :: update_dependent_units

private pure subroutine update_dependent_units(this)

Arguments

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

procedure, private :: set_based_on_to_false

private pure subroutine set_based_on_to_false(this)

Arguments

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