From 8ddb024df342e8dd50da69962bcce7a045aac367 Mon Sep 17 00:00:00 2001 From: zhangc43 Date: Wed, 27 Apr 2016 08:38:22 -0400 Subject: [PATCH] lower magnitude of strain path modifier --- src/plastic_phenoplus.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/plastic_phenoplus.f90 b/src/plastic_phenoplus.f90 index 047abe33b..01fa8e8e5 100644 --- a/src/plastic_phenoplus.f90 +++ b/src/plastic_phenoplus.f90 @@ -980,8 +980,9 @@ subroutine plastic_phenoplus_microstructure(orientation,ipc,ip,el,F0,Fe,Fp,Tstar ENDIF ENDDO LOOPMYNEIGHBORS - plasticState(ph)%state(index_kappa+me_slip, of) = 1.2_pReal & - + 0.2_pReal*ERF(4.0_pReal * maxval(ne_mprimes) - 4.0_pReal) + plasticState(ph)%state(index_kappa+me_slip, of) = & + 1.1_pReal + 0.1_pReal*ERF(4.0_pReal * maxval(ne_mprimes) - 4.0_pReal) + ENDDO LOOPMYSLIP ENDIF