solver_submodule – Morfeus Framework

Uses

- assertions_interface
- kind_parameters
- Ancestors:
- spherical_1d_solver_module
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.

Functions

kc tridiagonal_matrix_algorithm

Subroutines

analytical_solution error_calculation time_advancing

Module Procedures

set_cp set_expected_solution_size set_material_properties_size set_rho set_v time_advance_heat_equation

Functions

pure function kc(x) result(thermal_conductivity)

thermal conductivity (constant for comparison to analytical solution)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8k),	intent(in)			::	x

Return Value real(kind=r8k)

function tridiagonal_matrix_algorithm(a, b, c, d) result(x)

Thomas algorithm

Arguments

Type	Intent	Attributes		Name
real(kind=r8k),	intent(inout),	dimension(:)	::	a
real(kind=r8k),	intent(inout),	dimension(:)	::	b
real(kind=r8k),	intent(inout),	dimension(:)	::	c
real(kind=r8k),	intent(inout),	dimension(:)	::	d

Return Value real(kind=r8k), dimension(:), allocatable

Subroutines

subroutine analytical_solution(nr)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nr

subroutine error_calculation(nr)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nr

subroutine time_advancing(nr, dt)

ifort 18 bug precludes associate( dr_m => dr_b) ifort 18 bug precludes associate( rf => this%v(i,1) + 0.5*dr_b)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nr
real(kind=r8k),	intent(in)			::	dt

Module Procedures

module procedure set_cp module subroutine set_cp(this)

Arguments

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

module procedure set_expected_solution_size module subroutine set_expected_solution_size(this)

Arguments

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

module procedure set_material_properties_size module subroutine set_material_properties_size(this)

Arguments

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

module procedure set_rho module subroutine set_rho(this)

Arguments

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

module procedure set_v module subroutine set_v(this, nr, constants)

cluster grid points near center and near surface

Arguments

Type	Intent		Name
class(spherical_1d_solver),	intent(inout)	::	this
integer,	intent(in)	::	nr
real(kind=r8k),	intent(in)	::	constants(:)

module procedure time_advance_heat_equation module subroutine time_advance_heat_equation(this, duration)

Arguments

Type	Intent	Optional	Attributes		Name
class(spherical_1d_solver),	intent(inout)			::	this
real(kind=r8k),	intent(in)			::	duration

solver_submodule Submodule

Contents

Functions

Subroutines

Module Procedures

Uses

Ancestors:

Contents

Functions

Subroutines

Module Procedures

Functions

pure function kc(x) result(thermal_conductivity)

Arguments

Return Value real(kind=r8k)

function tridiagonal_matrix_algorithm(a, b, c, d) result(x)

Arguments

Return Value real(kind=r8k), dimension(:), allocatable

Subroutines

subroutine analytical_solution(nr)

Arguments

subroutine error_calculation(nr)

Arguments

subroutine time_advancing(nr, dt)

Arguments

Module Procedures

module procedure set_cp module subroutine set_cp(this)

Arguments

module procedure set_expected_solution_size module subroutine set_expected_solution_size(this)

Arguments

module procedure set_material_properties_size module subroutine set_material_properties_size(this)

Arguments

module procedure set_rho module subroutine set_rho(this)

Arguments

module procedure set_v module subroutine set_v(this, nr, constants)

Arguments

module procedure time_advance_heat_equation module subroutine time_advance_heat_equation(this, duration)

Arguments

solver_submodule Submodule

Contents

Functions

Subroutines

Module Procedures

Uses

Ancestors:

Contents

Functions

Subroutines

Module Procedures

Functions

pure function kc(x) result(thermal_conductivity)

Arguments

Return Value real(kind=r8k)

function tridiagonal_matrix_algorithm(a, b, c, d) result(x)

Arguments

Return Value real(kind=r8k), dimension(:), allocatable

Subroutines

subroutine analytical_solution(nr)

Arguments

subroutine error_calculation(nr)

Arguments

subroutine time_advancing(nr, dt)

Arguments

Module Procedures

module procedure set_cp module subroutine set_cp(this) Interface →

Arguments

module procedure set_expected_solution_size module subroutine set_expected_solution_size(this) Interface →

Arguments

module procedure set_material_properties_size module subroutine set_material_properties_size(this) Interface →

Arguments

module procedure set_rho module subroutine set_rho(this) Interface →

Arguments

module procedure set_v module subroutine set_v(this, nr, constants) Interface →

Arguments

module procedure time_advance_heat_equation module subroutine time_advance_heat_equation(this, duration) Interface →

Arguments

module procedure set_cp module subroutine set_cp(this)

module procedure set_expected_solution_size module subroutine set_expected_solution_size(this)

module procedure set_material_properties_size module subroutine set_material_properties_size(this)

module procedure set_rho module subroutine set_rho(this)

module procedure set_v module subroutine set_v(this, nr, constants)

module procedure time_advance_heat_equation module subroutine time_advance_heat_equation(this, duration)