From 34adec74e8a7447641c7e292cff1c5f1a42725ab Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Mon, 7 Nov 2011 15:17:58 +0000 Subject: [PATCH] corrected wrong indices into state array for velocity --- code/constitutive_nonlocal.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index ead028d7b..f4b3a6f93 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -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) 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,3) = 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: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:14*ns+6) !*** sanity check for timestep