lower magnitude of strain path modifier

2016-04-27 08:38:22 -04:00 · 2016-04-27 08:38:22 -04:00 · 8ddb024df3
parent 513e3543b0
commit 8ddb024df3
1 changed files with 3 additions and 2 deletions
--- 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