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

should work for elasticity only

This commit is contained in:
Martin Diehl 2020-03-16 11:14:55 +01:00
parent 7b3b4ffb1c
commit 5d7ff888fc
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/constitutive_plastic_dislotwin.f90
View File

@ -243,6 +243,8 @@ module subroutine plastic_dislotwin_init
if (any(prm%q< 1.0_pReal .or. prm%q>2.0_pReal)) extmsg = trim(extmsg)//' q' if (any(prm%q< 1.0_pReal .or. prm%q>2.0_pReal)) extmsg = trim(extmsg)//' q'
else slipActive else slipActive
allocate(prm%rho_mob_0(0))
allocate(prm%rho_dip_0(0))
allocate(prm%b_sl(0)) allocate(prm%b_sl(0))
endif slipActive endif slipActive
@ -388,10 +390,8 @@ module subroutine plastic_dislotwin_init
endif endif
prm%D = config%getFloat('grainsize') prm%D = config%getFloat('grainsize')
prm%dipoleformation = .not. config%keyExists('/nodipoleformation/') prm%dipoleformation = .not. config%keyExists('/nodipoleformation/')
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! allocate state arrays ! allocate state arrays
NipcMyPhase = count(material_phaseAt == p) * discretization_nIP NipcMyPhase = count(material_phaseAt == p) * discretization_nIP
@ -638,7 +638,6 @@ module subroutine plastic_dislotwin_dotState(Mp,T,instance,of)
integer :: i integer :: i
real(pReal) :: & real(pReal) :: &
f_unrotated, & f_unrotated, &
VacancyDiffusion, &
rho_dip_distance, & rho_dip_distance, &
v_cl, & !< climb velocity v_cl, & !< climb velocity
Gamma, & !< stacking fault energy Gamma, & !< stacking fault energy
@ -661,7 +660,6 @@ module subroutine plastic_dislotwin_dotState(Mp,T,instance,of)
f_unrotated = 1.0_pReal & f_unrotated = 1.0_pReal &
- sum(stt%f_tw(1:prm%sum_N_tw,of)) & - sum(stt%f_tw(1:prm%sum_N_tw,of)) &
- sum(stt%f_tr(1:prm%sum_N_tr,of)) - sum(stt%f_tr(1:prm%sum_N_tr,of))
VacancyDiffusion = prm%D0*exp(-prm%Qsd/(kB*T))
call kinetics_slip(Mp,T,instance,of,dot_gamma_sl) call kinetics_slip(Mp,T,instance,of,dot_gamma_sl)
dot%gamma_sl(:,of) = abs(dot_gamma_sl) dot%gamma_sl(:,of) = abs(dot_gamma_sl)