tem_status_run_terminate Function

public function tem_status_run_terminate(me) result(run_terminate)

Decide if the simulation run should abnormally terminate based on the status flags.

Arguments

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

Status to check for an extraordinary termination of the run.

Return Value logical

Result indicating if the run should com to an irregular end.


Called by

proc~~tem_status_run_terminate~~CalledByGraph proc~tem_status_run_terminate tem_status_run_terminate proc~tem_finalize tem_finalize proc~tem_finalize->proc~tem_status_run_terminate proc~tem_tracking_has_triggered tem_tracking_has_triggered proc~tem_tracking_has_triggered->proc~tem_status_run_terminate proc~tem_tracker tem_tracker proc~tem_tracker->proc~tem_tracking_has_triggered

Contents

Source Code

tem_status_run_terminate

Source Code

  function tem_status_run_terminate(me) result(run_terminate)
    ! --------------------------------------------------------------------------!
    !> Status to check for an extraordinary termination of the run.
    type(tem_status_type), intent(in) :: me

    !> Result indicating if the run should com to an irregular end.
    logical :: run_terminate
    ! --------------------------------------------------------------------------!

    run_terminate = (     me%bits(tem_stat_run_terminate) &
      &              .or. me%bits(tem_stat_global_error)  &
      &              .or. me%bits(tem_stat_nan_detected)  &
      &              .or. me%bits(tem_stat_nonPhysical)   )

  end function tem_status_run_terminate