korc_fields

Note

Module containing subroutines to initialize externally generated fields, and to calculate the electric and magnetic fields when using an analytical model.

Functions

private pure function cross(a, b)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(in),		DIMENSION(3)	::	a	Vector $\mathbf{a}$ .
real(kind=rp),	intent(in),		DIMENSION(3)	::	b	Vector $\mathbf{b}$ .

Return Value real(kind=rp), DIMENSION(3)

Cross product $\mathbf{a}\times \mathbf{b}$

Subroutines

private subroutine analytical_fields(F, Y, E, B, flag)

Arguments

Type	Intent	Attributes		Name
type(FIELDS),	intent(in)		::	F	An instance of the KORC derived type FIELDS.
real(kind=rp),	intent(in),	DIMENSION(:,:), ALLOCATABLE	::	Y	Toroidal coordinates of each particle in the simulation; Y(1,:) = $r$ , Y(2,:) = $\theta$ , Y(3,:) = $\zeta$ .
real(kind=rp),	intent(inout),	DIMENSION(:,:), ALLOCATABLE	::	E	Electric field components in Cartesian coordinates; E(1,:) = $E_x$ , E(2,:) = $E_y$ , E(3,:) = $E_z$
real(kind=rp),	intent(inout),	DIMENSION(:,:), ALLOCATABLE	::	B	Magnetic field components in Cartesian coordinates; B(1,:) = $B_x$ , B(2,:) = $B_y$ , B(3,:) = $B_z$
integer(kind=is),	intent(in),	DIMENSION(:), ALLOCATABLE	::	flag	Flag for each particle to decide whether it is being followed (flag=T) or not (flag=F).

public subroutine analytical_fields_p(params, pchunk, F, X_X, X_Y, X_Z, B_X, B_Y, B_Z, E_X, E_Y, E_Z, flag_cache)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(in)		::	params	Core KORC simulation parameters.
integer,	intent(in)		::	pchunk
type(FIELDS),	intent(in)		::	F
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	X_X
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	X_Y
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	X_Z
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	B_X
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	B_Y
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	B_Z
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	E_X
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	E_Y
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	E_Z
integer(kind=is),	intent(inout),	DIMENSION(pchunk)	::	flag_cache

private subroutine analytical_fields_GC_init(params, F, Y, E, B, gradB, curlB, flag, PSIp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(in)		::	params	Core KORC simulation parameters.
type(FIELDS),	intent(in)		::	F	An instance of the KORC derived type FIELDS.
real(kind=rp),	intent(in),	DIMENSION(:,:), ALLOCATABLE	::	Y	Cylindrical coordinates of each particle in the simulation; Y(1,:) = $r$ , Y(2,:) = $\theta$ , Y(3,:) = $\zeta$ .
real(kind=rp),	intent(inout),	DIMENSION(:,:), ALLOCATABLE	::	E	Electric field components in cylindricalcoordinates; E(1,:) = $E_R$ , E(2,:) = $E_\phi$ , E(3,:) = $E_Z$
real(kind=rp),	intent(inout),	DIMENSION(:,:), ALLOCATABLE	::	B	Magnetic field components in cylindrical coordinates; B(1,:) = $B_R$ , B(2,:) = $B_\phi$ , B(3,:) = $B_Z$
real(kind=rp),	intent(inout),	DIMENSION(:,:), ALLOCATABLE	::	gradB	Gradient of magnitude of magnetic field in cylindrical coordinates; gradB(1,:) = $\nabla_R B$ , B(2,:) = $\nabla_\phi B_$ , B(3,:) = $\nabla_Z B$
real(kind=rp),	intent(inout),	DIMENSION(:,:), ALLOCATABLE	::	curlB	Curl of magnetic field unit vector in cylindrical coordinates
integer(kind=is),	intent(in),	DIMENSION(:), ALLOCATABLE	::	flag	Flag for each particle to decide whether it is being followed (flag=T) or not (flag=F).
real(kind=rp),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	PSIp

private subroutine analytical_fields_GC(params, F, Y, E, B, gradB, curlB, flag, PSIp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(in)		::	params	Core KORC simulation parameters.
type(FIELDS),	intent(in)		::	F	An instance of the KORC derived type FIELDS.
real(kind=rp),	intent(in),	DIMENSION(:,:), ALLOCATABLE	::	Y	Cylindrical coordinates of each particle in the simulation; Y(1,:) = $r$ , Y(2,:) = $\theta$ , Y(3,:) = $\zeta$ .
real(kind=rp),	intent(inout),	DIMENSION(:,:), ALLOCATABLE	::	E	Electric field components in cylindricalcoordinates; E(1,:) = $E_R$ , E(2,:) = $E_\phi$ , E(3,:) = $E_Z$
real(kind=rp),	intent(inout),	DIMENSION(:,:), ALLOCATABLE	::	B	Magnetic field components in cylindrical coordinates; B(1,:) = $B_R$ , B(2,:) = $B_\phi$ , B(3,:) = $B_Z$
real(kind=rp),	intent(inout),	DIMENSION(:,:), ALLOCATABLE	::	gradB	Gradient of magnitude of magnetic field in cylindrical coordinates; gradB(1,:) = $\nabla_R B$ , B(2,:) = $\nabla_\phi B_$ , B(3,:) = $\nabla_Z B$
real(kind=rp),	intent(inout),	DIMENSION(:,:), ALLOCATABLE	::	curlB	Curl of magnetic field unit vector in cylindrical coordinates
integer(kind=is),	intent(in),	DIMENSION(:), ALLOCATABLE	::	flag	Flag for each particle to decide whether it is being followed (flag=T) or not (flag=F).
real(kind=rp),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	PSIp

public subroutine analytical_fields_Bmag_p(pchunk, F, Y_R, Y_PHI, Y_Z, Bmag, E_PHI)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	pchunk
type(FIELDS),	intent(in)		::	F
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	Y_R
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	Y_PHI
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	Y_Z
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	Bmag
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	E_PHI

public subroutine add_analytical_E_p(params, tt, F, E_PHI, Y_R, Y_Z)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params
integer(kind=ip),	intent(in)		::	tt
type(FIELDS),	intent(in)		::	F
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	E_PHI
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	Y_Z

public subroutine analytical_fields_GC_p(pchunk, F, Y_R, Y_PHI, Y_Z, B_R, B_PHI, B_Z, E_R, E_PHI, E_Z, curlB_R, curlB_PHI, curlB_Z, gradB_R, gradB_PHI, gradB_Z, PSIp)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	pchunk
type(FIELDS),	intent(in)		::	F
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	Y_R
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	Y_PHI
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	Y_Z
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	B_R
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	B_PHI
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	B_Z
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	E_R
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	E_PHI
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	E_Z
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	curlB_R
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	curlB_PHI
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	curlB_Z
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	gradB_R
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	gradB_PHI
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	gradB_Z
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	PSIp

private subroutine uniform_magnetic_field(F, B)

Arguments

Type	Intent	Optional	Attributes		Name
type(FIELDS),	intent(in)			::	F	An instance of the KORC derived type FIELDS.
real(kind=rp),	intent(inout),		DIMENSION(:,:), ALLOCATABLE	::	B	Magnetic field components in Cartesian coordinates; B(1,:) = $B_x$ , B(2,:) = $B_y$ , B(3,:) = $B_z$

public subroutine uniform_fields_p(pchunk, F, B_X, B_Y, B_Z, E_X, E_Y, E_Z)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	pchunk	Read more…
type(FIELDS),	intent(in)		::	F	An instance of the KORC derived type FIELDS.
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	B_X
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	B_Y
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	B_Z
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	E_X	Magnetic field components in Cartesian coordinates; B(1,:) = $B_x$ , B(2,:) = $B_y$ , B(3,:) = $B_z$
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	E_Y	Magnetic field components in Cartesian coordinates; B(1,:) = $B_x$ , B(2,:) = $B_y$ , B(3,:) = $B_z$
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	E_Z	Magnetic field components in Cartesian coordinates; B(1,:) = $B_x$ , B(2,:) = $B_y$ , B(3,:) = $B_z$

private subroutine uniform_electric_field(F, E)

Arguments

Type	Intent	Optional	Attributes		Name
type(FIELDS),	intent(in)			::	F	An instance of the KORC derived type FIELDS.
real(kind=rp),	intent(inout),		DIMENSION(:,:), ALLOCATABLE	::	E	Electric field components in Cartesian coordinates; E(1,:) = $E_x$ , E(2,:) = $E_y$ , E(3,:) = $E_z$

private subroutine analytical_electric_field_cyl(F, Y, E, flag)

Arguments

Type	Intent	Attributes		Name
type(FIELDS),	intent(in)		::	F	An instance of the KORC derived type FIELDS.
real(kind=rp),	intent(in),	DIMENSION(:,:), ALLOCATABLE	::	Y	Cylindrical coordinates of each particle in the simulation; Y(1,:) = $R$ , Y(2,:) = $\phi$ , Y(3,:) = $Z$ .
real(kind=rp),	intent(inout),	DIMENSION(:,:), ALLOCATABLE	::	E	Electric field components in Cartesian coordinates; E(1,:) = $E_x$ , E(2,:) = $E_y$ , E(3,:) = $E_z$
integer(kind=is),	intent(in),	DIMENSION(:), ALLOCATABLE	::	flag	Flag for each particle to decide whether it is being followed (flag=T) or not (flag=F).

public subroutine mean_F_field(F, Fo, op_field)

Arguments

Type	Intent		Name
type(FIELDS),	intent(in)	::	F	An instance of the KORC derived type FIELDS.
real(kind=rp),	intent(out)	::	Fo	Mean electric or magnetic field.
type(KORC_STRING),	intent(in)	::	op_field	String that specifies what mean field will be calculated. Its value can be 'B' or 'E'.

private subroutine get_analytical_fields(params, vars, F)

Arguments

Type	Intent		Name
type(KORC_PARAMS),	intent(in)	::	params	Core KORC simulation parameters.
type(PARTICLES),	intent(inout)	::	vars	An instance of the KORC derived type PARTICLES.
type(FIELDS),	intent(in)	::	F	An instance of the KORC derived type FIELDS.

private subroutine uniform_fields(vars, F)

Arguments

Type	Intent	Optional	Attributes		Name
type(PARTICLES),	intent(inout)			::	vars	An instance of the KORC derived type PARTICLES.
type(FIELDS),	intent(in)			::	F	An instance of the KORC derived type FIELDS.

public subroutine unitVectors(params, Xo, F, b1, b2, b3, flag, cart, hint)

Arguments

Type	Intent	Optional	Attributes		Name
type(KORC_PARAMS),	intent(in)			::	params	Core KORC simulation parameters.
real(kind=rp),	intent(in),		DIMENSION(:,:), ALLOCATABLE	::	Xo	Array with the position of the simulated particles.
type(FIELDS),	intent(in)			::	F	F An instance of the KORC derived type FIELDS.
real(kind=rp),	intent(inout),		DIMENSION(:,:), ALLOCATABLE	::	b1	Basis vector pointing along the local magnetic field, that is, along $\mathbf{b} = \mathbf{B}/B$ .
real(kind=rp),	intent(inout),		DIMENSION(:,:), ALLOCATABLE	::	b2	Basis vector perpendicular to b1
real(kind=rp),	intent(inout),		DIMENSION(:,:), ALLOCATABLE	::	b3	Basis vector perpendicular to b1 and b2.
integer(kind=is),	intent(inout),	optional	DIMENSION(:), ALLOCATABLE	::	flag	Flag for each particle to decide whether it is being followed (flag=T) or not (flag=F).
logical				::	cart
type(C_PTR),	intent(inout),		DIMENSION(:), ALLOCATABLE	::	hint	Flag for each particle to decide whether it is being followed (flag=T) or not (flag=F).

public subroutine get_fields(params, vars, F)

Arguments

Type	Intent		Name
type(KORC_PARAMS),	intent(in)	::	params	Core KORC simulation parameters.
type(PARTICLES),	intent(inout)	::	vars	An instance of the KORC derived type PARTICLES.
type(FIELDS),	intent(in)	::	F	An instance of the KORC derived type FIELDS.

public subroutine calculate_SC_E1D(params, F, Vden)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(in)		::	params
type(FIELDS),	intent(inout)		::	F
real(kind=rp),	intent(in),	dimension(F%dim_1D)	::	Vden

public subroutine calculate_SC_E1D_FS(params, F, dintJphidPSIP)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(in)		::	params
type(FIELDS),	intent(inout)		::	F
real(kind=rp),	intent(in),	dimension(F%dim_1D)	::	dintJphidPSIP

public subroutine calculate_SC_p(params, F, B_R, B_PHI, B_Z, Y_R, Y_Z, V_PLL, V_MU, m_cache, flagCon, flagCol, Vden)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(in)		::	params
type(FIELDS),	intent(in)		::	F
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	B_R
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	B_PHI
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	B_Z
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	Y_R
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	Y_Z
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	V_PLL
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(in),	dimension(params%pchunk)	::	flagCon
integer(kind=is),	intent(in),	dimension(params%pchunk)	::	flagCol
real(kind=rp),	intent(out),	dimension(F%dim_1D)	::	Vden

public subroutine calculate_SC_p_FS(params, F, B_R, B_PHI, B_Z, PSIp, V_PLL, V_MU, m_cache, flagCon, flagCol, dintJphidPSIP)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(in)		::	params
type(FIELDS),	intent(in)		::	F
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	B_R
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	B_PHI
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	B_Z
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	PSIp
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	V_PLL
real(kind=rp),	intent(in),	dimension(params%pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(in),	dimension(params%pchunk)	::	flagCon
integer(kind=is),	intent(in),	dimension(params%pchunk)	::	flagCol
real(kind=rp),	intent(out),	dimension(F%dim_1D)	::	dintJphidPSIP

public subroutine init_SC_E1D(params, F, spp)

Arguments

Type	Intent		Name
type(KORC_PARAMS),	intent(in)	::	params
type(FIELDS),	intent(inout)	::	F
type(SPECIES),	intent(in)	::	spp

public subroutine init_SC_E1D_FS(params, F, spp)

Arguments

Type	Intent		Name
type(KORC_PARAMS),	intent(in)	::	params
type(FIELDS),	intent(inout)	::	F
type(SPECIES),	intent(in)	::	spp

public subroutine reinit_SC_E1D(params, F)

Arguments

Type	Intent	Optional	Attributes		Name
type(KORC_PARAMS),	intent(in)			::	params
type(FIELDS),	intent(inout)			::	F

public subroutine reinit_SC_E1D_FS(params, F)

Arguments

Type	Intent	Optional	Attributes		Name
type(KORC_PARAMS),	intent(in)			::	params
type(FIELDS),	intent(inout)			::	F

public subroutine initialize_fields(params, F)

Arguments

Type	Intent	Optional	Attributes		Name
type(KORC_PARAMS),	intent(inout)			::	params	Core KORC simulation parameters.
type(FIELDS),	intent(out)			::	F	An instance of the KORC derived type FIELDS. Read more…

private subroutine initialize_GC_fields(F)

Computes the auxiliary fields $\nabla|{\bf B}|$ and $\nabla\times\hat{b}$ that are used in the RHS of the evolution equations for the GC orbit model.

Arguments

Type	Intent	Optional	Attributes		Name
type(FIELDS),	intent(inout)			::	F	An instance of the KORC derived type FIELDS.

private subroutine initialize_GC_fields_3D(F)

Computes the auxiliary fields $\nabla|{\bf B}|$ and $\nabla\times\hat{b}$ that are used in the RHS of the evolution equations for the GC orbit model.

Arguments

Type	Intent	Optional	Attributes		Name
type(FIELDS),	intent(inout)			::	F	An instance of the KORC derived type FIELDS.

public subroutine define_SC_time_step(params, F)

Arguments

Type	Intent	Optional	Attributes		Name
type(KORC_PARAMS),	intent(inout)			::	params
type(FIELDS),	intent(inout)			::	F

public subroutine load_dim_data_from_hdf5(params, F)

@brief Subroutine that loads the size of the arrays having the electric and magnetic field data. @details All the information of externally calculated fields must be given in a rectangular, equally spaced mesh in the $(R,\phi,Z)$ space of cylindrical coordinates. If the fields are axisymmetric, then the fields must be in a rectangular mesh on the $RZ$ -plane.

Arguments

Type	Intent	Optional	Attributes		Name
type(KORC_PARAMS),	intent(in)			::	params
type(FIELDS),	intent(inout)			::	F

public subroutine which_fields_in_file(params, Bfield, Efield, Bflux, dBfield, B1field, E1field)

@brief Subroutine that queries the HDF5 file what data are present in the HDF5 input file (sanity check).

Arguments

Type	Intent		Name
type(KORC_PARAMS),	intent(in)	::	params
logical,	intent(out)	::	Bfield
logical,	intent(out)	::	Efield
logical,	intent(out)	::	Bflux
logical,	intent(out)	::	dBfield
logical,	intent(out)	::	B1field
logical,	intent(out)	::	E1field

public subroutine load_field_data_from_hdf5(params, F)

@brief Subroutine that loads the fields data from the HDF5 input file.

Arguments

Type	Intent	Optional	Attributes		Name
type(KORC_PARAMS),	intent(in)			::	params
type(FIELDS),	intent(inout)			::	F

public subroutine load_1D_FS_from_hdf5(params, F)

Arguments

Type	Intent	Optional	Attributes		Name
type(KORC_PARAMS),	intent(in)			::	params
type(FIELDS),	intent(inout)			::	F

public subroutine allocate_1D_FS_arrays(params, F)

Arguments

Type	Intent	Optional	Attributes		Name
type(KORC_PARAMS),	intent(in)			::	params	Core KORC simulation parameters.
type(FIELDS),	intent(inout)			::	F	An instance of the KORC derived type FIELDS. In this variable we keep the loaded data.

public subroutine ALLOCATE_2D_FIELDS_ARRAYS(params, F, bfield, bflux, dbfield, efield, b1field, e1field)

Arguments

Type	Intent		Name
type(KORC_PARAMS),	intent(in)	::	params	Core KORC simulation parameters.
type(FIELDS),	intent(inout)	::	F	An instance of the KORC derived type FIELDS. In this variable we keep the loaded data.
logical,	intent(in)	::	bfield
logical,	intent(in)	::	bflux	Logical variable that specifies if the variables that keep the poloidal magnetic flux data is allocated (bflux=T) or not (bflux=F).
logical,	intent(in)	::	dbfield	Logical variable that specifies if the variables that keep the magnetic field data is allocated (bfield=T) or not (bfield=F).
logical,	intent(in)	::	efield	Logical variable that specifies if the variables that keep the electric field data is allocated (efield=T) or not (efield=F).
logical,	intent(in)	::	b1field
logical,	intent(in)	::	e1field

public subroutine ALLOCATE_3D_FIELDS_ARRAYS(params, F, bfield, efield, dbfield)

@brief Subroutine that allocates the variables keeping the 3-D fields data.

Arguments

Type	Intent		Name
type(KORC_PARAMS),	intent(in)	::	params
type(FIELDS),	intent(inout)	::	F
logical,	intent(in)	::	bfield
logical,	intent(in)	::	efield
logical,	intent(in)	::	dbfield

private subroutine ALLOCATE_V_FIELD_2D(F, dims)

@brief Subroutine that allocates the cylindrical components of an axisymmetric field.

Arguments

Type	Intent	Optional	Attributes		Name
type(V_FIELD_2D),	intent(inout)			::	F
integer,	intent(in),		DIMENSION(3)	::	dims

public subroutine ALLOCATE_V_FIELD_2DX(F, dims)

@brief Subroutine that allocates the cartesian components of an axisymmetric field.

Arguments

Type	Intent	Optional	Attributes		Name
type(V_FIELD_2DX),	intent(inout)			::	F
integer,	intent(in),		DIMENSION(3)	::	dims

private subroutine ALLOCATE_V_FIELD_3D(F, dims)

@brief Subroutine that allocates the cylindrical components of a 3-D field.

Arguments

Type	Intent	Optional	Attributes		Name
type(V_FIELD_3D),	intent(inout)			::	F
integer,	intent(in),		DIMENSION(3)	::	dims

public subroutine DEALLOCATE_FIELDS_ARRAYS(F)

@brief Subroutine that deallocates all the variables of the electric and magnetic fields.

Arguments

Type	Intent	Optional	Attributes		Name
type(FIELDS),	intent(inout)			::	F

korc_fields Module

Contents

Functions

Subroutines

Note

Uses

Used by

Contents

Functions

Subroutines

Functions

private pure function cross(a, b)

Arguments

Return Value real(kind=rp), DIMENSION(3)

Subroutines

private subroutine analytical_fields(F, Y, E, B, flag)

Arguments

public subroutine analytical_fields_p(params, pchunk, F, X_X, X_Y, X_Z, B_X, B_Y, B_Z, E_X, E_Y, E_Z, flag_cache)

Arguments

private subroutine analytical_fields_GC_init(params, F, Y, E, B, gradB, curlB, flag, PSIp)

Arguments

private subroutine analytical_fields_GC(params, F, Y, E, B, gradB, curlB, flag, PSIp)

Arguments

public subroutine analytical_fields_Bmag_p(pchunk, F, Y_R, Y_PHI, Y_Z, Bmag, E_PHI)

Arguments

public subroutine add_analytical_E_p(params, tt, F, E_PHI, Y_R, Y_Z)

Arguments

public subroutine analytical_fields_GC_p(pchunk, F, Y_R, Y_PHI, Y_Z, B_R, B_PHI, B_Z, E_R, E_PHI, E_Z, curlB_R, curlB_PHI, curlB_Z, gradB_R, gradB_PHI, gradB_Z, PSIp)

Arguments

private subroutine uniform_magnetic_field(F, B)

Arguments

public subroutine uniform_fields_p(pchunk, F, B_X, B_Y, B_Z, E_X, E_Y, E_Z)

Arguments

private subroutine uniform_electric_field(F, E)

Arguments

private subroutine analytical_electric_field_cyl(F, Y, E, flag)

Arguments

public subroutine mean_F_field(F, Fo, op_field)

Arguments

private subroutine get_analytical_fields(params, vars, F)

Arguments

private subroutine uniform_fields(vars, F)

Arguments

public subroutine unitVectors(params, Xo, F, b1, b2, b3, flag, cart, hint)

Arguments

public subroutine get_fields(params, vars, F)

Arguments

public subroutine calculate_SC_E1D(params, F, Vden)

Arguments

public subroutine calculate_SC_E1D_FS(params, F, dintJphidPSIP)

Arguments

public subroutine calculate_SC_p(params, F, B_R, B_PHI, B_Z, Y_R, Y_Z, V_PLL, V_MU, m_cache, flagCon, flagCol, Vden)

Arguments

public subroutine calculate_SC_p_FS(params, F, B_R, B_PHI, B_Z, PSIp, V_PLL, V_MU, m_cache, flagCon, flagCol, dintJphidPSIP)

Arguments

public subroutine init_SC_E1D(params, F, spp)

Arguments

public subroutine init_SC_E1D_FS(params, F, spp)

Arguments

public subroutine reinit_SC_E1D(params, F)

Arguments

public subroutine reinit_SC_E1D_FS(params, F)

Arguments

public subroutine initialize_fields(params, F)

Arguments

private subroutine initialize_GC_fields(F)

Arguments

private subroutine initialize_GC_fields_3D(F)

Arguments

public subroutine define_SC_time_step(params, F)

Arguments

public subroutine load_dim_data_from_hdf5(params, F)

Arguments

public subroutine which_fields_in_file(params, Bfield, Efield, Bflux, dBfield, B1field, E1field)

Arguments

public subroutine load_field_data_from_hdf5(params, F)

Arguments

public subroutine load_1D_FS_from_hdf5(params, F)

Arguments

public subroutine allocate_1D_FS_arrays(params, F)