diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 77fd00fe7..01ef8bd27 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -1524,7 +1524,6 @@ subroutine integrateStateRKCK45 !$OMP END PARALLEL DO - if(nonlocalBroken) where(.not. crystallite_localPlasticity) crystallite_todo = .false. !-------------------------------------------------------------------------------------------------- ! --- STATE UPDATE WITH ERROR ESTIMATE FOR STATE --- @@ -1533,7 +1532,9 @@ 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) sizeDotState = plasticState(p)%sizeDotState @@ -1564,6 +1565,8 @@ subroutine integrateStateRKCK45 enddo; enddo; enddo !$OMP END PARALLEL DO + if(nonlocalBroken) where(.not. crystallite_localPlasticity) crystallite_todo = .false. + call update_state(1.0_pReal) ! --- relative residui and state convergence ---