timer_obj_UpdateTiming Subroutine

    impure subroutine timer_obj_UpdateTiming(this,name)
      !> Updates timing info with elapsed time since beginning of current
      ! iteration.
      implicit none
      class(timer_obj), intent(inout) :: this                                  !! Timer
      character(len=*), intent(in)    :: name                                  !! Name of timing data
      ! Work variables
      integer :: idx
      real(wp):: now

      ! Get index from hash table
      call this%tbl%Get(key=this%tbl%HashString(name),val=idx)

      ! Update time elapsed since beginning of iteration
      now              = this%parallel%Time()
      this%timing(idx) = now - this%lasttime
      this%lasttime    = now

      return
    end subroutine timer_obj_UpdateTiming