tem_simControl_clearStat Subroutine

public subroutine tem_simControl_clearStat(me)

Clear the status flags in the simcontrol.

Arguments

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

Simulation control information.

Calls

proc~~tem_simcontrol_clearstat~~CallsGraph proc~tem_simcontrol_clearstat tem_simControl_clearStat proc~tem_status_clear tem_status_clear proc~tem_simcontrol_clearstat->proc~tem_status_clear

Contents

Source Code

tem_simControl_clearStat

Source Code

  subroutine tem_simControl_clearStat(me)
    ! -------------------------------------------------------------------- !
    !> Simulation control information.
    type(tem_simControl_type), intent(inout) :: me
    ! -------------------------------------------------------------------- !

    if (mod(me%now%iter, me%timeControl%check_iter) == 0) then
      call tem_status_clear(me%status)
    end if

  end subroutine tem_simControl_clearStat