tem_timeControl_dump Subroutine

public subroutine tem_timeControl_dump(me, outUnit)

Dump timecontrol information to the specified outUnit.

Arguments

Type IntentOptional Attributes Name
type(tem_timeControl_type), intent(inout) :: me

Time control to write on outUnit.
integer, intent(in) :: outUnit

The file unit to write the time control to.

Calls

proc~~tem_timecontrol_dump~~CallsGraph proc~tem_timecontrol_dump tem_timeControl_dump proc~tem_time_dump tem_time_dump proc~tem_timecontrol_dump->proc~tem_time_dump

Called by

proc~~tem_timecontrol_dump~~CalledByGraph proc~tem_timecontrol_dump tem_timeControl_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_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_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 proc~tem_simcontrol_load tem_simControl_load proc~tem_simcontrol_load->proc~tem_abortcriteria_load

Source Code

  subroutine tem_timeControl_dump(me, outUnit)
    ! -------------------------------------------------------------------- !
    !> Time control to write on outUnit.
    type(tem_timeControl_type), intent(inout) :: me

    !> The file unit to write the time control to.
    integer, intent(in) :: outUnit
    ! -------------------------------------------------------------------- !
    ! -------------------------------------------------------------------- !

    write(outUnit,*) '+-------------------------------------------+'
    write(outUnit,'(A,I0)') 'Iterations between trigger checks: ', me%check_iter
    write(outUnit,*) ' - Min:'
    call tem_time_dump(me%min, outUnit)
    write(outUnit,*) ''
    write(outUnit,*) ' - Max:'
    call tem_time_dump(me%max, outUnit)
    write(outUnit,*) ''
    write(outUnit,*) ' - Interval:'
    call tem_time_dump(me%interval, outUnit)
    write(outUnit,*) '+-------------------------------------------+'

  end subroutine tem_timeControl_dump