oft_scalar_torus Type Reference

Detailed Description

Interpolation class for an axisymmetric gaussian source in toroidal geometry.

In toroidal coordinates defined by the class the scalar field is defined as

\[ S = e^{-\frac{r^2}{\lambda}} \]

Inheritance diagram for oft_scalar_torus:

Public Member Functions
procedure	delete (self)
	Delete reconstruction object.
procedure(oft_fem_interp), deferred	interp (self, cell, f, gop, val)
	Reconstruct field.
procedure	interp (self, cell, f, gop, val)
	Reconstruct field.

Public Attributes
integer(i4)	dim = 0
	Dimension of field.
real(r8)	lam = 1.d0
	Source width parameter.
class(oft_mesh), pointer	mesh => NULL()
	Mesh for interpolation.
class(fem_interp), pointer	parent => NULL()
	Parent interpolator.
real(r8)	r0 = 1.d0
	Major radius.
real(r8)	z = 0.d0
	Z-axis offset.

Member Function/Subroutine Documentation

delete()

procedure delete ( class(fem_interp), intent(inout) self )

inherited

Delete reconstruction object.

interp() [1/2]

procedure(oft_fem_interp), deferred interp ( class(fem_interp), intent(inout) self, integer(i4), intent(in) cell, real(r8), dimension(:), intent(in) f, real(r8), dimension(3,4), intent(in) gop, real(r8), dimension(:), intent(out) val )

pure virtualinherited

Reconstruct field.

interp() [2/2]

procedure interp	(	class(oft_scalar_torus), intent(inout)	self,
		integer(i4), intent(in)	cell,
		real(r8), dimension(:), intent(in)	f,
		real(r8), dimension(3,4), intent(in)	gop,
		real(r8), dimension(:), intent(out)	val )

Reconstruct field.

Parameters

[in]	cell	Cell for interpolation
[in]	f	Position in cell in logical coord [4]
[in]	gop	Logical gradient vectors at f [3,4]
[out]	val	Reconstructed field at f [1]

Member Data Documentation

dim

integer(i4) dim = 0

inherited

Dimension of field.

lam

real(r8) lam = 1.d0

Source width parameter.

mesh

class(oft_mesh), pointer mesh => NULL()

inherited

Mesh for interpolation.

parent

class(fem_interp), pointer parent => NULL()

inherited

Parent interpolator.

r0

real(r8) r0 = 1.d0

Major radius.

z

real(r8) z = 0.d0

Z-axis offset.

---

The documentation for this type was generated from the following file:

• /home/runner/work/OpenFUSIONToolkit/OpenFUSIONToolkit/src/physics/oft_scalar_inits.F90