fixed copy and paste errors
This commit is contained in:
parent
b7ac91480a
commit
1d2a7d0917
|
@ -804,7 +804,7 @@ subroutine plastic_dislotwin_dotState(Mp,T,instance,of)
|
|||
dot%f_tw(:,of) = f_unrotated*dot_gamma_twin/prm%gamma_char
|
||||
|
||||
call kinetics_trans(Mp,T,dot_gamma_sl,instance,of,dot_gamma_tr)
|
||||
dot%f_tw(:,of) = f_unrotated*dot_gamma_tr
|
||||
dot%f_tr(:,of) = f_unrotated*dot_gamma_tr
|
||||
|
||||
end associate
|
||||
|
||||
|
@ -1246,7 +1246,7 @@ pure subroutine kinetics_trans(Mp,T,dot_gamma_sl,instance,of,&
|
|||
significantStress: where(tau > tol_math_check)
|
||||
StressRatio_s = (dst%tau_hat_tr(:,of)/tau)**prm%s
|
||||
dot_gamma_tr = dst%f_tr(:,of) * Ndot0*exp(-StressRatio_s)
|
||||
ddot_gamma_dtau = (dot_gamma_tr*prm%r/tau)*StressRatio_s
|
||||
ddot_gamma_dtau = (dot_gamma_tr*prm%s/tau)*StressRatio_s
|
||||
else where significantStress
|
||||
dot_gamma_tr = 0.0_pReal
|
||||
ddot_gamma_dtau = 0.0_pReal
|
||||
|
|
Loading…
Reference in New Issue