diff --git a/src/plastic_phenoplus.f90 b/src/plastic_phenoplus.f90 index 01fa8e8e5..097a9cf1d 100644 --- a/src/plastic_phenoplus.f90 +++ b/src/plastic_phenoplus.f90 @@ -981,7 +981,7 @@ subroutine plastic_phenoplus_microstructure(orientation,ipc,ip,el,F0,Fe,Fp,Tstar ENDDO LOOPMYNEIGHBORS 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