223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

avoid misleading variable name

This commit is contained in:
Martin Diehl 2022-01-04 07:32:56 +01:00
parent 79fa888c99
commit 4a7f23069c
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/phase_mechanical_plastic_dislotwin.f90
View File

@ -940,7 +940,6 @@ pure subroutine kinetics_tw(Mp,T,dot_gamma_sl,ph,en,&
ddot_gamma_dtau_tw ddot_gamma_dtau_tw
real :: & real :: &
ratio_tau_r, &
tau, tau_r, & tau, tau_r, &
dot_N_0, & dot_N_0, &
x0, & x0, &
@ -966,9 +965,8 @@ pure subroutine kinetics_tw(Mp,T,dot_gamma_sl,ph,en,&
tau_r = mu*prm%b_tw(i)/(2.0_pReal*PI)*(1.0_pReal/(x0+prm%x_c_tw)+cos(PI/3.0_pReal)/x0) ! ToDo: In the paper, the Burgers vector for slip is used tau_r = mu*prm%b_tw(i)/(2.0_pReal*PI)*(1.0_pReal/(x0+prm%x_c_tw)+cos(PI/3.0_pReal)/x0) ! ToDo: In the paper, the Burgers vector for slip is used
if (tau > tol_math_check .and. tau < tau_r) then if (tau > tol_math_check .and. tau < tau_r) then
ratio_tau_r = (dst%tau_hat_tw(i,en)/tau)**prm%r(i) P = exp(-(dst%tau_hat_tw(i,en)/tau)**prm%r(i))
P = exp(-ratio_tau_r) dP_dTau = prm%r(i) * (dst%tau_hat_tw(i,en)/tau)**prm%r(i)/tau * P
dP_dTau = prm%r(i) * ratio_tau_r/tau * P
s = prm%fcc_twinNucleationSlipPair(1:2,i) s = prm%fcc_twinNucleationSlipPair(1:2,i)
dot_N_0 = sum(abs(dot_gamma_sl(s(2:1:-1)))*(stt%rho_mob(s,en)+stt%rho_dip(s,en))) & dot_N_0 = sum(abs(dot_gamma_sl(s(2:1:-1)))*(stt%rho_mob(s,en)+stt%rho_dip(s,en))) &
@ -1031,7 +1029,6 @@ pure subroutine kinetics_tr(Mp,T,dot_gamma_sl,ph,en,&
ddot_gamma_dtau_tr ddot_gamma_dtau_tr
real :: & real :: &
ratio_tau_s, &
tau, tau_r, & tau, tau_r, &
dot_N_0, & dot_N_0, &
x0, & x0, &
@ -1056,9 +1053,8 @@ pure subroutine kinetics_tr(Mp,T,dot_gamma_sl,ph,en,&
tau_r = mu*prm%b_tr(i)/(2.0_pReal*PI)*(1.0_pReal/(x0+prm%x_c_tr)+cos(PI/3.0_pReal)/x0) ! ToDo: In the paper, the Burgers vector for slip is used tau_r = mu*prm%b_tr(i)/(2.0_pReal*PI)*(1.0_pReal/(x0+prm%x_c_tr)+cos(PI/3.0_pReal)/x0) ! ToDo: In the paper, the Burgers vector for slip is used
if (tau > tol_math_check .and. tau < tau_r) then if (tau > tol_math_check .and. tau < tau_r) then
ratio_tau_s = (dst%tau_hat_tr(i,en)/tau)**prm%s(i) P = exp(-(dst%tau_hat_tr(i,en)/tau)**prm%s(i))
P = exp(-ratio_tau_s) dP_dTau = prm%s(i) * (dst%tau_hat_tr(i,en)/tau)**prm%s(i)/tau * P
dP_dTau = prm%s(i) * ratio_tau_s/tau * P
s = prm%fcc_twinNucleationSlipPair(1:2,i) s = prm%fcc_twinNucleationSlipPair(1:2,i)
dot_N_0 = sum(abs(dot_gamma_sl(s(2:1:-1)))*(stt%rho_mob(s,en)+stt%rho_dip(s,en))) & dot_N_0 = sum(abs(dot_gamma_sl(s(2:1:-1)))*(stt%rho_mob(s,en)+stt%rho_dip(s,en))) &