Dump simcontrol information to the specified outUnit.
Type | Intent | Optional | 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. |
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