tem_status_run_end Function

public function tem_status_run_end(me) result(run_end)

Decide if the simulation run should end based on the status flags.

Arguments

Type IntentOptional Attributes Name
type(tem_status_type), intent(in) :: me

Status to check if the run has to end.

Return Value logical

Result indicating if the run should come to a regular end.


Called by

proc~~tem_status_run_end~~CalledByGraph proc~tem_status_run_end tem_status_run_end proc~tem_tracking_has_triggered tem_tracking_has_triggered proc~tem_tracking_has_triggered->proc~tem_status_run_end proc~tem_tracker tem_tracker proc~tem_tracker->proc~tem_tracking_has_triggered

Contents

Source Code

tem_status_run_end

Source Code

  function tem_status_run_end(me) result(run_end)
    ! --------------------------------------------------------------------------!
    !> Status to check if the run has to end.
    type(tem_status_type), intent(in) :: me

    !> Result indicating if the run should come to a regular end.
    logical :: run_end
    ! --------------------------------------------------------------------------!

    run_end = (     me%bits(tem_stat_max_sim)      &
      &        .or. me%bits(tem_stat_max_iter)     &
      &        .or. me%bits(tem_stat_max_clock)    &
      &        .or. me%bits(tem_stat_stop_file)    &
      &        .or. me%bits(tem_stat_steady_state) )

  end function tem_status_run_end