mod_resistivity_settings Module

Uses

- mod_global_variables

Contents

Derived Types

resistivity_settings_t

Functions

new_resistivity_settings is_enabled get_fixed_resistivity has_fixed_resistivity

Subroutines

enable disable set_fixed_resistivity

Derived Types

type, public :: resistivity_settings_t

Components

Type	Visibility	Attributes		Name		Initial
logical,	private		::	has_resistivity
real(kind=dp),	private		::	fixed_resistivity_value
logical,	private		::	fixed_resistivity
logical,	public		::	use_dropoff

Type-Bound Procedures

procedure, public :: enable
procedure, public :: disable
procedure, public :: is_enabled
procedure, public :: set_fixed_resistivity
procedure, public :: get_fixed_resistivity
procedure, public :: has_fixed_resistivity

Functions

public pure function new_resistivity_settings() result(resistivity)

Arguments

None

Return Value type(resistivity_settings_t)

private pure function is_enabled(this)

Arguments

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

Return Value logical

private pure function get_fixed_resistivity(this)

Arguments

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

Return Value real(kind=dp)

private pure function has_fixed_resistivity(this)

Arguments

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

Return Value logical

Subroutines

private pure subroutine enable(this)

Arguments

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

private pure subroutine disable(this)

Arguments

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

private pure subroutine set_fixed_resistivity(this, eta)

Arguments

Type	Intent	Optional	Attributes		Name
class(resistivity_settings_t),	intent(inout)			::	this
real(kind=dp),	intent(in)			::	eta