From 66aa20ad3974045dc3e74804db79ccc493e3253d Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 24 Mar 2020 20:35:27 +0100 Subject: [PATCH] extra check for nonlocal needed --- src/crystallite.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 2b60224b8..882eb3d01 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -1459,7 +1459,7 @@ subroutine integrateStateRKCK45 do e = FEsolving_execElem(1),FEsolving_execElem(2) do i = FEsolving_execIP(1),FEsolving_execIP(2) do g = 1,homogenization_Ngrains(material_homogenizationAt(e)) - if (crystallite_todo(g,i,e)) then + if(crystallite_todo(g,i,e) .and. (.not. nonlocalBroken .or. crystallite_localPlasticity(g,i,e)) ) then p = material_phaseAt(g,e); c = material_phaseMemberAt(g,i,e)