timer_obj_Final Subroutine

    pure subroutine timer_obj_Final(this)
      !> Finalizes and frees memomry.
      implicit none
      class(timer_obj), intent(inout) :: this                                  !! Timer

      ! Nullify pointers
      this%parallel => null()
      this%parser   => null()

      ! Deallocate arrays
      if (allocated(this%timing)) deallocate(this%timing)

      ! Clear hash table
      call this%tbl%Finalize

      return
    end subroutine timer_obj_Final