optimise_fields Subroutine

  subroutine optimise_fields(state)
    implicit none
    type(gs2_program_state_type), intent(inout) :: state
    state%init%opt_ov%override_field_option = .true.
    state%init%opt_ov%field_option = "implicit"
    state%init%opt_ov%override_minnrow = .true.
    state%init%opt_ov%minnrow = 64
    call optimise_flags(state)
    state%init%opt_ov%field_option = "local"
    call optimise_flags(state)
    !state%init%opt_ov%minnrow = 16
    !call measure_timestep(state)
    state%init%opt_ov%minnrow = 32
    call optimise_flags(state)
    state%init%opt_ov%minnrow = 128
    call optimise_flags(state)
    !state%init%opt_ov%minnrow = 256
    !call measure_timestep(state)
    !state%init%opt_ov%minnrow = 512
    !call optimise_flags(state)
  end subroutine optimise_fields