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

ordered

This commit is contained in:
Martin Diehl 2018-12-09 14:29:19 +01:00
parent 9caa91ee14
commit 89b054e67b
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/plastic_disloUCLA.f90
View File

@ -51,27 +51,27 @@ module plastic_disloUCLA
D0, & !< prefactor for self-diffusion coefficient D0, & !< prefactor for self-diffusion coefficient
Qsd !< activation energy for dislocation climb Qsd !< activation energy for dislocation climb
real(pReal), allocatable, dimension(:) :: & real(pReal), allocatable, dimension(:) :: &
B, & !< friction coeff. B (kMC)
rho0, & !< initial edge dislocation density per slip system for each family and instance rho0, & !< initial edge dislocation density per slip system for each family and instance
rhoDip0, & !< initial edge dipole density per slip system for each family and instance rhoDip0, & !< initial edge dipole density per slip system for each family and instance
burgers, & !< absolute length of burgers vector [m] for each slip system and instance burgers, & !< absolute length of burgers vector [m] for each slip system and instance
nonSchmidCoeff, &
minDipDistance, &
CLambda, & !< Adj. parameter for distance between 2 forest dislocations for each slip system and instance
atomicVolume, &
!* mobility law parameters
H0kp, & !< activation energy for glide [J] for each slip system and instance H0kp, & !< activation energy for glide [J] for each slip system and instance
v0, & !< dislocation velocity prefactor [m/s] for each family and instance v0, & !< dislocation velocity prefactor [m/s] for each family and instance
CLambda, & !< Adj. parameter for distance between 2 forest dislocations for each slip system and instance
p, & !< p-exponent in glide velocity p, & !< p-exponent in glide velocity
q, & !< q-exponent in glide velocity q, & !< q-exponent in glide velocity
!* mobility law parameters B, & !< friction coeff. B (kMC)
kink_height, & !< height of the kink pair kink_height, & !< height of the kink pair
kink_width, & !< width of the kink pair kink_width, & !< width of the kink pair
omega, & !< attempt frequency for kink pair nucleation omega, & !< attempt frequency for kink pair nucleation
viscosity, & !< friction coeff. B (kMC) tau_Peierls
!*
tau_Peierls, &
nonSchmidCoeff, &
atomicVolume, &
minDipDistance
real(pReal), allocatable, dimension(:,:) :: & real(pReal), allocatable, dimension(:,:) :: &
interaction_SlipSlip !< slip resistance from slip activity interaction_SlipSlip, & !< slip resistance from slip activity
forestProjectionEdge
real(pReal), allocatable, dimension(:,:,:) :: & real(pReal), allocatable, dimension(:,:,:) :: &
Schmid_slip, & Schmid_slip, &
Schmid_twin, & Schmid_twin, &