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

breaking crystallite loop in case of terminally ill (this functionality was probably lost since rev1886)

This commit is contained in:
Christoph Kords 2012-11-19 08:39:48 +00:00
parent 4195d53d11
commit 9fb94cd707
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

@ -692,7 +692,8 @@ do while (any(crystallite_todo(:,:,FEsolving_execELem(1):FEsolving_execElem(2)))
endselect endselect
endif endif
where(.not. crystallite_converged) crystallite_todo = .true. where(.not. crystallite_converged .and. crystallite_subStep > subStepMinCryst) &
crystallite_todo = .true.
NiterationCrystallite = NiterationCrystallite + 1_pInt NiterationCrystallite = NiterationCrystallite + 1_pInt