xdmf_grid_obj_Free Subroutine

    pure subroutine xdmf_grid_obj_Free(this)
      !> Frees up data stored by this XDMF grid.
      implicit none
      class(xdmf_grid_obj), intent(inout) :: this                              !!  XDMF grid object

      if (allocated(this%name))         deallocate(this%name)
      if (allocated(this%NumberOfElements))  &
                                        deallocate(this%NumberOfElements)
      if (allocated(this%path))         deallocate(this%path)

      call this%axis(1)%Free()
      call this%axis(2)%Free()
      call this%axis(3)%Free()

      return
    end subroutine xdmf_grid_obj_Free