fix broken statistics reporting in case of multi-physics

This commit is contained in:
Martin Diehl 2021-01-24 10:39:32 +01:00
parent c729e7d53f
commit 4f059910ab
1 changed files with 1 additions and 1 deletions

View File

@ -425,7 +425,7 @@ program DAMASK_grid
guess = .true. ! start guessing after first converged (sub)inc guess = .true. ! start guessing after first converged (sub)inc
if (worldrank == 0) then if (worldrank == 0) then
write(statUnit,*) totalIncsCounter, time, cutBackLevel, & write(statUnit,*) totalIncsCounter, time, cutBackLevel, &
solres%converged, solres%iterationsNeeded solres(1)%converged, solres(1)%iterationsNeeded
flush(statUnit) flush(statUnit)
endif endif
elseif (cutBackLevel < maxCutBack) then ! further cutbacking tolerated? elseif (cutBackLevel < maxCutBack) then ! further cutbacking tolerated?