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

bugfix: strain rate was missing 

dot_gamma is per definition positive, abs only confuses the reader
This commit is contained in:
Martin Diehl 2019-03-28 09:47:03 +01:00
parent 32c03d0b9b
commit 5ffe78ff1f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/plastic_isotropic.f90
View File

@ -403,7 +403,7 @@ subroutine plastic_isotropic_dotState(Mp,instance,of)
dot_gamma = prm%dot_gamma_0 * (sqrt(1.5_pReal) * norm_Mp /(prm%M*stt%xi(of))) **prm%n dot_gamma = prm%dot_gamma_0 * (sqrt(1.5_pReal) * norm_Mp /(prm%M*stt%xi(of))) **prm%n
if (abs(dot_gamma) > 1e-12_pReal) then if (dot_gamma > 1e-12_pReal) then
if (dEq0(prm%c_1)) then if (dEq0(prm%c_1)) then
xi_inf_star = prm%xi_inf xi_inf_star = prm%xi_inf
else else
@ -412,9 +412,10 @@ subroutine plastic_isotropic_dotState(Mp,instance,of)
)**(1.0_pReal / prm%c_3) & )**(1.0_pReal / prm%c_3) &
/ prm%c_4 * (dot_gamma / prm%dot_gamma_0)**(1.0_pReal / prm%n) / prm%c_4 * (dot_gamma / prm%dot_gamma_0)**(1.0_pReal / prm%n)
endif endif
dot%xi(of) = ( prm%h0 + prm%h_ln * log(dot_gamma) ) & dot%xi(of) = dot_gamma &
* abs( 1.0_pReal - stt%xi(of)/xi_inf_star )**prm%a & * ( prm%h0 + prm%h_ln * log(dot_gamma) ) &
* sign(1.0_pReal, 1.0_pReal - stt%xi(of)/xi_inf_star) * abs( 1.0_pReal - stt%xi(of)/xi_inf_star )**prm%a &
* sign(1.0_pReal, 1.0_pReal - stt%xi(of)/xi_inf_star)
else else
dot%xi(of) = 0.0_pReal dot%xi(of) = 0.0_pReal
endif endif