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

minor change to strain energy calculation

This commit is contained in:
Pratheek Shanthraj 2014-08-14 09:59:16 +00:00
parent c8005247ba
commit ad6467638f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/damage_local.f90
View File

@ -294,7 +294,7 @@ subroutine damage_local_dotState(Tstar_v, Fe, Lp, ipc, ip, el)
if (pressure < 0.0_pReal) stress = stress - pressure*math_I3
trialDamage = min(1.0_pReal, &
(math_trace33(lattice_surfaceEnergy33(1:3,1:3,phase))/3.0_pReal)/ &
(abs(sum(strain*stress)) + &
(sum(abs(strain*stress)) + &
damageState(phase)%state(1,constituent)))
damageState(phase)%dotState(1,constituent) = &