add_gbar_to_g_contribution_apar Subroutine

private subroutine add_gbar_to_g_contribution_apar(scratch2, iky, ia, iv, imu, is, nz_ext, iz_from_izext, rhs)

adds the contributions to the GKE RHS that comes from switching from gbar^{n+1} = g^{n+1} + (Ze/T)(vpa/c)*F0 to g^{n+1} = in the time derivative;

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(inout),		dimension(:)	::	scratch2
integer,	intent(in)			::	iky
integer,	intent(in)			::	ia
integer,	intent(in)			::	iv
integer,	intent(in)			::	imu
integer,	intent(in)			::	is
integer,	intent(in)			::	nz_ext
integer,	intent(in),		dimension(:)	::	iz_from_izext
complex,	intent(inout),		dimension(:)	::	rhs