223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

updated to get local damage from microstructure state

This commit is contained in:
Pratheek Shanthraj 2014-11-26 00:42:20 +00:00
parent c89ef9de61
commit 9714a172d1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
code/damage_anisoBrittle.f90
View File

@ -376,7 +376,8 @@ subroutine damage_anisoBrittle_dotState(Tstar_v,ipc, ip, el)
localDamage = max(0.0_pReal, &
1.0_pReal - sum(1.0_pReal - damageState(phase)% &
state(2:1+damage_anisoBrittle_totalNcleavage(instance),constituent)))
state(2+ damage_anisoBrittle_totalNcleavage(instance): &
1+2*damage_anisoBrittle_totalNcleavage(instance),constituent)))
damageState(phase)%dotState(1,constituent) = &
(localDamage - damageState(phase)%state(1,constituent))/lattice_DamageMobility(phase)
nonlocalFactor = damage_anisoBrittle_getDamage(ipc, ip, el) - localDamage
@ -443,7 +444,8 @@ subroutine damage_anisoBrittle_microstructure(ipc, ip, el)
localDamage = max(0.0_pReal, &
1.0_pReal - sum(1.0_pReal - damageState(phase)% &
state(2:1+damage_anisoBrittle_totalNcleavage(instance),constituent)))
state(2+ damage_anisoBrittle_totalNcleavage(instance): &
1+2*damage_anisoBrittle_totalNcleavage(instance),constituent)))
nonlocalFactor = damage_anisoBrittle_getDamage(ipc, ip, el) - localDamage
index_o = 2_pInt