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 :: He_abundance
real(kind=dp), private :: unit_resistivity
real(kind=dp), private :: unit_lambdaT
real(kind=dp), private :: unit_conduction
real(kind=dp), private :: a
real(kind=dp), private :: b

Type-Bound Procedures

procedure, public :: in_cgs

  • private pure function in_cgs(this)

    Arguments

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

    Return Value logical

procedure, public :: are_set

  • private pure function are_set(this)

    Arguments

    Type IntentOptional 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, He_abundance, a, b)

    Arguments

    Type IntentOptional 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 :: He_abundance
    real(kind=dp), intent(in), optional :: a
    real(kind=dp), intent(in), optional :: b

procedure, public :: set_units_from_temperature

  • private pure subroutine set_units_from_temperature(this, unit_length, unit_magneticfield, unit_temperature, He_abundance, a, b)

    Arguments

    Type IntentOptional 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 :: He_abundance
    real(kind=dp), intent(in), optional :: a
    real(kind=dp), intent(in), optional :: b

procedure, public :: set_units_from_numberdensity

  • private pure subroutine set_units_from_numberdensity(this, unit_length, unit_temperature, unit_numberdensity, He_abundance, a, b)

    Arguments

    Type IntentOptional 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 :: He_abundance
    real(kind=dp), intent(in), optional :: a
    real(kind=dp), intent(in), optional :: b

procedure, public :: set_He_abundance

  • private pure subroutine set_He_abundance(this, He_abundance)

    Arguments

    Type IntentOptional Attributes Name
    class(units_t), intent(inout) :: this
    real(kind=dp), intent(in) :: He_abundance

procedure, public :: set_units_parameters_ab

  • private pure subroutine set_units_parameters_ab(this, a, b)

    Arguments

    Type IntentOptional Attributes Name
    class(units_t), intent(inout) :: this
    real(kind=dp), intent(in) :: a
    real(kind=dp), intent(in) :: b

procedure, public :: get_unit_length

  • private pure function get_unit_length(this)

    Arguments

    Type IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional Attributes Name
    class(units_t), intent(in) :: this

    Return Value real(kind=dp)

procedure, public :: get_He_abundance

  • private pure function get_He_abundance(this)

    Arguments

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

    Return Value real(kind=dp)

procedure, public :: get_units_parameter_a

  • private pure function get_units_parameter_a(this)

    Arguments

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

    Return Value real(kind=dp)

procedure, public :: get_units_parameter_b

  • private pure function get_units_parameter_b(this)

    Arguments

    Type IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional Attributes Name
    class(units_t), intent(in) :: this

    Return Value real(kind=dp)

procedure, private :: update_dependent_units

procedure, private :: set_based_on_to_false