only one stateJump per integration
This commit is contained in:
parent
2dd3ccdad1
commit
52ca7cc43c
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue