xdmf_obj_Final Subroutine

    pure subroutine xdmf_obj_Final(this)
      !> Finalizes object and frees memmory.
      implicit none
      class(xdmf_obj), intent(inout) :: this                                   !! XDMF object

      if (allocated(this%filename)) deallocate(this%filename)
      if (allocated(this%fields))   deallocate(this%fields)
      call this%grid%Free()

      return
    end subroutine xdmf_obj_Final