spherical_1d_solver_module Module

Xiaofeng Xu and Damian Rouson
2/24/2020
48 statements
Source File

Solve the 1D heat equation in spherically symmetric radial coordinates

Uses

- kind_parameters
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.

Used by

- Descendants:
- solver_submodule
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

Interfaces

set_cp set_expected_solution_size set_material_properties_size set_rho set_v time_advance_heat_equation

Derived Types

spherical_1d_solver

Interfaces

interface

private module subroutine set_cp(this)

Arguments

Type Intent Optional Attributes Name

class(spherical_1d_solver), intent(inout) :: this

interface

private module subroutine set_expected_solution_size(this)

Arguments

Type Intent Optional Attributes Name

class(spherical_1d_solver), intent(inout) :: this

interface

private module subroutine set_material_properties_size(this)

Arguments

Type Intent Optional Attributes Name

class(spherical_1d_solver), intent(inout) :: this

interface

private module subroutine set_rho(this)

Arguments

Type Intent Optional Attributes Name

class(spherical_1d_solver), intent(inout) :: this

interface

private module subroutine set_v(this, nr, constants)

Arguments

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

interface

private 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

Derived Types

type, public :: spherical_1d_solver

encapsulate all grid data

Components

Type	Visibility	Attributes		Name		Initial
real(kind=r8k),	private,	allocatable	::	cp(:)			density and specific heat (size = nr)
real(kind=r8k),	private,	allocatable	::	rho(:)			density and specific heat (size = nr)
real(kind=r8k),	private,	allocatable	::	t_analytical(:)			expected solution (size = nr)
real(kind=r8k),	private,	allocatable	::	v(:,:)			v(:,1) = r, v(:,2) = T, shape = [nr,2]

Type-Bound Procedures

procedure, public :: set_cp
procedure, public :: set_expected_solution_size
procedure, public :: set_material_properties_size
procedure, public :: set_rho
procedure, public :: set_v
procedure, public :: time_advance_heat_equation