jphi_flux_func Type Reference

Detailed Description

Needs docs.

Inheritance diagram for jphi_flux_func:

Public Member Functions
procedure(flux_func_copy), deferred	copy (self, new)
	Copy profile.
procedure	copy (self, new)
	Needs docs.
procedure	copy (self, new)
	Needs docs.
procedure(flux_func_eval), deferred	f (self, psi)
	Evaluate function.
procedure	f (self, psi)
	Needs docs.
procedure(flux_func_eval), deferred	fp (self, psi)
	Evaluate first derivative of function.
procedure	fp (self, psi)
	Needs docs.
procedure	fpp (self, psi)
	Evaluate second derivative of function.
procedure	fpp (self, psi)
	Needs docs.
procedure(flux_cofs_get), deferred	get_cofs (self, c)
	Get current function parameterization.
procedure	get_cofs (self, c)
	Needs docs.
procedure(flux_cofs_set), deferred	set_cofs (self, c)
	Update function with new parameterization.
procedure	set_cofs (self, c)
	Needs docs.
procedure(flux_func_update), deferred	update (self, gseq)
	Update function to match new equilibrium solution.
procedure	update (self, gseq)
	Update F*F' profile from Jphi, P', and current equilibrium.
procedure	update (self, gseq)
	Needs docs.

Public Attributes
real(r8)	f_offset = 0.d0
	Offset value.
real(8)	j0 = 0.d0
	LCFS Jphi value.
real(8), dimension(:), pointer	jphi => NULL()
	Jphi(psi) profile values.
integer(i4)	ncofs = 0
	Number of free coefficients.
integer(4)	ngeom = 50
	Number of points in psi for <R>, <1/R> evaluation.
integer(4)	npsi = 0
	Needs docs.
real(r8), dimension(2)	plasma_bounds = [-1.d99,1.d99]
	Current plasma bounds (for normalization)
real(8), dimension(:), pointer	x => NULL()
	Needs docs.
real(8), dimension(:), pointer	y => NULL()
	Needs docs.
real(8)	y0 = 1.d0
	Needs docs.
real(8), dimension(:), pointer	yp => NULL()
	Needs docs.

Member Function/Subroutine Documentation

copy() [1/3]

procedure(flux_func_copy), deferred copy ( class(flux_func), intent(inout)  self, class(flux_func), intent(inout), pointer  new  )

pure virtualinherited

Copy profile.

copy() [2/3]

procedure copy	(	class(jphi_flux_func), intent(inout)	self,
		class(flux_func), intent(inout), pointer	new
	)

Needs docs.

copy() [3/3]

procedure copy ( class(linterp_flux_func), intent(inout)  self, class(flux_func), intent(inout), pointer  new  )

inherited

Needs docs.

f() [1/2]

procedure(flux_func_eval), deferred f ( class(flux_func), intent(inout)  self, real(r8), intent(in)  psi  )

pure virtualinherited

Evaluate function.

f() [2/2]

procedure f ( class(linterp_flux_func), intent(inout)  self, real(8), intent(in)  psi  )

inherited

Needs docs.

fp() [1/2]

procedure(flux_func_eval), deferred fp ( class(flux_func), intent(inout)  self, real(r8), intent(in)  psi  )

pure virtualinherited

Evaluate first derivative of function.

fp() [2/2]

procedure fp ( class(linterp_flux_func), intent(inout)  self, real(8), intent(in)  psi  )

inherited

Needs docs.

fpp() [1/2]

procedure fpp ( class(flux_func), intent(inout)  self, real(r8), intent(in)  psi  )

inherited

Evaluate second derivative of function.

fpp() [2/2]

procedure fpp ( class(linterp_flux_func), intent(inout)  self, real(8), intent(in)  psi  )

inherited

Needs docs.

get_cofs() [1/2]

procedure(flux_cofs_get), deferred get_cofs ( class(flux_func), intent(inout)  self, real(r8), dimension(:), intent(out)  c  )

pure virtualinherited

Get current function parameterization.

get_cofs() [2/2]

procedure get_cofs ( class(linterp_flux_func), intent(inout)  self, real(8), dimension(:), intent(out)  c  )

inherited

Needs docs.

set_cofs() [1/2]

procedure(flux_cofs_set), deferred set_cofs ( class(flux_func), intent(inout)  self, real(r8), dimension(:), intent(in)  c  )

pure virtualinherited

Update function with new parameterization.

set_cofs() [2/2]

procedure set_cofs ( class(linterp_flux_func), intent(inout)  self, real(8), dimension(:), intent(in)  c  )

inherited

Needs docs.

update() [1/3]

procedure(flux_func_update), deferred update ( class(flux_func), intent(inout)  self, class(gs_equil), intent(inout)  gseq  )

pure virtualinherited

Update function to match new equilibrium solution.

update() [2/3]

procedure update	(	class(jphi_flux_func), intent(inout)	self,
		class(gs_equil), intent(inout)	gseq
	)

Update F*F' profile from Jphi, P', and current equilibrium.

update() [3/3]

procedure update ( class(linterp_flux_func), intent(inout)  self, class(gs_equil), intent(inout)  gseq  )

inherited

Needs docs.

Member Data Documentation

f_offset

real(r8) f_offset = 0.d0

inherited

Offset value.

j0

real(8) j0 = 0.d0

LCFS Jphi value.

jphi

real(8), dimension(:), pointer jphi => NULL()

Jphi(psi) profile values.

ncofs

integer(i4) ncofs = 0

inherited

Number of free coefficients.

ngeom

integer(4) ngeom = 50

Number of points in psi for <R>, <1/R> evaluation.

npsi

integer(4) npsi = 0

inherited

Needs docs.

plasma_bounds

real(r8), dimension(2) plasma_bounds = [-1.d99,1.d99]

inherited

Current plasma bounds (for normalization)

x

real(8), dimension(:), pointer x => NULL()

inherited

Needs docs.

y

real(8), dimension(:), pointer y => NULL()

inherited

Needs docs.

y0

real(8) y0 = 1.d0

inherited

Needs docs.

yp

real(8), dimension(:), pointer yp => NULL()

inherited

Needs docs.

---

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

• physics/grad_shaf_prof_phys.F90