223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

reset syncSubFrac flag when turning terminallyIll

This commit is contained in:
Christoph Kords 2012-12-16 16:18:36 +00:00
parent 92d2c83334
commit 7dd1130e92
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
code/crystallite.f90
View File

@ -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) do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
if (crystallite_syncSubFrac(i,e) .and. .not. crystallite_converged(1,i,e)) then if (crystallite_syncSubFrac(i,e) .and. .not. crystallite_converged(1,i,e)) then
!$OMP CRITICAL (write2out) !$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) !$OMP END CRITICAL (write2out)
endif endif
enddo enddo
enddo enddo
endif endif
crystallite_syncSubFrac = .false.
where(.not. crystallite_localPlasticity) where(.not. crystallite_localPlasticity)
crystallite_substep = 0.0_pReal crystallite_substep = 0.0_pReal
crystallite_todo = .false. crystallite_todo = .false.