eulerian_obj_Deallocate Subroutine

    pure subroutine eulerian_obj_Deallocate(this)
      !> Deallocate Cell array in Eulerian object.
      implicit none
      class(eulerian_obj_base), intent(inout) :: this                          !! An Eulerian object
      select type (this)
      type is (eulerian_obj_r)
        if(allocated (this%cell)) deallocate(this%cell)
      type is (eulerian_obj_i)
        if(allocated (this%cell)) deallocate(this%cell)
      end select

      return
    end subroutine eulerian_obj_Deallocate