tem_simControl_steadyState_reset Subroutine

public subroutine tem_simControl_steadyState_reset(me)

Reset trigger, status bit and current time for steady state

Arguments

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

Calls

proc~~tem_simcontrol_steadystate_reset~~CallsGraph proc~tem_simcontrol_steadystate_reset tem_simControl_steadyState_reset proc~tem_status_clear tem_status_clear proc~tem_simcontrol_steadystate_reset->proc~tem_status_clear proc~tem_convergence_reset tem_convergence_reset proc~tem_simcontrol_steadystate_reset->proc~tem_convergence_reset proc~tem_time_reset tem_time_reset proc~tem_simcontrol_steadystate_reset->proc~tem_time_reset proc~tem_timecontrol_reset_trigger tem_timeControl_reset_trigger proc~tem_simcontrol_steadystate_reset->proc~tem_timecontrol_reset_trigger proc~tem_convergence_reset->proc~tem_timecontrol_reset_trigger mpi_wtime mpi_wtime proc~tem_time_reset->mpi_wtime

Contents

Source Code

tem_simControl_steadyState_reset

Source Code

  subroutine tem_simControl_steadyState_reset(me)
    ! -------------------------------------------------------------------- !
    type(tem_simControl_type), intent(inout) :: me
    ! -------------------------------------------------------------------- !
    ! clear status bit
    call tem_status_clear(me%status)

    ! reset current time
    call tem_time_reset(me%now)

    ! Run steady state solver untill the solution convergences
    me%timeControl%max%sim = huge(me%timeControl%max%sim)
    me%timeControl%max%iter = huge(me%timeControl%max%iter)

    ! reset simcontrol trigger
    call tem_timeControl_reset_trigger(me%timeControl)

    ! reset convergence to check for new steady state
    call tem_convergence_reset(me%abortCriteria%convergence )

  end subroutine tem_simControl_steadyState_reset