corrected state integration

This commit is contained in:
Pratheek Shanthraj 2015-01-16 17:51:43 +00:00
parent eecb78665c
commit f16244d240
1 changed files with 1 additions and 1 deletions

View File

@ -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