From 0373fa64e43969c36b19efa9520bc6c5daf48e6c Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Tue, 2 Aug 2011 11:10:41 +0000 Subject: [PATCH] have to initialize constitutive_state during constitutive_init, since the first call to constitutive_microstructure (where we already need the state) is done before the cutback scheme starts. --- code/constitutive.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/code/constitutive.f90 b/code/constitutive.f90 index 01fb7fd6b..98979a238 100644 --- a/code/constitutive.f90 +++ b/code/constitutive.f90 @@ -326,7 +326,8 @@ endif call IO_error(200,material_phase(g,i,e)) ! unknown constitution end select - constitutive_partionedState0(g,i,e)%p = constitutive_state0(g,i,e)%p + constitutive_partionedState0(g,i,e)%p = constitutive_state0(g,i,e)%p + constitutive_state(g,i,e)%p = constitutive_state0(g,i,e)%p ! need to be defined for first call of constitutive_microstructure in crystallite_init enddo enddo enddo