bt_wide_exit_data_impl Subroutine

   subroutine bt_wide_exit_data_impl(this)
      !! Non-polymorphic exit_data body.
      type(bt_wide_t), intent(inout) :: this
      !$acc exit data delete(this%w_force_u, this%w_force_v)
      !$acc exit data delete(this%w_zeta)
      !$acc exit data delete(this%w_vbt_sum, this%w_vhbt_sum, this%w_vhbt, this%w_vbt_end)
      !$acc exit data delete(this%w_vbt, this%w_vbt_prev, this%w_rem_v)
      !$acc exit data delete(this%w_ubt_sum, this%w_uhbt_sum, this%w_uhbt, this%w_ubt_end)
      !$acc exit data delete(this%w_ubt, this%w_ubt_prev, this%w_rem_u)
      !$acc exit data delete(this%w_eta_sum, this%w_eta_end)
      !$acc exit data delete(this%w_eta, this%w_H_ref, this%w_eta_new, this%w_ke)
      !$acc exit data delete(this%f_corner_w)
      ! Wide metrics: delegate (see enter_data note — one-level names only).
      call this%metrics_w%exit_data()
   end subroutine bt_wide_exit_data_impl