tem_convergence_reset Subroutine

public subroutine tem_convergence_reset(me)

This routine resets convergence lastState and nChecks

Arguments

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

convergence descriptions

Source Code

  subroutine tem_convergence_reset( me )
    ! -------------------------------------------------------------------- !
    !> convergence descriptions
    type(tem_convergence_type),intent(inout) :: me(:)
    ! -------------------------------------------------------------------- !
    integer :: iConv
    ! -------------------------------------------------------------------- !
    do iConv = 1, size(me)
      me(iConv)%nChecks = 0
      me(iConv)%lastState = huge( me(iConv)%lastState(1,1) )          &
        &                 / real( me(iConv)%header%nLastVals, kind=rk )
      call tem_timeControl_reset_trigger(me(iConv)%header%timeControl)
    end do

  end subroutine tem_convergence_reset