From 9b1823f879f79b57a4f2ec618f783b3f48e66c18 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 1 Mar 2020 08:28:21 +0100 Subject: [PATCH] should be checked for both ductile models --- src/source_damage_anisoDuctile.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/source_damage_anisoDuctile.f90 b/src/source_damage_anisoDuctile.f90 index 4dd18dac0..e0acd0d2f 100644 --- a/src/source_damage_anisoDuctile.f90 +++ b/src/source_damage_anisoDuctile.f90 @@ -141,7 +141,7 @@ subroutine source_damage_anisoDuctile_dotState(ipc, ip, el) do i = 1, prm%totalNslip sourceState(phase)%p(sourceOffset)%dotState(1,constituent) & = sourceState(phase)%p(sourceOffset)%dotState(1,constituent) & - + plasticState(phase)%slipRate(i,constituent)/(damage(homog)%p(damageOffset)**prm%N)/prm%critPlasticStrain(i) + + plasticState(phase)%slipRate(i,constituent)/(damage(homog)%p(damageOffset)**prm%N)/prm%critPlasticStrain(i) ! ToDo: abs for slip rate? enddo end associate