units_t Derived Type

type, public :: units_t

Contents

Variables

units_set cgs based_on_density based_on_temperature based_on_numberdensity unit_length unit_time unit_density unit_velocity unit_temperature unit_pressure unit_magneticfield unit_numberdensity unit_mass mean_molecular_weight unit_resistivity unit_lambdaT unit_conduction

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