circular_curr 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 circular_curr:

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

Public Attributes
real(r8)	a = 0.d0
	Minor radius.
real(r8)	delta = 0.d0
	Triangularity.
integer(i4)	dim = 0
	Dimension of field.
real(r8)	kappa = 1.d0
	Elongation.
class(bfem_interp), pointer	parent => NULL()
	Parent interpolator.
real(r8), dimension(2)	x0 = [1.d0,0.d0]
	Circle center.

Member Function/Subroutine Documentation

delete()

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

inherited

Delete reconstruction object.

interp() [1/2]

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

pure virtualinherited

Reconstruct field.

interp() [2/2]

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

Reconstruct field.

Parameters

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

setup()

procedure setup ( class(bfem_interp), intent(inout)  self )

inherited

Setup reconstruction object.

Member Data Documentation

a

real(r8) a = 0.d0

Minor radius.

delta

real(r8) delta = 0.d0

Triangularity.

dim

integer(i4) dim = 0

inherited

Dimension of field.

kappa

real(r8) kappa = 1.d0

Elongation.

parent

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

inherited

Parent interpolator.

x0

real(r8), dimension(2) x0 = [1.d0,0.d0]

Circle center.

---

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

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