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.

This commit is contained in:
Christoph Kords 2011-08-02 11:10:41 +00:00
parent 9116a1edcb
commit 0373fa64e4
1 changed files with 2 additions and 1 deletions

View File

@ -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