thincurr_f Module Reference

Detailed Description

Fortran part of Python wrapper for ThinCurr thin-wall eddy current functionality.

Authors

Chris Hansen

Date

March 2024

Functions/Subroutines
subroutine	thincurr_apply_lmat (tw_ptr, vals, hodlr_ptr)
	Apply inductance matrix to a ThinCurr field.
subroutine	thincurr_bmat (tw_ptr, hodlr_ptr, bmat_ptr, bdr_ptr, cache_file, error_str)
	Compute magnetic field reconstruction operators for a ThinCurr model.
subroutine	thincurr_cross_coupling (tw_ptr1, tw_ptr2, mmat, cache_file, error_str)
	Compute the mutual inductance between this and another ThinCurr model.
subroutine	thincurr_cross_eval (tw_ptr1, tw_ptr2, nrhs, vec1, vec2, error_str)
	Evaluate inductances on one model due to currents from another model.
subroutine	thincurr_curr_regmat (tw_ptr, rmat, error_str)
	Compute the current regularization matrix for a ThinCurr model.
subroutine	thincurr_eigenvalues (tw_ptr, direct, neigs, eig_vals, eig_vec, hodlr_ptr, error_str)
	Compute eigenmodes (L/R times and current structures) of a ThinCurr model.
subroutine	thincurr_freq_response (tw_ptr, direct, fr_limit, freq, fr_driver, hodlr_ptr, error_str)
	Compute frequence response of a ThinCurr model to given driver voltages.
subroutine	thincurr_get_eta (tw_ptr, eta_ptr, error_str)
	Get model surface resistivity values.
subroutine	thincurr_get_eta_vol (tw_ptr, eta_ptr, error_str)
	Get model volumetric resistivity values.
subroutine	thincurr_get_sensor_name (sensor_ptr, sensor_ind, sensor_name, error_str)
	Get the name of a given sensor.
subroutine	thincurr_get_thickness (tw_ptr, thickness_ptr, error_str)
	Return the thickness of the regions as an array of length nreg. If thickness is not set, return -1 for all regions.
subroutine	thincurr_lmat (tw_ptr, use_hodlr, lmat_ptr, cache_file, error_str)
	Compute the self-inductance matrix for a ThinCurr model.
subroutine	thincurr_mcoil (tw_ptr, mc_ptr, cache_file, error_str)
	Compute the mutual inductance between passive (mesh+Vcoils) and active elements (Icoils).
subroutine	thincurr_msensor (tw_ptr, sensor_file, ms_ptr, msc_ptr, nsensors, njumpers, sensor_ptr, cache_file, error_str)
	Compute the mutual inductance between model and sensors.
subroutine	thincurr_recon_curr (tw_ptr, vals, curr, format)
	Reconstruct current field on mesh.
subroutine	thincurr_recon_field (tw_ptr, pot, coils, field, hodlr_ptr)
	Reconstruct magnetic field on mesh.
subroutine	thincurr_reduce_model (tw_ptr, filename, nbasis, basis_vecs, compute_b, sensor_ptr, hodlr_ptr, error_str)
	Needs docs.
subroutine	thincurr_rmat (tw_ptr, kr_ptr, lc_ptr, mat_ptr, error_str)
	Compute the resistance matrix for a ThinCurr model.
subroutine	thincurr_save_field (tw_ptr, vals, fieldname)
	Save current field from ThinCurr to plot files.
subroutine	thincurr_save_scalar (tw_ptr, vals, fieldname)
	Save scalar field to plot files.
subroutine	thincurr_scale_va (tw_ptr, vals, div_flag)
	Scale a vertex array by vertex areas (eg. B_n -> flux).
subroutine	thincurr_set_eta (tw_ptr, eta_surf_ptr, eta_vol_ptr, thickness_ptr, error_str)
	Set resistivity and thickness values with automatic derivation of missing parameter. Accepts eta_surf alone, or any two of (eta_surf, eta_vol, thickness), and derives the missing value(s). If all three are provided, eta_surf is recomputed from eta_vol and thickness.
subroutine	thincurr_setup (mesh_file, np, r_loc, nc, lc_loc, reg_loc, pmap_loc, jumper_start_in, tw_ptr, sizes, error_str, xml_ptr)
	Setup ThinCurr model.
subroutine	thincurr_setup_io (tw_ptr, basepath, save_debug, legacy_hdf5, error_str)
	Setup I/O and plotting for ThinCurr model.
subroutine	thincurr_time_domain (tw_ptr, direct, dt, nsteps, cg_atol, cg_rtol, timestep_cn, nstatus, nplot, vec_ic, sensor_ptr, ncurr, curr_ptr, nvolt, volt_ptr, volts_full, sensor_vals_ptr, hodlr_ptr, error_str)
	Perform a time-domain simulation.
subroutine	thincurr_time_domain_plot (tw_ptr, compute_b, rebuild_sensors, nsteps, nplot, sensor_ptr, sensor_vals_ptr, nsensor, hodlr_ptr, error_str)
	Generate plot files for a time domain simulation that has already been run.

Variables
integer(i4), dimension(:,:), pointer	lc_plot
	Needs docs.
real(r8), dimension(:,:), pointer	r_plot
	Needs docs.
integer(i4), dimension(:), pointer	reg_plot
	Needs docs.

Function/Subroutine Documentation

thincurr_apply_lmat()

subroutine thincurr_apply_lmat	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(in), value	vals,
		type(c_ptr), intent(in), value	hodlr_ptr )

Apply inductance matrix to a ThinCurr field.

Parameters

[in]	tw_ptr	Pointer to ThinCurr object
[in]	vals	Field to apply matrix to (overwritten with result on output)
[in]	hodlr_ptr	Pointer to HODLR object or null

thincurr_bmat()

subroutine thincurr_bmat	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(in), value	hodlr_ptr,
		type(c_ptr), intent(out)	bmat_ptr,
		type(c_ptr), intent(out)	bdr_ptr,
		character(kind=c_char), dimension(oft_path_slen), intent(in)	cache_file,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Compute magnetic field reconstruction operators for a ThinCurr model.

Parameters

[in]	tw_ptr	ThinCurr object
[in]	hodlr_ptr	HODLR operator or null
[out]	bmat_ptr	Magnetic field reconstruction operator
[out]	bdr_ptr	Magnetic field reconstruction operator for Icoils
[in]	cache_file	Path to cache file
[out]	error_str	Error message

thincurr_cross_coupling()

subroutine thincurr_cross_coupling	(	type(c_ptr), intent(in), value	tw_ptr1,
		type(c_ptr), intent(in), value	tw_ptr2,
		type(c_ptr), intent(in), value	mmat,
		character(kind=c_char), dimension(oft_path_slen), intent(in)	cache_file,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Compute the mutual inductance between this and another ThinCurr model.

Parameters

[in]	tw_ptr1	ThinCurr object 1 (eg. plasma model)
[in]	tw_ptr2	ThinCurr object 2 (eg. wall model)
[in]	mmat	Mutual inductance matrix
[in]	cache_file	Path to cache file
[out]	error_str	Error message

thincurr_cross_eval()

subroutine thincurr_cross_eval	(	type(c_ptr), intent(in), value	tw_ptr1,
		type(c_ptr), intent(in), value	tw_ptr2,
		integer(kind=c_int), intent(in), value	nrhs,
		type(c_ptr), intent(in), value	vec1,
		type(c_ptr), intent(in), value	vec2,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Evaluate inductances on one model due to currents from another model.

Parameters

[in]	tw_ptr1	ThinCurr object 1 (eg. plasma model)
[in]	tw_ptr2	ThinCurr object 2 (eg. wall model)
[in]	nrhs	Number of fields in vec1 and vec2
[in]	vec1	Currents on model 1
[in]	vec2	Fluxes on model 2
[out]	error_str	Error message

thincurr_curr_regmat()

subroutine thincurr_curr_regmat	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(in), value	rmat,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Compute the current regularization matrix for a ThinCurr model.

Parameters

[in]	tw_ptr	ThinCurr object pointer
[in]	rmat	Pointer to regularization matrix
[out]	error_str	Error message

thincurr_eigenvalues()

subroutine thincurr_eigenvalues	(	type(c_ptr), intent(in), value	tw_ptr,
		logical(kind=c_bool), intent(in), value	direct,
		integer(kind=c_int), intent(in), value	neigs,
		type(c_ptr), intent(in), value	eig_vals,
		type(c_ptr), intent(in), value	eig_vec,
		type(c_ptr), intent(in), value	hodlr_ptr,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Compute eigenmodes (L/R times and current structures) of a ThinCurr model.

Parameters

[in]	tw_ptr	ThinCurr object pointer
[in]	direct	Use direct solver?
[in]	neigs	Number of eigenmodes to compute
[in]	eig_vals	Pointer to eigenvalue array
[in]	eig_vec	Pointer to eigenvector array
[in]	hodlr_ptr	Pointer to HODLR operator
[out]	error_str	Error message

thincurr_freq_response()

subroutine thincurr_freq_response	(	type(c_ptr), intent(in), value	tw_ptr,
		logical(kind=c_bool), intent(in), value	direct,
		integer(kind=c_int), intent(in), value	fr_limit,
		real(kind=c_double), intent(in), value	freq,
		type(c_ptr), intent(in), value	fr_driver,
		type(c_ptr), intent(in), value	hodlr_ptr,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Compute frequence response of a ThinCurr model to given driver voltages.

Parameters

[in]	tw_ptr	ThinCurr object pointer
[in]	direct	Use direct solver?
[in]	fr_limit	Frequency limit for calculation (0: none, 1: inductive, 2: resistive)
[in]	freq	Frequency for response calculation [Hz] (unused if fr_limit/=0)
[in]	fr_driver	Pointer to driver voltages (overwritten with result on output)
[in]	hodlr_ptr	Pointer to HODLR operator or null
[out]	error_str	Error message

thincurr_get_eta()

subroutine thincurr_get_eta	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(in), value	eta_ptr,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Get model surface resistivity values.

Parameters

[in]	tw_ptr	ThinCurr object pointer
[in]	eta_ptr	Pointer to array for return values
[out]	error_str	Error message

thincurr_get_eta_vol()

subroutine thincurr_get_eta_vol	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(in), value	eta_ptr,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Get model volumetric resistivity values.

Parameters

[in]	tw_ptr	ThinCurr object pointer
[in]	eta_ptr	Pointer to array for return values
[out]	error_str	Error message

thincurr_get_sensor_name()

subroutine thincurr_get_sensor_name	(	type(c_ptr), intent(in), value	sensor_ptr,
		integer(kind=c_int), intent(in), value	sensor_ind,
		character(kind=c_char), dimension(40), intent(out)	sensor_name,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Get the name of a given sensor.

Parameters

[in]	sensor_ptr	Pointer to sensor object
[in]	sensor_ind	Index of the sensor
[out]	sensor_name	Name of the sensor
[out]	error_str	Error message

thincurr_get_thickness()

subroutine thincurr_get_thickness	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(in), value	thickness_ptr,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Return the thickness of the regions as an array of length nreg. If thickness is not set, return -1 for all regions.

thincurr_lmat()

subroutine thincurr_lmat	(	type(c_ptr), intent(in), value	tw_ptr,
		logical(kind=c_bool), intent(in), value	use_hodlr,
		type(c_ptr), intent(out)	lmat_ptr,
		character(kind=c_char), dimension(oft_path_slen), intent(in)	cache_file,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Compute the self-inductance matrix for a ThinCurr model.

Parameters

[in]	tw_ptr	ThinCurr object
[in]	use_hodlr	Use HODLR compression?
[out]	lmat_ptr	Pointer to inductance matrix or HODLR operator
[in]	cache_file	Path to cache file
[out]	error_str	Error message

thincurr_mcoil()

subroutine thincurr_mcoil	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(out)	mc_ptr,
		character(kind=c_char), dimension(oft_path_slen), intent(in)	cache_file,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Compute the mutual inductance between passive (mesh+Vcoils) and active elements (Icoils).

Parameters

[in]	tw_ptr	ThinCurr object
[out]	mc_ptr	Pointer to mutual inductance matrix
[in]	cache_file	Path to cache file
[out]	error_str	Error message

thincurr_msensor()

subroutine thincurr_msensor	(	type(c_ptr), intent(in), value	tw_ptr,
		character(kind=c_char), dimension(oft_path_slen), intent(in)	sensor_file,
		type(c_ptr), intent(out)	ms_ptr,
		type(c_ptr), intent(out)	msc_ptr,
		integer(kind=c_int), intent(out)	nsensors,
		integer(kind=c_int), intent(out)	njumpers,
		type(c_ptr), intent(inout)	sensor_ptr,
		character(kind=c_char), dimension(oft_path_slen), intent(in)	cache_file,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Compute the mutual inductance between model and sensors.

Parameters

[in]	tw_ptr	ThinCurr object
[in]	sensor_file	Path to sensor file
[out]	ms_ptr	Pointer to mutual inductance matrix between mesh+Vcoils and sensors
[out]	msc_ptr	Pointer to mutual inductance matrix between Icoils and sensors
[out]	nsensors	Number of sensors
[out]	njumpers	Number of jumper sets
[in,out]	sensor_ptr	Pointer to sensor object
[in]	cache_file	Path to cache file
[out]	error_str	Error message

thincurr_recon_curr()

subroutine thincurr_recon_curr	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(in), value	vals,
		type(c_ptr), intent(in), value	curr,
		integer(kind=c_int), intent(in), value	format )

Reconstruct current field on mesh.

Parameters

[in]	tw_ptr	Pointer to ThinCurr object
[in]	vals	Pointer to field values
[in]	curr	Pointer to reconstructed current values
[in]	format	Format for current (1: Cell-centered, 2: Vertex-centered)

thincurr_recon_field()

subroutine thincurr_recon_field	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(in), value	pot,
		type(c_ptr), intent(in), value	coils,
		type(c_ptr), intent(in), value	field,
		type(c_ptr), intent(in), value	hodlr_ptr )

Reconstruct magnetic field on mesh.

Parameters

[in]	tw_ptr	Pointer to ThinCurr object
[in]	pot	Pointer to current potential values
[in]	coils	Pointer to Icoil values
[in]	field	Pointer to output magnetic field values
[in]	hodlr_ptr	Pointer to HODLR operator or null

thincurr_reduce_model()

subroutine thincurr_reduce_model	(	type(c_ptr), intent(in), value	tw_ptr,
		character(kind=c_char), dimension(oft_path_slen), intent(in)	filename,
		integer(kind=c_int), intent(in), value	nbasis,
		type(c_ptr), intent(in), value	basis_vecs,
		logical(kind=c_bool), intent(in), value	compute_b,
		type(c_ptr), intent(in), value	sensor_ptr,
		type(c_ptr), intent(in), value	hodlr_ptr,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Needs docs.

Parameters

[in]	tw_ptr	ThinCurr model pointer
[in]	filename	Filename for the reduced model
[in]	nbasis	Number of basis vectors for reduction
[in]	basis_vecs	Pointer to the basis vectors for reduction
[in]	compute_b	Compute magnetic field?
[in]	sensor_ptr	Pointer to sensor object
[in]	hodlr_ptr	Pointer to HODLR operator object or null
[out]	error_str	Error string

thincurr_rmat()

subroutine thincurr_rmat	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(out)	kr_ptr,
		type(c_ptr), intent(out)	lc_ptr,
		type(c_ptr), intent(out)	mat_ptr,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Compute the resistance matrix for a ThinCurr model.

Parameters

[in]	tw_ptr	ThinCurr object pointer
[out]	kr_ptr	Pointer to array for row pointers of sparse matrix
[out]	lc_ptr	Pointer to array for column indices of sparse matrix
[out]	mat_ptr	Pointer to array for nonzero values of sparse matrix
[out]	error_str	Error message

thincurr_save_field()

subroutine thincurr_save_field	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(in), value	vals,
		character(kind=c_char), dimension(oft_slen), intent(in)	fieldname )

Save current field from ThinCurr to plot files.

Parameters

[in]	tw_ptr	Pointer to ThinCurr object
[in]	vals	Pointer to field values
[in]	fieldname	Name of the field to save

thincurr_save_scalar()

subroutine thincurr_save_scalar	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(in), value	vals,
		character(kind=c_char), dimension(oft_slen), intent(in)	fieldname )

Save scalar field to plot files.

Parameters

[in]	tw_ptr	Pointer to ThinCurr object
[in]	vals	Data to save
[in]	fieldname	Name of field in plot files

thincurr_scale_va()

subroutine thincurr_scale_va	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(in), value	vals,
		logical(c_bool), intent(in), value	div_flag )

Scale a vertex array by vertex areas (eg. B_n -> flux).

Parameters

[in]	tw_ptr	Pointer to ThinCurr object
[in]	vals	Data to scale
[in]	div_flag	Divide by vertex areas?

thincurr_set_eta()

subroutine thincurr_set_eta	(	type(c_ptr), intent(in), value	tw_ptr,
		type(c_ptr), intent(in), value	eta_surf_ptr,
		type(c_ptr), intent(in), value	eta_vol_ptr,
		type(c_ptr), intent(in), value	thickness_ptr,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Set resistivity and thickness values with automatic derivation of missing parameter. Accepts eta_surf alone, or any two of (eta_surf, eta_vol, thickness), and derives the missing value(s). If all three are provided, eta_surf is recomputed from eta_vol and thickness.

Parameters

[in]	tw_ptr	ThinCurr object pointer
[in]	eta_surf_ptr	Surface resistivity pointer (or NULL)
[in]	eta_vol_ptr	Volumetric resistivity pointer (or NULL)
[in]	thickness_ptr	Thickness pointer (or NULL)
[out]	error_str	Error string buffer

thincurr_setup()

subroutine thincurr_setup	(	character(kind=c_char), dimension(oft_path_slen), intent(in)	mesh_file,
		integer(c_int), intent(in), value	np,
		type(c_ptr), intent(in), value	r_loc,
		integer(c_int), intent(in), value	nc,
		type(c_ptr), intent(in), value	lc_loc,
		type(c_ptr), intent(in), value	reg_loc,
		type(c_ptr), intent(in), value	pmap_loc,
		integer(c_int), intent(in), value	jumper_start_in,
		type(c_ptr), intent(out)	tw_ptr,
		type(c_ptr), intent(in), value	sizes,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str,
		type(c_ptr), intent(in), value	xml_ptr )

Setup ThinCurr model.

Parameters

[in]	mesh_file	Mesh file name
[in]	r_loc	Pointer to point locations array (3,np) (if np>0, otherwise mesh will be loaded from file)
[in]	lc_loc	Pointer to cell connectivity array (3,nc) (if np>0, otherwise mesh will be loaded from file)
[in]	reg_loc	Pointer to cell region array (nc) (if np>0, otherwise mesh will be loaded from file)
[in]	pmap_loc	Pointer to node periodicity mapping
[in]	np	Number of nodes
[in]	nc	Number of cells
[in]	jumper_start_in	Starting index of jumpers in nodesets
[in]	sizes	Pointer to storage for output size information
[out]	tw_ptr	Pointer to ThinCurr object
[out]	error_str	Error string
[in]	xml_ptr	Pointer to ThinCurr XML node

thincurr_setup_io()

subroutine thincurr_setup_io	(	type(c_ptr), intent(in), value	tw_ptr,
		character(kind=c_char), dimension(oft_path_slen), intent(in)	basepath,
		logical(c_bool), intent(in), value	save_debug,
		logical(c_bool), intent(in), value	legacy_hdf5,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Setup I/O and plotting for ThinCurr model.

Parameters

[in]	tw_ptr	Pointer to ThinCurr object
[in]	basepath	Path to root directory to use for I/O
[in]	save_debug	Save model debug information?
[in]	legacy_hdf5	Use legacy HDF5 format?
[out]	error_str	Error string

thincurr_time_domain()

subroutine thincurr_time_domain	(	type(c_ptr), intent(in), value	tw_ptr,
		logical(kind=c_bool), intent(in), value	direct,
		real(kind=c_double), intent(in), value	dt,
		integer(kind=c_int), intent(in), value	nsteps,
		real(kind=c_double), intent(in), value	cg_atol,
		real(kind=c_double), intent(in), value	cg_rtol,
		logical(kind=c_bool), intent(in), value	timestep_cn,
		integer(kind=c_int), intent(in), value	nstatus,
		integer(kind=c_int), intent(in), value	nplot,
		type(c_ptr), intent(in), value	vec_ic,
		type(c_ptr), intent(in), value	sensor_ptr,
		integer(kind=c_int), intent(in), value	ncurr,
		type(c_ptr), intent(in), value	curr_ptr,
		integer(kind=c_int), intent(in), value	nvolt,
		type(c_ptr), intent(in), value	volt_ptr,
		logical(kind=c_bool), intent(in), value	volts_full,
		type(c_ptr), intent(in), value	sensor_vals_ptr,
		type(c_ptr), intent(in), value	hodlr_ptr,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Perform a time-domain simulation.

Parameters

[in]	tw_ptr	ThinCurr object pointer
[in]	direct	Use direct solver?
[in]	dt	Time step [s]
[in]	nsteps	Number of time steps
[in]	cg_atol	CG solver absolute tolerance
[in]	cg_rtol	CG solver relative tolerance
[in]	timestep_cn	Use Crank-Nicolson timestep?
[in]	nstatus	Iteration frequency to print status information
[in]	nplot	Iteration frequency to save plot files
[in]	vec_ic	Initial conditions pointer
[in]	sensor_ptr	Sensor object pointer
[in]	ncurr	Number of timepoints for Icoil current waveform
[in]	curr_ptr	Icoil current waveform pointer
[in]	nvolt	Number of timepoints for voltage waveform
[in]	volt_ptr	Voltage waveform pointer
[in]	volts_full	Voltage waveform is on full mesh+Vcoils not just Vcoils
[in]	sensor_vals_ptr	Sensor values pointer
[in]	hodlr_ptr	HODLR operator pointer
[out]	error_str	Error string

thincurr_time_domain_plot()

subroutine thincurr_time_domain_plot	(	type(c_ptr), intent(in), value	tw_ptr,
		logical(kind=c_bool), intent(in), value	compute_b,
		logical(kind=c_bool), intent(in), value	rebuild_sensors,
		integer(kind=c_int), intent(in), value	nsteps,
		integer(kind=c_int), intent(in), value	nplot,
		type(c_ptr), intent(in), value	sensor_ptr,
		type(c_ptr), intent(in), value	sensor_vals_ptr,
		integer(kind=c_int), intent(in), value	nsensor,
		type(c_ptr), intent(in), value	hodlr_ptr,
		character(kind=c_char), dimension(oft_error_slen), intent(out)	error_str )

Generate plot files for a time domain simulation that has already been run.

Parameters

[in]	tw_ptr	ThinCurr model pointer
[in]	compute_b	Compute magnetic field?
[in]	rebuild_sensors	Rebuild sensor objects?
[in]	nsteps	Number of time steps
[in]	nplot	Iteration frequency of plot files
[in]	sensor_ptr	Sensor object pointer
[in]	sensor_vals_ptr	Sensor waveform pointer
[in]	nsensor	Number of sensors
[in]	hodlr_ptr	HODLR operator pointer
[out]	error_str	Error string

Variable Documentation

lc_plot

integer(i4), dimension(:,:), pointer lc_plot

Needs docs.

r_plot

real(r8), dimension(:,:), pointer r_plot

Needs docs.

reg_plot

integer(i4), dimension(:), pointer reg_plot

Needs docs.