oft_gs_eq Type Reference

Detailed Description

Grad-Shafranov equilibrium field.

Inheritance diagram for oft_gs_eq:

Public Member Functions
procedure	delete (self)
	Delete reconstruction object.
procedure	delete (self)
	Delete reconstruction object, 2D mesh and FE representation.
procedure(oft_fem_interp), deferred	interp (self, cell, f, gop, val)
	Reconstruct field.
procedure	interp (self, cell, f, gop, val)
	Reconstruct field at a given point in the 3D mesh.
procedure	setup (self, mesh)
	Load GS solution from file and setup interpolation.

Public Attributes
type(oft_lag_bvrinterp)	b_interp
	B-Field interpolation object.
real(r8), dimension(:,:), pointer	bvals => NULL()
	Nodal B-Field values.
integer(i4), dimension(:), pointer	cell_tri => NULL()
	Current 2D cell.
integer(i4)	dim = 0
	Dimension of field.
character(len=oft_path_slen)	eq_file = 'none'
	File containing field data.
character(len=oft_path_slen)	field_file = 'none'
	File containing field data.
character(len=oft_path_slen)	grid_file = 'none'
	File containing 2D grid.
integer(i4)	interp_mode = 1
	Interpolation mode (1 -> 'B', 2 -> 'P')
class(oft_afem_type), pointer	lagrange => NULL()
	FE representation on 2D grid.
class(oft_mesh), pointer	mesh => NULL()
	Mesh for interpolation.
integer(i4)	order = 1
	Order of FE representation on input mesh.
type(oft_lag_brinterp)	p_interp
	Pressure field interpolation object.
class(fem_interp), pointer	parent => NULL()
	Parent interpolator.
integer(i4), dimension(:), pointer	pcell => NULL()
	Previous 2D cell.
real(r8)	pmax = 0.d0
	Maximum pressure.
real(r8), dimension(:), pointer	pvals => NULL()
	Nodal pressure values.
type(oft_trimesh)	tmesh
	2D triangular grid

Member Function/Subroutine Documentation

delete() [1/2]

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

inherited

Delete reconstruction object.

delete() [2/2]

procedure delete

(

class(oft_gs_eq), intent(inout)

self

)

Delete reconstruction object, 2D mesh and FE representation.

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_gs_eq), 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 at a given point in the 3D mesh.

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]

setup()

procedure setup	(	class(oft_gs_eq), intent(inout)	self,
		class(oft_mesh), intent(inout), target	mesh
	)

Load GS solution from file and setup interpolation.

Load equilibrium from file and constructs mesh and FE objects

Member Data Documentation

b_interp

type(oft_lag_bvrinterp) b_interp

B-Field interpolation object.

bvals

real(r8), dimension(:,:), pointer bvals => NULL()

Nodal B-Field values.

cell_tri

integer(i4), dimension(:), pointer cell_tri => NULL()

Current 2D cell.

dim

integer(i4) dim = 0

inherited

Dimension of field.

eq_file

character(len=oft_path_slen) eq_file = 'none'

File containing field data.

field_file

character(len=oft_path_slen) field_file = 'none'

File containing field data.

grid_file

character(len=oft_path_slen) grid_file = 'none'

File containing 2D grid.

interp_mode

integer(i4) interp_mode = 1

Interpolation mode (1 -> 'B', 2 -> 'P')

lagrange

class(oft_afem_type), pointer lagrange => NULL()

FE representation on 2D grid.

mesh

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

inherited

Mesh for interpolation.

order

integer(i4) order = 1

Order of FE representation on input mesh.

p_interp

type(oft_lag_brinterp) p_interp

Pressure field interpolation object.

parent

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

inherited

Parent interpolator.

pcell

integer(i4), dimension(:), pointer pcell => NULL()

Previous 2D cell.

pmax

real(r8) pmax = 0.d0

Maximum pressure.

pvals

real(r8), dimension(:), pointer pvals => NULL()

Nodal pressure values.

tmesh

type(oft_trimesh) tmesh

2D triangular grid

---

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

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