diff --git a/src/plastic_dislotwin.f90 b/src/plastic_dislotwin.f90 index 5d2eab95e..af5b36940 100644 --- a/src/plastic_dislotwin.f90 +++ b/src/plastic_dislotwin.f90 @@ -50,7 +50,6 @@ module plastic_dislotwin qShearBand, & !< q-exponent in shear band velocity CEdgeDipMinDistance, & !< Cmfptwin, & !< - Cthresholdtwin, & !< SolidSolutionStrength, & ! param(instance), stt => state(instance), dst => microstructure(instance)) + associate(prm => param(instance), stt => state(instance)) f_unrotated = 1.0_pReal & - sum(stt%twinFraction(1:prm%totalNtwin,of)) & @@ -968,17 +964,17 @@ subroutine plastic_dislotwin_dependentState(temperature,instance,of) dst%mfp_trans(:,of) = prm%Cmfptrans*prm%GrainSize/(1.0_pReal+prm%GrainSize*dst%invLambdaTrans(:,of)) !* threshold stress for dislocation motion - forall (i = 1:prm%totalNslip) dst%threshold_stress_slip(i,of) = & + forall (i = 1:prm%totalNslip) dst%tau_pass(i,of) = & prm%mu*prm%b_sl(i)*& sqrt(dot_product(stt%rhoEdge(1:prm%totalNslip,of)+stt%rhoEdgeDip(1:prm%totalNslip,of),& prm%h_sl_sl(:,i))) !* threshold stress for growing twin/martensite if(prm%totalNtwin == prm%totalNslip) & - dst%threshold_stress_twin(:,of) = prm%Cthresholdtwin* & - (SFE/(3.0_pReal*prm%b_tw)+ 3.0_pReal*prm%b_tw*prm%mu/(prm%L0_twin*prm%b_sl)) ! slip burgers here correct? + dst%threshold_stress_twin(:,of) = & + (SFE/(3.0_pReal*prm%b_tw)+ 3.0_pReal*prm%b_tw*prm%mu/(prm%L0_twin*prm%b_sl)) ! slip burgers here correct? if(prm%totalNtrans == prm%totalNslip) & - dst%threshold_stress_trans(:,of) = prm%Cthresholdtrans* & + dst%threshold_stress_trans(:,of) = & (SFE/(3.0_pReal*prm%burgers_trans) + 3.0_pReal*prm%burgers_trans*prm%mu/& (prm%L0_trans*prm%b_sl) + prm%transStackHeight*prm%deltaG/ (3.0_pReal*prm%burgers_trans) ) @@ -1052,7 +1048,7 @@ function plastic_dislotwin_postResults(Mp,Temperature,instance,of) result(postRe enddo c = c + prm%totalNslip case (threshold_stress_slip_ID) - postResults(c+1:c+prm%totalNslip) = dst%threshold_stress_slip(1:prm%totalNslip,of) + postResults(c+1:c+prm%totalNslip) = dst%tau_pass(1:prm%totalNslip,of) c = c + prm%totalNslip case (f_tw_ID) @@ -1158,7 +1154,7 @@ pure subroutine kinetics_slip(Mp,Temperature,instance,of, & tau(i) = math_mul33xx33(Mp,prm%Schmid_slip(1:3,1:3,i)) enddo - tau_eff = abs(tau)-dst%threshold_stress_slip(:,of) + tau_eff = abs(tau)-dst%tau_pass(:,of) significantStress: where(tau_eff > tol_math_check) stressRatio = tau_eff/(prm%SolidSolutionStrength+prm%tau_peierls)