223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

wrong time increment

This commit is contained in:
Martin Diehl 2020-12-27 08:43:57 +01:00
parent edef98fd06
commit 5f5d9ed908
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/constitutive_mech.f90
View File

@ -1238,7 +1238,7 @@ subroutine integrateStateRK(F_0,F,Delta_t,co,ip,el,A,B,C,DB)
plasticState(ph)%state(1:sizeDotState,me) = plasticState(ph)%subState0(1:sizeDotState,me) & plasticState(ph)%state(1:sizeDotState,me) = plasticState(ph)%subState0(1:sizeDotState,me) &
+ plasticState(ph)%dotState (1:sizeDotState,me) * Delta_t + plasticState(ph)%dotState (1:sizeDotState,me) * Delta_t
broken = integrateStress(F_0 + (F - F_0) * Delta_t,Delta_t * C(stage),co,ip,el) broken = integrateStress(F_0 + (F - F_0) * Delta_t * C(stage),Delta_t * C(stage),co,ip,el)
if(broken) exit if(broken) exit
broken = mech_collectDotState(Delta_t*C(stage),co,ip,el,ph,me) broken = mech_collectDotState(Delta_t*C(stage),co,ip,el,ph,me)