From 5f5d9ed908454b38e35617581a71c36861f85b27 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 27 Dec 2020 08:43:57 +0100 Subject: [PATCH] wrong time increment --- src/constitutive_mech.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/constitutive_mech.f90 b/src/constitutive_mech.f90 index b2194ab93..7a2224ede 100644 --- a/src/constitutive_mech.f90 +++ b/src/constitutive_mech.f90 @@ -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)%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 broken = mech_collectDotState(Delta_t*C(stage),co,ip,el,ph,me)