Calls get_fields_direct_from_dfn to solve for fields consistent with current gnew
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| complex, | intent(out), | dimension (:,:,:) | :: | phi | ||
| complex, | intent(out), | dimension (:,:,:) | :: | apar | ||
| complex, | intent(out), | dimension (:,:,:) | :: | bpar | ||
| logical, | intent(in), | optional | :: | gf_lo |
subroutine get_init_field (phi, apar, bpar, gf_lo)
use dist_fn_arrays, only: gnew
implicit none
complex, dimension (:,:,:), intent (out) :: phi, apar, bpar
logical, optional, intent(in) :: gf_lo
call get_fields_direct_from_dfn(gnew, phi, apar, bpar, gf_lo)
end subroutine get_init_field