reset_linear_magnitude Subroutine

private subroutine reset_linear_magnitude()

FIXME : Add documentation

Arguments

None

Contents


Source Code

  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