Dump the given time to outUnit.
Values which are not set, are omitted.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_time_type), | intent(inout) | :: | me |
The time that should be written to outunit. |
||
integer, | intent(in) | :: | outUnit |
The unit to write to. |
subroutine tem_time_dump(me, outUnit)
! -------------------------------------------------------------------- !
!> The time that should be written to outunit.
type(tem_time_type), intent(inout) :: me
!> The unit to write to.
integer, intent(in) :: outUnit
! -------------------------------------------------------------------- !
if (me%iter < huge(me%iter)) write(outUnit, *) ' iterations: ', me%iter
if (me%sim < huge(me%sim)) write(outUnit, *) ' simTime : ', me%sim
if (me%clock < huge(me%clock)) write(outUnit, *) ' wallClock : ', me%clock
end subroutine tem_time_dump