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

structuring

This commit is contained in:
Martin Diehl 2018-12-09 15:58:51 +01:00
parent e0cd88d98a
commit accd39b27f
1 changed files with 21 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/plastic_disloUCLA.f90
View File

@ -224,33 +224,30 @@ subroutine plastic_disloUCLA_init()
prm%interaction_SlipSlip = lattice_interaction_SlipSlip(prm%Nslip, & prm%interaction_SlipSlip = lattice_interaction_SlipSlip(prm%Nslip, &
config_phase(p)%getFloats('interaction_slipslip'), & config_phase(p)%getFloats('interaction_slipslip'), &
structure(1:3)) structure(1:3))
prm%rho0 = config_phase(p)%getFloats('rhoedge0') prm%rho0 = config_phase(p)%getFloats('rhoedge0', requiredShape=shape(prm%Nslip))
prm%rhoDip0 = config_phase(p)%getFloats('rhoedgedip0') prm%rhoDip0 = config_phase(p)%getFloats('rhoedgedip0', requiredShape=shape(prm%Nslip))
prm%burgers = config_phase(p)%getFloats('slipburgers') prm%burgers = config_phase(p)%getFloats('slipburgers', requiredShape=shape(prm%Nslip))
prm%H0kp = config_phase(p)%getFloats('qedge') prm%H0kp = config_phase(p)%getFloats('qedge', requiredShape=shape(prm%Nslip))
prm%v0 = config_phase(p)%getFloats('v0') prm%v0 = config_phase(p)%getFloats('v0', requiredShape=shape(prm%Nslip))
prm%clambda = config_phase(p)%getFloats('clambdaslip') prm%clambda = config_phase(p)%getFloats('clambdaslip', requiredShape=shape(prm%Nslip))
prm%tau_Peierls = config_phase(p)%getFloats('tau_peierls') prm%tau_Peierls = config_phase(p)%getFloats('tau_peierls', requiredShape=shape(prm%Nslip))
prm%p = config_phase(p)%getFloats('p_slip',defaultVal=[(1.0_pReal,i=1_pInt,size(prm%Nslip))]) prm%p = config_phase(p)%getFloats('p_slip', requiredShape=shape(prm%Nslip), &
prm%q = config_phase(p)%getFloats('q_slip',defaultVal=[(1.0_pReal,i=1_pInt,size(prm%Nslip))]) defaultVal=[(1.0_pReal,i=1_pInt,size(prm%Nslip))])
prm%kink_height = config_phase(p)%getFloats('kink_height') prm%q = config_phase(p)%getFloats('q_slip', requiredShape=shape(prm%Nslip), &
prm%kink_width = config_phase(p)%getFloats('kink_width') defaultVal=[(1.0_pReal,i=1_pInt,size(prm%Nslip))])
prm%omega = config_phase(p)%getFloats('omega') prm%kink_height = config_phase(p)%getFloats('kink_height', requiredShape=shape(prm%Nslip))
prm%kink_width = config_phase(p)%getFloats('kink_width', requiredShape=shape(prm%Nslip))
prm%B = config_phase(p)%getFloats('friction_coeff') prm%omega = config_phase(p)%getFloats('omega', requiredShape=shape(prm%Nslip))
prm%B = config_phase(p)%getFloats('friction_coeff', requiredShape=shape(prm%Nslip))
prm%SolidSolutionStrength = config_phase(p)%getFloat('solidsolutionstrength') prm%SolidSolutionStrength = config_phase(p)%getFloat('solidsolutionstrength')
prm%grainSize = config_phase(p)%getFloat('grainsize') prm%grainSize = config_phase(p)%getFloat('grainsize')
prm%D0 = config_phase(p)%getFloat('d0') prm%D0 = config_phase(p)%getFloat('d0')
prm%Qsd = config_phase(p)%getFloat('qsd') prm%Qsd = config_phase(p)%getFloat('qsd')
prm%dipoleformation = config_phase(p)%getFloat('dipoleformationfactor') > 0.0_pReal !should be on by default
prm%atomicVolume = config_phase(p)%getFloat('catomicvolume') * prm%burgers**3.0_pReal prm%atomicVolume = config_phase(p)%getFloat('catomicvolume') * prm%burgers**3.0_pReal
prm%minDipDistance = config_phase(p)%getFloat('cedgedipmindistance') * prm%burgers prm%minDipDistance = config_phase(p)%getFloat('cedgedipmindistance') * prm%burgers
prm%dipoleformation = config_phase(p)%getFloat('dipoleformationfactor') > 0.0_pReal !should be on by default
! expand: family => system ! expand: family => system
prm%rho0 = math_expand(prm%rho0, prm%Nslip) prm%rho0 = math_expand(prm%rho0, prm%Nslip)