get_phi_and_bpar Subroutine

private subroutine get_phi_and_bpar(phi, bpar, dist)

Arrays Parameters Grids

divide sum ( Zs int J0 h d^3 v) by sum(Zs^2 ns / Ts) do nothing for bpar because bpar = - 2 * beta * sum(Ts ns int (J1/bs) mu h d^3 v) which is already stored in bpar when dist = 'h'.

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(inout),		dimension(:, :, -nzgrid:, :)	::	phi
complex,	intent(inout),		dimension(:, :, -nzgrid:, :)	::	bpar
character(len=*),	intent(in)			::	dist