Skip to content

Commit e31f19f

Browse files
committed
Fixed failing test due to convergence bottleneck feature
1 parent 9fa593d commit e31f19f

File tree

2 files changed

+11
-6
lines changed

2 files changed

+11
-6
lines changed

.gitignore

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,8 +2,11 @@ debug
22
build
33
tests/*/*.F90
44
.VSCodeCounter
5-
.vscode
5+
.vscode*
66
ford_doc.md
77
*mod
88
*.json
99
/doc/
10+
.ssh
11+
.gitconfig
12+
*bash_history

src/modules/basic_integrators/implicit_PicardBDE_integrator_procedures.f90

Lines changed: 7 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -434,11 +434,13 @@ subroutine tryIntegrate(this,manipulatedModeller,outputVars,inputVars,numSteps,d
434434
end if
435435
end if
436436

437-
do j = 1, size(convergenceCounter)
438-
if (convergenceCounter(j) == nonlinIter) &
439-
call printMessage(this%integratorName//": convergence bottleneck: "&
440-
// inputVars%getVarName(this%convergenceTestVars(j)),.true.)
441-
end do
437+
if (nonTrivialConvergenceCheck) then
438+
do j = 1, size(convergenceCounter)
439+
if (convergenceCounter(j) == nonlinIter) &
440+
call printMessage(this%integratorName//": convergence bottleneck: "&
441+
// inputVars%getVarName(this%convergenceTestVars(j)),.true.)
442+
end do
443+
end if
442444

443445
if (solveSuccess) then
444446
this%totNumIters = this%totNumIters + nonlinIter

0 commit comments

Comments
 (0)