diff --git a/code/homogenization.f90 b/code/homogenization.f90 index 7ba989de0..61372e506 100644 --- a/code/homogenization.f90 +++ b/code/homogenization.f90 @@ -420,10 +420,14 @@ subroutine materialpoint_stressAndItsTangent(updateJaco,dt) else if ( (myNgrains == 1_pInt .and. materialpoint_subStep(i,e) <= 1.0 ) .or. & ! single grain already tried internal subStepping in crystallite subStepSizeHomog * materialpoint_subStep(i,e) <= subStepMinHomog ) then ! would require too small subStep - ! cutback makes no sense and... + ! cutback makes no sense + if (.not. terminallyIll) then ! so first signals terminally ill... + !$OMP CRITICAL (write2out) + write(6,*) 'Integration point ', i,' at element ', e, ' terminally ill' + !$OMP END CRITICAL (write2out) + endif !$OMP CRITICAL (setTerminallyIll) - write(6,*) 'Integration point ', i,' at element ', e, ' terminally ill' - terminallyIll = .true. ! ...one kills all + terminallyIll = .true. ! ...and kills all others !$OMP END CRITICAL (setTerminallyIll) else ! cutback makes sense materialpoint_subStep(i,e) = subStepSizeHomog * materialpoint_subStep(i,e) ! crystallite had severe trouble, so do a significant cutback