Better name for climb stress
This commit is contained in:
parent
eeb5f45e88
commit
f786fcd5f1
|
@ -757,7 +757,7 @@ subroutine plastic_dislotwin_dotState(Mp,T,instance,of)
|
|||
v_cl, & !< climb velocity
|
||||
Gamma, & !< stacking fault energy
|
||||
tau, &
|
||||
tau_cl, & ! ToDo: MD: good name? It is not a resolved stress but a different projection
|
||||
sigma_cl, & ! ToDo: MD: good name? It is not a resolved stress but a different projection
|
||||
b_d
|
||||
real(pReal), dimension(param(instance)%sum_N_sl) :: &
|
||||
dot_rho_dip_formation, &
|
||||
|
@ -805,7 +805,7 @@ subroutine plastic_dislotwin_dotState(Mp,T,instance,of)
|
|||
if (dEq0(rho_dip_distance-rho_dip_distance_min(i))) then
|
||||
dot_rho_dip_climb(i) = 0.0_pReal
|
||||
else
|
||||
tau_cl = norm2(matmul(Mp,prm%n0_sl(1:3,i))) ! ToDo: MD: correct?
|
||||
sigma_cl = norm2(matmul(Mp,prm%n0_sl(1:3,i))) ! ToDo: MD: correct?
|
||||
|
||||
if (prm%SFE_0K > 0.0_pReal) then ! ToDo: MD: I'm not really sure if this is correct. Maybe Gamma(0K) = 0
|
||||
b_d = 24.0_pReal*PI*(1.0_pReal - prm%nu)/(2.0_pReal + prm%nu)* Gamma/(prm%mu*prm%b_sl(i))
|
||||
|
@ -814,7 +814,7 @@ subroutine plastic_dislotwin_dotState(Mp,T,instance,of)
|
|||
endif
|
||||
|
||||
v_cl = 2.0_pReal*prm%omega*b_d**2.0_pReal*exp(-prm%Qsd/(kB*T)) &
|
||||
* (exp(abs(tau_cl)*prm%b_sl(i)**3.0_pReal/(kB*T)) - 1.0_pReal)
|
||||
* (exp(abs(sigma_cl)*prm%b_sl(i)**3.0_pReal/(kB*T)) - 1.0_pReal)
|
||||
dot_rho_dip_climb(i) = 4.0_pReal*v_cl*stt%rho_dip(i,of) &
|
||||
/ (rho_dip_distance-rho_dip_distance_min(i))
|
||||
endif
|
||||
|
|
Loading…
Reference in New Issue