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

update formula for strain path modifier

This commit is contained in:
zhangc43 2016-04-25 16:02:56 -04:00
parent b168317a17
commit 5e39d38a86
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/plastic_phenoplus.f90
View File

@ -980,8 +980,8 @@ subroutine plastic_phenoplus_microstructure(orientation,ipc,ip,el,F0,Fe,Fp,Tstar
ENDIF
ENDDO LOOPMYNEIGHBORS
plasticState(ph)%state(index_kappa+me_slip, of) = 1.0_pReal &
+ 0.15_pReal*(1.0_pReal + ERF(10.0_pReal*(maxval(ne_mprimes)-0.8_pReal)))
plasticState(ph)%state(index_kappa+me_slip, of) = 1.2_pReal &
+ 0.2_pReal*ERF(4.0_pReal * maxval(ne_mprimes) - 4.0_pReal)
ENDDO LOOPMYSLIP
ENDIF