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

36
src/plastic_disloUCLA.f90
View File

@ -46,32 +46,32 @@ module plastic_disloUCLA
real(pReal) :: & real(pReal) :: &
aTolRho, & aTolRho, &
grainSize, & grainSize, &
SolidSolutionStrength, & !< Strength due to elements in solid solution SolidSolutionStrength, & !< Strength due to elements in solid solution
mu, & mu, &
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, &
@ -90,11 +90,11 @@ module plastic_disloUCLA
type(tParameters), dimension(:), allocatable, private :: param !< containers of constitutive parameters (len Ninstance) type(tParameters), dimension(:), allocatable, private :: param !< containers of constitutive parameters (len Ninstance)
type, private :: tDisloUCLAState type, private :: tDisloUCLAState
real(pReal), pointer, dimension(:,:) :: & real(pReal), pointer, dimension(:,:) :: &
rhoEdge, & rhoEdge, &
rhoEdgeDip, & rhoEdgeDip, &
accshear_slip, & accshear_slip, &
whole whole
end type end type
type, private :: tDisloUCLAdependentState type, private :: tDisloUCLAdependentState
@ -637,7 +637,7 @@ function plastic_disloUCLA_postResults(Mp,Temperature,instance,of) result(postRe
else else
postResults(c+i) = huge(1.0_pReal) postResults(c+i) = huge(1.0_pReal)
endif endif
postResults(c+i)=min(postResults(c+i),dst%mfp(i,of)) postResults(c+i)=min(postResults(c+i),dst%mfp(i,of))
enddo enddo
end select end select