itmin was always +1
This commit is contained in:
parent
e5e950527d
commit
bbb0803ce4
|
@ -589,7 +589,7 @@ subroutine AL_converged(snes_local,it,xnorm,snorm,fnorm,reason,dummy,ierr)
|
|||
real(pReal) :: err_stress_tol
|
||||
|
||||
err_stress_tol = max(maxval(abs(P_av))*err_stress_tolrel,err_stress_tolabs)
|
||||
Converged = (it > itmin .and. &
|
||||
Converged = (it >= itmin .and. &
|
||||
all([ err_f/err_f_tol, &
|
||||
err_p/err_p_tol, &
|
||||
err_stress/err_stress_tol] < 1.0_pReal)) &
|
||||
|
|
Loading…
Reference in New Issue