From f16244d24063474037e2bfba1292608b41a4a5bc Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Fri, 16 Jan 2015 17:51:43 +0000 Subject: [PATCH] corrected state integration --- code/damage_isoBrittle.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/damage_isoBrittle.f90 b/code/damage_isoBrittle.f90 index 9c13ab338..6d3037e19 100644 --- a/code/damage_isoBrittle.f90 +++ b/code/damage_isoBrittle.f90 @@ -312,7 +312,7 @@ subroutine damage_isoBrittle_microstructure(C, Fe, subdt, ipc, ip, el) damageState(phase)%state(1,constituent) = & damageState(phase)%state(2,constituent) + & (damageState(phase)%subState0(1,constituent) - damageState(phase)%state(2,constituent))* & - exp(-subdt/(damageState(phase)%state(2,constituent)*lattice_DamageMobility(phase))) + exp(-subdt/lattice_DamageMobility(phase)) end subroutine damage_isoBrittle_microstructure