raise kappa_max to 4%

This commit is contained in:
zhangc43 2016-04-27 15:48:27 -04:00
parent ab4ec134df
commit 88cca87429
1 changed files with 1 additions and 1 deletions

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.02_pReal + 0.02_pReal*ERF(4.0_pReal * maxval(ne_mprimes) - 4.0_pReal) 1.04_pReal + 0.04_pReal*ERF(4.0_pReal * maxval(ne_mprimes) - 4.0_pReal)
ENDDO LOOPMYSLIP ENDDO LOOPMYSLIP