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-10-17 23:56:57 +02:00
parent 121d146a35
commit 33d816a5d0
1 changed files with 26 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
src/plastic_dislotwin.f90
View File

@ -212,9 +212,6 @@ subroutine plastic_dislotwin_init(fileUnit)
math_mul3x3, & math_mul3x3, &
math_expand,& math_expand,&
PI PI
use mesh, only: &
mesh_maxNips, &
mesh_NcpElems
use IO, only: & use IO, only: &
IO_warning, & IO_warning, &
IO_error, & IO_error, &
@ -239,7 +236,7 @@ subroutine plastic_dislotwin_init(fileUnit)
integer(pInt), intent(in) :: fileUnit integer(pInt), intent(in) :: fileUnit
integer(pInt) :: Ninstance,& integer(pInt) :: Ninstance,&
f,j,i,k,l,m,n,o,p,q,r,s,p1, & f,j,i,k,l,o,p, &
offset_slip, index_myFamily, index_otherFamily, & offset_slip, index_myFamily, index_otherFamily, &
startIndex, endIndex, outputSize startIndex, endIndex, outputSize
integer(pInt) :: sizeState, sizeDotState, sizeDeltaState integer(pInt) :: sizeState, sizeDotState, sizeDeltaState
@ -250,9 +247,6 @@ subroutine plastic_dislotwin_init(fileUnit)
real(pReal), allocatable, dimension(:) :: & real(pReal), allocatable, dimension(:) :: &
invLambdaSlip0,& invLambdaSlip0,&
MeanFreePathSlip0,&
MeanFreePathTrans0,&
MeanFreePathTwin0,&
tauSlipThreshold0,& tauSlipThreshold0,&
TwinVolume0,& TwinVolume0,&
MartensiteVolume0 MartensiteVolume0
@ -348,7 +342,7 @@ subroutine plastic_dislotwin_init(fileUnit)
prm%CEdgeDipMinDistance = config_phase(p)%getFloat('cedgedipmindistance') prm%CEdgeDipMinDistance = config_phase(p)%getFloat('cedgedipmindistance')
! expand slip related parameters from family => system ! expand: family => system
prm%rho0 = math_expand(prm%rho0, prm%Nslip) prm%rho0 = math_expand(prm%rho0, prm%Nslip)
prm%rhoDip0 = math_expand(prm%rhoDip0, prm%Nslip) prm%rhoDip0 = math_expand(prm%rhoDip0, prm%Nslip)
prm%v0 = math_expand(prm%v0, prm%Nslip) prm%v0 = math_expand(prm%v0, prm%Nslip)
@ -360,15 +354,15 @@ subroutine plastic_dislotwin_init(fileUnit)
prm%B = math_expand(prm%B, prm%Nslip) prm%B = math_expand(prm%B, prm%Nslip)
prm%tau_peierls = math_expand(prm%tau_peierls, prm%Nslip) prm%tau_peierls = math_expand(prm%tau_peierls, prm%Nslip)
! sanity checks for slip related parameters ! sanity checks
!if (any(prm%rho0 <= 0.0_pReal)) if (any(prm%rho0 < 0.0_pReal)) extmsg = trim(extmsg)//'rho0 '
!if (any(prm%rhoDip0 <= 0.0_pReal)) if (any(prm%rhoDip0 < 0.0_pReal)) extmsg = trim(extmsg)//'rhoDip0 '
!if (any(prm%v0 <= 0.0_pReal)) if (any(prm%v0 < 0.0_pReal)) extmsg = trim(extmsg)//'v0 '
!if (any(prm%burgers_slip <= 0.0_pReal)) if (any(prm%burgers_slip <= 0.0_pReal)) extmsg = trim(extmsg)//'burgers_slip '
!if (any(prm%Qedge <= 0.0_pReal)) if (any(prm%Qedge <= 0.0_pReal)) extmsg = trim(extmsg)//'Qedge '
!if (any(prm%CLambdaSlip <= 0.0_pReal)) if (any(prm%CLambdaSlip <= 0.0_pReal)) extmsg = trim(extmsg)//'CLambdaSlip '
!if (any(prm%B <= 0.0_pReal)) if (any(prm%B < 0.0_pReal)) extmsg = trim(extmsg)//'B '
!if (any(prm%tau_peierls <= 0.0_pReal)) if (any(prm%tau_peierls < 0.0_pReal)) extmsg = trim(extmsg)//'tau_peierls '
! if (any(prm%p = (prm%p, prm%Nslip) ! if (any(prm%p = (prm%p, prm%Nslip)
! if (any(prm%q = math_expand(prm%q, prm%Nslip) ! if (any(prm%q = math_expand(prm%q, prm%Nslip)
@ -388,27 +382,28 @@ subroutine plastic_dislotwin_init(fileUnit)
config_phase(p)%getFloats('interaction_twintwin'), & config_phase(p)%getFloats('interaction_twintwin'), &
structure(1:3)) structure(1:3))
prm%burgers_twin = config_phase(p)%getFloats('twinburgers') prm%burgers_twin = config_phase(p)%getFloats('twinburgers')
prm%burgers_twin = math_expand(prm%burgers_twin,prm%Ntwin) prm%twinsize = config_phase(p)%getFloats('twinsize')
prm%r = config_phase(p)%getFloats('r_twin')
prm%xc_twin = config_phase(p)%getFloat('xc_twin')
prm%Cthresholdtwin = config_phase(p)%getFloat('cthresholdtwin', defaultVal=0.0_pReal) prm%xc_twin = config_phase(p)%getFloat('xc_twin')
prm%Cmfptwin = config_phase(p)%getFloat('cmfptwin', defaultVal=0.0_pReal) ! ToDo: How to handle that??? prm%L0_twin = config_phase(p)%getFloat('l0_twin')
prm%MaxTwinFraction = config_phase(p)%getFloat('maxtwinfraction') ! ToDo: only used in postResults
prm%Cthresholdtwin = config_phase(p)%getFloat('cthresholdtwin', defaultVal=0.0_pReal)
prm%Cmfptwin = config_phase(p)%getFloat('cmfptwin', defaultVal=0.0_pReal) ! ToDo: How to handle that???
if (.not. prm%isFCC) then if (.not. prm%isFCC) then
prm%Ndot0_twin = config_phase(p)%getFloats('ndot0_twin') prm%Ndot0_twin = config_phase(p)%getFloats('ndot0_twin')
prm%Ndot0_twin = math_expand(prm%Ndot0_twin,prm%Ntwin) prm%Ndot0_twin = math_expand(prm%Ndot0_twin,prm%Ntwin)
endif endif
prm%twinsize = config_phase(p)%getFloats('twinsize') ! expand: family => system
prm%twinsize= math_expand(prm%twinsize,prm%Ntwin) prm%burgers_twin = math_expand(prm%burgers_twin,prm%Ntwin)
prm%twinsize = math_expand(prm%twinsize,prm%Ntwin)
prm%r = math_expand(prm%r,prm%Ntwin)
prm%r = config_phase(p)%getFloats('r_twin')
prm%r = math_expand(prm%r,prm%Ntwin)
prm%L0_twin = config_phase(p)%getFloat('l0_twin')
prm%MaxTwinFraction = config_phase(p)%getFloat('maxtwinfraction') ! ToDo: only used in postResults
else else
allocate(prm%twinsize(0)) allocate(prm%twinsize(0))
allocate(prm%burgers_twin(0)) allocate(prm%burgers_twin(0))
@ -474,7 +469,7 @@ subroutine plastic_dislotwin_init(fileUnit)
prm%Qsd = config_phase(p)%getFloat('qsd') prm%Qsd = config_phase(p)%getFloat('qsd')
prm%SolidSolutionStrength = config_phase(p)%getFloat('solidsolutionstrength') prm%SolidSolutionStrength = config_phase(p)%getFloat('solidsolutionstrength')
if (config_phase(p)%keyExists('dipoleformationfactor')) call IO_error(1,ext_msg='use /nodipoleformation/') if (config_phase(p)%keyExists('dipoleformationfactor')) call IO_error(1,ext_msg='use /nodipoleformation/')
prm%dipoleformation = .not. config_phase(p)%keyExists('/nodipoleformation') prm%dipoleformation = .not. config_phase(p)%keyExists('/nodipoleformation/')
prm%sbVelocity = config_phase(p)%getFloat('shearbandvelocity',defaultVal=0.0_pReal) prm%sbVelocity = config_phase(p)%getFloat('shearbandvelocity',defaultVal=0.0_pReal)
if (prm%sbVelocity > 0.0_pReal) then if (prm%sbVelocity > 0.0_pReal) then
prm%sbResistance = config_phase(p)%getFloat('shearbandresistance') prm%sbResistance = config_phase(p)%getFloat('shearbandresistance')
@ -560,8 +555,6 @@ subroutine plastic_dislotwin_init(fileUnit)
do f = 1_pInt,lattice_maxNtwinFamily do f = 1_pInt,lattice_maxNtwinFamily
! if (burgersPerTwinFamily(f,p) <= 0.0_pReal) &
! call IO_error(211_pInt,el=p,ext_msg='twinburgers ('//PLASTICITY_DISLOTWIN_label//')')
!if (Ndot0PerTwinFamily(f,p) < 0.0_pReal) & !if (Ndot0PerTwinFamily(f,p) < 0.0_pReal) &
! call IO_error(211_pInt,el=p,ext_msg='ndot0_twin ('//PLASTICITY_DISLOTWIN_label//')') ! call IO_error(211_pInt,el=p,ext_msg='ndot0_twin ('//PLASTICITY_DISLOTWIN_label//')')
enddo enddo