no reason for critical

will always (and only) set to .true.
2020-02-21 23:37:35 +01:00 · 2020-02-21 23:37:35 +01:00 · f72b856a18
parent 402c282e68
commit f72b856a18
1 changed files with 2 additions and 4 deletions
--- a/src/homogenization.f90
+++ b/src/homogenization.f90
@ -336,9 +336,7 @@ subroutine materialpoint_stressAndItsTangent(updateJaco,dt)
              write(6,*) 'Integration point ', i,' at element ', e, ' terminally ill'
              !$OMP END CRITICAL (write2out)
            endif
-            !$OMP CRITICAL (setTerminallyIll)
            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