From 6cca9202ad309c63e9667f6c22d475f57263dd63 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 25 Jan 2021 07:42:12 +0100 Subject: [PATCH] substepping seems to be inactive even in RGC test --- src/homogenization.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/homogenization.f90 b/src/homogenization.f90 index 17ead5d68..abc5aa219 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -266,7 +266,7 @@ subroutine materialpoint_stressAndItsTangent(dt,FEsolving_execIP,FEsolving_execE subStep = min(1.0_pReal-subFrac,num%stepIncreaseHomog*subStep) ! introduce flexibility for step increase/acceleration steppingNeeded: if (subStep > num%subStepMinHomog) then - + error stop ! wind forward grain starting point call constitutive_windForward(ip,el) @@ -294,6 +294,8 @@ subroutine materialpoint_stressAndItsTangent(dt,FEsolving_execIP,FEsolving_execE convergenceLooping: do while (.not. (terminallyIll .or. doneAndHappy(1)) & .and. NiterationMPstate < num%nMPstate) NiterationMPstate = NiterationMPstate + 1 + if (subStep /= 1.0 .or. subFrac /= 0.0) error stop + !-------------------------------------------------------------------------------------------------- ! deformation partitioning