From 7dd1130e922ca6f2ed498f4f4e0ea3bb3cb7ca6d Mon Sep 17 00:00:00 2001
From: Christoph	Kords <c.kords@mpie.de>
Date: Sun, 16 Dec 2012 16:18:36 +0000
Subject: [PATCH] reset syncSubFrac flag when turning terminallyIll

---
 code/crystallite.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/code/crystallite.f90 b/code/crystallite.f90
index 12c0287e3..24c680177 100644
--- a/code/crystallite.f90
+++ b/code/crystallite.f90
@@ -633,12 +633,13 @@ do while (any(crystallite_todo(:,:,FEsolving_execELem(1):FEsolving_execElem(2)))
             do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
               if (crystallite_syncSubFrac(i,e) .and. .not. crystallite_converged(1,i,e)) then
                 !$OMP CRITICAL (write2out)
-                write(6,'(a,i8,1x,i2,1x,i3)') '<< CRYST >> time synchronization: failed at el,ip,g ',e,i,g
+                write(6,'(a,i8,1x,i2)') '<< CRYST >> time synchronization: failed at el,ip ',e,i
                 !$OMP END CRITICAL (write2out)
               endif
             enddo
           enddo
         endif
+        crystallite_syncSubFrac = .false.
         where(.not. crystallite_localPlasticity)
           crystallite_substep = 0.0_pReal
           crystallite_todo = .false.