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.

Called by

proc~~tem_time_dump~~CalledByGraph proc~tem_time_dump tem_time_dump proc~tem_restart_readheader tem_restart_readHeader proc~tem_restart_readheader->proc~tem_time_dump proc~tem_simcontrol_dump_now tem_simControl_dump_now proc~tem_simcontrol_dump_now->proc~tem_time_dump proc~tem_simcontrol_syncupdate tem_simControl_syncUpdate proc~tem_simcontrol_syncupdate->proc~tem_time_dump proc~tem_timecontrol_dump tem_timeControl_dump proc~tem_timecontrol_dump->proc~tem_time_dump proc~tem_load_convergenceheader tem_load_convergenceHeader proc~tem_load_convergenceheader->proc~tem_timecontrol_dump proc~tem_load_restart tem_load_restart proc~tem_load_restart->proc~tem_restart_readheader proc~tem_load_restart->proc~tem_timecontrol_dump proc~tem_load_surfdata tem_load_surfData proc~tem_load_surfdata->proc~tem_timecontrol_dump proc~tem_load_trackingconfig tem_load_trackingConfig proc~tem_load_trackingconfig->proc~tem_timecontrol_dump proc~tem_simcontrol_dump tem_simControl_dump proc~tem_simcontrol_dump->proc~tem_simcontrol_dump_now proc~tem_simcontrol_dump->proc~tem_timecontrol_dump proc~tem_convergence_load tem_convergence_load proc~tem_convergence_load->proc~tem_load_convergenceheader proc~tem_load_general tem_load_general proc~tem_load_general->proc~tem_simcontrol_dump proc~tem_load_tracking tem_load_tracking proc~tem_load_tracking->proc~tem_load_trackingconfig proc~tem_abortcriteria_load tem_abortCriteria_load proc~tem_abortcriteria_load->proc~tem_convergence_load

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