From 52ca7cc43ccb050eb48c540e32e6ba74c38cdf52 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Wed, 25 Mar 2020 10:27:55 +0100
Subject: [PATCH] only one stateJump per integration
---
src/crystallite.f90 | 8 --------
1 file changed, 8 deletions(-)
diff --git a/src/crystallite.f90 b/src/crystallite.f90
index 70910725d..5fc5ca91d 100644
--- a/src/crystallite.f90
+++ b/src/crystallite.f90
@@ -1449,11 +1449,8 @@ subroutine integrateStateRKCK45
call update_dotState(1.0_pReal)
- ! --- SECOND TO SIXTH RUNGE KUTTA STEP ---
nonlocalBroken = .false.
- ! --- state update ---
-
!$OMP PARALLEL DO PRIVATE(sizeDotState,p,c)
do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1),FEsolving_execIP(2)
@@ -1491,11 +1488,6 @@ subroutine integrateStateRKCK45
* crystallite_subdt(g,i,e)
enddo
- crystallite_todo(g,i,e) = stateJump(g,i,e)
- if(.not. (crystallite_todo(g,i,e) .or. crystallite_localPlasticity(g,i,e))) &
- nonlocalBroken = .true.
- if(.not. crystallite_todo(g,i,e)) cycle
-
call constitutive_dependentState(crystallite_Fe(1:3,1:3,g,i,e), &
crystallite_Fp(1:3,1:3,g,i,e), &
g, i, e)