vcoord_exit_data Subroutine

   subroutine vcoord_exit_data(self)
      !! Unmap coordinate arrays from GPU.
      class(vcoord_t), intent(inout) :: self
      if (allocated(self%dsig_target)) then
         !$acc exit data delete(self%dsig_target)
      end if
      if (allocated(self%z_ref)) then
         !$acc exit data delete(self%z_ref)
      end if
   end subroutine vcoord_exit_data