From d2652cae47fd9253ef2cd2b89990e46d3126abbb Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Tue, 13 Mar 2012 14:19:36 +0000 Subject: [PATCH] multiplication only controlled by screws --- code/constitutive_nonlocal.f90 | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index e33805f07..73e926a07 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -1771,10 +1771,7 @@ where (rhoSgl(1:ns,3:4) > 0.0_pReal) & rhoDotMultiplication(1:ns,1:2) = spread(0.5_pReal * sum(abs(gdot(1:ns,3:4)),2) * sqrt(rhoForest) & / constitutive_nonlocal_lambda0(1:ns,myInstance) & / constitutive_nonlocal_burgers(1:ns,myInstance), 2, 2) -where (rhoSgl(1:ns,1:2) > 0.0_pReal) & - rhoDotMultiplication(1:ns,3:4) = spread(0.5_pReal * sum(abs(gdot(1:ns,1:2)),2) * sqrt(rhoForest) & - / constitutive_nonlocal_lambda0(1:ns,myInstance) & - / constitutive_nonlocal_burgers(1:ns,myInstance), 2, 2) +rhoDotMultiplication(1:ns,3:4) = rhoDotMultiplication(1:ns,1:2)