mod_viscosity_settings Module

Uses

- mod_global_variables

Contents

Derived Types

viscosity_settings_t

Functions

new_viscosity_settings is_enabled has_viscous_heating get_viscosity_value

Subroutines

enable_viscous_heating disable set_viscosity_value

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	Intent	Optional	Attributes		Name
class(viscosity_settings_t),	intent(in)			::	this

Return Value logical

private pure function has_viscous_heating(this)

Arguments

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

Return Value logical

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)

Subroutines

private pure subroutine enable_viscous_heating(this)

Arguments

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

private pure subroutine disable(this)

Arguments

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

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