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