tem_reduction_transient_reset Subroutine

public subroutine tem_reduction_transient_reset(me)

Reset time reduction.

Arguments

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

current time reduction

Called by

proc~~tem_reduction_transient_reset~~CalledByGraph proc~tem_reduction_transient_reset tem_reduction_transient_reset proc~tem_reduction_transient_update tem_reduction_transient_update proc~tem_reduction_transient_update->proc~tem_reduction_transient_reset proc~tem_opvar_reduction_transient_update tem_opVar_reduction_transient_update proc~tem_opvar_reduction_transient_update->proc~tem_reduction_transient_update

Contents

Source Code

tem_reduction_transient_reset

Source Code

  subroutine tem_reduction_transient_reset(me)
    ! -------------------------------------------------------------------- !
    !> current time reduction
    type(tem_reduction_transient_type), intent(inout) :: me
    ! -------------------------------------------------------------------- !
    ! -------------------------------------------------------------------- !
    me%nTimes = 0
    select case(trim(me%config%reduceType))
      case('min')
        me%val(:, me%curr) = huge(1.0_rk)
      case('max')
        me%val(:, me%curr) = tiny(1.0_rk)
      case('sum', 'average')
        me%val(:, me%curr) = 0.0_rk
    end select

  end subroutine tem_reduction_transient_reset