223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

corrected wrong indices into state array for velocity

This commit is contained in:
Christoph Kords 2011-11-07 15:17:58 +00:00
parent 49c0b8a3fd
commit 34adec74e8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/constitutive_nonlocal.f90
View File

@ -1663,8 +1663,8 @@ tauThreshold = state(g,ip,el)%p(11*ns+1:12*ns)
Tdislocation_v = state(g,ip,el)%p(12*ns+1:12*ns+6) Tdislocation_v = state(g,ip,el)%p(12*ns+1:12*ns+6)
v(1:ns,1) = state(g,ip,el)%p(12*ns+6+1:13*ns+6) v(1:ns,1) = state(g,ip,el)%p(12*ns+6+1:13*ns+6)
v(1:ns,2) = state(g,ip,el)%p(12*ns+6+1:13*ns+6) v(1:ns,2) = state(g,ip,el)%p(12*ns+6+1:13*ns+6)
v(1:ns,3) = state(g,ip,el)%p(13*ns+6+1:13*ns+6) v(1:ns,3) = state(g,ip,el)%p(13*ns+6+1:14*ns+6)
v(1:ns,4) = state(g,ip,el)%p(13*ns+6+1:13*ns+6) v(1:ns,4) = state(g,ip,el)%p(13*ns+6+1:14*ns+6)
!*** sanity check for timestep !*** sanity check for timestep