barotropic_workstate_exit_data_impl Subroutine

   subroutine barotropic_workstate_exit_data_impl(this)
      type(barotropic_workstate_t), intent(inout) :: this
      !$acc exit data delete(this%bt_eta, this%bt_H_ref)
      !$acc exit data delete(this%bt_ubt, this%bt_vbt)
      !$acc exit data delete(this%eta_sum, this%ubt_sum, this%vbt_sum)
      !$acc exit data delete(this%uhbt_sum, this%vhbt_sum, this%bt_uhbt, this%bt_vhbt)
      !$acc exit data delete(this%bt_ubt_end, this%bt_vbt_end, this%bt_eta_end)
      !$acc exit data delete(this%cor_ref_u, this%cor_ref_v)
      !$acc exit data delete(this%bt_zeta_corner, this%bt_ke_centre, this%bt_eta_new)
      !$acc exit data delete(this%bt_ubt_prev, this%bt_vbt_prev)
      !$acc exit data delete(this%bt_rem_u, this%bt_rem_v)
      !$acc exit data delete(this%av_rem_u, this%av_rem_v)
      if (allocated(this%lwd_drag_u)) then
         !$acc exit data delete(this%lwd_drag_u, this%lwd_drag_v)
      end if
      if (allocated(this%F_slow_u)) then
         !$acc exit data delete(this%F_slow_u, this%F_slow_v)
         !$acc exit data delete(this%F_bt_u, this%F_bt_v)
         !$acc exit data delete(this%F_bt_u_fast, this%F_bt_v_fast)
         !$acc exit data delete(this%ubt_at_n, this%vbt_at_n)
         !$acc exit data delete(this%pbce)
         !$acc exit data delete(this%gtot_E, this%gtot_W, this%gtot_N, this%gtot_S)
         !$acc exit data delete(this%e_anom, this%eta_PF)
         !$acc exit data delete(this%visc_rem_u, this%visc_rem_v)
      end if
      if (allocated(this%BTCL_u)) then
         !$acc exit data delete(this%BTCL_u)
      end if
      if (allocated(this%BTCL_v)) then
         !$acc exit data delete(this%BTCL_v)
      end if
      if (allocated(this%h_face_up_x)) then
         !$acc exit data delete(this%h_face_up_x)
      end if
      if (allocated(this%h_face_up_y)) then
         !$acc exit data delete(this%h_face_up_y)
      end if
      if (allocated(this%wd_wet_dyn)) then
         !$acc exit data delete(this%wd_open_u, this%wd_open_v)
         !$acc exit data delete(this%wd_flux_x, this%wd_flux_y)
         !$acc exit data delete(this%wd_wet_dyn, this%wd_theta)
      end if
      ! Parent detach last — reverses the enter-data ordering.
   end subroutine barotropic_workstate_exit_data_impl