timer_obj_TimeToWriteRestartData Function

private pure function timer_obj_TimeToWriteRestartData(this) result(res)

Determine whether it is time to write restart 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_timetowriterestartdata~~CalledByGraph proc~timer_obj_timetowriterestartdata timer_obj%timer_obj_TimeToWriteRestartData program~main main program~main->proc~timer_obj_timetowriterestartdata

Source Code

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

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

      return
    end function timer_obj_TimeToWriteRestartData