cylinder_2d_implementation Submodule

Damian Rouson and Karla Morris
2/7/2020
197 statements
Source File

Uses

- Ancestors:
- cylinder_2d_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_layers base_object layers success

Derived Types

layers_t material_t num_grid_blocks_t thickness_t

Functions

material replace_layers

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 set_block_metadata set_grid_specification

Variables

Type	Visibility	Attributes		Name		Initial
character(len=*),	private,	parameter	::	base_layers	=	"MORFEUS_FD.layers"
character(len=*),	private,	parameter	::	base_object	=	"MORFEUS_FD"
type(layers_t),	private		::	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(:)	::	x
integer,	public,	allocatable, dimension(:)	::	y
integer,	public,	allocatable, dimension(:)	::	z

type :: thickness_t

Components

Type	Visibility	Attributes		Name		Initial
character(len=:),	public,	allocatable	::	dimensions
real,	public,	allocatable, dimension(:)	::	x
real,	public,	allocatable, dimension(:)	::	y
real,	public,	allocatable, dimension(:)	::	z

Functions

function material(ix, iy, iz, core_, wrapper_) result(material_ix_iy)

Arguments

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

Return Value character(len=max_name_length), allocatable

function replace_layers(full_delineation_x, full_delineation_y, iy) result(wrapper_layer_x)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	full_delineation_x(:)
character(len=*),	intent(in)			::	full_delineation_y(:)
integer				::	iy

Return Value character(len=len(full_delineation_x)) (size(full_delineation_x))

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(cylinder_2d),	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(cylinder_2d),	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(cylinder_2d),	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(cylinder_2d),	intent(in)			::	this
integer,			dimension(space_dimension)	::	indicial_coordinates

Return Value type(block_metadata)

module procedure set_block_metadata module subroutine set_block_metadata(this)

Arguments

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

module procedure set_grid_specification module subroutine set_grid_specification(this, grid_description_file)

Arguments

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