mod_clock Module Reference

Data Types
type	clock

Functions/Subroutines
pure elemental subroutine	reset (self)
pure elemental subroutine	tick (self)

Function/Subroutine Documentation

reset()

pure elemental subroutine mod_clock::reset ( class(clock), intent(inout)  self )

private

Definition at line 1710 of file suews_util_datetime.f95.

      !! Resets the clock to its start time.

      class(clock), intent(inout) :: self

      self%currentTime = self%startTime

      self%started = .false.
      self%stopped = .false.

tick()

pure elemental subroutine mod_clock::tick ( class(clock), intent(inout)  self )

private

Definition at line 1725 of file suews_util_datetime.f95.

      !! Increments the currentTime of the clock instance by one tickInterval.

      class(clock), intent(inout) :: self

      if (self%stopped) then
         return
      endif

      if (.not. self%started) then
         self%started = .true.
         self%currentTime = self%startTime
      endif

      self%currentTime = self%currentTime + self%tickInterval

      if (self%currentTime >= self%stopTime) then
         self%stopped = .true.
      endif