only one stateJump per integration

This commit is contained in:
Martin Diehl 2020-03-25 10:27:55 +01:00
parent 2dd3ccdad1
commit 52ca7cc43c
1 changed files with 0 additions and 8 deletions

View File

@ -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)