From 20bae5f91bacf44136bf7f6226eeda8f5a20d97c Mon Sep 17 00:00:00 2001 From: zhangc43 Date: Mon, 18 Apr 2016 11:16:59 -0400 Subject: [PATCH] updating physics in pheno+ --- code/plastic_phenoplus.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/plastic_phenoplus.f90 b/code/plastic_phenoplus.f90 index 6e87b4160..22a816ff2 100644 --- a/code/plastic_phenoplus.f90 +++ b/code/plastic_phenoplus.f90 @@ -981,7 +981,7 @@ subroutine plastic_phenoplus_microstructure(orientation,ipc,ip,el,F0,Fe,Fp,Tstar ENDDO LOOPMYNEIGHBORS !*******check if one of the neighbor already can provide a kick for this slip system IF ( maxval(ne_mprimes) > mprime_cut ) THEN - plasticState(ph)%state(index_kappa+me_slip, of) = 1.0_pReal + 0.2_pReal*maxval(ne_mprimes) + plasticState(ph)%state(index_kappa+me_slip, of) = 1.0_pReal + 0.5_pReal*maxval(ne_mprimes) ELSE plasticState(ph)%state(index_kappa+me_slip, of) = 1.0_pReal - 0.1_pReal*maxval(ne_mprimes) ENDIF