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

SFE not equal to zero

This commit is contained in:
Vitesh Shah 2019-08-15 13:56:59 +02:00
parent 310d262e9f
commit 5a72f513c7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/plastic_dislotwin.f90
View File

@ -807,7 +807,7 @@ subroutine plastic_dislotwin_dotState(Mp,T,instance,of)
else
! sigma_cl = norm2(matmul(Mp,prm%n0_sl(1:3,i))) ! ToDo: MD: correct?
sigma_cl = DOT_PRODUCT(prm%n0_sl(1:3,i),matmul(Mp,prm%n0_sl(1:3,i)))
if (prm%SFE_0K == 0.0_pReal) then
if (prm%SFE_0K /= 0.0_pReal) then
b_d = 24.0_pReal*PI*(1.0_pReal - prm%nu)/(2.0_pReal + prm%nu)* Gamma/(prm%mu*prm%b_sl(i))
else
b_d = 1.0_pReal