korc_ppusher

Note

Module with subroutines for advancing the particles' position and velocity in the simulations.

Uses

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Variables

Functions

cross deg2rad rad2deg

Subroutines

initialize_particle_pusher radiation_force_p FO_init adv_FOeqn_top advance_FOeqn_vars advance_FP3Deqn_vars adv_FOfio_top adv_FOinterp_top adv_FOinterp_mars_top adv_FOinterp_aorsa_top advance_FOinterp_vars advance_FOfio_vars advance_FP3Dinterp_vars GC_init adv_GCeqn_top advance_GCeqn_vars advance_FPeqn_vars adv_GCinterp_psi_top_FS adv_GCinterp_psi_top adv_GCinterp_fio_top adv_GCinterp_psiwE_top adv_GCinterp_psi2x1t_top adv_GCinterp_B_top adv_GCinterp_B2D_top adv_GCinterp_2DBdB_top adv_GCinterp_3DBdB1_top adv_GCinterp_3DBdB_top advance_GCinterp_psi_vars_FS advance_GCinterp_psi_vars advance_GCinterp_fio_vars advance_GCinterp_psiwE_vars advance_GCinterp_psi2x1t_vars advance_GCinterp_B2D_vars advance_GCinterp_2DBdB_vars advance_GCinterp_3DBdB_vars advance_GCinterp_3DBdB1_vars advance_GCinterp_B_vars advance_FPinterp_vars GCEoM_p GCEoM1_p GCEoM1_fio_p aux_fields

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=rp),	private		::	E0			Dimensionless vacuum permittivity $\epsilon_0 \times (m_{ch}^2 v_{ch}^3/q_{ch}^3 B_{ch})$ , see korc_units.

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)

Value of $\mathbf{a}\times \mathbf{b}$

public function deg2rad(x)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(in)			::	x

Return Value real(kind=rp)

public function rad2deg(x)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(in)			::	x

Return Value real(kind=rp)

Subroutines

public subroutine initialize_particle_pusher(params)

Arguments

Type	Intent	Optional	Attributes		Name
type(KORC_PARAMS),	intent(in)			::	params	Core KORC simulation parameters.

private subroutine radiation_force_p(pchunk, q_cache, m_cache, U_X, U_Y, U_Z, E_X, E_Y, E_Z, B_X, B_Y, B_Z, Frad_X, Frad_Y, Frad_Z)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	pchunk
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	U_X	$\mathbf{u} = \gamma \mathbf{v}$ , where $\mathbf{v}$ is the particle's velocity.
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	U_Y	$\mathbf{u} = \gamma \mathbf{v}$ , where $\mathbf{v}$ is the particle's velocity.
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	U_Z	$\mathbf{u} = \gamma \mathbf{v}$ , where $\mathbf{v}$ is the particle's velocity.
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	E_X	Electric field $\mathbf{E}$ seen by each particle. This is given in Cartesian coordinates.
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	E_Y	Electric field $\mathbf{E}$ seen by each particle. This is given in Cartesian coordinates.
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	E_Z	Electric field $\mathbf{E}$ seen by each particle. This is given in Cartesian coordinates.
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	B_X	Magnetic field $\mathbf{B}$ seen by each particle. This is given in Cartesian coordinates.
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	B_Y	Magnetic field $\mathbf{B}$ seen by each particle. This is given in Cartesian coordinates.
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	B_Z	Magnetic field $\mathbf{B}$ seen by each particle. This is given in Cartesian coordinates.
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	Frad_X	The calculated synchrotron radiation reaction force $\mathbf{F}_R$ .
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	Frad_Y	The calculated synchrotron radiation reaction force $\mathbf{F}_R$ .
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	Frad_Z	The calculated synchrotron radiation reaction force $\mathbf{F}_R$ .

public subroutine FO_init(params, F, spp, output, step)

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.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.
logical,	intent(in)		::	output
logical,	intent(in)		::	step

public subroutine adv_FOeqn_top(params, F, P, spp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(FIELDS),	intent(in)		::	F	An instance of the KORC derived type FIELDS.
type(PROFILES),	intent(in)		::	P	An instance of the KORC derived type PROFILES.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.

public subroutine advance_FOeqn_vars(tt, a, q_cache, m_cache, params, X_X, X_Y, X_Z, V_X, V_Y, V_Z, B_X, B_Y, B_Z, E_X, E_Y, E_Z, P, F, g, flagCon, flagCol, PSIp)

Calls radiation_force_p in korc_ppusher.

Arguments

Type	Intent	Attributes		Name
integer(kind=ip),	intent(in)		::	tt	Time step used in the leapfrog step ( $\Delta t$ ).
real(kind=rp),	intent(in)		::	a	This variable is used to simplify notation in the code, and is given by $a=q\Delta t/m$ ,
real(kind=rp),	intent(in)		::	q_cache	Time step used in the leapfrog step ( $\Delta t$ ).
real(kind=rp),	intent(in)		::	m_cache	Time step used in the leapfrog step ( $\Delta t$ ).
type(KORC_PARAMS),	intent(in)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	X_X
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	X_Y
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	X_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_X
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_Y
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_Z
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_X
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_Y
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_X
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_Y
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_Z
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(in)		::	F
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	g
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	PSIp

public subroutine advance_FP3Deqn_vars(params, X_X, X_Y, X_Z, V_X, V_Y, V_Z, g, m_cache, B0, lam, R0, q0, EF0, B_X, B_Y, B_Z, E_X, E_Y, E_Z, P, F, flagCon, flagCol, PSIp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	X_X
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	X_Y
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	X_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_X
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_Y
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	g
real(kind=rp),	intent(in)		::	m_cache
real(kind=rp),	intent(in)		::	B0
real(kind=rp),	intent(in)		::	lam
real(kind=rp),	intent(in)		::	R0
real(kind=rp),	intent(in)		::	q0
real(kind=rp),	intent(in)		::	EF0
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_X
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_Y
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_X
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_Y
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_Z
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(in)		::	F
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	PSIp

public subroutine adv_FOfio_top(params, F, P, spp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(FIELDS),	intent(in)		::	F	An instance of the KORC derived type FIELDS.
type(PROFILES),	intent(in)		::	P	An instance of the KORC derived type PROFILES.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.

public subroutine adv_FOinterp_top(params, F, P, spp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(FIELDS),	intent(in)		::	F	An instance of the KORC derived type FIELDS.
type(PROFILES),	intent(in)		::	P	An instance of the KORC derived type PROFILES.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.

public subroutine adv_FOinterp_mars_top(params, F, P, spp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(FIELDS),	intent(in)		::	F	An instance of the KORC derived type FIELDS.
type(PROFILES),	intent(in)		::	P	An instance of the KORC derived type PROFILES.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.

public subroutine adv_FOinterp_aorsa_top(params, F, P, spp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(FIELDS),	intent(in)		::	F	An instance of the KORC derived type FIELDS.
type(PROFILES),	intent(in)		::	P	An instance of the KORC derived type PROFILES.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.

public subroutine advance_FOinterp_vars(tt, a, q_cache, m_cache, params, X_X, X_Y, X_Z, V_X, V_Y, V_Z, B_X, B_Y, B_Z, E_X, E_Y, E_Z, g, flagCon, flagCol, P, F, PSIp)

Calls radiation_force_p in korc_ppusher.

Arguments

Type	Intent	Attributes		Name
integer(kind=ip),	intent(in)		::	tt	Time step used in the leapfrog step ( $\Delta t$ ).
real(kind=rp),	intent(in)		::	a	This variable is used to simplify notation in the code, and is given by $a=q\Delta t/m$ ,
real(kind=rp),	intent(in)		::	q_cache	Time step used in the leapfrog step ( $\Delta t$ ).
real(kind=rp),	intent(in)		::	m_cache	Time step used in the leapfrog step ( $\Delta t$ ).
type(KORC_PARAMS),	intent(in)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	X_X
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	X_Y
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	X_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_X
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_Y
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_Z
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_X
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_Y
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_X
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_Y
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	g
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(in)		::	F
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	PSIp

public subroutine advance_FOfio_vars(tt, a, q_cache, m_cache, params, X_X, X_Y, X_Z, V_X, V_Y, V_Z, B_X, B_Y, B_Z, E_X, E_Y, E_Z, g, flagCon, flagCol, P, F, PSIp, hint)

Calls radiation_force_p in korc_ppusher.

Arguments

Type	Intent	Attributes		Name
integer(kind=ip),	intent(in)		::	tt	Time step used in the leapfrog step ( $\Delta t$ ).
real(kind=rp),	intent(in)		::	a	This variable is used to simplify notation in the code, and is given by $a=q\Delta t/m$ ,
real(kind=rp),	intent(in)		::	q_cache	Time step used in the leapfrog step ( $\Delta t$ ).
real(kind=rp),	intent(in)		::	m_cache	Time step used in the leapfrog step ( $\Delta t$ ).
type(KORC_PARAMS),	intent(in)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	X_X
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	X_Y
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	X_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_X
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_Y
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_Z
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_X
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_Y
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_X
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_Y
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	g
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(in)		::	F
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	PSIp
type(C_PTR),		DIMENSION(params%pchunk)	::	hint

public subroutine advance_FP3Dinterp_vars(params, X_X, X_Y, X_Z, V_X, V_Y, V_Z, g, m_cache, B_X, B_Y, B_Z, E_X, E_Y, E_Z, flagCon, flagCol, P, F, PSIp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	X_X
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	X_Y
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	X_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_X
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_Y
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	g
real(kind=rp),	intent(in)		::	m_cache
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_X
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_Y
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_X
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_Y
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_Z
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(in)		::	F
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	PSIp

public subroutine GC_init(params, F, spp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(FIELDS),	intent(inout)		::	F	An instance of the KORC derived type FIELDS.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.

public subroutine adv_GCeqn_top(params, F, P, spp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(FIELDS),	intent(inout)		::	F	An instance of the KORC derived type FIELDS.
type(PROFILES),	intent(in)		::	P	An instance of the KORC derived type PROFILES.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.

public subroutine advance_GCeqn_vars(vars, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, flagCon, flagCol, q_cache, m_cache, B_R, B_PHI, B_Z, F, P, PSIp, E_PHI)

Arguments

Type	Intent	Attributes		Name
type(PARTICLES),	intent(inout)		::	vars
integer,	intent(in)		::	pp
integer(kind=ip),	intent(in)		::	tt	time iterator.
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_MU
integer(kind=is),	intent(inout),	dimension(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	dimension(params%pchunk)	::	flagCol
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_Z
type(FIELDS),	intent(in)		::	F	An instance of the KORC derived type PROFILES.
type(PROFILES),	intent(in)		::	P
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	PSIp
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	E_PHI

public subroutine advance_FPeqn_vars(params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, flagCon, flagCol, m_cache, F, P, PSIp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_MU
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
real(kind=rp),	intent(in)		::	m_cache
type(FIELDS),	intent(in)		::	F
type(PROFILES),	intent(in)		::	P
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	PSIp

public subroutine adv_GCinterp_psi_top_FS(params, spp, P, F)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(inout)		::	F

public subroutine adv_GCinterp_psi_top(params, spp, P, F)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(inout)		::	F

public subroutine adv_GCinterp_fio_top(params, spp, P, F)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(inout)		::	F

public subroutine adv_GCinterp_psiwE_top(params, spp, P, F)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(inout)		::	F

public subroutine adv_GCinterp_psi2x1t_top(params, spp, P, F)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(inout)		::	F

public subroutine adv_GCinterp_B_top(params, spp, P, F)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(in)		::	F

public subroutine adv_GCinterp_B2D_top(params, spp, P, F)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(in)		::	F

public subroutine adv_GCinterp_2DBdB_top(params, spp, P, F)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(in)		::	F

public subroutine adv_GCinterp_3DBdB1_top(params, spp, P, F)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(in)		::	F

public subroutine adv_GCinterp_3DBdB_top(params, spp, P, F)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
type(SPECIES),	intent(inout),	DIMENSION(:), ALLOCATABLE	::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(in)		::	F

public subroutine advance_GCinterp_psi_vars_FS(vars, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, q_cache, m_cache, flagCon, flagCol, F, P, B_R, B_PHI, B_Z, E_PHI, PSIp, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z)

Arguments

Type	Intent	Attributes		Name
type(PARTICLES),	intent(inout)		::	vars
integer,	intent(in)		::	pp
integer(kind=ip),	intent(in)		::	tt	time iterator.
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(FIELDS),	intent(in)		::	F
type(PROFILES),	intent(in)		::	P
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	E_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	PSIp
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_Z

public subroutine advance_GCinterp_psi_vars(pchunk, vars, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, q_cache, m_cache, flagCon, flagCol, F, P, B_R, B_PHI, B_Z, E_PHI, PSIp, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z, ne)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	pchunk
type(PARTICLES),	intent(inout)		::	vars
integer,	intent(in)		::	pp
integer(kind=ip),	intent(in)		::	tt	time iterator.
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(pchunk)	::	Y_R
real(kind=rp),	intent(inout),	DIMENSION(pchunk)	::	Y_PHI
real(kind=rp),	intent(inout),	DIMENSION(pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(inout),	DIMENSION(pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(pchunk)	::	flagCol
type(FIELDS),	intent(in)		::	F
type(PROFILES),	intent(in)		::	P
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_PHI
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	PSIp
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)	::	ne

public subroutine advance_GCinterp_fio_vars(vars, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, q_cache, m_cache, flagCon, flagCol, F, P, B_R, B_PHI, B_Z, E_R, E_PHI, E_Z, PSIp, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z, ne, ni, Te, Zeff, nimp, hint)

Arguments

Type	Intent	Attributes		Name
type(PARTICLES),	intent(inout)		::	vars
integer,	intent(in)		::	pp
integer(kind=ip),	intent(in)		::	tt	time iterator.
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(FIELDS),	intent(in)		::	F
type(PROFILES),	intent(in)		::	P
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	B_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	B_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	E_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	E_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	E_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	PSIp
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	curlb_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	curlb_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	curlb_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	gradB_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	gradB_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	gradB_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	ne
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	ni
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Te
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	Zeff
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk,params%num_impurity_species)	::	nimp
type(C_PTR),	intent(inout),	DIMENSION(params%pchunk)	::	hint

public subroutine advance_GCinterp_psiwE_vars(vars, pchunk, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, q_cache, m_cache, flagCon, flagCol, F, P, B_R, B_PHI, B_Z, E_PHI, PSIp, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z, ne)

Arguments

Type	Intent	Attributes		Name
type(PARTICLES),	intent(inout)		::	vars
integer,	intent(in)		::	pchunk	Chunk iterator.
integer,	intent(in)		::	pp
integer(kind=ip),	intent(in)		::	tt	time iterator.
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(pchunk)	::	Y_R
real(kind=rp),	intent(inout),	DIMENSION(pchunk)	::	Y_PHI
real(kind=rp),	intent(inout),	DIMENSION(pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(inout),	DIMENSION(pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(pchunk)	::	flagCol
type(FIELDS),	intent(in)		::	F
type(PROFILES),	intent(in)		::	P
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_PHI
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	PSIp
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)	::	ne

public subroutine advance_GCinterp_psi2x1t_vars(vars, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, q_cache, m_cache, flagCon, flagCol, F, P, B_R, B_PHI, B_Z, E_PHI, PSIp, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z, ne)

Arguments

Type	Intent	Attributes		Name
type(PARTICLES),	intent(inout)		::	vars
integer,	intent(in)		::	pp
integer(kind=ip),	intent(in)		::	tt	time iterator.
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(FIELDS),	intent(in)		::	F
type(PROFILES),	intent(in)		::	P
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	E_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	PSIp
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	ne

public subroutine advance_GCinterp_B2D_vars(vars, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, q_cache, m_cache, flagCon, flagCol, F, P, B_R, B_PHI, B_Z, E_PHI, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z, PSIp)

Arguments

Type	Intent	Attributes		Name
type(PARTICLES),	intent(inout)		::	vars
integer,	intent(in)		::	pp
integer(kind=ip),	intent(in)		::	tt	time iterator.
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(FIELDS),	intent(in)		::	F
type(PROFILES),	intent(in)		::	P
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	E_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	PSIp

public subroutine advance_GCinterp_2DBdB_vars(vars, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, q_cache, m_cache, flagCon, flagCol, F, P, B_R, B_PHI, B_Z, E_PHI, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z, PSIp)

Arguments

Type	Intent	Attributes		Name
type(PARTICLES),	intent(inout)		::	vars
integer,	intent(in)		::	pp
integer(kind=ip),	intent(in)		::	tt	time iterator.
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(FIELDS),	intent(in)		::	F
type(PROFILES),	intent(in)		::	P
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	E_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	PSIp

public subroutine advance_GCinterp_3DBdB_vars(vars, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, q_cache, m_cache, flagCon, flagCol, F, P, B_R, B_PHI, B_Z, E_PHI, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z, PSIp)

Arguments

Type	Intent	Attributes		Name
type(PARTICLES),	intent(inout)		::	vars
integer,	intent(in)		::	pp
integer(kind=ip),	intent(in)		::	tt	time iterator.
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(FIELDS),	intent(in)		::	F
type(PROFILES),	intent(in)		::	P
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	E_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	PSIp

public subroutine advance_GCinterp_3DBdB1_vars(vars, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, q_cache, m_cache, flagCon, flagCol, F, P, B_R, B_PHI, B_Z, E_PHI, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z, PSIp)

Arguments

Type	Intent	Attributes		Name
type(PARTICLES),	intent(inout)		::	vars
integer,	intent(in)		::	pp
integer(kind=ip),	intent(in)		::	tt	time iterator.
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(FIELDS),	intent(in)		::	F
type(PROFILES),	intent(in)		::	P
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	E_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	PSIp

public subroutine advance_GCinterp_B_vars(vars, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, q_cache, m_cache, flagCon, flagCol, F, P, B_R, B_PHI, B_Z, E_PHI, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z, PSIp)

Arguments

Type	Intent	Attributes		Name
type(PARTICLES),	intent(inout)		::	vars
integer,	intent(in)		::	pp
integer(kind=ip),	intent(in)		::	tt	time iterator.
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_PHI
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(FIELDS),	intent(in)		::	F
type(PROFILES),	intent(in)		::	P
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	B_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	E_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	curlb_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	gradB_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	PSIp

public subroutine advance_FPinterp_vars(params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, m_cache, flagCon, flagCol, F, P, E_PHI, ne, PSIp)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	Y_PHI
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	Y_Z
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_PLL
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	V_MU
real(kind=rp),	intent(in)		::	m_cache
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(FIELDS),	intent(in)		::	F
type(PROFILES),	intent(in)		::	P
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	E_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	ne
real(kind=rp),	intent(inout),	DIMENSION(params%pchunk)	::	PSIp

private subroutine GCEoM_p(params, RHS_R, RHS_PHI, RHS_Z, RHS_PLL, B_R, B_PHI, B_Z, E_R, E_PHI, E_Z, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z, V_PLL, V_MU, Y_R, q_cache, m_cache)

Arguments

Type	Intent	Attributes		Name
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	RHS_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	RHS_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	RHS_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	RHS_PLL
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)	::	E_R
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_PHI
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_Z
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	curlb_R
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	curlb_PHI
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	curlb_Z
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	gradB_R
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	gradB_PHI
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	gradB_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),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache

private subroutine GCEoM1_p(pchunk, tt, P, F, params, RHS_R, RHS_PHI, RHS_Z, RHS_PLL, RHS_MU, B_R, B_PHI, B_Z, E_R, E_PHI, E_Z, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z, V_PLL, V_MU, Y_R, Y_PHI, Y_Z, q_cache, m_cache, PSIp, ne, flag_cache)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	pchunk
integer(kind=ip),	intent(in)		::	tt
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(in)		::	F
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	RHS_R
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	RHS_PHI
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	RHS_Z
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	RHS_PLL
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	RHS_MU
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	B_R
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	B_PHI
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	B_Z
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	E_R
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	E_PHI
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	E_Z
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	curlb_R
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	curlb_PHI
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	curlb_Z
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	gradB_R
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	gradB_PHI
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	gradB_Z
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	V_PLL
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	V_MU
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(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
real(kind=rp),	intent(in),	DIMENSION(pchunk)	::	PSIp
real(kind=rp),	intent(out),	DIMENSION(pchunk)	::	ne
integer(kind=is),	intent(out),	DIMENSION(pchunk)	::	flag_cache

public subroutine GCEoM1_fio_p(tt, P, F, params, RHS_R, RHS_PHI, RHS_Z, RHS_PLL, RHS_MU, B_R, B_PHI, B_Z, E_R, E_PHI, E_Z, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z, V_PLL, V_MU, Y_R, Y_PHI, Y_Z, q_cache, m_cache, PSIp, ne, ni, nimp, Te, Zeff, flagCon, flagCol, hint)

Arguments

Type	Intent	Attributes		Name
integer(kind=ip),	intent(in)		::	tt
type(PROFILES),	intent(in)		::	P
type(FIELDS),	intent(in)		::	F
type(KORC_PARAMS),	intent(inout)		::	params	Core KORC simulation parameters.
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	RHS_R
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	RHS_PHI
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	RHS_Z
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	RHS_PLL
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	RHS_MU
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)	::	E_R
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_PHI
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	E_Z
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	curlb_R
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	curlb_PHI
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	curlb_Z
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	gradB_R
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	gradB_PHI
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	gradB_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),	DIMENSION(params%pchunk)	::	Y_R
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	Y_PHI
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	Y_Z
real(kind=rp),	intent(in)		::	q_cache
real(kind=rp),	intent(in)		::	m_cache
real(kind=rp),	intent(in),	DIMENSION(params%pchunk)	::	PSIp
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	ne
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	ni
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	nimp
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	Te
real(kind=rp),	intent(out),	DIMENSION(params%pchunk)	::	Zeff
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCon
integer(kind=is),	intent(inout),	DIMENSION(params%pchunk)	::	flagCol
type(C_PTR),	intent(inout),	DIMENSION(params%pchunk)	::	hint

private subroutine aux_fields(pp, spp, gradB, curlb, Bmag)

Arguments

Type	Intent	Attributes		Name
integer			::	pp
type(SPECIES),	intent(in)		::	spp	An instance of the derived type SPECIES containing all the parameters and simulation variables of the different species in the simulation.
real(kind=rp),	intent(inout),	DIMENSION(3)	::	gradB
real(kind=rp),	intent(inout),	DIMENSION(3)	::	curlb
real(kind=rp),	intent(in)		::	Bmag

korc_ppusher Module

Contents

Variables

Functions

Subroutines

Note

Uses

Used by

Contents

Variables

Functions

Subroutines

Variables

Functions

private pure function cross(a, b)

Arguments

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

public function deg2rad(x)

Arguments

Return Value real(kind=rp)

public function rad2deg(x)

Arguments

Return Value real(kind=rp)

Subroutines

public subroutine initialize_particle_pusher(params)

Arguments

private subroutine radiation_force_p(pchunk, q_cache, m_cache, U_X, U_Y, U_Z, E_X, E_Y, E_Z, B_X, B_Y, B_Z, Frad_X, Frad_Y, Frad_Z)

Arguments

public subroutine FO_init(params, F, spp, output, step)

Arguments

public subroutine adv_FOeqn_top(params, F, P, spp)

Arguments

public subroutine advance_FOeqn_vars(tt, a, q_cache, m_cache, params, X_X, X_Y, X_Z, V_X, V_Y, V_Z, B_X, B_Y, B_Z, E_X, E_Y, E_Z, P, F, g, flagCon, flagCol, PSIp)

Arguments

public subroutine advance_FP3Deqn_vars(params, X_X, X_Y, X_Z, V_X, V_Y, V_Z, g, m_cache, B0, lam, R0, q0, EF0, B_X, B_Y, B_Z, E_X, E_Y, E_Z, P, F, flagCon, flagCol, PSIp)

Arguments

public subroutine adv_FOfio_top(params, F, P, spp)

Arguments

public subroutine adv_FOinterp_top(params, F, P, spp)

Arguments

public subroutine adv_FOinterp_mars_top(params, F, P, spp)

Arguments

public subroutine adv_FOinterp_aorsa_top(params, F, P, spp)

Arguments

public subroutine advance_FOinterp_vars(tt, a, q_cache, m_cache, params, X_X, X_Y, X_Z, V_X, V_Y, V_Z, B_X, B_Y, B_Z, E_X, E_Y, E_Z, g, flagCon, flagCol, P, F, PSIp)

Arguments

public subroutine advance_FOfio_vars(tt, a, q_cache, m_cache, params, X_X, X_Y, X_Z, V_X, V_Y, V_Z, B_X, B_Y, B_Z, E_X, E_Y, E_Z, g, flagCon, flagCol, P, F, PSIp, hint)

Arguments

public subroutine advance_FP3Dinterp_vars(params, X_X, X_Y, X_Z, V_X, V_Y, V_Z, g, m_cache, B_X, B_Y, B_Z, E_X, E_Y, E_Z, flagCon, flagCol, P, F, PSIp)

Arguments

public subroutine GC_init(params, F, spp)

Arguments

public subroutine adv_GCeqn_top(params, F, P, spp)

Arguments

public subroutine advance_GCeqn_vars(vars, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, flagCon, flagCol, q_cache, m_cache, B_R, B_PHI, B_Z, F, P, PSIp, E_PHI)

Arguments

public subroutine advance_FPeqn_vars(params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, flagCon, flagCol, m_cache, F, P, PSIp)

Arguments

public subroutine adv_GCinterp_psi_top_FS(params, spp, P, F)

Arguments

public subroutine adv_GCinterp_psi_top(params, spp, P, F)

Arguments

public subroutine adv_GCinterp_fio_top(params, spp, P, F)

Arguments

public subroutine adv_GCinterp_psiwE_top(params, spp, P, F)

Arguments

public subroutine adv_GCinterp_psi2x1t_top(params, spp, P, F)

Arguments

public subroutine adv_GCinterp_B_top(params, spp, P, F)

Arguments

public subroutine adv_GCinterp_B2D_top(params, spp, P, F)

Arguments

public subroutine adv_GCinterp_2DBdB_top(params, spp, P, F)

Arguments

public subroutine adv_GCinterp_3DBdB1_top(params, spp, P, F)

Arguments

public subroutine adv_GCinterp_3DBdB_top(params, spp, P, F)

Arguments

public subroutine advance_GCinterp_psi_vars_FS(vars, pp, tt, params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, q_cache, m_cache, flagCon, flagCol, F, P, B_R, B_PHI, B_Z, E_PHI, PSIp, curlb_R, curlb_PHI, curlb_Z, gradB_R, gradB_PHI, gradB_Z)

Arguments