FIXME : Add documentation
subroutine reset_linear_magnitude
use dist_fn_arrays, only: g, gnew
use fields, only: set_init_fields
use fields_arrays, only: phi, apar, bpar, phinew, aparnew, bparnew
use run_parameters, only: has_phi, has_apar, has_bpar
use init_g, only: ginit
use array_utils, only: zero_array
implicit none
logical :: dummy
if (has_phi) then
call zero_array(phi); call zero_array(phinew)
end if
if (has_apar) then
call zero_array(apar) ; call zero_array(aparnew)
end if
if (has_bpar) then
call zero_array(bpar) ; call zero_array(bparnew)
end if
call zero_array(g) ; call zero_array(gnew)
call ginit(dummy)
call set_init_fields
end subroutine reset_linear_magnitude