evp_workspace_exit_data_impl Subroutine

   subroutine evp_workspace_exit_data_impl(this)
      !! Reverse of `enter_data_impl` — pure scratch, `delete` throughout.
      type(evp_workspace_t), intent(inout) :: this
      if (.not. allocated(this%mis_w)) return
      !$acc exit data delete(this%mis_w, this%mice_w, this%ci_w)
      !$acc exit data delete(this%mis_in_w, this%mice_in_w, this%ci_in_w)
      !$acc exit data delete(this%pres_mice_w, this%del_sh_min_pr_w)
      !$acc exit data delete(this%sh_dd_w, this%sh_dt_w, this%zeta_w, this%del_sh_w)
      !$acc exit data delete(this%mask_t_w)
      !$acc exit data delete(this%mi_u_w, this%mask_u_w, this%u_tmp_w)
      !$acc exit data delete(this%mi_v_w, this%mask_v_w)
      !$acc exit data delete(this%a_u_w, this%a_v_w)
      !$acc exit data delete(this%sh_ds_w, this%mi_ratio_a_q_w, this%q_w, this%mask_q_w)
   end subroutine evp_workspace_exit_data_impl