tokamaker_wall.F90 File Reference

#include "local.h"

Modules
module	exp_geom
	Experiment specific components.
module	nonax_wall
	Handle non-axisymmetric walls.

Functions/Subroutines
real(8) function, dimension(3)	biot_savart_elem (rc, thetas, ri_xyz)
	Needs Docs.
subroutine	compute_eddy (self)
	Needs Docs.
subroutine	decay_eigenmodes (ncoils, rc, eig_val, eig_vec, eta)
	Needs docs.
subroutine, public	exp_setup (gs)
	Needs docs.
real(8) function	ltx_eta_set (rc, id)
	Needs docs.
subroutine	ltx_setup (gs, ierr)
	Needs docs.
subroutine	nonax_eigs (ncoils, rc, extent, result, eig_ind, correction, sensors, nsensor, inc_mirror, eta, grid_rz, grid_correction)
	Needs Docs.
subroutine	nonax_indcouple (ncoils, rc, extent, result, drivers, ndriver, correction, sensors, nsensor, inc_mirror, grid_rz, grid_correction)
	Needs Docs.
subroutine	nonax_rescouple (ncoils, rc, extent, result, drivers, ndriver, correction, sensors, nsensor, inc_mirror, eta, grid_rz, grid_correction)
	Needs Docs.
program	tokamaker_wall
	Driver program for GS equilibria.

Variables
real(8)	ltx_vv_amp = 2.d1
integer(4)	ltx_vv_reg = 6

Function/Subroutine Documentation

compute_eddy()

subroutine compute_eddy

(

type(gs_eq), intent(inout), target

self

)

Needs Docs.