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

bugfix: 

full stress tensor should be used
This commit is contained in:
Martin Diehl 2020-03-10 14:02:09 +01:00
parent 705ee908a2
commit e8b5a6dfe4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/kinematics_slipplane_opening.f90
View File

@ -141,9 +141,9 @@ subroutine kinematics_slipplane_opening_LiAndItsTangent(Ld, dLd_dTstar, S, ipc,
dLd_dTstar = 0.0_pReal dLd_dTstar = 0.0_pReal
do i = 1, prm%totalNslip do i = 1, prm%totalNslip
traction_d = math_mul33xx33(S,prm%P_d(3,3,i)) traction_d = math_tensordot(S,prm%P_d(1:3,1:3,i))
traction_t = math_mul33xx33(S,prm%P_t(3,3,i)) traction_t = math_tensordot(S,prm%P_t(1:3,1:3,i))
traction_n = math_mul33xx33(S,prm%P_n(3,3,i)) traction_n = math_tensordot(S,prm%P_n(1:3,1:3,i))
traction_crit = prm%critLoad(i)* damage(homog)%p(damageOffset) ! degrading critical load carrying capacity by damage traction_crit = prm%critLoad(i)* damage(homog)%p(damageOffset) ! degrading critical load carrying capacity by damage