tem_simControl_dump Subroutine

public subroutine tem_simControl_dump(me, outUnit)

Dump simcontrol information to the specified outUnit.

Arguments

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

Simulation control settings to write to outUnit.
integer, intent(in) :: outUnit

File unit to write to.

Calls

proc~~tem_simcontrol_dump~~CallsGraph proc~tem_simcontrol_dump tem_simControl_dump proc~tem_abortcriteria_dump tem_abortCriteria_dump proc~tem_simcontrol_dump->proc~tem_abortcriteria_dump proc~tem_simcontrol_dump_now tem_simControl_dump_now proc~tem_simcontrol_dump->proc~tem_simcontrol_dump_now proc~tem_status_dump tem_status_dump proc~tem_simcontrol_dump->proc~tem_status_dump proc~tem_timecontrol_dump tem_timeControl_dump proc~tem_simcontrol_dump->proc~tem_timecontrol_dump proc~tem_time_dump tem_time_dump proc~tem_simcontrol_dump_now->proc~tem_time_dump proc~tem_time_set_clock tem_time_set_clock proc~tem_simcontrol_dump_now->proc~tem_time_set_clock proc~tem_timecontrol_dump->proc~tem_time_dump mpi_wtime mpi_wtime proc~tem_time_set_clock->mpi_wtime

Called by

proc~~tem_simcontrol_dump~~CalledByGraph proc~tem_simcontrol_dump tem_simControl_dump proc~tem_load_general tem_load_general proc~tem_load_general->proc~tem_simcontrol_dump

Source Code

  subroutine tem_simControl_dump(me, outUnit)
    ! -------------------------------------------------------------------- !
    !> Simulation control settings to write to outUnit.
    type(tem_simControl_type), intent(inout) :: me

    !> File unit to write to.
    integer, intent(in) :: outUnit
    ! -------------------------------------------------------------------- !

    write(outUnit,*) '+-------------------------------------------+'
    write(outUnit,*) ' - Now:'
    call tem_simControl_dump_now(me, outUnit)
    write(outUnit,*) ''
    write(outUnit,*) ' - Time Control:'
    call tem_timeControl_dump(me%timeControl, outUnit)
    write(outUnit,*) ''
    write(outUnit,*) ' - Abort Criteria:'
    call tem_abortCriteria_dump(me%abortCriteria, outUnit)
    write(outUnit,*) ''
    write(outUnit,*) ' - Status:'
    call tem_status_dump(me%status, outUnit)
    write(outUnit,*) '+-------------------------------------------+'

  end subroutine tem_simControl_dump