sphere_1d_implementation Submodule

Damian Rouson and Karla Morris
2/24/2020
202 statements
Source File

Uses

- Ancestors:
- sphere_1d_interface
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Contents

Variables

base_object layers layers_object success

Derived Types

layers_t material_t num_grid_blocks_t thickness_t

Functions

material

Subroutines

read_core_components read_wrappers_components set_metadata verify_core_components verify_layers verify_wrappers_components

Module Procedures

get_block_domain get_block_metadata get_block_metadata_shape get_block_metadatum get_end_time set_block_metadata set_grid_specification

Variables

Type	Visibility	Attributes		Name		Initial
character(len=*),	private,	parameter	::	base_object	=	"MORFEUS_FD"
type(layers_t),	private		::	layers
character(len=*),	private,	parameter	::	layers_object	=	"MORFEUS_FD.layers"
integer,	private,	parameter	::	success	=	0	Encapsulate json key/value pair hierarchy to be read from a 3Dplate*.json file

Derived Types

type :: layers_t

Components

Type	Visibility	Attributes		Name		Initial
type(material_t),	public		::	core
real,	public		::	max_spacing
character(len=:),	public,	allocatable	::	type_
character(len=:),	public,	allocatable	::	units_system
type(material_t),	public		::	wrappers

type :: material_t

Components

Type	Visibility	Attributes		Name		Initial
character(len=max_name_length),	public,	allocatable, dimension(:)	::	material_name
type(num_grid_blocks_t),	public		::	num_grid_blocks
type(thickness_t),	public		::	thickness

type :: num_grid_blocks_t

Components

Type	Visibility	Attributes		Name		Initial
integer,	public,	allocatable, dimension(:)	::	phi
integer,	public,	allocatable, dimension(:)	::	r
integer,	public,	allocatable, dimension(:)	::	theta

type :: thickness_t

Components

Type	Visibility	Attributes		Name		Initial
character(len=:),	public,	allocatable	::	dimensions
real,	public,	allocatable, dimension(:)	::	phi
real,	public,	allocatable, dimension(:)	::	r
real,	public,	allocatable, dimension(:)	::	theta

Functions

function material(ir, core_, wrapper_) result(material_ir)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ir
type(material_t),	intent(in)			::	core_
type(material_t),	intent(in)			::	wrapper_

Return Value character(len=max_name_length), allocatable

Subroutines

subroutine read_core_components()

Arguments

None

subroutine read_wrappers_components()

Arguments

None

subroutine set_metadata()

Arguments

None

subroutine verify_core_components()

apply constraints specified in the json file

Arguments

None

subroutine verify_layers()

Arguments

None

subroutine verify_wrappers_components()

apply constraints specified in the json file

Arguments

None

Module Procedures

module procedure get_block_domain module function get_block_domain(this, indicial_coordinates) result(this_domain)

Arguments

Type	Intent	Optional	Attributes		Name
class(sphere_1d),	intent(in)			::	this
integer,			dimension(space_dimension)	::	indicial_coordinates

Return Value real(kind=r8k), dimension(space_dimension,num_end_points)

module procedure get_block_metadata module function get_block_metadata(this) result(this_metadata)

Arguments

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

Return Value type(block_metadata), dimension(:,:,:), allocatable

module procedure get_block_metadata_shape module function get_block_metadata_shape(this) result(shape_)

Arguments

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

Return Value integer, dimension(space_dimension)

module procedure get_block_metadatum module function get_block_metadatum(this, indicial_coordinates) result(this_metadata_xyz)

Arguments

Type	Intent	Optional	Attributes		Name
class(sphere_1d),	intent(in)			::	this
integer,			dimension(space_dimension)	::	indicial_coordinates

Return Value type(block_metadata)

module procedure get_end_time module function get_end_time(this) result(end_time)

Arguments

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

Return Value real(kind=r8k)

module procedure set_block_metadata module subroutine set_block_metadata(this)

Arguments

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

module procedure set_grid_specification module subroutine set_grid_specification(this, grid_description_file)

Arguments

Type	Intent	Optional	Attributes		Name
class(sphere_1d),	intent(out)			::	this
character(len=*),	intent(in)			::	grid_description_file