FIXME : Add documentation
subroutine reset_init
use fields_implicit, only: fi_reset => reset_init
use fields_test, only: ft_reset => reset_init
use fields_local, only: fl_reset => reset_fields_local
use fields_gf_local, only: flgf_reset => reset_fields_gf_local
use fields_arrays, only: phi, apar, bpar, phinew, aparnew, bparnew
use fields_arrays, only: gf_phi, gf_apar, gf_bpar, gf_phinew, gf_aparnew, gf_bparnew
use array_utils, only: zero_array
implicit none
initialized = .false.
call zero_array(phi) ; call zero_array(phinew)
call zero_array(apar) ; call zero_array(aparnew)
call zero_array(bpar) ; call zero_array(bparnew)
if(fieldopt_switch .eq. fieldopt_gf_local) then
call zero_array(gf_phi) ; call zero_array(gf_phinew)
call zero_array(gf_apar) ; call zero_array(gf_aparnew)
call zero_array(gf_bpar) ; call zero_array(gf_bparnew)
end if
!What about apar_ext?
select case (fieldopt_switch)
case (fieldopt_implicit)
call fi_reset
case (fieldopt_test)
call ft_reset
case (fieldopt_local)
call fl_reset
case (fieldopt_gf_local)
call flgf_reset
end select
end subroutine reset_init