tem_time_dump Subroutine

public subroutine tem_time_dump(me, outUnit)

Dump the given time to outUnit.

Values which are not set, are omitted.

Arguments

Type IntentOptional 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.

Source Code

  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