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

polishing

This commit is contained in:
Martin Diehl 2018-12-21 06:15:01 +01:00
parent 6256de8785
commit fe1183e010
1 changed files with 29 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/plastic_disloUCLA.f90
View File

@ -56,7 +56,7 @@ module plastic_disloUCLA
v0, & !< dislocation velocity prefactor [m/s] for each family and instance v0, & !< dislocation velocity prefactor [m/s] for each family 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
B, & !< friction coeff. B (kMC) B, & !< friction coefficient
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
@ -152,7 +152,8 @@ subroutine plastic_disloUCLA_init()
use lattice use lattice
implicit none implicit none
integer(pInt) :: Ninstance,& integer(pInt) :: &
Ninstance, &
f,j,k,o, i, & f,j,k,o, i, &
outputSize, & outputSize, &
offset_slip, index_myFamily, index_otherFamily, & offset_slip, index_myFamily, index_otherFamily, &
@ -408,20 +409,19 @@ subroutine plastic_disloUCLA_dependentState(instance,of)
integer(pInt) :: & integer(pInt) :: &
i i
real(pReal), dimension(param(instance)%totalNslip) :: & real(pReal), dimension(param(instance)%totalNslip) :: &
invLambdaSlip ! 1/mean free distance between 2 forest dislocations seen by a moving dislocation dislocationSpacing ! 1/mean free distance between 2 forest dislocations seen by a moving dislocation
associate(prm => param(instance), stt => state(instance),dst => dependentState(instance)) associate(prm => param(instance), stt => state(instance),dst => dependentState(instance))
forall (i = 1_pInt:prm%totalNslip) forall (i = 1_pInt:prm%totalNslip)
invLambdaSlip(i) = sqrt(dot_product(stt%rhoEdge(:,of)+stt%rhoEdgeDip(:,of), & dislocationSpacing(i) = sqrt(dot_product(stt%rhoEdge(:,of)+stt%rhoEdgeDip(:,of), &
prm%forestProjectionEdge(:,i))) & prm%forestProjectionEdge(:,i)))
/ prm%Clambda(i)
dst%threshold_stress(i,of) = prm%mu*prm%burgers(i) & dst%threshold_stress(i,of) = prm%mu*prm%burgers(i) &
* sqrt(dot_product(stt%rhoEdge(:,of)+stt%rhoEdgeDip(:,of), & * sqrt(dot_product(stt%rhoEdge(:,of)+stt%rhoEdgeDip(:,of), &
prm%interaction_SlipSlip(i,:))) prm%interaction_SlipSlip(i,:)))
end forall end forall
dst%mfp(:,of) = prm%grainSize/(1.0_pReal+prm%grainSize*invLambdaSlip) dst%mfp(:,of) = prm%grainSize/(1.0_pReal+prm%grainSize*dislocationSpacing/prm%Clambda)
end associate end associate