viscosity_settings_t Derived Type

type, public :: viscosity_settings_t

Contents

Variables

has_viscosity viscous_heating viscosity_value

Type-Bound Procedures

disable is_enabled enable_viscous_heating has_viscous_heating set_viscosity_value get_viscosity_value

Components

Type	Visibility	Attributes		Name		Initial
logical,	private		::	has_viscosity
logical,	private		::	viscous_heating
real(kind=dp),	private		::	viscosity_value

Type-Bound Procedures

procedure, public :: disable

private pure subroutine disable(this)

Arguments

Type Intent Optional Attributes Name

class(viscosity_settings_t), intent(inout) :: this

procedure, public :: is_enabled

private pure function is_enabled(this)

Arguments

Type Intent Optional Attributes Name

class(viscosity_settings_t), intent(in) :: this

Return Value logical

procedure, public :: enable_viscous_heating

private pure subroutine enable_viscous_heating(this)

Arguments

Type Intent Optional Attributes Name

class(viscosity_settings_t), intent(inout) :: this

procedure, public :: has_viscous_heating

private pure function has_viscous_heating(this)

Arguments

Type Intent Optional Attributes Name

class(viscosity_settings_t), intent(in) :: this

Return Value logical

procedure, public :: set_viscosity_value

private pure subroutine set_viscosity_value(this, viscosity_value)

Arguments

Type Intent Optional Attributes Name

class(viscosity_settings_t), intent(inout) :: this

real(kind=dp), intent(in) :: viscosity_value

procedure, public :: get_viscosity_value

private pure function get_viscosity_value(this)

Arguments

Type Intent Optional Attributes Name

class(viscosity_settings_t), intent(in) :: this

Return Value real(kind=dp)