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

corr rW (use 0.5 prefactor) in isobrittle and related test upd

This commit is contained in:
Yi Hu 2023-01-23 15:27:44 +01:00
parent 6ee31e2ab3
commit dd74fa2d1d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PRIVATE

@ -1 +1 @@
Subproject commit 547bfe56d67cba358a7bb9582f2f7c0e344befd8 Subproject commit ae2ecb3623b5061d2880e8d9fed8c6fc342e265e

2
src/phase_damage_isobrittle.f90
View File

@ -114,7 +114,7 @@ module subroutine isobrittle_deltaState(C, Fe, ph,en)
associate(prm => param(ph), stt => state(ph), dlt => deltaState(ph)) associate(prm => param(ph), stt => state(ph), dlt => deltaState(ph))
r_W = (2.0_pReal*dot_product(epsilon,matmul(C,epsilon)))/prm%W_crit r_W = (0.5_pReal*dot_product(epsilon,matmul(C,epsilon)))/prm%W_crit
dlt%r_W(en) = merge(r_W - stt%r_W(en), 0.0_pReal, r_W > stt%r_W(en)) dlt%r_W(en) = merge(r_W - stt%r_W(en), 0.0_pReal, r_W > stt%r_W(en))
end associate end associate