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.

2011-08-02 11:10:41 +00:00 · 2011-08-02 11:10:41 +00:00 · 0373fa64e4
parent 9116a1edcb
commit 0373fa64e4
1 changed files with 2 additions and 1 deletions
--- a/code/constitutive.f90
+++ b/code/constitutive.f90
@ -327,6 +327,7 @@ endif
           
        end select
        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