tem_time_needs_reduce Function

public elemental function tem_time_needs_reduce(me) result(needs_reduce)

This function returns, if the given time definition requires a reduction operation if used as a trigger.

If there is a clock setting involved, a reduction is needed, as the wtimes are not synchronous across all processes.

Arguments

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

Time definition to check of its need of a reduction.

Return Value logical

Flag indicating, if this time setting requires a reduction.


Called by

proc~~tem_time_needs_reduce~~CalledByGraph proc~tem_time_needs_reduce tem_time_needs_reduce proc~tem_timecontrol_load tem_timeControl_load proc~tem_timecontrol_load->proc~tem_time_needs_reduce proc~tem_load_adapt tem_load_adapt proc~tem_load_adapt->proc~tem_timecontrol_load proc~tem_load_output tem_load_output proc~tem_load_output->proc~tem_timecontrol_load proc~tem_load_trackingconfig tem_load_trackingConfig proc~tem_load_trackingconfig->proc~tem_timecontrol_load proc~tem_load_surfdata tem_load_surfData proc~tem_load_surfdata->proc~tem_timecontrol_load proc~tem_balance_load tem_balance_load proc~tem_balance_load->proc~tem_timecontrol_load proc~tem_simcontrol_load tem_simControl_load proc~tem_simcontrol_load->proc~tem_timecontrol_load proc~tem_load_convergenceheader tem_load_convergenceHeader proc~tem_load_convergenceheader->proc~tem_timecontrol_load proc~tem_load_restart tem_load_restart proc~tem_load_restart->proc~tem_timecontrol_load proc~tem_load_tracking tem_load_tracking proc~tem_load_tracking->proc~tem_load_trackingconfig proc~tem_convergence_load tem_convergence_load proc~tem_convergence_load->proc~tem_load_convergenceheader proc~tem_load_general tem_load_general proc~tem_load_general->proc~tem_balance_load proc~tem_load_general->proc~tem_simcontrol_load proc~tem_abortcriteria_load tem_abortCriteria_load proc~tem_abortcriteria_load->proc~tem_convergence_load

Contents

Source Code

tem_time_needs_reduce

Source Code

  elemental function tem_time_needs_reduce(me) result(needs_reduce)
    ! -------------------------------------------------------------------- !
    !> Time definition to check of its need of a reduction.
    type(tem_time_type), intent(in) :: me

    !> Flag indicating, if this time setting requires a reduction.
    logical :: needs_reduce
    ! -------------------------------------------------------------------- !
    ! -------------------------------------------------------------------- !

    needs_reduce = me%clock < huge(me%clock)

  end function tem_time_needs_reduce