mod_viscosity_settings Module


Uses


Derived Types

type, public ::  viscosity_settings_t

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
procedure, public :: is_enabled
procedure, public :: enable_viscous_heating
procedure, public :: has_viscous_heating
procedure, public :: set_viscosity_value
procedure, public :: get_viscosity_value

Functions

public pure function new_viscosity_settings() result(viscosity)

Arguments

None

Return Value type(viscosity_settings_t)

private pure function is_enabled(this)

Arguments

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

Return Value logical

private pure function has_viscous_heating(this)

Arguments

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

Return Value logical

private pure function get_viscosity_value(this)

Arguments

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

Return Value real(kind=dp)


Subroutines

private pure subroutine enable_viscous_heating(this)

Arguments

Type IntentOptional Attributes Name
class(viscosity_settings_t), intent(inout) :: this

private pure subroutine disable(this)

Arguments

Type IntentOptional Attributes Name
class(viscosity_settings_t), intent(inout) :: this

private pure subroutine set_viscosity_value(this, viscosity_value)

Arguments

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