timer_obj_TimeToWriteOutputData Function

private pure function timer_obj_TimeToWriteOutputData(this) result(res)

Determine whether it is time to write visualization files.

Type Bound

timer_obj

Arguments

Type IntentOptional Attributes Name
class(timer_obj), intent(in) :: this

Timer

Return Value logical

Result


Called by

proc~~timer_obj_timetowriteoutputdata~~CalledByGraph proc~timer_obj_timetowriteoutputdata timer_obj%timer_obj_TimeToWriteOutputData program~main main program~main->proc~timer_obj_timetowriteoutputdata

Source Code

    pure function timer_obj_TimeToWriteOutputData(this) result(res)
      !> Determine whether it is time to write visualization files.
      implicit none
      class(timer_obj), intent(in) :: this                                     !! Timer
      logical :: res                                                           !! Result

      res=.false.
      if (mod(this%time,this%freq_output) .lt. 0.5_wp*this%dt ) res=.true.
      if (mod(this%time,this%freq_output) .ge. this%freq_output -0.5_wp*this%dt ) res=.true.

      return
    end function timer_obj_TimeToWriteOutputData