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

simplified reading in and initialization of internal constitutive parameters

This commit is contained in:
Sharan Roongta 2018-05-03 13:43:19 +02:00
parent 03552b50b7
commit 803519c740
1 changed files with 121 additions and 143 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

264
src/plastic_dislotwin.f90
View File

@ -37,32 +37,8 @@ module plastic_dislotwin
real(pReal), dimension(:), allocatable, private :: & real(pReal), dimension(:), allocatable, private :: &
GrainSize, & !< grain size
pShearBand, & !< p-exponent in shearband velocity
qShearBand, & !< q-exponent in shearband velocity
MaxTwinFraction, & !< maximum allowed total twin volume fraction
CEdgeDipMinDistance, & !<
Cmfptwin, & !<
Cthresholdtwin, & !<
SolidSolutionStrength, & !< Strength due to elements in solid solution
L0_twin, & !< Length of twin nuclei in Burgers vectors
L0_trans, & !< Length of trans nuclei in Burgers vectors
xc_twin, & !< critical distance for formation of twin nucleus
xc_trans, & !< critical distance for formation of trans nucleus
VcrossSlip, & !< cross slip volume
sbResistance, & !< value for shearband resistance (might become an internal state variable at some point) sbResistance, & !< value for shearband resistance (might become an internal state variable at some point)
sbVelocity, & !< value for shearband velocity_0 dipoleFormationFactor !< scaling factor for dipole formation: 0: off, 1: on. other values not useful
sbQedge, & !< value for shearband systems Qedge
SFE_0K, & !< stacking fault energy at zero K
dSFE_dT, & !< temperature dependance of stacking fault energy
dipoleFormationFactor, & !< scaling factor for dipole formation: 0: off, 1: on. other values not useful
aTolRho, & !< absolute tolerance for integration of dislocation density
aTolTwinFrac, & !< absolute tolerance for integration of twin volume fraction
aTolTransFrac, & !< absolute tolerance for integration of trans volume fraction
deltaG, & !< Free energy difference between austensite and martensite
Cmfptrans, & !<
Cthresholdtrans, & !<
transStackHeight !< Stack height of hex nucleus
real(pReal), dimension(:,:,:,:), allocatable, private :: & real(pReal), dimension(:,:,:,:), allocatable, private :: &
Ctwin66 !< twin elasticity matrix in Mandel notation for each instance Ctwin66 !< twin elasticity matrix in Mandel notation for each instance
@ -155,7 +131,33 @@ module plastic_dislotwin
real(pReal) :: & real(pReal) :: &
CAtomicVolume, & !< atomic volume in Bugers vector unit CAtomicVolume, & !< atomic volume in Bugers vector unit
D0, & !< prefactor for self-diffusion coefficient D0, & !< prefactor for self-diffusion coefficient
Qsd !< activation energy for dislocation climb Qsd, & !< activation energy for dislocation climb
GrainSize, & !<grain size
pShearBand, & !< p-exponent in shear band velocity
qShearBand, & !< q-exponent in shear band velocity
MaxTwinFraction, & !<max allowed total twin volume fraction
CEdgeDipMinDistance, & !<
Cmfptwin, & !<
Cthresholdtwin, & !<
SolidSolutionStrength, & !<strength due to elements in solid solution
L0_twin, & !< Length of twin nuclei in Burgers vectors
L0_trans, & !< Length of trans nuclei in Burgers vectors
xc_twin, & !< critical distance for formation of twin nucleus
xc_trans, & !< critical distance for formation of trans nucleus
VcrossSlip, & !< cross slip volume
!sbResistance, & !< value for shearband resistance (might become an internal state variable at some point)
sbVelocity, & !< value for shearband velocity_0
sbQedge, & !< value for shearband systems Qedge
SFE_0K, & !< stacking fault energy at zero K
dSFE_dT, & !< temperature dependance of stacking fault energy
!dipoleFormationFactor, & !< scaling factor for dipole formation: 0: off, 1: on. other values not useful
aTolRho, & !< absolute tolerance for integration of dislocation density
aTolTwinFrac, & !< absolute tolerance for integration of twin volume fraction
aTolTransFrac, & !< absolute tolerance for integration of trans volume fraction
deltaG, & !< Free energy difference between austensite and martensite
Cmfptrans, & !<
Cthresholdtrans, & !<
transStackHeight !< Stack height of hex nucleus
end type end type
type(tParameters), dimension(:), allocatable, private :: param !< containers of constitutive parameters (len Ninstance) type(tParameters), dimension(:), allocatable, private :: param !< containers of constitutive parameters (len Ninstance)
@ -305,32 +307,8 @@ subroutine plastic_dislotwin_init(fileUnit)
allocate(totalNslip(maxNinstance), source=0_pInt) allocate(totalNslip(maxNinstance), source=0_pInt)
allocate(totalNtwin(maxNinstance), source=0_pInt) allocate(totalNtwin(maxNinstance), source=0_pInt)
allocate(totalNtrans(maxNinstance), source=0_pInt) allocate(totalNtrans(maxNinstance), source=0_pInt)
allocate(GrainSize(maxNinstance), source=0.0_pReal)
allocate(pShearBand(maxNinstance), source=0.0_pReal)
allocate(qShearBand(maxNinstance), source=0.0_pReal)
allocate(MaxTwinFraction(maxNinstance), source=0.0_pReal)
allocate(CEdgeDipMinDistance(maxNinstance), source=0.0_pReal)
allocate(Cmfptwin(maxNinstance), source=0.0_pReal)
allocate(Cthresholdtwin(maxNinstance), source=0.0_pReal)
allocate(SolidSolutionStrength(maxNinstance), source=0.0_pReal)
allocate(L0_twin(maxNinstance), source=0.0_pReal)
allocate(L0_trans(maxNinstance), source=0.0_pReal)
allocate(xc_twin(maxNinstance), source=0.0_pReal)
allocate(xc_trans(maxNinstance), source=0.0_pReal)
allocate(VcrossSlip(maxNinstance), source=0.0_pReal)
allocate(aTolRho(maxNinstance), source=0.0_pReal)
allocate(aTolTwinFrac(maxNinstance), source=0.0_pReal)
allocate(aTolTransFrac(maxNinstance), source=0.0_pReal)
allocate(sbResistance(maxNinstance), source=0.0_pReal) allocate(sbResistance(maxNinstance), source=0.0_pReal)
allocate(sbVelocity(maxNinstance), source=0.0_pReal)
allocate(sbQedge(maxNinstance), source=0.0_pReal)
allocate(SFE_0K(maxNinstance), source=0.0_pReal)
allocate(dSFE_dT(maxNinstance), source=0.0_pReal)
allocate(dipoleFormationFactor(maxNinstance), source=1.0_pReal) !should be on by default allocate(dipoleFormationFactor(maxNinstance), source=1.0_pReal) !should be on by default
allocate(deltaG(maxNinstance), source=0.0_pReal)
allocate(Cmfptrans(maxNinstance), source=0.0_pReal)
allocate(Cthresholdtrans(maxNinstance), source=0.0_pReal)
allocate(transStackHeight(maxNinstance), source=0.0_pReal)
allocate(rhoEdge0(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal) allocate(rhoEdge0(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
allocate(rhoEdgeDip0(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal) allocate(rhoEdgeDip0(lattice_maxNslipFamily,maxNinstance), source=0.0_pReal)
allocate(burgersPerSlipFamily(lattice_maxNslipFamily,maxNinstance), & allocate(burgersPerSlipFamily(lattice_maxNslipFamily,maxNinstance), &
@ -669,63 +647,63 @@ subroutine plastic_dislotwin_init(fileUnit)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! parameters independent of number of slip/twin/trans systems ! parameters independent of number of slip/twin/trans systems
case ('grainsize') case ('grainsize')
GrainSize(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%GrainSize = IO_floatValue(line,chunkPos,2_pInt)
case ('maxtwinfraction') case ('maxtwinfraction')
MaxTwinFraction(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%MaxTwinFraction = IO_floatValue(line,chunkPos,2_pInt)
case ('p_shearband') case ('p_shearband')
pShearBand(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%pShearBand = IO_floatValue(line,chunkPos,2_pInt)
case ('q_shearband') case ('q_shearband')
qShearBand(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%qShearBand = IO_floatValue(line,chunkPos,2_pInt)
case ('d0') case ('d0')
param(instance)%D0 = IO_floatValue(line,chunkPos,2_pInt) param(instance)%D0 = IO_floatValue(line,chunkPos,2_pInt)
case ('qsd') case ('qsd')
param(instance)%Qsd = IO_floatValue(line,chunkPos,2_pInt) param(instance)%Qsd = IO_floatValue(line,chunkPos,2_pInt)
case ('atol_rho') case ('atol_rho')
aTolRho(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%aTolRho = IO_floatValue(line,chunkPos,2_pInt)
case ('atol_twinfrac') case ('atol_twinfrac')
aTolTwinFrac(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%aTolTwinFrac = IO_floatValue(line,chunkPos,2_pInt)
case ('atol_transfrac') case ('atol_transfrac')
aTolTransFrac(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%aTolTransFrac = IO_floatValue(line,chunkPos,2_pInt)
case ('cmfptwin') case ('cmfptwin')
Cmfptwin(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%Cmfptwin = IO_floatValue(line,chunkPos,2_pInt)
case ('cthresholdtwin') case ('cthresholdtwin')
Cthresholdtwin(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%Cthresholdtwin = IO_floatValue(line,chunkPos,2_pInt)
case ('solidsolutionstrength') case ('solidsolutionstrength')
SolidSolutionStrength(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%SolidSolutionStrength = IO_floatValue(line,chunkPos,2_pInt)
case ('l0_twin') case ('l0_twin')
L0_twin(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%L0_twin = IO_floatValue(line,chunkPos,2_pInt)
case ('l0_trans') case ('l0_trans')
L0_trans(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%L0_trans = IO_floatValue(line,chunkPos,2_pInt)
case ('xc_twin') case ('xc_twin')
xc_twin(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%xc_twin = IO_floatValue(line,chunkPos,2_pInt)
case ('xc_trans') case ('xc_trans')
xc_trans(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%xc_trans = IO_floatValue(line,chunkPos,2_pInt)
case ('vcrossslip') case ('vcrossslip')
VcrossSlip(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%VcrossSlip = IO_floatValue(line,chunkPos,2_pInt)
case ('cedgedipmindistance') case ('cedgedipmindistance')
CEdgeDipMinDistance(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%CEdgeDipMinDistance = IO_floatValue(line,chunkPos,2_pInt)
case ('catomicvolume') case ('catomicvolume')
param(instance)%CAtomicVolume = IO_floatValue(line,chunkPos,2_pInt) param(instance)%CAtomicVolume = IO_floatValue(line,chunkPos,2_pInt)
case ('sfe_0k') case ('sfe_0k')
SFE_0K(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%SFE_0K = IO_floatValue(line,chunkPos,2_pInt)
case ('dsfe_dt') case ('dsfe_dt')
dSFE_dT(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%dSFE_dT = IO_floatValue(line,chunkPos,2_pInt)
case ('dipoleformationfactor') case ('dipoleformationfactor')
dipoleFormationFactor(instance) = IO_floatValue(line,chunkPos,2_pInt) dipoleFormationFactor(instance) = IO_floatValue(line,chunkPos,2_pInt)
case ('shearbandresistance') case ('shearbandresistance')
sbResistance(instance) = IO_floatValue(line,chunkPos,2_pInt) sbResistance(instance) = IO_floatValue(line,chunkPos,2_pInt)
case ('shearbandvelocity') case ('shearbandvelocity')
sbVelocity(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%sbVelocity = IO_floatValue(line,chunkPos,2_pInt)
case ('qedgepersbsystem') case ('qedgepersbsystem')
sbQedge(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%sbQedge = IO_floatValue(line,chunkPos,2_pInt)
case ('deltag') case ('deltag')
deltaG(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%deltaG = IO_floatValue(line,chunkPos,2_pInt)
case ('cmfptrans') case ('cmfptrans')
Cmfptrans(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%Cmfptrans = IO_floatValue(line,chunkPos,2_pInt)
case ('cthresholdtrans') case ('cthresholdtrans')
Cthresholdtrans(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%Cthresholdtrans = IO_floatValue(line,chunkPos,2_pInt)
case ('transstackheight') case ('transstackheight')
transStackHeight(instance) = IO_floatValue(line,chunkPos,2_pInt) param(instance)%transStackHeight = IO_floatValue(line,chunkPos,2_pInt)
end select end select
endif; endif endif; endif
enddo parsingFile enddo parsingFile
@ -769,35 +747,35 @@ subroutine plastic_dislotwin_init(fileUnit)
if (param(instance)%Qsd <= 0.0_pReal) & if (param(instance)%Qsd <= 0.0_pReal) &
call IO_error(211_pInt,el=instance,ext_msg='Qsd ('//PLASTICITY_DISLOTWIN_label//')') call IO_error(211_pInt,el=instance,ext_msg='Qsd ('//PLASTICITY_DISLOTWIN_label//')')
if (sum(Ntwin(:,instance)) > 0_pInt) then if (sum(Ntwin(:,instance)) > 0_pInt) then
if (dEq0(SFE_0K(instance)) .and. & if (dEq0(param(instance)%SFE_0K) .and. &
dEq0(dSFE_dT(instance)) .and. & dEq0(param(instance)%dSFE_dT) .and. &
lattice_structure(phase) == LATTICE_fcc_ID) & lattice_structure(phase) == LATTICE_fcc_ID) &
call IO_error(211_pInt,el=instance,ext_msg='SFE0K ('//PLASTICITY_DISLOTWIN_label//')') call IO_error(211_pInt,el=instance,ext_msg='SFE0K ('//PLASTICITY_DISLOTWIN_label//')')
if (aTolRho(instance) <= 0.0_pReal) & if (param(instance)%aTolRho <= 0.0_pReal) &
call IO_error(211_pInt,el=instance,ext_msg='aTolRho ('//PLASTICITY_DISLOTWIN_label//')') call IO_error(211_pInt,el=instance,ext_msg='aTolRho ('//PLASTICITY_DISLOTWIN_label//')')
if (aTolTwinFrac(instance) <= 0.0_pReal) & if (param(instance)%aTolTwinFrac <= 0.0_pReal) &
call IO_error(211_pInt,el=instance,ext_msg='aTolTwinFrac ('//PLASTICITY_DISLOTWIN_label//')') call IO_error(211_pInt,el=instance,ext_msg='aTolTwinFrac ('//PLASTICITY_DISLOTWIN_label//')')
endif endif
if (sum(Ntrans(:,instance)) > 0_pInt) then if (sum(Ntrans(:,instance)) > 0_pInt) then
if (dEq0(SFE_0K(instance)) .and. & if (dEq0(param(instance)%SFE_0K) .and. &
dEq0(dSFE_dT(instance)) .and. & dEq0(param(instance)%dSFE_dT) .and. &
lattice_structure(phase) == LATTICE_fcc_ID) & lattice_structure(phase) == LATTICE_fcc_ID) &
call IO_error(211_pInt,el=instance,ext_msg='SFE0K ('//PLASTICITY_DISLOTWIN_label//')') call IO_error(211_pInt,el=instance,ext_msg='SFE0K ('//PLASTICITY_DISLOTWIN_label//')')
if (aTolTransFrac(instance) <= 0.0_pReal) & if (param(instance)%aTolTransFrac <= 0.0_pReal) &
call IO_error(211_pInt,el=instance,ext_msg='aTolTransFrac ('//PLASTICITY_DISLOTWIN_label//')') call IO_error(211_pInt,el=instance,ext_msg='aTolTransFrac ('//PLASTICITY_DISLOTWIN_label//')')
endif endif
if (sbResistance(instance) < 0.0_pReal) & if (sbResistance(instance) < 0.0_pReal) &
call IO_error(211_pInt,el=instance,ext_msg='sbResistance ('//PLASTICITY_DISLOTWIN_label//')') call IO_error(211_pInt,el=instance,ext_msg='sbResistance ('//PLASTICITY_DISLOTWIN_label//')')
if (sbVelocity(instance) < 0.0_pReal) & if (param(instance)%sbVelocity < 0.0_pReal) &
call IO_error(211_pInt,el=instance,ext_msg='sbVelocity ('//PLASTICITY_DISLOTWIN_label//')') call IO_error(211_pInt,el=instance,ext_msg='sbVelocity ('//PLASTICITY_DISLOTWIN_label//')')
if (sbVelocity(instance) > 0.0_pReal .and. & if (param(instance)%sbVelocity > 0.0_pReal .and. &
pShearBand(instance) <= 0.0_pReal) & param(instance)%pShearBand <= 0.0_pReal) &
call IO_error(211_pInt,el=instance,ext_msg='pShearBand ('//PLASTICITY_DISLOTWIN_label//')') call IO_error(211_pInt,el=instance,ext_msg='pShearBand ('//PLASTICITY_DISLOTWIN_label//')')
if (dNeq0(dipoleFormationFactor(instance)) .and. & if (dNeq0(dipoleFormationFactor(instance)) .and. &
dNeq(dipoleFormationFactor(instance), 1.0_pReal)) & dNeq(dipoleFormationFactor(instance), 1.0_pReal)) &
call IO_error(211_pInt,el=instance,ext_msg='dipoleFormationFactor ('//PLASTICITY_DISLOTWIN_label//')') call IO_error(211_pInt,el=instance,ext_msg='dipoleFormationFactor ('//PLASTICITY_DISLOTWIN_label//')')
if (sbVelocity(instance) > 0.0_pReal .and. & if (param(instance)%sbVelocity > 0.0_pReal .and. &
qShearBand(instance) <= 0.0_pReal) & param(instance)%qShearBand <= 0.0_pReal) &
call IO_error(211_pInt,el=instance,ext_msg='qShearBand ('//PLASTICITY_DISLOTWIN_label//')') call IO_error(211_pInt,el=instance,ext_msg='qShearBand ('//PLASTICITY_DISLOTWIN_label//')')
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
@ -1322,7 +1300,7 @@ subroutine plastic_dislotwin_stateInit(ph,instance)
forall (i = 1_pInt:ns) & forall (i = 1_pInt:ns) &
MeanFreePathSlip0(i) = & MeanFreePathSlip0(i) = &
GrainSize(instance)/(1.0_pReal+invLambdaSlip0(i)*GrainSize(instance)) param(instance)%GrainSize/(1.0_pReal+invLambdaSlip0(i)*param(instance)%GrainSize)
tempState(6_pInt*ns+3_pInt*nt+3_pInt*nr+1:7_pInt*ns+3_pInt*nt+3_pInt*nr) = MeanFreePathSlip0 tempState(6_pInt*ns+3_pInt*nt+3_pInt*nr+1:7_pInt*ns+3_pInt*nt+3_pInt*nr) = MeanFreePathSlip0
forall (i = 1_pInt:ns) & forall (i = 1_pInt:ns) &
@ -1335,7 +1313,7 @@ subroutine plastic_dislotwin_stateInit(ph,instance)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! initialize dependent twin microstructural variables ! initialize dependent twin microstructural variables
forall (j = 1_pInt:nt) & forall (j = 1_pInt:nt) &
MeanFreePathTwin0(j) = GrainSize(instance) MeanFreePathTwin0(j) = param(instance)%GrainSize
tempState(7_pInt*ns+3_pInt*nt+3_pInt*nr+1_pInt:7_pInt*ns+4_pInt*nt+3_pInt*nr) = MeanFreePathTwin0 tempState(7_pInt*ns+3_pInt*nt+3_pInt*nr+1_pInt:7_pInt*ns+4_pInt*nt+3_pInt*nr) = MeanFreePathTwin0
forall (j = 1_pInt:nt) & forall (j = 1_pInt:nt) &
@ -1346,7 +1324,7 @@ subroutine plastic_dislotwin_stateInit(ph,instance)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! initialize dependent trans microstructural variables ! initialize dependent trans microstructural variables
forall (j = 1_pInt:nr) & forall (j = 1_pInt:nr) &
MeanFreePathTrans0(j) = GrainSize(instance) MeanFreePathTrans0(j) = param(instance)%GrainSize
tempState(7_pInt*ns+4_pInt*nt+3_pInt*nr+1_pInt:7_pInt*ns+4_pInt*nt+4_pInt*nr) = MeanFreePathTrans0 tempState(7_pInt*ns+4_pInt*nt+3_pInt*nr+1_pInt:7_pInt*ns+4_pInt*nt+4_pInt*nr) = MeanFreePathTrans0
forall (j = 1_pInt:nr) & forall (j = 1_pInt:nr) &
@ -1378,7 +1356,7 @@ subroutine plastic_dislotwin_aTolState(ph,instance)
! Tolerance state for dislocation densities ! Tolerance state for dislocation densities
plasticState(ph)%aTolState(1_pInt: & plasticState(ph)%aTolState(1_pInt: &
2_pInt*ns) = aTolRho(instance) 2_pInt*ns) = param(instance)%aTolRho
! Tolerance state for accumulated shear due to slip ! Tolerance state for accumulated shear due to slip
plasticState(ph)%aTolState(2_pInt*ns+1_pInt: & plasticState(ph)%aTolState(2_pInt*ns+1_pInt: &
@ -1386,7 +1364,7 @@ subroutine plastic_dislotwin_aTolState(ph,instance)
! Tolerance state for twin volume fraction ! Tolerance state for twin volume fraction
plasticState(ph)%aTolState(3_pInt*ns+1_pInt: & plasticState(ph)%aTolState(3_pInt*ns+1_pInt: &
3_pInt*ns+nt) = aTolTwinFrac(instance) 3_pInt*ns+nt) = param(instance)%aTolTwinFrac
! Tolerance state for accumulated shear due to twin ! Tolerance state for accumulated shear due to twin
plasticState(ph)%aTolState(3_pInt*ns+nt+1_pInt: & plasticState(ph)%aTolState(3_pInt*ns+nt+1_pInt: &
@ -1394,11 +1372,11 @@ subroutine plastic_dislotwin_aTolState(ph,instance)
! Tolerance state for stress-assisted martensite volume fraction ! Tolerance state for stress-assisted martensite volume fraction
plasticState(ph)%aTolState(3_pInt*ns+2_pInt*nt+1_pInt: & plasticState(ph)%aTolState(3_pInt*ns+2_pInt*nt+1_pInt: &
3_pInt*ns+2_pInt*nt+nr) = aTolTransFrac(instance) 3_pInt*ns+2_pInt*nt+nr) = param(instance)%aTolTransFrac
! Tolerance state for strain-induced martensite volume fraction ! Tolerance state for strain-induced martensite volume fraction
plasticState(ph)%aTolState(3_pInt*ns+2_pInt*nt+nr+1_pInt: & plasticState(ph)%aTolState(3_pInt*ns+2_pInt*nt+nr+1_pInt: &
3_pInt*ns+2_pInt*nt+2_pInt*nr) = aTolTransFrac(instance) 3_pInt*ns+2_pInt*nt+2_pInt*nr) = param(instance)%aTolTransFrac
end subroutine plastic_dislotwin_aTolState end subroutine plastic_dislotwin_aTolState
@ -1505,8 +1483,8 @@ subroutine plastic_dislotwin_microstructure(temperature,ipc,ip,el)
sum(state(instance)%strainTransFraction(1_pInt:nr,of)) sum(state(instance)%strainTransFraction(1_pInt:nr,of))
!* Stacking fault energy !* Stacking fault energy
sfe = SFE_0K(instance) + & sfe = param(instance)%SFE_0K + &
dSFE_dT(instance) * Temperature param(instance)%dSFE_dT * Temperature
!* rescaled twin volume fraction for topology !* rescaled twin volume fraction for topology
forall (t = 1_pInt:nt) & forall (t = 1_pInt:nt) &
@ -1556,28 +1534,28 @@ subroutine plastic_dislotwin_microstructure(temperature,ipc,ip,el)
do s = 1_pInt,ns do s = 1_pInt,ns
if ((nt > 0_pInt) .or. (nr > 0_pInt)) then if ((nt > 0_pInt) .or. (nr > 0_pInt)) then
state(instance)%mfp_slip(s,of) = & state(instance)%mfp_slip(s,of) = &
GrainSize(instance)/(1.0_pReal+GrainSize(instance)*& param(instance)%GrainSize/(1.0_pReal+param(instance)%GrainSize*&
(state(instance)%invLambdaSlip(s,of) + & (state(instance)%invLambdaSlip(s,of) + &
state(instance)%invLambdaSlipTwin(s,of) + & state(instance)%invLambdaSlipTwin(s,of) + &
state(instance)%invLambdaSlipTrans(s,of))) state(instance)%invLambdaSlipTrans(s,of)))
else else
state(instance)%mfp_slip(s,of) = & state(instance)%mfp_slip(s,of) = &
GrainSize(instance)/& param(instance)%GrainSize/&
(1.0_pReal+GrainSize(instance)*(state(instance)%invLambdaSlip(s,of))) !!!!!! correct? (1.0_pReal+param(instance)%GrainSize*(state(instance)%invLambdaSlip(s,of))) !!!!!! correct?
endif endif
enddo enddo
!* mean free path between 2 obstacles seen by a growing twin !* mean free path between 2 obstacles seen by a growing twin
forall (t = 1_pInt:nt) & forall (t = 1_pInt:nt) &
state(instance)%mfp_twin(t,of) = & state(instance)%mfp_twin(t,of) = &
Cmfptwin(instance)*GrainSize(instance)/& param(instance)%Cmfptwin*param(instance)%GrainSize/&
(1.0_pReal+GrainSize(instance)*state(ph)%invLambdaTwin(t,of)) (1.0_pReal+param(instance)%GrainSize*state(ph)%invLambdaTwin(t,of))
!* mean free path between 2 obstacles seen by a growing martensite !* mean free path between 2 obstacles seen by a growing martensite
forall (r = 1_pInt:nr) & forall (r = 1_pInt:nr) &
state(instance)%mfp_trans(r,of) = & state(instance)%mfp_trans(r,of) = &
Cmfptrans(instance)*GrainSize(instance)/& param(instance)%Cmfptrans*param(instance)%GrainSize/&
(1.0_pReal+GrainSize(instance)*state(instance)%invLambdaTrans(r,of)) (1.0_pReal+param(instance)%GrainSize*state(instance)%invLambdaTrans(r,of))
!* threshold stress for dislocation motion !* threshold stress for dislocation motion
forall (s = 1_pInt:ns) & forall (s = 1_pInt:ns) &
@ -1589,20 +1567,20 @@ subroutine plastic_dislotwin_microstructure(temperature,ipc,ip,el)
!* threshold stress for growing twin !* threshold stress for growing twin
forall (t = 1_pInt:nt) & forall (t = 1_pInt:nt) &
state(instance)%threshold_stress_twin(t,of) = & state(instance)%threshold_stress_twin(t,of) = &
Cthresholdtwin(instance)* & param(instance)%Cthresholdtwin* &
(sfe/(3.0_pReal*burgersPerTwinSystem(t,instance)) & (sfe/(3.0_pReal*burgersPerTwinSystem(t,instance)) &
+ 3.0_pReal*burgersPerTwinSystem(t,instance)*lattice_mu(ph)/& + 3.0_pReal*burgersPerTwinSystem(t,instance)*lattice_mu(ph)/&
(L0_twin(instance)*burgersPerSlipSystem(t,instance)) & (param(instance)%L0_twin*burgersPerSlipSystem(t,instance)) &
) )
!* threshold stress for growing martensite !* threshold stress for growing martensite
forall (r = 1_pInt:nr) & forall (r = 1_pInt:nr) &
state(instance)%threshold_stress_trans(r,of) = & state(instance)%threshold_stress_trans(r,of) = &
Cthresholdtrans(instance)* & param(instance)%Cthresholdtrans* &
(sfe/(3.0_pReal*burgersPerTransSystem(r,instance)) & (sfe/(3.0_pReal*burgersPerTransSystem(r,instance)) &
+ 3.0_pReal*burgersPerTransSystem(r,instance)*lattice_mu(ph)/& + 3.0_pReal*burgersPerTransSystem(r,instance)*lattice_mu(ph)/&
(L0_trans(instance)*burgersPerSlipSystem(r,instance))& (param(instance)%L0_trans*burgersPerSlipSystem(r,instance))&
+ transStackHeight(instance)*deltaG(instance)/ & + param(instance)%transStackHeight*param(instance)%deltaG/ &
(3.0_pReal*burgersPerTransSystem(r,instance)) & (3.0_pReal*burgersPerTransSystem(r,instance)) &
) )
@ -1624,7 +1602,7 @@ subroutine plastic_dislotwin_microstructure(temperature,ipc,ip,el)
(sfe*8.0_pReal*pi)*(2.0_pReal+lattice_nu(ph))/(1.0_pReal-lattice_nu(ph)) (sfe*8.0_pReal*pi)*(2.0_pReal+lattice_nu(ph))/(1.0_pReal-lattice_nu(ph))
tau_r_twin(t,instance)= & tau_r_twin(t,instance)= &
lattice_mu(ph)*burgersPerTwinSystem(t,instance)/(2.0_pReal*pi)*& lattice_mu(ph)*burgersPerTwinSystem(t,instance)/(2.0_pReal*pi)*&
(1/(x0+xc_twin(instance))+cos(pi/3.0_pReal)/x0) (1/(x0+param(instance)%xc_twin)+cos(pi/3.0_pReal)/x0)
enddo enddo
!* equilibrium separation of partial dislocations (trans) !* equilibrium separation of partial dislocations (trans)
@ -1633,7 +1611,7 @@ subroutine plastic_dislotwin_microstructure(temperature,ipc,ip,el)
(sfe*8.0_pReal*pi)*(2.0_pReal+lattice_nu(ph))/(1.0_pReal-lattice_nu(ph)) (sfe*8.0_pReal*pi)*(2.0_pReal+lattice_nu(ph))/(1.0_pReal-lattice_nu(ph))
tau_r_trans(r,instance)= & tau_r_trans(r,instance)= &
lattice_mu(ph)*burgersPerTransSystem(r,instance)/(2.0_pReal*pi)*& lattice_mu(ph)*burgersPerTransSystem(r,instance)/(2.0_pReal*pi)*&
(1/(x0+xc_trans(instance))+cos(pi/3.0_pReal)/x0) (1/(x0+param(instance)%xc_trans)+cos(pi/3.0_pReal)/x0)
enddo enddo
end subroutine plastic_dislotwin_microstructure end subroutine plastic_dislotwin_microstructure
@ -1744,7 +1722,7 @@ subroutine plastic_dislotwin_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,Temperature
if((abs(tau_slip(j))-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then if((abs(tau_slip(j))-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
!* Stress ratios !* Stress ratios
stressRatio =((abs(tau_slip(j))- state(instance)%threshold_stress_slip(j,of))/& stressRatio =((abs(tau_slip(j))- state(instance)%threshold_stress_slip(j,of))/&
(SolidSolutionStrength(instance)+tau_peierlsPerSlipFamily(f,instance))) (param(instance)%SolidSolutionStrength+tau_peierlsPerSlipFamily(f,instance)))
StressRatio_p = stressRatio** pPerSlipFamily(f,instance) StressRatio_p = stressRatio** pPerSlipFamily(f,instance)
StressRatio_pminus1 = stressRatio**(pPerSlipFamily(f,instance)-1.0_pReal) StressRatio_pminus1 = stressRatio**(pPerSlipFamily(f,instance)-1.0_pReal)
!* Boltzmann ratio !* Boltzmann ratio
@ -1763,7 +1741,7 @@ subroutine plastic_dislotwin_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,Temperature
dgdot_dtauslip(j) = & dgdot_dtauslip(j) = &
abs(gdot_slip(j))*BoltzmannRatio*pPerSlipFamily(f,instance)& abs(gdot_slip(j))*BoltzmannRatio*pPerSlipFamily(f,instance)&
*qPerSlipFamily(f,instance)/& *qPerSlipFamily(f,instance)/&
(SolidSolutionStrength(instance)+tau_peierlsPerSlipFamily(f,instance))*& (param(instance)%SolidSolutionStrength+tau_peierlsPerSlipFamily(f,instance))*&
StressRatio_pminus1*(1-StressRatio_p)**(qPerSlipFamily(f,instance)-1.0_pReal) StressRatio_pminus1*(1-StressRatio_p)**(qPerSlipFamily(f,instance)-1.0_pReal)
endif endif
@ -1792,7 +1770,7 @@ subroutine plastic_dislotwin_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,Temperature
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! Shear banding (shearband) part ! Shear banding (shearband) part
if(dNeq0(sbVelocity(instance)) .and. dNeq0(sbResistance(instance))) then if(dNeq0(param(instance)%sbVelocity) .and. dNeq0(sbResistance(instance))) then
gdot_sb = 0.0_pReal gdot_sb = 0.0_pReal
dgdot_dtausb = 0.0_pReal dgdot_dtausb = 0.0_pReal
call math_eigenValuesVectorsSym(math_Mandel6to33(Tstar_v),eigValues,eigVectors,error) call math_eigenValuesVectorsSym(math_Mandel6to33(Tstar_v),eigValues,eigVectors,error)
@ -1812,26 +1790,26 @@ subroutine plastic_dislotwin_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,Temperature
StressRatio_pminus1 = 0.0_pReal StressRatio_pminus1 = 0.0_pReal
else else
StressRatio_p = (abs(tau_sb(j))/sbResistance(instance))& StressRatio_p = (abs(tau_sb(j))/sbResistance(instance))&
**pShearBand(instance) **param(instance)%pShearBand
StressRatio_pminus1 = (abs(tau_sb(j))/sbResistance(instance))& StressRatio_pminus1 = (abs(tau_sb(j))/sbResistance(instance))&
**(pShearBand(instance)-1.0_pReal) **(param(instance)%pShearBand-1.0_pReal)
endif endif
!* Boltzmann ratio !* Boltzmann ratio
BoltzmannRatio = sbQedge(instance)/(kB*Temperature) BoltzmannRatio = param(instance)%sbQedge/(kB*Temperature)
!* Initial shear rates !* Initial shear rates
DotGamma0 = sbVelocity(instance) DotGamma0 = param(instance)%sbVelocity
!* Shear rates due to shearband !* Shear rates due to shearband
gdot_sb(j) = DotGamma0*exp(-BoltzmannRatio*(1_pInt-StressRatio_p)**& gdot_sb(j) = DotGamma0*exp(-BoltzmannRatio*(1_pInt-StressRatio_p)**&
qShearBand(instance))*sign(1.0_pReal,tau_sb(j)) param(instance)%qShearBand)*sign(1.0_pReal,tau_sb(j))
!* Derivatives of shear rates !* Derivatives of shear rates
dgdot_dtausb(j) = & dgdot_dtausb(j) = &
((abs(gdot_sb(j))*BoltzmannRatio*& ((abs(gdot_sb(j))*BoltzmannRatio*&
pShearBand(instance)*qShearBand(instance))/& param(instance)%pShearBand*param(instance)%qShearBand)/&
sbResistance(instance))*& sbResistance(instance))*&
StressRatio_pminus1*(1_pInt-StressRatio_p)**(qShearBand(instance)-1.0_pReal) StressRatio_pminus1*(1_pInt-StressRatio_p)**(param(instance)%qShearBand-1.0_pReal)
!* Plastic velocity gradient for shear banding !* Plastic velocity gradient for shear banding
Lp = Lp + gdot_sb(j)*sb_Smatrix Lp = Lp + gdot_sb(j)*sb_Smatrix
@ -1870,8 +1848,8 @@ subroutine plastic_dislotwin_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,Temperature
if (tau_twin(j) < tau_r_twin(j,instance)) then if (tau_twin(j) < tau_r_twin(j,instance)) then
Ndot0_twin=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(ph)%rhoEdgeDip(s2,of))+& !!!!! correct? Ndot0_twin=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(ph)%rhoEdgeDip(s2,of))+& !!!!! correct?
abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/& abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/&
(L0_twin(instance)*burgersPerSlipSystem(j,instance))*& (param(instance)%L0_twin*burgersPerSlipSystem(j,instance))*&
(1.0_pReal-exp(-VcrossSlip(instance)/(kB*Temperature)*& (1.0_pReal-exp(-param(instance)%VcrossSlip/(kB*Temperature)*&
(tau_r_twin(j,instance)-tau_twin(j)))) (tau_r_twin(j,instance)-tau_twin(j))))
else else
Ndot0_twin=0.0_pReal Ndot0_twin=0.0_pReal
@ -1920,8 +1898,8 @@ subroutine plastic_dislotwin_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,Temperature
if (tau_trans(j) < tau_r_trans(j,instance)) then if (tau_trans(j) < tau_r_trans(j,instance)) then
Ndot0_trans=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(instance)%rhoEdgeDip(s2,of))+& !!!!! correct? Ndot0_trans=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(instance)%rhoEdgeDip(s2,of))+& !!!!! correct?
abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/& abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/&
(L0_trans(instance)*burgersPerSlipSystem(j,instance))*& (param(instance)%L0_trans*burgersPerSlipSystem(j,instance))*&
(1.0_pReal-exp(-VcrossSlip(instance)/(kB*Temperature)*& (1.0_pReal-exp(-param(instance)%VcrossSlip/(kB*Temperature)*&
(tau_r_trans(j,instance)-tau_trans(j)))) (tau_r_trans(j,instance)-tau_trans(j))))
else else
Ndot0_trans=0.0_pReal Ndot0_trans=0.0_pReal
@ -2040,7 +2018,7 @@ subroutine plastic_dislotwin_dotState(Tstar_v,Temperature,ipc,ip,el)
if((abs(tau_slip(j))-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then if((abs(tau_slip(j))-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
!* Stress ratios !* Stress ratios
stressRatio =((abs(tau_slip(j))- state(instance)%threshold_stress_slip(j,of))/& stressRatio =((abs(tau_slip(j))- state(instance)%threshold_stress_slip(j,of))/&
(SolidSolutionStrength(instance)+tau_peierlsPerSlipFamily(f,instance))) (param(instance)%SolidSolutionStrength+tau_peierlsPerSlipFamily(f,instance)))
StressRatio_p = stressRatio** pPerSlipFamily(f,instance) StressRatio_p = stressRatio** pPerSlipFamily(f,instance)
StressRatio_pminus1 = stressRatio**(pPerSlipFamily(f,instance)-1.0_pReal) StressRatio_pminus1 = stressRatio**(pPerSlipFamily(f,instance)-1.0_pReal)
!* Boltzmann ratio !* Boltzmann ratio
@ -2059,7 +2037,7 @@ subroutine plastic_dislotwin_dotState(Tstar_v,Temperature,ipc,ip,el)
(burgersPerSlipSystem(j,instance)*state(instance)%mfp_slip(j,of)) (burgersPerSlipSystem(j,instance)*state(instance)%mfp_slip(j,of))
!* Dipole formation !* Dipole formation
EdgeDipMinDistance = & EdgeDipMinDistance = &
CEdgeDipMinDistance(instance)*burgersPerSlipSystem(j,instance) param(instance)%CEdgeDipMinDistance*burgersPerSlipSystem(j,instance)
if (dEq0(tau_slip(j))) then if (dEq0(tau_slip(j))) then
DotRhoDipFormation = 0.0_pReal DotRhoDipFormation = 0.0_pReal
else else
@ -2136,8 +2114,8 @@ subroutine plastic_dislotwin_dotState(Tstar_v,Temperature,ipc,ip,el)
if (tau_twin(j) < tau_r_twin(j,instance)) then if (tau_twin(j) < tau_r_twin(j,instance)) then
Ndot0_twin=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(instance)%rhoEdgeDip(s2,of))+& Ndot0_twin=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(instance)%rhoEdgeDip(s2,of))+&
abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/& abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/&
(L0_twin(instance)*burgersPerSlipSystem(j,instance))*& (param(instance)%L0_twin*burgersPerSlipSystem(j,instance))*&
(1.0_pReal-exp(-VcrossSlip(instance)/(kB*Temperature)*& (1.0_pReal-exp(-param(instance)%VcrossSlip/(kB*Temperature)*&
(tau_r_twin(j,instance)-tau_twin(j)))) (tau_r_twin(j,instance)-tau_twin(j))))
else else
Ndot0_twin=0.0_pReal Ndot0_twin=0.0_pReal
@ -2177,8 +2155,8 @@ subroutine plastic_dislotwin_dotState(Tstar_v,Temperature,ipc,ip,el)
if (tau_trans(j) < tau_r_trans(j,instance)) then if (tau_trans(j) < tau_r_trans(j,instance)) then
Ndot0_trans=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(instance)%rhoEdgeDip(s2,of))+& Ndot0_trans=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(instance)%rhoEdgeDip(s2,of))+&
abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/& abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/&
(L0_trans(instance)*burgersPerSlipSystem(j,instance))*& (param(instance)%L0_trans*burgersPerSlipSystem(j,instance))*&
(1.0_pReal-exp(-VcrossSlip(instance)/(kB*Temperature)*& (1.0_pReal-exp(-param(instance)%VcrossSlip/(kB*Temperature)*&
(tau_r_trans(j,instance)-tau_trans(j)))) (tau_r_trans(j,instance)-tau_trans(j))))
else else
Ndot0_trans=0.0_pReal Ndot0_trans=0.0_pReal
@ -2292,7 +2270,7 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el)
if((abs(tau)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then if((abs(tau)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
!* Stress ratios !* Stress ratios
stressRatio = ((abs(tau)-state(ph)%threshold_stress_slip(j,of))/& stressRatio = ((abs(tau)-state(ph)%threshold_stress_slip(j,of))/&
(SolidSolutionStrength(instance)+& (param(instance)%SolidSolutionStrength+&
tau_peierlsPerSlipFamily(f,instance))) tau_peierlsPerSlipFamily(f,instance)))
StressRatio_p = stressRatio** pPerSlipFamily(f,instance) StressRatio_p = stressRatio** pPerSlipFamily(f,instance)
StressRatio_pminus1 = stressRatio**(pPerSlipFamily(f,instance)-1.0_pReal) StressRatio_pminus1 = stressRatio**(pPerSlipFamily(f,instance)-1.0_pReal)
@ -2366,17 +2344,17 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el)
StressRatio_pminus1 = 0.0_pReal StressRatio_pminus1 = 0.0_pReal
else else
StressRatio_p = (abs(tau)/sbResistance(instance))**& StressRatio_p = (abs(tau)/sbResistance(instance))**&
pShearBand(instance) param(instance)%pShearBand
StressRatio_pminus1 = (abs(tau)/sbResistance(instance))**& StressRatio_pminus1 = (abs(tau)/sbResistance(instance))**&
(pShearBand(instance)-1.0_pReal) (param(instance)%pShearBand-1.0_pReal)
endif endif
!* Boltzmann ratio !* Boltzmann ratio
BoltzmannRatio = sbQedge(instance)/(kB*Temperature) BoltzmannRatio = param(instance)%sbQedge/(kB*Temperature)
!* Initial shear rates !* Initial shear rates
DotGamma0 = sbVelocity(instance) DotGamma0 = param(instance)%sbVelocity
! Shear rate due to shear band ! Shear rate due to shear band
plastic_dislotwin_postResults(c+j) = & plastic_dislotwin_postResults(c+j) = &
DotGamma0*exp(-BoltzmannRatio*(1_pInt-StressRatio_p)**qShearBand(instance))*& DotGamma0*exp(-BoltzmannRatio*(1_pInt-StressRatio_p)**param(instance)%qShearBand)*&
sign(1.0_pReal,tau) sign(1.0_pReal,tau)
enddo enddo
c = c + 6_pInt c = c + 6_pInt
@ -2398,11 +2376,11 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el)
if((abs(tau)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then if((abs(tau)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
!* Stress ratios !* Stress ratios
StressRatio_p = ((abs(tau)-state(instance)%threshold_stress_slip(j,of))/& StressRatio_p = ((abs(tau)-state(instance)%threshold_stress_slip(j,of))/&
(SolidSolutionStrength(instance)+& (param(instance)%SolidSolutionStrength+&
tau_peierlsPerSlipFamily(f,instance)))& tau_peierlsPerSlipFamily(f,instance)))&
**pPerSlipFamily(f,instance) **pPerSlipFamily(f,instance)
StressRatio_pminus1 = ((abs(tau)-state(instance)%threshold_stress_slip(j,of))/& StressRatio_pminus1 = ((abs(tau)-state(instance)%threshold_stress_slip(j,of))/&
(SolidSolutionStrength(instance)+& (param(instance)%SolidSolutionStrength+&
tau_peierlsPerSlipFamily(f,instance)))& tau_peierlsPerSlipFamily(f,instance)))&
**(pPerSlipFamily(f,instance)-1.0_pReal) **(pPerSlipFamily(f,instance)-1.0_pReal)
!* Boltzmann ratio !* Boltzmann ratio
@ -2438,9 +2416,9 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el)
if (tau < tau_r_twin(j,instance)) then if (tau < tau_r_twin(j,instance)) then
Ndot0_twin=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(instance)%rhoEdgeDip(s2,of))+& Ndot0_twin=(abs(gdot_slip(s1))*(state(instance)%rhoEdge(s2,of)+state(instance)%rhoEdgeDip(s2,of))+&
abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/& abs(gdot_slip(s2))*(state(instance)%rhoEdge(s1,of)+state(instance)%rhoEdgeDip(s1,of)))/&
(L0_twin(instance)*& (param(instance)%L0_twin*&
burgersPerSlipSystem(j,instance))*& burgersPerSlipSystem(j,instance))*&
(1.0_pReal-exp(-VcrossSlip(instance)/(kB*Temperature)*& (1.0_pReal-exp(-param(instance)%VcrossSlip/(kB*Temperature)*&
(tau_r_twin(j,instance)-tau))) (tau_r_twin(j,instance)-tau)))
else else
Ndot0_twin=0.0_pReal Ndot0_twin=0.0_pReal
@ -2451,7 +2429,7 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el)
StressRatio_r = (state(instance)%threshold_stress_twin(j,of)/tau) & StressRatio_r = (state(instance)%threshold_stress_twin(j,of)/tau) &
**rPerTwinFamily(f,instance) **rPerTwinFamily(f,instance)
plastic_dislotwin_postResults(c+j) = & plastic_dislotwin_postResults(c+j) = &
(MaxTwinFraction(instance)-sumf)*lattice_shearTwin(index_myFamily+i,ph)*& (param(instance)%MaxTwinFraction-sumf)*lattice_shearTwin(index_myFamily+i,ph)*&
state(instance)%twinVolume(j,of)*Ndot0_twin*exp(-StressRatio_r) state(instance)%twinVolume(j,of)*Ndot0_twin*exp(-StressRatio_r)
endif endif
@ -2490,11 +2468,11 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el)
if((abs(tau)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then if((abs(tau)-state(instance)%threshold_stress_slip(j,of)) > tol_math_check) then
!* Stress ratios !* Stress ratios
StressRatio_p = ((abs(tau)-state(instance)%threshold_stress_slip(j,of))/& StressRatio_p = ((abs(tau)-state(instance)%threshold_stress_slip(j,of))/&
(SolidSolutionStrength(instance)+& (param(instance)%SolidSolutionStrength+&
tau_peierlsPerSlipFamily(f,instance)))& tau_peierlsPerSlipFamily(f,instance)))&
**pPerSlipFamily(f,instance) **pPerSlipFamily(f,instance)
StressRatio_pminus1 = ((abs(tau)-state(instance)%threshold_stress_slip(j,of))/& StressRatio_pminus1 = ((abs(tau)-state(instance)%threshold_stress_slip(j,of))/&
(SolidSolutionStrength(instance)+& (param(instance)%SolidSolutionStrength+&
tau_peierlsPerSlipFamily(f,instance)))& tau_peierlsPerSlipFamily(f,instance)))&
**(pPerSlipFamily(f,instance)-1.0_pReal) **(pPerSlipFamily(f,instance)-1.0_pReal)
!* Boltzmann ratio !* Boltzmann ratio
@ -2512,7 +2490,7 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el)
dgdot_dtauslip = & dgdot_dtauslip = &
abs(gdot_slip(j))*BoltzmannRatio*pPerSlipFamily(f,instance)& abs(gdot_slip(j))*BoltzmannRatio*pPerSlipFamily(f,instance)&
*qPerSlipFamily(f,instance)/& *qPerSlipFamily(f,instance)/&
(SolidSolutionStrength(instance)+& (param(instance)%SolidSolutionStrength+&
tau_peierlsPerSlipFamily(f,instance))*& tau_peierlsPerSlipFamily(f,instance))*&
StressRatio_pminus1*(1-StressRatio_p)**(qPerSlipFamily(f,instance)-1.0_pReal) StressRatio_pminus1*(1-StressRatio_p)**(qPerSlipFamily(f,instance)-1.0_pReal)