ocean_metrics_exit_data_impl Subroutine

   subroutine ocean_metrics_exit_data_impl(this)
      type(ocean_metrics_t), intent(inout) :: this
      !$acc exit data delete(this%dx2h, this%dy2h, this%dx2q, this%dy2q)
      !$acc exit data delete(this%dy_dxT, this%dx_dyT, this%dy_dxBu, this%dx_dyBu)
      !$acc exit data delete(this%angle_dx)
      !$acc exit data delete(this%geolatT, this%geolonT, this%geolatBu, this%geolonBu)
      !$acc exit data delete(this%iareaT, this%iareaBu, this%iareaCu, this%iareaCv)
      !$acc exit data delete(this%idxCv, this%idyCv)
      !$acc exit data delete(this%idxT, this%idyT, this%idxCu, this%idyCu)
      !$acc exit data delete(this%areaT, this%areaCu, this%areaCv, this%areaBu)
      !$acc exit data delete(this%wet_T, this%wet_u, this%wet_v, this%wet_q)
      !$acc exit data delete(this%z_draft, this%cover_frac, this%p_ice_ref)
      !$acc exit data delete(this%open_u, this%open_v)
      !$acc exit data delete(this%por_face_area_u, this%por_face_area_v)
      !$acc exit data delete(this%por_dmin_v, this%por_dmax_v, this%por_davg_v)
      !$acc exit data delete(this%por_dmin_u, this%por_dmax_u, this%por_davg_u)
      !$acc exit data delete(this%por_bed)
      !$acc exit data delete(this%dy_cu_bt, this%dx_cv_bt)
      !$acc exit data delete(this%dy_cu, this%dx_cv)
      !$acc exit data delete(this%dxCv, this%dyCv, this%dxBu, this%dyBu)
      !$acc exit data delete(this%dxT, this%dyT, this%dxCu, this%dyCu)
   end subroutine ocean_metrics_exit_data_impl