timer_obj_Init Subroutine

    impure subroutine timer_obj_Init(this,parallel,parser)
      !> Initializes the timer.
      implicit none
      class(timer_obj),   intent(inout) :: this                                !! Timer
      type(parallel_obj), intent(in),    &
                                 target :: parallel                            !! Parallel structure to link with
      type(parser_obj),   intent(in),    &
                                 target :: parser                              !! Input file parsing tool

      ! Link to main structure
      this%parser   => parser
      this%parallel => parallel

      ! Store wall clock time at initialization
      this%starttime = parallel%Time()
      this%itertime  = this%starttime
      this%lasttime  = this%starttime

      ! Initialize hash table, with default size
      call this%tbl%Initialize(TIMER_OBJ_HTBL_SIZE)

      ! Read from input file important parameters
      call this%parser%Get("Timestep",          this%dt       )
      call this%parser%Get("Maximum time",      this%time_max )
      call this%parser%Get("Maximum iterations",this%iter_max )
      call this%parser%Get("Wall time",         this%time_wall)

      ! Read write/viz frequencies, if supplied
      call this%parser%Get("Frequency write restart data", this%freq_write  , huge(1.0_wp))
      call this%parser%Get("Frequency write output data",  this%freq_output , huge(1.0_wp))

      return
    end subroutine timer_obj_Init