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

reduce push up to 2%

This commit is contained in:
zhangc43 2016-04-27 14:39:35 -04:00
parent cf5a52be22
commit ab4ec134df
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_phenoplus.f90
View File

@ -981,7 +981,7 @@ subroutine plastic_phenoplus_microstructure(orientation,ipc,ip,el,F0,Fe,Fp,Tstar
ENDDO LOOPMYNEIGHBORS ENDDO LOOPMYNEIGHBORS
plasticState(ph)%state(index_kappa+me_slip, of) = & plasticState(ph)%state(index_kappa+me_slip, of) = &
1.1_pReal + 0.1_pReal*ERF(4.0_pReal * maxval(ne_mprimes) - 4.0_pReal) 1.02_pReal + 0.02_pReal*ERF(4.0_pReal * maxval(ne_mprimes) - 4.0_pReal)
ENDDO LOOPMYSLIP ENDDO LOOPMYSLIP