The Open FUSION Toolkit 1.0.0-beta6
Modeling tools for plasma and fusion research and engineering
Loading...
Searching...
No Matches
thin_wall.F90 File Reference
#include "local.h"

Data Types

type  floop_sensor
 Structure containing definition of a flux loop sensor. More...
type  hole_mesh
 Structure containing definition of "hole" elements for multiply connected surfaces. More...
type  jumper_sensor
 Structure containing definition of a current jumper sensor. More...
type  tw_coil_set
 Structure containing a coil sets composed of one or more individual filament coils. More...
type  tw_gen_coil
 Structure containing filament coil definition. More...
type  tw_plasma_boozer
 Class for thin-wall simulation. More...
type  tw_sensors
 Structure containing sensor sets. More...
type  tw_type
 Class for thin-wall simulation. More...

Modules

module  thin_wall
 Module for thin-wall modeling on 3D triangular meshes.

Macros

#define MAX_EDGE_CONN   6

Functions/Subroutines

subroutine get_hole_pseq (i0, plist, n)
 Find connected chain for a boundary hole from a starting vertex.
subroutine order_hole_list (list_in, list_out, n)
 Reorder hole vertices into a sequential chain.
subroutine order_jumper_list (list_in, list_out, n)
 Order jumper list into sequential chain.
subroutine tw_build_boozer (self, s, alpha)
 Needs Docs.
subroutine tw_compute_ael2dr (tw_obj, save_file)
 Compute element to driver (Icoils) coupling matrix.
subroutine tw_compute_bops (self, save_file)
 Needs Docs.
subroutine tw_compute_lmat_coils (tw_obj)
 Compute coupling from thin-wall model elements to flux loop sensors.
subroutine tw_compute_lmat_mf (row_obj, col_obj, nrhs, a, b)
 Compute mutual inductance matrix between two thin-wall models.
subroutine tw_compute_lmatdirect (row_model, lmat, col_model, save_file)
 Compute mutual inductance matrix between two thin-wall models.
subroutine tw_compute_mutuals (tw_obj, nsensors, sensors, save_file)
 Compute coupling from thin-wall model elements to flux loop sensors.
real(8) function tw_compute_phipot (pt_cell, pt)
 Compute \( \int 1/(r-r') dA' \) for a triangle.
subroutine tw_compute_rmat (tw_obj, keep_closures)
 Compute resistivity matrix for thin-wall model.
subroutine tw_copy_coil (coil_in, coil_out)
 Create a copy (by reference) of a coil set.
subroutine tw_load_coils (group_node, ncoils, coils)
 Read coil sets for "oft_in.xml" file.
subroutine tw_load_eta (self)
 Load resistivity and sensor mask from "oft_in.xml" file.
subroutine tw_load_mode (filename, self, driver)
 Load forcing mesh and fields for an MHD-style mode.
subroutine tw_load_sensors (filename, self, sensors)
 Load sensors from "floops.loc" and build jumpers from nodesets.
subroutine tw_recon_curr (self, pot, curr)
 Save solution vector for thin-wall model for plotting in VisIt.
subroutine tw_rst_load (u, filename, path)
 Load Thin-wall solution vector from a restart file.
subroutine tw_rst_save (self, u, filename, path, append)
 Save Thin-wall solution vector to a restart file.
subroutine tw_save_debug (self)
 Save debug plotting information for thin-wall model.
subroutine tw_save_hole_debug (self)
 Needs Docs.
subroutine tw_save_pfield (self, a, tag)
 Save solution vector for thin-wall model for plotting in VisIt.
subroutine tw_setup (self, hole_ns)
 Needs Docs.
subroutine tw_setup_hole (bmesh, hmesh)
 Setup hole definition for ordered chain of vertices.

Variables

real(r8), parameter coil_min_rad = 1.d-6
integer(i4), dimension(3) quad_orders = [18, 10, 6]
 Quadrature order for each tolerance.
real(r8), dimension(3) quad_tols = [0.75d0, 0.95d0, 0.995d0]
 Distance tolerances for quadrature order selection.
real(r8), parameter target_err = 1.d-8
character(len=16), parameter, public tw_idx_path ="ThinCurr_Version"
 HDF5 field name.
integer(i4), parameter, public tw_idx_ver =1
 File version for array indexing.

Macro Definition Documentation

◆ MAX_EDGE_CONN

#define MAX_EDGE_CONN   6

Function/Subroutine Documentation

◆ get_hole_pseq()

subroutine get_hole_pseq ( integer(4), intent(in) i0,
integer(4), dimension(:), intent(out), pointer plist,
integer(4), intent(out) n )
private

Find connected chain for a boundary hole from a starting vertex.

Parameters
[in]i0Starting vertex (must be on boundary)
[out]plistList of vertices forming chain
[out]nNumber of vertices in chain

◆ order_hole_list()

subroutine order_hole_list ( integer(4), dimension(n), intent(in) list_in,
integer(4), dimension(n), intent(out) list_out,
integer(4), intent(in) n )
private

Reorder hole vertices into a sequential chain.

Parameters
[in]list_inInput vertex list
[out]list_outReordered list
[in]nNumber of points in list

◆ order_jumper_list()

subroutine order_jumper_list ( integer(4), dimension(n), intent(in) list_in,
integer(4), dimension(n), intent(out) list_out,
integer(4), intent(in) n )
private

Order jumper list into sequential chain.

Parameters
[in]list_inInput vertex list
[out]list_outReordered vertex list
[in]nNumber of vertices in jumper definition