mod_grid_settings Module

Uses

- mod_global_variables

Contents

Derived Types

grid_settings_t

Functions

new_grid_settings get_geometry get_gridpts get_gauss_gridpts get_ef_gridpts get_grid_start get_grid_end

Subroutines

set_geometry set_gridpts set_grid_boundaries validate_grid_start delete

Derived Types

type, public :: grid_settings_t

Components

Type	Visibility	Attributes		Name		Initial
character,	private,	allocatable	::	geometry
integer,	private		::	gridpts
integer,	private		::	gauss_gridpts
integer,	private		::	ef_gridpts
real(kind=dp),	private		::	grid_start
real(kind=dp),	private		::	grid_end
logical,	public		::	coaxial
logical,	public		::	force_r0
logical,	public		::	symmetric_grid

Type-Bound Procedures

procedure, public :: set_geometry
procedure, public :: get_geometry
procedure, public :: set_gridpts
procedure, public :: get_gridpts
procedure, public :: get_gauss_gridpts
procedure, public :: get_ef_gridpts
procedure, public :: set_grid_boundaries
procedure, public :: get_grid_start
procedure, public :: get_grid_end
procedure, public :: delete
procedure, private :: validate_grid_start

Functions

public function new_grid_settings() result(grid_settings)

Arguments

None

Return Value type(grid_settings_t)

private pure function get_geometry(this) result(geometry)

Arguments

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

Return Value character(len=:),allocatable

private pure function get_gridpts(this)

Arguments

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

Return Value integer

private pure function get_gauss_gridpts(this)

Arguments

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

Return Value integer

private pure function get_ef_gridpts(this)

Arguments

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

Return Value integer

private pure function get_grid_start(this)

Arguments

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

Return Value real(kind=dp)

private pure function get_grid_end(this)

Arguments

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

Return Value real(kind=dp)

Subroutines

private pure subroutine set_geometry(this, geometry)

Arguments

Type	Intent	Optional	Attributes		Name
class(grid_settings_t),	intent(inout)			::	this
character(len=*),	intent(in)			::	geometry

private pure subroutine set_gridpts(this, gridpts)

Arguments

Type	Intent	Optional	Attributes		Name
class(grid_settings_t),	intent(inout)			::	this
integer,	intent(in)			::	gridpts

private subroutine set_grid_boundaries(this, grid_start, grid_end)

Arguments

Type	Intent	Optional	Attributes		Name
class(grid_settings_t),	intent(inout)			::	this
real(kind=dp),	intent(in)			::	grid_start
real(kind=dp),	intent(in)			::	grid_end

private subroutine validate_grid_start(this)

Arguments

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

private pure subroutine delete(this)

Arguments

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