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

Brushed up accountability of twinning to Lp

This commit is contained in:
Alankar Alankar 2010-09-07 14:44:37 +00:00
parent 7d4c7f7fa7
commit 3c5f38643d
1 changed files with 206 additions and 299 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

503
code/constitutive_titanmod.f90
View File

@ -147,34 +147,30 @@ implicit none
!* Lists of states and physical parameters !* Lists of states and physical parameters
character(len=*), parameter :: constitutive_titanmod_label = 'titanmod' character(len=*), parameter :: constitutive_titanmod_label = 'titanmod'
character(len=18), dimension(2), parameter:: constitutive_titanmod_listBasicSlipStates = (/'rho_edge', & character(len=18), dimension(2), parameter:: constitutive_titanmod_listBasicSlipStates = (/'rho_edge', &
'rho_screw'/) 'rho_screw'/)
character(len=18), dimension(2), parameter:: constitutive_titanmod_listBasicTwinStates = (/'twinrho_edge', & character(len=18), dimension(3), parameter:: constitutive_titanmod_listBasicTwinStates = (/'twinrho_edge', &
'twinrho_screw'/) 'twinrho_screw', &
'gdot_twin'/)
character(len=18), dimension(20), parameter:: constitutive_titanmod_listDependentSlipStates =(/'segment_edge', & character(len=18), dimension(8), parameter:: constitutive_titanmod_listDependentSlipStates =(/'segment_edge', &
'segment_screw', & 'segment_screw', &
'rss_slip', & 'resistance_edge', &
'gamma_dot', & 'resistance_screw', &
'dgdotdtau', & 'tau_slip', &
'resistance_edge', & 'gdot_slip', &
'resistance_screw', & 'velocity_edge', &
'invLambdaSlipTwin',& 'velocity_screw' &
'stressratio_edgep', & /)
'stressratio_screwp', &
'rlengthprefactor', &
'velocity_edge', &
'velocity_screw', &
'edge_generation',&
'screw_generation', &
'edge_annihilation', &
'screw_annihilation', &
'total_generation', &
'total_annihilation', &
'total_density'/)
character(len=18), dimension(2), parameter:: constitutive_titanmod_listDependentTwinStates =(/'twin_fraction', &
'twingamma_dot'/)
character(len=18), dimension(8), parameter:: constitutive_titanmod_listDependentTwinStates =(/'twin_fraction', &
'tau_twin', &
'twinsegment_edge', &
'twinsegment_screw', &
'twinresistance_edge', &
'twinresistance_screw', &
'twinvelocity_edge', &
'twinvelocity_screw' &
/)
real(pReal), parameter :: kB = 1.38e-23_pReal ! Boltzmann constant in J/Kelvin real(pReal), parameter :: kB = 1.38e-23_pReal ! Boltzmann constant in J/Kelvin
!* Definition of global variables !* Definition of global variables
@ -201,8 +197,8 @@ real(pReal), dimension(:), allocatable :: constitutive_titanmod_
constitutive_titanmod_C44, & ! C44 element in elasticity matrix constitutive_titanmod_C44, & ! C44 element in elasticity matrix
constitutive_titanmod_Gmod, & ! shear modulus constitutive_titanmod_Gmod, & ! shear modulus
constitutive_titanmod_CAtomicVolume, & ! atomic volume in Bugers vector unit constitutive_titanmod_CAtomicVolume, & ! atomic volume in Bugers vector unit
constitutive_titanmod_D0, & ! prefactor for self-diffusion coefficient constitutive_titanmod_dc, & ! prefactor for self-diffusion coefficient
constitutive_titanmod_Qsd, & ! activation energy for dislocation climb constitutive_titanmod_twinhpconstant, & ! activation energy for dislocation climb
constitutive_titanmod_GrainSize, & ! grain size - Not being used constitutive_titanmod_GrainSize, & ! grain size - Not being used
constitutive_titanmod_MaxTwinFraction, & ! maximum allowed total twin volume fraction constitutive_titanmod_MaxTwinFraction, & ! maximum allowed total twin volume fraction
constitutive_titanmod_r, & ! r-exponent in twin nucleation rate constitutive_titanmod_r, & ! r-exponent in twin nucleation rate
@ -226,6 +222,8 @@ real(pReal), dimension(:,:), allocatable :: constitutive_titanmod_
constitutive_titanmod_f0_PerSlipSystem, & ! activation energy for glide [J] for each slip system and instance constitutive_titanmod_f0_PerSlipSystem, & ! activation energy for glide [J] for each slip system and instance
constitutive_titanmod_twinf0_PerTwinFamily, & ! activation energy for glide [J] for each twin family and instance constitutive_titanmod_twinf0_PerTwinFamily, & ! activation energy for glide [J] for each twin family and instance
constitutive_titanmod_twinf0_PerTwinSystem, & ! activation energy for glide [J] for each twin system and instance constitutive_titanmod_twinf0_PerTwinSystem, & ! activation energy for glide [J] for each twin system and instance
constitutive_titanmod_twinshearconstant_PerTwinFamily, & ! activation energy for glide [J] for each twin family and instance
constitutive_titanmod_twinshearconstant_PerTwinSystem, & ! activation energy for glide [J] for each twin system and instance
constitutive_titanmod_tau0e_PerSlipFamily, & ! Initial yield stress for edge dislocations per slip family constitutive_titanmod_tau0e_PerSlipFamily, & ! Initial yield stress for edge dislocations per slip family
constitutive_titanmod_tau0e_PerSlipSystem, & ! Initial yield stress for edge dislocations per slip system constitutive_titanmod_tau0e_PerSlipSystem, & ! Initial yield stress for edge dislocations per slip system
constitutive_titanmod_tau0s_PerSlipFamily, & ! Initial yield stress for screw dislocations per slip family constitutive_titanmod_tau0s_PerSlipFamily, & ! Initial yield stress for screw dislocations per slip family
@ -380,8 +378,8 @@ allocate(constitutive_titanmod_C33(maxNinstance))
allocate(constitutive_titanmod_C44(maxNinstance)) allocate(constitutive_titanmod_C44(maxNinstance))
allocate(constitutive_titanmod_Gmod(maxNinstance)) allocate(constitutive_titanmod_Gmod(maxNinstance))
allocate(constitutive_titanmod_CAtomicVolume(maxNinstance)) allocate(constitutive_titanmod_CAtomicVolume(maxNinstance))
allocate(constitutive_titanmod_D0(maxNinstance)) allocate(constitutive_titanmod_dc(maxNinstance))
allocate(constitutive_titanmod_Qsd(maxNinstance)) allocate(constitutive_titanmod_twinhpconstant(maxNinstance))
allocate(constitutive_titanmod_GrainSize(maxNinstance)) allocate(constitutive_titanmod_GrainSize(maxNinstance))
allocate(constitutive_titanmod_MaxTwinFraction(maxNinstance)) allocate(constitutive_titanmod_MaxTwinFraction(maxNinstance))
allocate(constitutive_titanmod_r(maxNinstance)) allocate(constitutive_titanmod_r(maxNinstance))
@ -399,8 +397,8 @@ constitutive_titanmod_C33 = 0.0_pReal
constitutive_titanmod_C44 = 0.0_pReal constitutive_titanmod_C44 = 0.0_pReal
constitutive_titanmod_Gmod = 0.0_pReal constitutive_titanmod_Gmod = 0.0_pReal
constitutive_titanmod_CAtomicVolume = 0.0_pReal constitutive_titanmod_CAtomicVolume = 0.0_pReal
constitutive_titanmod_D0 = 0.0_pReal constitutive_titanmod_dc = 0.0_pReal
constitutive_titanmod_Qsd = 0.0_pReal constitutive_titanmod_twinhpconstant = 0.0_pReal
constitutive_titanmod_GrainSize = 0.0_pReal constitutive_titanmod_GrainSize = 0.0_pReal
constitutive_titanmod_MaxTwinFraction = 0.0_pReal constitutive_titanmod_MaxTwinFraction = 0.0_pReal
constitutive_titanmod_r = 0.0_pReal constitutive_titanmod_r = 0.0_pReal
@ -434,6 +432,7 @@ allocate(constitutive_titanmod_CsLambdaSlipPerSlipFamily(lattice_maxNslipFamily,
allocate(constitutive_titanmod_twinrho_edge0(lattice_maxNtwinFamily,maxNinstance)) allocate(constitutive_titanmod_twinrho_edge0(lattice_maxNtwinFamily,maxNinstance))
allocate(constitutive_titanmod_twinrho_screw0(lattice_maxNtwinFamily,maxNinstance)) allocate(constitutive_titanmod_twinrho_screw0(lattice_maxNtwinFamily,maxNinstance))
allocate(constitutive_titanmod_twinf0_PerTwinFamily(lattice_maxNTwinFamily,maxNinstance)) allocate(constitutive_titanmod_twinf0_PerTwinFamily(lattice_maxNTwinFamily,maxNinstance))
allocate(constitutive_titanmod_twinshearconstant_PerTwinFamily(lattice_maxNTwinFamily,maxNinstance))
allocate(constitutive_titanmod_twintau0e_PerTwinFamily(lattice_maxNTwinFamily,maxNinstance)) allocate(constitutive_titanmod_twintau0e_PerTwinFamily(lattice_maxNTwinFamily,maxNinstance))
allocate(constitutive_titanmod_twintau0s_PerTwinFamily(lattice_maxNTwinFamily,maxNinstance)) allocate(constitutive_titanmod_twintau0s_PerTwinFamily(lattice_maxNTwinFamily,maxNinstance))
allocate(constitutive_titanmod_twincapre_PerTwinFamily(lattice_maxNTwinFamily,maxNinstance)) allocate(constitutive_titanmod_twincapre_PerTwinFamily(lattice_maxNTwinFamily,maxNinstance))
@ -471,6 +470,7 @@ constitutive_titanmod_qs_PerSlipFamily = 0.0_pReal
constitutive_titanmod_twinrho_edge0 = 0.0_pReal constitutive_titanmod_twinrho_edge0 = 0.0_pReal
constitutive_titanmod_twinrho_screw0 = 0.0_pReal constitutive_titanmod_twinrho_screw0 = 0.0_pReal
constitutive_titanmod_twinf0_PerTwinFamily = 0.0_pReal constitutive_titanmod_twinf0_PerTwinFamily = 0.0_pReal
constitutive_titanmod_twinshearconstant_PerTwinFamily = 0.0_pReal
constitutive_titanmod_twintau0e_PerTwinFamily = 0.0_pReal constitutive_titanmod_twintau0e_PerTwinFamily = 0.0_pReal
constitutive_titanmod_twintau0s_PerTwinFamily = 0.0_pReal constitutive_titanmod_twintau0s_PerTwinFamily = 0.0_pReal
constitutive_titanmod_twincapre_PerTwinFamily = 0.0_pReal constitutive_titanmod_twincapre_PerTwinFamily = 0.0_pReal
@ -722,7 +722,7 @@ do ! read thru sections of
constitutive_titanmod_qe_PerSlipFamily(3,i), constitutive_titanmod_qe_PerSlipFamily(4,i),i constitutive_titanmod_qe_PerSlipFamily(3,i), constitutive_titanmod_qe_PerSlipFamily(4,i),i
case ('twinqe') case ('twinqe')
forall (j = 1:lattice_maxNtwinFamily) & forall (j = 1:lattice_maxNtwinFamily) &
constitutive_titanmod_twinf0_PerTwinFamily(j,i) = IO_floatValue(line,positions,1+j) constitutive_titanmod_twinqe_PerTwinFamily(j,i) = IO_floatValue(line,positions,1+j)
write(6,*) tag,constitutive_titanmod_twinqe_PerTwinFamily(1,i),constitutive_titanmod_twinqe_PerTwinFamily(2,i), & write(6,*) tag,constitutive_titanmod_twinqe_PerTwinFamily(1,i),constitutive_titanmod_twinqe_PerTwinFamily(2,i), &
constitutive_titanmod_twinqe_PerTwinFamily(3,i), constitutive_titanmod_twinqe_PerTwinFamily(4,i) constitutive_titanmod_twinqe_PerTwinFamily(3,i), constitutive_titanmod_twinqe_PerTwinFamily(4,i)
case ('qs') case ('qs')
@ -735,30 +735,22 @@ do ! read thru sections of
constitutive_titanmod_twinqs_PerTwinFamily(j,i) = IO_floatValue(line,positions,1+j) constitutive_titanmod_twinqs_PerTwinFamily(j,i) = IO_floatValue(line,positions,1+j)
write(6,*) tag,constitutive_titanmod_twinqs_PerTwinFamily(1,i),constitutive_titanmod_twinqs_PerTwinFamily(2,i), & write(6,*) tag,constitutive_titanmod_twinqs_PerTwinFamily(1,i),constitutive_titanmod_twinqs_PerTwinFamily(2,i), &
constitutive_titanmod_twinqs_PerTwinFamily(3,i), constitutive_titanmod_twinqs_PerTwinFamily(4,i) constitutive_titanmod_twinqs_PerTwinFamily(3,i), constitutive_titanmod_twinqs_PerTwinFamily(4,i)
case ('rexponent') case ('twinshearconstant')
constitutive_titanmod_r(i) = IO_floatValue(line,positions,2) forall (j = 1:lattice_maxNtwinFamily) &
constitutive_titanmod_twinshearconstant_PerTwinFamily(j,i) = IO_floatValue(line,positions,1+j)
write(6,*) tag,constitutive_titanmod_twinshearconstant_PerTwinFamily(1,i), &
constitutive_titanmod_twinshearconstant_PerTwinFamily(2,i), &
constitutive_titanmod_twinshearconstant_PerTwinFamily(3,i), &
constitutive_titanmod_twinshearconstant_PerTwinFamily(4,i)
case ('dc')
constitutive_titanmod_dc(i) = IO_floatValue(line,positions,2)
write(6,*) tag write(6,*) tag
case ('d0') case ('twinhpconstant')
constitutive_titanmod_D0(i) = IO_floatValue(line,positions,2) constitutive_titanmod_twinhpconstant(i) = IO_floatValue(line,positions,2)
write(6,*) tag
case ('qsd')
constitutive_titanmod_Qsd(i) = IO_floatValue(line,positions,2)
write(6,*) tag write(6,*) tag
case ('relevantrho') case ('relevantrho')
constitutive_titanmod_relevantRho(i) = IO_floatValue(line,positions,2) constitutive_titanmod_relevantRho(i) = IO_floatValue(line,positions,2)
write(6,*) tag write(6,*) tag
case ('cmfptwin')
constitutive_titanmod_Cmfptwin(i) = IO_floatValue(line,positions,2)
write(6,*) tag
case ('cthresholdtwin')
constitutive_titanmod_Cthresholdtwin(i) = IO_floatValue(line,positions,2)
write(6,*) tag
case ('cedgedipmindistance')
constitutive_titanmod_CEdgeDipMinDistance(i) = IO_floatValue(line,positions,2)
write(6,*) tag
case ('catomicvolume')
constitutive_titanmod_CAtomicVolume(i) = IO_floatValue(line,positions,2)
write(6,*) tag
case ('interactionslipslip') case ('interactionslipslip')
forall (j = 1:lattice_maxNinteraction) & forall (j = 1:lattice_maxNinteraction) &
constitutive_titanmod_interactionSlipSlip(j,i) = IO_floatValue(line,positions,1+j) constitutive_titanmod_interactionSlipSlip(j,i) = IO_floatValue(line,positions,1+j)
@ -824,6 +816,7 @@ write(6,*) 'Material Property reading done'
if (constitutive_titanmod_burgersPerTwinFamily(f,i) <= 0.0_pReal) call IO_error(221) !*** if (constitutive_titanmod_burgersPerTwinFamily(f,i) <= 0.0_pReal) call IO_error(221) !***
if (constitutive_titanmod_Ndot0PerTwinFamily(f,i) < 0.0_pReal) call IO_error(226) !*** if (constitutive_titanmod_Ndot0PerTwinFamily(f,i) < 0.0_pReal) call IO_error(226) !***
if (constitutive_titanmod_twinf0_PerTwinFamily(f,i) <= 0.0_pReal) call IO_error(228) if (constitutive_titanmod_twinf0_PerTwinFamily(f,i) <= 0.0_pReal) call IO_error(228)
if (constitutive_titanmod_twinshearconstant_PerTwinFamily(f,i) <= 0.0_pReal) call IO_error(228)
if (constitutive_titanmod_twintau0e_PerTwinFamily(f,i) <= 0.0_pReal) call IO_error(229) if (constitutive_titanmod_twintau0e_PerTwinFamily(f,i) <= 0.0_pReal) call IO_error(229)
if (constitutive_titanmod_twintau0s_PerTwinFamily(f,i) <= 0.0_pReal) call IO_error(233) if (constitutive_titanmod_twintau0s_PerTwinFamily(f,i) <= 0.0_pReal) call IO_error(233)
if (constitutive_titanmod_twincapre_PerTwinFamily(f,i) <= 0.0_pReal) call IO_error(234) if (constitutive_titanmod_twincapre_PerTwinFamily(f,i) <= 0.0_pReal) call IO_error(234)
@ -833,9 +826,9 @@ write(6,*) 'Material Property reading done'
endif endif
enddo enddo
! if (any(constitutive_titanmod_interactionSlipSlip(1:maxval(lattice_interactionSlipSlip(:,:,myStructure)),i) < 1.0_pReal)) call IO_error(229) ! if (any(constitutive_titanmod_interactionSlipSlip(1:maxval(lattice_interactionSlipSlip(:,:,myStructure)),i) < 1.0_pReal)) call IO_error(229)
if (constitutive_titanmod_CAtomicVolume(i) <= 0.0_pReal) call IO_error(230) ! if (constitutive_titanmod_CAtomicVolume(i) <= 0.0_pReal) call IO_error(230)
if (constitutive_titanmod_D0(i) <= 0.0_pReal) call IO_error(231) if (constitutive_titanmod_dc(i) <= 0.0_pReal) call IO_error(231)
if (constitutive_titanmod_Qsd(i) <= 0.0_pReal) call IO_error(232) if (constitutive_titanmod_twinhpconstant(i) <= 0.0_pReal) call IO_error(232)
if (constitutive_titanmod_relevantRho(i) <= 0.0_pReal) call IO_error(233) if (constitutive_titanmod_relevantRho(i) <= 0.0_pReal) call IO_error(233)
!* Determine total number of active slip or twin systems !* Determine total number of active slip or twin systems
@ -868,6 +861,7 @@ allocate(constitutive_titanmod_v0s_PerSlipSystem(maxTotalNslip,maxNinstance))
allocate(constitutive_titanmod_rlengthscrew_PerSlipSystem(maxTotalNslip,maxNinstance)) allocate(constitutive_titanmod_rlengthscrew_PerSlipSystem(maxTotalNslip,maxNinstance))
allocate(constitutive_titanmod_twinf0_PerTwinSystem(maxTotalNTwin,maxNinstance)) allocate(constitutive_titanmod_twinf0_PerTwinSystem(maxTotalNTwin,maxNinstance))
allocate(constitutive_titanmod_twinshearconstant_PerTwinSystem(maxTotalNTwin,maxNinstance))
allocate(constitutive_titanmod_twintau0e_PerTwinSystem(maxTotalNTwin,maxNinstance)) allocate(constitutive_titanmod_twintau0e_PerTwinSystem(maxTotalNTwin,maxNinstance))
allocate(constitutive_titanmod_twintau0s_PerTwinSystem(maxTotalNTwin,maxNinstance)) allocate(constitutive_titanmod_twintau0s_PerTwinSystem(maxTotalNTwin,maxNinstance))
allocate(constitutive_titanmod_twincapre_PerTwinSystem(maxTotalNTwin,maxNinstance)) allocate(constitutive_titanmod_twincapre_PerTwinSystem(maxTotalNTwin,maxNinstance))
@ -903,6 +897,7 @@ constitutive_titanmod_qe_PerSlipSystem = 0.0_pReal
constitutive_titanmod_qs_PerSlipSystem = 0.0_pReal constitutive_titanmod_qs_PerSlipSystem = 0.0_pReal
constitutive_titanmod_twinf0_PerTwinSystem = 0.0_pReal constitutive_titanmod_twinf0_PerTwinSystem = 0.0_pReal
constitutive_titanmod_twinshearconstant_PerTwinSystem = 0.0_pReal
constitutive_titanmod_twintau0e_PerTwinSystem = 0.0_pReal constitutive_titanmod_twintau0e_PerTwinSystem = 0.0_pReal
constitutive_titanmod_twintau0s_PerTwinSystem = 0.0_pReal constitutive_titanmod_twintau0s_PerTwinSystem = 0.0_pReal
constitutive_titanmod_twincapre_PerTwinSystem = 0.0_pReal constitutive_titanmod_twincapre_PerTwinSystem = 0.0_pReal
@ -930,8 +925,8 @@ allocate(constitutive_titanmod_interactionMatrixTwinSlip(maxTotalNtwin,maxTotalN
allocate(constitutive_titanmod_interactionMatrixTwinTwin(maxTotalNtwin,maxTotalNtwin,maxNinstance)) allocate(constitutive_titanmod_interactionMatrixTwinTwin(maxTotalNtwin,maxTotalNtwin,maxNinstance))
allocate(constitutive_titanmod_forestProjectionEdge(maxTotalNslip,maxTotalNslip,maxNinstance)) allocate(constitutive_titanmod_forestProjectionEdge(maxTotalNslip,maxTotalNslip,maxNinstance))
allocate(constitutive_titanmod_forestProjectionScrew(maxTotalNslip,maxTotalNslip,maxNinstance)) allocate(constitutive_titanmod_forestProjectionScrew(maxTotalNslip,maxTotalNslip,maxNinstance))
allocate(constitutive_titanmod_TwinforestProjectionEdge(maxTotalNslip,maxTotalNslip,maxNinstance)) allocate(constitutive_titanmod_TwinforestProjectionEdge(maxTotalNtwin,maxTotalNtwin,maxNinstance))
allocate(constitutive_titanmod_TwinforestProjectionScrew(maxTotalNslip,maxTotalNslip,maxNinstance)) allocate(constitutive_titanmod_TwinforestProjectionScrew(maxTotalNtwin,maxTotalNtwin,maxNinstance))
constitutive_titanmod_interactionMatrixSlipSlip = 0.0_pReal constitutive_titanmod_interactionMatrixSlipSlip = 0.0_pReal
constitutive_titanmod_interactionMatrix_ee = 0.0_pReal constitutive_titanmod_interactionMatrix_ee = 0.0_pReal
constitutive_titanmod_interactionMatrix_ss = 0.0_pReal constitutive_titanmod_interactionMatrix_ss = 0.0_pReal
@ -953,7 +948,7 @@ write(6,*) 'Allocated slip system variables'
do i = 1,maxNinstance do i = 1,maxNinstance
myStructure = constitutive_titanmod_structure(i) myStructure = constitutive_titanmod_structure(i)
!* Inverse lookup of my slip system family !* Inverse lookup of slip system family
l = 0_pInt l = 0_pInt
do f = 1,lattice_maxNslipFamily do f = 1,lattice_maxNslipFamily
do k = 1,constitutive_titanmod_Nslip(f,i) do k = 1,constitutive_titanmod_Nslip(f,i)
@ -962,7 +957,7 @@ do i = 1,maxNinstance
constitutive_titanmod_slipSystemLattice(l,i) = sum(lattice_NslipSystem(1:f-1,myStructure)) + k constitutive_titanmod_slipSystemLattice(l,i) = sum(lattice_NslipSystem(1:f-1,myStructure)) + k
enddo; enddo enddo; enddo
!* Inverse lookup of my twin system family !* Inverse lookup of twin system family
l = 0_pInt l = 0_pInt
do f = 1,lattice_maxNtwinFamily do f = 1,lattice_maxNtwinFamily
do k = 1,constitutive_titanmod_Ntwin(f,i) do k = 1,constitutive_titanmod_Ntwin(f,i)
@ -985,29 +980,29 @@ do i = 1,maxNinstance
select case(constitutive_titanmod_output(o,i)) select case(constitutive_titanmod_output(o,i))
case('rhoedge', & case('rhoedge', &
'rhoscrew', & 'rhoscrew', &
'velocity_edge', &
'velocity_screw', &
'segment_edge', & 'segment_edge', &
'segment_screw', & 'segment_screw', &
'resistance_edge', & 'resistance_edge', &
'resistance_screw', & 'resistance_screw', &
'rss_slip', & 'tau_slip', &
'gamma_dot', & 'gdot_slip', &
'dgdotdtau', & 'velocity_edge', &
'edge_generation',& 'velocity_screw', &
'screw_generation', & 'total_density' &
'edge_annihilation', &
'screw_annihilation', &
'total_generation', &
'total_annihilation', &
'total_density', &
'stressratio_edgep', &
'stressratio_screwp', &
'rlengthprefactor' &
) )
mySize = constitutive_titanmod_totalNslip(i) mySize = constitutive_titanmod_totalNslip(i)
case('twin_fraction', & case('twinrhoedge', &
'twingamma_dot' & 'twinrhoscrew', &
'twin_fraction', &
'gdot_twin', &
'tau_twin', &
'twinsegment_edge', &
'twinsegment_screw', &
'twinresistance_edge', &
'twinresistance_screw', &
'twinvelocity_edge', &
'twinvelocity_screw', &
'twintotal_density' &
) )
mySize = constitutive_titanmod_totalNtwin(i) mySize = constitutive_titanmod_totalNtwin(i)
case default case default
@ -1066,7 +1061,7 @@ write(6,*) 'Determining elasticity matrix'
enddo enddo
enddo enddo
!* Burgers vector, dislocation velocity prefactor, mean free path prefactor and minimum dipole distance for each slip system !* Burgers vector, dislocation velocity prefactor for each slip system
do s = 1,constitutive_titanmod_totalNslip(i) do s = 1,constitutive_titanmod_totalNslip(i)
f = constitutive_titanmod_slipFamily(s,i) f = constitutive_titanmod_slipFamily(s,i)
constitutive_titanmod_burgersPerSlipSystem(s,i) = constitutive_titanmod_burgersPerSlipFamily(f,i) constitutive_titanmod_burgersPerSlipSystem(s,i) = constitutive_titanmod_burgersPerSlipFamily(f,i)
@ -1094,6 +1089,7 @@ write(6,*) 'Determining elasticity matrix'
constitutive_titanmod_twinsizePerTwinSystem(s,i) = constitutive_titanmod_twinsizePerTwinFamily(f,i) constitutive_titanmod_twinsizePerTwinSystem(s,i) = constitutive_titanmod_twinsizePerTwinFamily(f,i)
constitutive_titanmod_twinf0_PerTwinSystem(s,i) = constitutive_titanmod_twinf0_PerTwinFamily(f,i) constitutive_titanmod_twinf0_PerTwinSystem(s,i) = constitutive_titanmod_twinf0_PerTwinFamily(f,i)
constitutive_titanmod_twinshearconstant_PerTwinSystem(s,i) = constitutive_titanmod_twinshearconstant_PerTwinFamily(f,i)
constitutive_titanmod_twintau0e_PerTwinSystem(s,i) = constitutive_titanmod_twintau0e_PerTwinFamily(f,i) constitutive_titanmod_twintau0e_PerTwinSystem(s,i) = constitutive_titanmod_twintau0e_PerTwinFamily(f,i)
constitutive_titanmod_twintau0s_PerTwinSystem(s,i) = constitutive_titanmod_twintau0s_PerTwinFamily(f,i) constitutive_titanmod_twintau0s_PerTwinSystem(s,i) = constitutive_titanmod_twintau0s_PerTwinFamily(f,i)
constitutive_titanmod_twincapre_PerTwinSystem(s,i) = constitutive_titanmod_twincapre_PerTwinFamily(f,i) constitutive_titanmod_twincapre_PerTwinSystem(s,i) = constitutive_titanmod_twincapre_PerTwinFamily(f,i)
@ -1232,7 +1228,8 @@ real(pReal), dimension(constitutive_titanmod_totalNtwin(myInstance)) :: twinrho
twinsegment_edge0, & twinsegment_edge0, &
twinsegment_screw0, & twinsegment_screw0, &
twinresistance_edge0, & twinresistance_edge0, &
twinresistance_screw0 twinresistance_screw0, &
twingamma_dot0
ns = constitutive_titanmod_totalNslip(myInstance) ns = constitutive_titanmod_totalNslip(myInstance)
nt = constitutive_titanmod_totalNtwin(myInstance) nt = constitutive_titanmod_totalNtwin(myInstance)
@ -1259,6 +1256,7 @@ do tf = 1,lattice_maxNtwinFamily
do ts = ts0,ts1 do ts = ts0,ts1
twinrho_edge0(ts) = constitutive_titanmod_twinrho_edge0(tf,myInstance) twinrho_edge0(ts) = constitutive_titanmod_twinrho_edge0(tf,myInstance)
twinrho_screw0(ts) = constitutive_titanmod_twinrho_screw0(tf,myInstance) twinrho_screw0(ts) = constitutive_titanmod_twinrho_screw0(tf,myInstance)
twingamma_dot0(ts)=0.0_pReal
enddo enddo
enddo enddo
@ -1266,46 +1264,47 @@ constitutive_titanmod_stateInit(1:ns) = rho_edge0
constitutive_titanmod_stateInit(ns+1:2*ns) = rho_screw0 constitutive_titanmod_stateInit(ns+1:2*ns) = rho_screw0
constitutive_titanmod_stateInit(2*ns+1:2*ns+nt) = twinrho_edge0 constitutive_titanmod_stateInit(2*ns+1:2*ns+nt) = twinrho_edge0
constitutive_titanmod_stateInit(2*ns+nt+1:2*ns+2*nt) = twinrho_screw0 constitutive_titanmod_stateInit(2*ns+nt+1:2*ns+2*nt) = twinrho_screw0
constitutive_titanmod_stateInit(2*ns+2*nt+1:2*ns+3*nt)=twingamma_dot0
!* Initialize dependent slip microstructural variables !* Initialize dependent slip microstructural variables
forall (s = 1:ns) & forall (s = 1:ns) &
segment_edge0(s) = constitutive_titanmod_CeLambdaSlipPerSlipSystem(s,myInstance)/ & segment_edge0(s) = constitutive_titanmod_CeLambdaSlipPerSlipSystem(s,myInstance)/ &
sqrt(dot_product((rho_edge0+rho_screw0),constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance))) sqrt(dot_product((rho_edge0+rho_screw0),constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance)))
constitutive_titanmod_stateInit(2*ns+2*nt+1:3*ns+2*nt) = segment_edge0 constitutive_titanmod_stateInit(2*ns+2*nt+1:3*ns+3*nt) = segment_edge0
forall (s = 1:ns) & forall (s = 1:ns) &
segment_screw0(s) = constitutive_titanmod_CsLambdaSlipPerSlipSystem(s,myInstance)/ & segment_screw0(s) = constitutive_titanmod_CsLambdaSlipPerSlipSystem(s,myInstance)/ &
sqrt(dot_product((rho_edge0+rho_screw0),constitutive_titanmod_forestProjectionScrew(1:ns,s,myInstance))) sqrt(dot_product((rho_edge0+rho_screw0),constitutive_titanmod_forestProjectionScrew(1:ns,s,myInstance)))
constitutive_titanmod_stateInit(3*ns+2*nt+1:4*ns+2*nt) = segment_screw0 constitutive_titanmod_stateInit(3*ns+2*nt+1:4*ns+3*nt) = segment_screw0
forall (s = 1:ns) & forall (s = 1:ns) &
resistance_edge0(s) = & resistance_edge0(s) = &
constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerSlipSystem(s,myInstance)* & constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerSlipSystem(s,myInstance)* &
sqrt(dot_product((rho_edge0),constitutive_titanmod_interactionMatrix_ee(1:ns,s,myInstance))+dot_product((rho_screw0), & sqrt(dot_product((rho_edge0),constitutive_titanmod_interactionMatrix_ee(1:ns,s,myInstance))+dot_product((rho_screw0), &
constitutive_titanmod_interactionMatrix_es(1:ns,s,myInstance))) constitutive_titanmod_interactionMatrix_es(1:ns,s,myInstance)))
constitutive_titanmod_stateInit(4*ns+2*nt+1:5*ns+2*nt) = resistance_edge0 constitutive_titanmod_stateInit(4*ns+2*nt+1:5*ns+3*nt) = resistance_edge0
forall (s = 1:ns) & forall (s = 1:ns) &
resistance_screw0(s) = & resistance_screw0(s) = &
constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerSlipSystem(s,myInstance)* & constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerSlipSystem(s,myInstance)* &
sqrt(dot_product((rho_edge0),constitutive_titanmod_interactionMatrix_es(1:ns,s,myInstance))+dot_product((rho_screw0), & sqrt(dot_product((rho_edge0),constitutive_titanmod_interactionMatrix_es(1:ns,s,myInstance))+dot_product((rho_screw0), &
constitutive_titanmod_interactionMatrix_ss(1:ns,s,myInstance))) constitutive_titanmod_interactionMatrix_ss(1:ns,s,myInstance)))
constitutive_titanmod_stateInit(5*ns+2*nt+1:6*ns+2*nt) = resistance_screw0 constitutive_titanmod_stateInit(5*ns+2*nt+1:6*ns+3*nt) = resistance_screw0
!* Initialize dependent twin microstructural variables !* Initialize dependent twin microstructural variables
forall (t = 1:nt) & forall (t = 1:nt) &
twinsegment_edge0(t) = constitutive_titanmod_twinCeLambdaSlipPertwinSystem(t,myInstance)/ & twinsegment_edge0(t) = constitutive_titanmod_twinCeLambdaSlipPertwinSystem(t,myInstance)/ &
sqrt(dot_product((twinrho_edge0+twinrho_screw0),constitutive_titanmod_twinforestProjectionEdge(1:nt,t,myInstance))) sqrt(dot_product((twinrho_edge0+twinrho_screw0),constitutive_titanmod_twinforestProjectionEdge(1:nt,t,myInstance)))
constitutive_titanmod_stateInit(6*ns+2*nt+1:6*ns+3*nt) = twinsegment_edge0 constitutive_titanmod_stateInit(6*ns+2*nt+1:6*ns+4*nt) = twinsegment_edge0
forall (t = 1:nt) & forall (t = 1:nt) &
twinsegment_screw0(t) = constitutive_titanmod_twinCsLambdaSlipPertwinSystem(t,myInstance)/ & twinsegment_screw0(t) = constitutive_titanmod_twinCsLambdaSlipPertwinSystem(t,myInstance)/ &
sqrt(dot_product((twinrho_edge0+twinrho_screw0),constitutive_titanmod_twinforestProjectionScrew(1:nt,t,myInstance))) sqrt(dot_product((twinrho_edge0+twinrho_screw0),constitutive_titanmod_twinforestProjectionScrew(1:nt,t,myInstance)))
constitutive_titanmod_stateInit(6*ns+3*nt+1:6*ns+4*nt) = twinsegment_edge0 constitutive_titanmod_stateInit(6*ns+3*nt+1:6*ns+5*nt) = twinsegment_edge0
forall (t = 1:nt) & forall (t = 1:nt) &
twinresistance_edge0(t) = & twinresistance_edge0(t) = &
@ -1313,15 +1312,15 @@ constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerTwinSyste
sqrt(dot_product((twinrho_edge0),constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance))+ & sqrt(dot_product((twinrho_edge0),constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance))+ &
dot_product((twinrho_screw0),constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance))) dot_product((twinrho_screw0),constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance)))
constitutive_titanmod_stateInit(6*ns+4*nt+1:6*ns+5*nt) = twinresistance_edge0 constitutive_titanmod_stateInit(6*ns+4*nt+1:6*ns+6*nt) = twinresistance_edge0
forall (t = 1:nt) & forall (t = 1:nt) &
twinresistance_edge0(t) = & twinresistance_screw0(t) = &
constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerTwinSystem(t,myInstance)* & constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerTwinSystem(t,myInstance)* &
sqrt(dot_product((twinrho_edge0),constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance))+ & sqrt(dot_product((twinrho_edge0),constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance))+ &
dot_product((twinrho_screw0),constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance))) dot_product((twinrho_screw0),constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance)))
constitutive_titanmod_stateInit(6*ns+5*nt+1:6*ns+6*nt) = twinresistance_edge0 constitutive_titanmod_stateInit(6*ns+5*nt+1:6*ns+7*nt) = twinresistance_screw0
!forall (t = 1:nt) & !forall (t = 1:nt) &
!MeanFreePathTwin0(t) = constitutive_titanmod_GrainSize(myInstance) !MeanFreePathTwin0(t) = constitutive_titanmod_GrainSize(myInstance)
@ -1378,6 +1377,8 @@ implicit none
integer(pInt), intent(in) :: g,ip,el integer(pInt), intent(in) :: g,ip,el
type(p_vec), dimension(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: state type(p_vec), dimension(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: state
real(pReal), dimension(6,6) :: constitutive_titanmod_homogenizedC real(pReal), dimension(6,6) :: constitutive_titanmod_homogenizedC
real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_constitutionInstance(material_phase(g,ip,el)))) :: &
volumefraction_pertwinsystem
!* Local variables !* Local variables
integer(pInt) myInstance,ns,nt,i integer(pInt) myInstance,ns,nt,i
real(pReal) sumf real(pReal) sumf
@ -1388,13 +1389,20 @@ ns = constitutive_titanmod_totalNslip(myInstance)
nt = constitutive_titanmod_totalNtwin(myInstance) nt = constitutive_titanmod_totalNtwin(myInstance)
!* Total twin volume fraction !* Total twin volume fraction
sumf = sum(state(g,ip,el)%p((6*ns+6*nt+1):(6*ns+7*nt))) ! safe for nt == 0 do i=1,nt
volumefraction_pertwinsystem(i)=state(g,ip,el)%p(2*ns+2*nt+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance)
enddo
!sumf = sum(state(g,ip,el)%p((6*ns+7*nt+1):(6*ns+8*nt))) ! safe for nt == 0
sumf = sum(abs(volumefraction_pertwinsystem(1:nt))) ! safe for nt == 0
!* Homogenized elasticity matrix !* Homogenized elasticity matrix
constitutive_titanmod_homogenizedC = (1.0_pReal-sumf)*constitutive_titanmod_Cslip_66(:,:,myInstance) constitutive_titanmod_homogenizedC = (1.0_pReal-sumf)*constitutive_titanmod_Cslip_66(:,:,myInstance)
do i=1,nt do i=1,nt
constitutive_titanmod_homogenizedC = & constitutive_titanmod_homogenizedC = &
constitutive_titanmod_homogenizedC + state(g,ip,el)%p(6*ns+6*nt+i)*constitutive_titanmod_Ctwin_66(:,:,i,myInstance) ! constitutive_titanmod_homogenizedC + state(g,ip,el)%p(6*ns+7*nt+i)*constitutive_titanmod_Ctwin_66(:,:,i,myInstance)
constitutive_titanmod_homogenizedC + volumefraction_pertwinsystem(i)*constitutive_titanmod_Ctwin_66(:,:,i,myInstance)
enddo enddo
return return
@ -1425,7 +1433,8 @@ type(p_vec), dimension(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), in
!* Local variables !* Local variables
integer(pInt) myInstance,myStructure,ns,nt,s,t,i integer(pInt) myInstance,myStructure,ns,nt,s,t,i
real(pReal) sumf,sfe real(pReal) sumf,sfe
real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_constitutionInstance(material_phase(g,ip,el)))) :: fOverStacksize real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_constitutionInstance(material_phase(g,ip,el)))) :: &
fOverStacksize, volumefraction_pertwinsystem
!* Shortened notation !* Shortened notation
myInstance = phase_constitutionInstance(material_phase(g,ip,el)) myInstance = phase_constitutionInstance(material_phase(g,ip,el))
@ -1447,7 +1456,15 @@ nt = constitutive_titanmod_totalNtwin(myInstance)
!* State: 6*ns+4*nt+1 : 6*ns+5*nt twin volume !* State: 6*ns+4*nt+1 : 6*ns+5*nt twin volume
!* Total twin volume fraction !* Total twin volume fraction
sumf = sum(state(g,ip,el)%p((6*ns+6*nt+1):(6*ns+7*nt))) ! safe for nt == 0 do i=1,nt
volumefraction_pertwinsystem(i)=state(g,ip,el)%p(2*ns+2*nt+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance)
enddo
!sumf = sum(state(g,ip,el)%p((6*ns+7*nt+1):(6*ns+8*nt))) ! safe for nt == 0
sumf = sum(abs(volumefraction_pertwinsystem(1:nt))) ! safe for nt == 0
!* Stacking fault energy !* Stacking fault energy
sfe = 0.0002_pReal*Temperature-0.0396_pReal sfe = 0.0002_pReal*Temperature-0.0396_pReal
@ -1459,14 +1476,14 @@ sfe = 0.0002_pReal*Temperature-0.0396_pReal
! average segment length for edge dislocations in matrix ! average segment length for edge dislocations in matrix
forall (s = 1:ns) & forall (s = 1:ns) &
state(g,ip,el)%p(2*ns+2*nt+s) = constitutive_titanmod_CeLambdaSlipPerSlipSystem(s,myInstance)/ & state(g,ip,el)%p(2*ns+3*nt+s) = constitutive_titanmod_CeLambdaSlipPerSlipSystem(s,myInstance)/ &
sqrt(dot_product((state(g,ip,el)%p(1:ns)+state(g,ip,el)%p(ns:2*ns)), & sqrt(dot_product((state(g,ip,el)%p(1:ns)+state(g,ip,el)%p(ns+1:2*ns)), &
constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance))) constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance)))
! average segment length for edge dislocations in matrix ! average segment length for edge dislocations in matrix
forall (s = 1:ns) & forall (s = 1:ns) &
state(g,ip,el)%p(3*ns+2*nt+s) = constitutive_titanmod_CeLambdaSlipPerSlipSystem(s,myInstance)/ & state(g,ip,el)%p(3*ns+3*nt+s) = constitutive_titanmod_CeLambdaSlipPerSlipSystem(s,myInstance)/ &
sqrt(dot_product((state(g,ip,el)%p(1:ns)+state(g,ip,el)%p(ns:2*ns)), & sqrt(dot_product((state(g,ip,el)%p(1:ns)+state(g,ip,el)%p(ns+1:2*ns)), &
constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance))) constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance)))
!* Average segment length for screw dislocations in matrix !* Average segment length for screw dislocations in matrix
@ -1486,7 +1503,7 @@ forall (s = 1:ns) &
!* threshold stress or slip resistance for edge dislocation motion !* threshold stress or slip resistance for edge dislocation motion
forall (s = 1:ns) & forall (s = 1:ns) &
state(g,ip,el)%p(5*ns+3*nt+s) = & state(g,ip,el)%p(4*ns+3*nt+s) = &
constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerSlipSystem(s,myInstance)*& constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerSlipSystem(s,myInstance)*&
sqrt(dot_product((state(g,ip,el)%p(1:ns)),& sqrt(dot_product((state(g,ip,el)%p(1:ns)),&
constitutive_titanmod_interactionMatrix_ee(1:ns,s,myInstance))+ & constitutive_titanmod_interactionMatrix_ee(1:ns,s,myInstance))+ &
@ -1495,7 +1512,7 @@ forall (s = 1:ns) &
!* threshold stress or slip resistance for screw dislocation motion !* threshold stress or slip resistance for screw dislocation motion
forall (s = 1:ns) & forall (s = 1:ns) &
state(g,ip,el)%p(6*ns+3*nt+s) = & state(g,ip,el)%p(5*ns+3*nt+s) = &
constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerSlipSystem(s,myInstance)*& constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerSlipSystem(s,myInstance)*&
sqrt(dot_product((state(g,ip,el)%p(1:ns)),& sqrt(dot_product((state(g,ip,el)%p(1:ns)),&
constitutive_titanmod_interactionMatrix_es(1:ns,s,myInstance))+ & constitutive_titanmod_interactionMatrix_es(1:ns,s,myInstance))+ &
@ -1504,26 +1521,17 @@ forall (s = 1:ns) &
! average segment length for edge dislocations in twin ! average segment length for edge dislocations in twin
forall (t = 1:nt) & forall (t = 1:nt) &
state(g,ip,el)%p(6*ns+2*nt+t) = constitutive_titanmod_twinCeLambdaSlipPerTwinSystem(t,myInstance)/ & state(g,ip,el)%p(6*ns+3*nt+t) = constitutive_titanmod_twinCeLambdaSlipPerTwinSystem(t,myInstance)/ &
sqrt(dot_product((state(g,ip,el)%p(2*ns+1:2*ns+nt)+state(g,ip,el)%p(2*ns+nt+1:2*ns+2*nt)), & sqrt(dot_product((state(g,ip,el)%p(2*ns+1:2*ns+nt)+state(g,ip,el)%p(2*ns+nt+1:2*ns+2*nt)), &
constitutive_titanmod_twinforestProjectionEdge(1:nt,t,myInstance))) constitutive_titanmod_twinforestProjectionEdge(1:nt,t,myInstance)))
! average segment length for edge dislocations in twin ! average segment length for screw dislocations in twin
forall (t = 1:nt) & forall (t = 1:nt) &
state(g,ip,el)%p(6*ns+3*nt+t) = constitutive_titanmod_twinCeLambdaSlipPerTwinSystem(t,myInstance)/ & state(g,ip,el)%p(6*ns+4*nt+t) = constitutive_titanmod_twinCeLambdaSlipPerTwinSystem(t,myInstance)/ &
sqrt(dot_product((state(g,ip,el)%p(2*ns+1:2*ns+nt)+state(g,ip,el)%p(2*ns+nt+1:2*ns+2*nt)), & sqrt(dot_product((state(g,ip,el)%p(2*ns+1:2*ns+nt)+state(g,ip,el)%p(2*ns+nt+1:2*ns+2*nt)), &
constitutive_titanmod_twinforestProjectionScrew(1:nt,t,myInstance))) constitutive_titanmod_twinforestProjectionScrew(1:nt,t,myInstance)))
!* threshold stress or slip resistance for edge dislocation motion in twin !* threshold stress or slip resistance for edge dislocation motion in twin
forall (t = 1:nt) &
state(g,ip,el)%p(6*ns+4*nt+t) = &
constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerTwinSystem(t,myInstance)*&
sqrt(dot_product((state(g,ip,el)%p(2*ns+1:2*ns+nt)),&
constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance))+ &
dot_product((state(g,ip,el)%p(2*ns+nt+1:2*ns+2*nt)),&
constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance)))
!* threshold stress or slip resistance for screw dislocation motion in twin
forall (t = 1:nt) & forall (t = 1:nt) &
state(g,ip,el)%p(6*ns+5*nt+t) = & state(g,ip,el)%p(6*ns+5*nt+t) = &
constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerTwinSystem(t,myInstance)*& constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerTwinSystem(t,myInstance)*&
@ -1532,59 +1540,15 @@ forall (t = 1:nt) &
dot_product((state(g,ip,el)%p(2*ns+nt+1:2*ns+2*nt)),& dot_product((state(g,ip,el)%p(2*ns+nt+1:2*ns+2*nt)),&
constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance))) constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance)))
!* 1/mean free distance between 2 twin stacks from different systems seen by a moving dislocation !* threshold stress or slip resistance for screw dislocation motion in twin
!$OMP CRITICAL (evilmatmul) forall (t = 1:nt) &
!state(g,ip,el)%p((3*ns+nt+1):(4*ns+nt)) = 0.0_pReal state(g,ip,el)%p(6*ns+6*nt+t) = &
!if (nt > 0_pInt) & constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerTwinSystem(t,myInstance)*&
! state(g,ip,el)%p((3*ns+nt+1):(4*ns+nt)) = & sqrt(dot_product((state(g,ip,el)%p(2*ns+1:2*ns+nt)),&
! matmul(constitutive_titanmod_interactionMatrixSlipTwin(1:ns,1:nt,myInstance),fOverStacksize(1:nt))/(1.0_pReal-sumf) constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance))+ &
!$OMP END CRITICAL (evilmatmul) dot_product((state(g,ip,el)%p(2*ns+nt+1:2*ns+2*nt)),&
constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance)))
!* 1/mean free distance between 2 twin stacks from different systems seen by a growing twin
!$OMP CRITICAL (evilmatmul)
!if (nt > 0_pInt) &
! state(g,ip,el)%p((4*ns+nt+1):(4*ns+2*nt)) = &
! matmul(constitutive_titanmod_interactionMatrixTwinTwin(1:nt,1:nt,myInstance),fOverStacksize(1:nt))/(1.0_pReal-sumf)
!$OMP END CRITICAL (evilmatmul)
!* mean free path between 2 obstacles seen by a growing twin
!forall (t = 1:nt) &
! state(g,ip,el)%p(5*ns+2*nt+t) = &
! (constitutive_titanmod_Cmfptwin(myInstance)*constitutive_titanmod_GrainSize(myInstance))/&
! (1.0_pReal+constitutive_titanmod_GrainSize(myInstance)*state(g,ip,el)%p(4*ns+nt+t))
!* threshold stress for growing twin
! Hall-patch stress for a growing twin
! Need to add it. Need to determine sin alpha
! threshold stress for dislocation activity in twin
!No difference in edge and screw activity in twin volume. Therefore only one slip resistance is sufficient
!forall (t = 1:nt) &
! state(g,ip,el)%p(6*ns+3*nt+t) = &
! constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerTwinSystem(t,myInstance)*&
! sqrt(dot_product((state(g,ip,el)%p(1:ns)+state(g,ip,el)%p(ns:2*ns)),&
! constitutive_titanmod_interactionMatrixTwinTwin(1:ns,t,myInstance)))
!forall (t = 1:nt) &
! state(g,ip,el)%p(6*ns+3*nt+t) = &
! constitutive_titanmod_Cthresholdtwin(myInstance)*&
! (sfe/(3.0_pReal*constitutive_titanmod_burgersPerTwinSystem(t,myInstance))+&
! 3.0_pReal*constitutive_titanmod_burgersPerTwinSystem(t,myInstance)*constitutive_titanmod_Gmod(myInstance)/&
! state(g,ip,el)%p(5*ns+2*nt+t))
!* final twin volume after growth
!forall (t = 1:nt) &
! state(g,ip,el)%p(6*ns+4*nt+t) = &
! (pi/6.0_pReal)*constitutive_titanmod_twinsizePerTwinSystem(t,myInstance)*state(g,ip,el)%p(5*ns+2*nt+t)**(2.0_pReal)
!if ((ip==1).and.(el==1)) then
! write(6,*) '#MICROSTRUCTURE#'
! write(6,*)
! write(6,'(a,/,4(3(f10.4,x)/))') 'rho_edge',state(g,ip,el)%p(1:ns)/1e9
! write(6,'(a,/,4(3(f10.4,x)/))') 'rho_screw',state(g,ip,el)%p(ns+1:2*ns)/1e9
! write(6,'(a,/,4(3(f10.4,x)/))') 'Fraction',state(g,ip,el)%p(2*ns+1:2*ns+nt)
!endif
return return
end subroutine end subroutine
@ -1630,7 +1594,7 @@ real(pReal), dimension(3,3,3,3) :: dLp_dTstar3333
real(pReal), dimension(constitutive_titanmod_totalNslip(phase_constitutionInstance(material_phase(g,ip,el)))) :: & real(pReal), dimension(constitutive_titanmod_totalNslip(phase_constitutionInstance(material_phase(g,ip,el)))) :: &
gdot_slip,dgdot_dtauslip,tau_slip, edge_velocity, screw_velocity gdot_slip,dgdot_dtauslip,tau_slip, edge_velocity, screw_velocity
real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_constitutionInstance(material_phase(g,ip,el)))) :: & real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_constitutionInstance(material_phase(g,ip,el)))) :: &
gdot_twin,dgdot_dtautwin,tau_twin, twinedge_velocity, twinscrew_velocity gdot_twin,dgdot_dtautwin,tau_twin, twinedge_velocity, twinscrew_velocity,volumefraction_pertwinsystem
!* Shortened notation !* Shortened notation
myInstance = phase_constitutionInstance(material_phase(g,ip,el)) myInstance = phase_constitutionInstance(material_phase(g,ip,el))
@ -1638,8 +1602,16 @@ myStructure = constitutive_titanmod_structure(myInstance)
ns = constitutive_titanmod_totalNslip(myInstance) ns = constitutive_titanmod_totalNslip(myInstance)
nt = constitutive_titanmod_totalNtwin(myInstance) nt = constitutive_titanmod_totalNtwin(myInstance)
!* Total twin volume fraction do i=1,nt
sumf = sum(state(g,ip,el)%p((6*ns+6*nt+1):(6*ns+7*nt))) ! safe for nt == 0 volumefraction_pertwinsystem(i)=state(g,ip,el)%p(2*ns+2*nt+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance)
enddo
!sumf = sum(state(g,ip,el)%p((6*ns+7*nt+1):(6*ns+8*nt))) ! safe for nt == 0
sumf = sum(abs(volumefraction_pertwinsystem(1:nt))) ! safe for nt == 0
Lp = 0.0_pReal Lp = 0.0_pReal
dLp_dTstar3333 = 0.0_pReal dLp_dTstar3333 = 0.0_pReal
@ -1657,44 +1629,29 @@ do f = 1,lattice_maxNslipFamily ! loop over all
!* Calculation of Lp !* Calculation of Lp
!* Resolved shear stress on slip system !* Resolved shear stress on slip system
tau_slip(j) = dot_product(Tstar_v,lattice_Sslip_v(:,index_myFamily+i,myStructure)) tau_slip(j) = dot_product(Tstar_v,lattice_Sslip_v(:,index_myFamily+i,myStructure))
state(g,ip,el)%p(9*ns+3*nt+j)=tau_slip(j) ! state(g,ip,el)%p(9*ns+3*nt+j)=tau_slip(j)
!************************************************* !*************************************************
!* Stress ratio for edge
! if((abs(tau_slip(j))-state(g,ip,el)%p(5*ns+3*nt+j))>0.0_pReal) then
! StressRatio_edge_p = ((abs(tau_slip(j))-state(g,ip,el)%p(5*ns+3*nt+j))/ &
! constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance))**constitutive_titanmod_pe_PerSlipSystem(j,myInstance)
! else
! StressRatio_edge_p=0.0_pReal
! endif
!* Stress ratio for screw
! if((abs(tau_slip(j))-state(g,ip,el)%p(6*ns+3*nt+j))>0.0_pReal) then
! StressRatio_screw_p = ((abs(tau_slip(j))-state(g,ip,el)%p(6*ns+3*nt+j))/ &
! constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance))**constitutive_titanmod_ps_PerSlipSystem(j,myInstance)
! else
! StressRatio_screw_p=0.0_pReal
! endif
if(myStructure==3.and.j>3) then ! only for hex and for all the non-basal slip systems if(myStructure==3.and.j>3) then ! only for hex and for all the non-basal slip systems
screwvelocity_kink_prefactor=state(g,ip,el)%p(3*ns+2*nt+j)/constitutive_titanmod_rlengthscrew_PerSlipSystem(j,myInstance) screwvelocity_kink_prefactor=state(g,ip,el)%p(3*ns+3*nt+j)/constitutive_titanmod_rlengthscrew_PerSlipSystem(j,myInstance)
else else
screwvelocity_kink_prefactor=1.0_pReal screwvelocity_kink_prefactor=1.0_pReal
endif endif
state(g,ip,el)%p(14*ns+3*nt+j)=screwvelocity_kink_prefactor ! state(g,ip,el)%p(14*ns+3*nt+j)=screwvelocity_kink_prefactor
!* Stress ratio for edge !* Stress ratio for edge
StressRatio_edge_p = ((abs(tau_slip(j)))/ & StressRatio_edge_p = ((abs(tau_slip(j)))/ &
( constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(4*ns+2*nt+j)) & ( constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(4*ns+3*nt+j)) &
)**constitutive_titanmod_pe_PerSlipSystem(j,myInstance) )**constitutive_titanmod_pe_PerSlipSystem(j,myInstance)
!* Stress ratio for screw !* Stress ratio for screw
StressRatio_screw_p = ((abs(tau_slip(j)))/ & StressRatio_screw_p = ((abs(tau_slip(j)))/ &
( constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(5*ns+2*nt+j)) & ( constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(5*ns+3*nt+j)) &
)**constitutive_titanmod_ps_PerSlipSystem(j,myInstance) )**constitutive_titanmod_ps_PerSlipSystem(j,myInstance)
state(g,ip,el)%p(10*ns+3*nt+j)=StressRatio_edge_p ! state(g,ip,el)%p(10*ns+3*nt+j)=StressRatio_edge_p
state(g,ip,el)%p(11*ns+3*nt+j)=StressRatio_screw_p ! state(g,ip,el)%p(11*ns+3*nt+j)=StressRatio_screw_p
if((1.0_pReal-StressRatio_edge_p)>0.001_pReal) then if((1.0_pReal-StressRatio_edge_p)>0.001_pReal) then
minusStressRatio_edge_p=1.0_pReal-StressRatio_edge_p minusStressRatio_edge_p=1.0_pReal-StressRatio_edge_p
@ -1708,28 +1665,12 @@ do f = 1,lattice_maxNslipFamily ! loop over all
minusStressRatio_screw_p=0.001_pReal minusStressRatio_screw_p=0.001_pReal
endif endif
! !* Stress ratio for edge p minus1
! if((abs(tau_slip(j))-state(g,ip,el)%p(5*ns+3*nt+j))>0.0_pReal) then
! StressRatio_edge_pminus1 = ((abs(tau_slip(j))-state(g,ip,el)%p(5*ns+3*nt+j))/ &
! constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance))**(constitutive_titanmod_pe_PerSlipSystem(j,myInstance)-1)
! else
! StressRatio_edge_pminus1=0.0_pReal
! endif
! !* Stress ratio for screw p minus1
! if((abs(tau_slip(j))-state(g,ip,el)%p(6*ns+3*nt+j))>0.0_pReal) then
! StressRatio_screw_pminus1 = ((abs(tau_slip(j))-state(g,ip,el)%p(6*ns+3*nt+j))/ &
! constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance))**(constitutive_titanmod_ps_PerSlipSystem(j,myInstance)-1)
! else
! StressRatio_screw_pminus1=0.0_pReal
! endif
StressRatio_edge_pminus1 = ((abs(tau_slip(j)))/ & StressRatio_edge_pminus1 = ((abs(tau_slip(j)))/ &
( constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(5*ns+3*nt+j)) & ( constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(4*ns+3*nt+j)) &
)**(constitutive_titanmod_pe_PerSlipSystem(j,myInstance)-1.0_pReal) )**(constitutive_titanmod_pe_PerSlipSystem(j,myInstance)-1.0_pReal)
StressRatio_screw_pminus1 = ((abs(tau_slip(j)))/ & StressRatio_screw_pminus1 = ((abs(tau_slip(j)))/ &
( constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(6*ns+3*nt+j)) & ( constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(5*ns+3*nt+j)) &
)**(constitutive_titanmod_ps_PerSlipSystem(j,myInstance)-1.0_pReal) )**(constitutive_titanmod_ps_PerSlipSystem(j,myInstance)-1.0_pReal)
!* Boltzmann ratio !* Boltzmann ratio
@ -1739,7 +1680,7 @@ do f = 1,lattice_maxNslipFamily ! loop over all
DotGamma0 = & DotGamma0 = &
constitutive_titanmod_burgersPerSlipSystem(j,myInstance)*(state(g,ip,el)%p(j)*& constitutive_titanmod_burgersPerSlipSystem(j,myInstance)*(state(g,ip,el)%p(j)*&
+ constitutive_titanmod_v0e_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(ns+j)* & + constitutive_titanmod_v0e_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(ns+j)* &
constitutive_titanmod_v0e_PerSlipSystem(j,myInstance)) constitutive_titanmod_v0s_PerSlipSystem(j,myInstance))
edge_velocity(j) =constitutive_titanmod_v0e_PerSlipSystem(j,myInstance)*exp(-BoltzmannRatio* & edge_velocity(j) =constitutive_titanmod_v0e_PerSlipSystem(j,myInstance)*exp(-BoltzmannRatio* &
(minusStressRatio_edge_p)** & (minusStressRatio_edge_p)** &
@ -1753,12 +1694,6 @@ do f = 1,lattice_maxNslipFamily ! loop over all
gdot_slip(j) = constitutive_titanmod_burgersPerSlipSystem(j,myInstance)*(state(g,ip,el)%p(j)* & gdot_slip(j) = constitutive_titanmod_burgersPerSlipSystem(j,myInstance)*(state(g,ip,el)%p(j)* &
edge_velocity(j)+state(g,ip,el)%p(ns+j) * screw_velocity(j))* sign(1.0_pReal,tau_slip(j)) edge_velocity(j)+state(g,ip,el)%p(ns+j) * screw_velocity(j))* sign(1.0_pReal,tau_slip(j))
! forall (s = 1:ns) &
state(g,ip,el)%p(7*ns+3*nt+j)= edge_velocity(j)
! forall (s = 1:ns) &
state(g,ip,el)%p(8*ns+3*nt+j)= screw_velocity(j)
state(g,ip,el)%p(12*ns+3*nt+j)=gdot_slip(j)
!* Derivatives of shear rates !* Derivatives of shear rates
dgdot_dtauslip(j) = ( & dgdot_dtauslip(j) = ( &
( & ( &
@ -1788,29 +1723,10 @@ do f = 1,lattice_maxNslipFamily ! loop over all
) & ) &
) !* sign(1.0_pReal,tau_slip(j)) ) !* sign(1.0_pReal,tau_slip(j))
! gdotTotal = sum(gdot_slip) ! state(g,ip,el)%p(13*ns+3*nt+j)=dgdot_dtauslip(j)
! dgdot_dtauslip(j)=abs(gdot_slip(j)) * (BoltzmannRatio)*(1/constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance)+ &
! 1/constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance))
! dgdot_dtauslip(j) = &
! 2.0_pReal* sign(1.0_pReal,tau_slip(j)) * &
! ((state(g,ip,el)%p(j)*edge_velocity(j)*BoltzmannRatio*&
! constitutive_titanmod_pe_PerSlipSystem(j,myInstance)* &
! constitutive_titanmod_qe_PerSlipSystem(j,myInstance) / &
! constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance)) * &
! ((minusStressRatio_edge_p)**(constitutive_titanmod_qe_PerSlipSystem(j,myInstance)-1.0_pReal))* &
! (StressRatio_edge_pminus1) + &
! (state(g,ip,el)%p(ns+j)*screw_velocity(j)*BoltzmannRatio*&
! constitutive_titanmod_ps_PerSlipSystem(j,myInstance)* &
! constitutive_titanmod_qs_PerSlipSystem(j,myInstance) / &
! constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance)) * &
! ((minusStressRatio_screw_p)**(constitutive_titanmod_qs_PerSlipSystem(j,myInstance)-1.0_pReal))* &
! (StressRatio_screw_pminus1) &
! )
state(g,ip,el)%p(13*ns+3*nt+j)=dgdot_dtauslip(j)
!************************************************* !*************************************************
!sumf=0.0_pReal
!* Plastic velocity gradient for dislocation glide !* Plastic velocity gradient for dislocation glide
Lp = Lp + (1.0_pReal - sumf)*gdot_slip(j)*lattice_Sslip(:,:,index_myFamily+i,myStructure) Lp = Lp + (1.0_pReal - sumf)*gdot_slip(j)*lattice_Sslip(:,:,index_myFamily+i,myStructure)
@ -1851,12 +1767,12 @@ do f = 1,lattice_maxNtwinFamily ! loop over all
!* Stress ratio for edge !* Stress ratio for edge
twinStressRatio_edge_p = ((abs(tau_twin(j)))/ & twinStressRatio_edge_p = ((abs(tau_twin(j)))/ &
( constitutive_titanmod_twintau0e_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+4*nt+j)) & ( constitutive_titanmod_twintau0e_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+5*nt+j)) &
)**constitutive_titanmod_twinpe_PerTwinSystem(j,myInstance) )**constitutive_titanmod_twinpe_PerTwinSystem(j,myInstance)
!* Stress ratio for screw !* Stress ratio for screw
twinStressRatio_screw_p = ((abs(tau_twin(j)))/ & twinStressRatio_screw_p = ((abs(tau_twin(j)))/ &
( constitutive_titanmod_twintau0s_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+5*nt+j)) & ( constitutive_titanmod_twintau0s_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+6*nt+j)) &
)**constitutive_titanmod_twinps_PerTwinSystem(j,myInstance) )**constitutive_titanmod_twinps_PerTwinSystem(j,myInstance)
! state(g,ip,el)%p(10*ns+3*nt+j)=twinStressRatio_edge_p ! state(g,ip,el)%p(10*ns+3*nt+j)=twinStressRatio_edge_p
@ -1875,11 +1791,11 @@ do f = 1,lattice_maxNtwinFamily ! loop over all
endif endif
twinStressRatio_edge_pminus1 = ((abs(tau_twin(j)))/ & twinStressRatio_edge_pminus1 = ((abs(tau_twin(j)))/ &
( constitutive_titanmod_twintau0e_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+4*nt+j)) & ( constitutive_titanmod_twintau0e_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+5*nt+j)) &
)**(constitutive_titanmod_twinpe_PerTwinSystem(j,myInstance)-1.0_pReal) )**(constitutive_titanmod_twinpe_PerTwinSystem(j,myInstance)-1.0_pReal)
twinStressRatio_screw_pminus1 = ((abs(tau_twin(j)))/ & twinStressRatio_screw_pminus1 = ((abs(tau_twin(j)))/ &
( constitutive_titanmod_twintau0s_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+5*nt+j)) & ( constitutive_titanmod_twintau0s_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+6*nt+j)) &
)**(constitutive_titanmod_twinps_PerTwinSystem(j,myInstance)-1.0_pReal) )**(constitutive_titanmod_twinps_PerTwinSystem(j,myInstance)-1.0_pReal)
!* Boltzmann ratio !* Boltzmann ratio
@ -1899,6 +1815,9 @@ do f = 1,lattice_maxNtwinFamily ! loop over all
exp(-BoltzmannRatio*(twinminusStressRatio_screw_p)** & exp(-BoltzmannRatio*(twinminusStressRatio_screw_p)** &
constitutive_titanmod_twinqs_PerTwinSystem(j,myInstance)) constitutive_titanmod_twinqs_PerTwinSystem(j,myInstance))
state(g,ip,el)%p(6*ns+8*nt+j)=twinscrew_velocity(j)
!* Shear rates due to twin !* Shear rates due to twin
gdot_twin(j) = constitutive_titanmod_burgersPerTwinSystem(j,myInstance)*(state(g,ip,el)%p(2*ns+j)* & gdot_twin(j) = constitutive_titanmod_burgersPerTwinSystem(j,myInstance)*(state(g,ip,el)%p(2*ns+j)* &
twinedge_velocity(j)+state(g,ip,el)%p(2*ns+nt+j) * twinscrew_velocity(j))* sign(1.0_pReal,tau_twin(j)) twinedge_velocity(j)+state(g,ip,el)%p(2*ns+nt+j) * twinscrew_velocity(j))* sign(1.0_pReal,tau_twin(j))
@ -1942,7 +1861,7 @@ do f = 1,lattice_maxNtwinFamily ! loop over all
! state(g,ip,el)%p(13*ns+3*nt+j)=dgdot_dtautwin(j) ! state(g,ip,el)%p(13*ns+3*nt+j)=dgdot_dtautwin(j)
!* Plastic velocity gradient for mechanical twinning !* Plastic velocity gradient for mechanical twinning
Lp = Lp + gdot_twin(j)*lattice_Stwin(:,:,index_myFamily+i,myStructure) Lp = Lp + sumf*gdot_twin(j)*lattice_Stwin(:,:,index_myFamily+i,myStructure)
!* Calculation of the tangent of Lp !* Calculation of the tangent of Lp
forall (k=1:3,l=1:3,m=1:3,n=1:3) & forall (k=1:3,l=1:3,m=1:3,n=1:3) &
@ -2010,7 +1929,7 @@ gdot_slip,tau_slip,DotRhoEdgeGeneration,EdgeDipDistance,DotRhoEdgeAnnihilation,D
ClimbVelocity,DotRhoScrewGeneration, edge_segment, screw_segment,edge_velocity,screw_velocity ClimbVelocity,DotRhoScrewGeneration, edge_segment, screw_segment,edge_velocity,screw_velocity
real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_constitutionInstance(material_phase(g,ip,el)))) :: gdot_twin, & real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_constitutionInstance(material_phase(g,ip,el)))) :: gdot_twin, &
tau_twin,twinedge_segment,twinscrew_segment,twinedge_velocity,twinscrew_velocity,TwinDotRhoEdgeGeneration, & tau_twin,twinedge_segment,twinscrew_segment,twinedge_velocity,twinscrew_velocity,TwinDotRhoEdgeGeneration, &
TwinDotRhoEdgeAnnihilation,TwinDotRhoScrewGeneration,TwinDotRhoScrewAnnihilation TwinDotRhoEdgeAnnihilation,TwinDotRhoScrewGeneration,TwinDotRhoScrewAnnihilation,volumefraction_pertwinsystem
!* Shortened notation !* Shortened notation
myInstance = phase_constitutionInstance(material_phase(g,ip,el)) myInstance = phase_constitutionInstance(material_phase(g,ip,el))
@ -2018,8 +1937,15 @@ MyStructure = constitutive_titanmod_structure(myInstance)
ns = constitutive_titanmod_totalNslip(myInstance) ns = constitutive_titanmod_totalNslip(myInstance)
nt = constitutive_titanmod_totalNtwin(myInstance) nt = constitutive_titanmod_totalNtwin(myInstance)
!* Total twin volume fraction do i=1,nt
sumf = sum(state(g,ip,el)%p((2*ns+1):(2*ns+nt))) ! safe for nt == 0 volumefraction_pertwinsystem(i)=state(g,ip,el)%p(2*ns+2*nt+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance)
enddo
!sumf = sum(state(g,ip,el)%p((6*ns+7*nt+1):(6*ns+8*nt))) ! safe for nt == 0
sumf = sum(abs(volumefraction_pertwinsystem(1:nt))) ! safe for nt == 0
constitutive_titanmod_dotState = 0.0_pReal constitutive_titanmod_dotState = 0.0_pReal
@ -2061,21 +1987,6 @@ forall (t = 1:nt) &
! Resolved shear stress ! Resolved shear stress
tau_slip(j) = dot_product(Tstar_v,lattice_Sslip_v(:,index_myFamily+i,myStructure)) tau_slip(j) = dot_product(Tstar_v,lattice_Sslip_v(:,index_myFamily+i,myStructure))
! !* Stress ratio for edge
! if((abs(tau_slip(j))-state(g,ip,el)%p(5*ns+3*nt+j)) > 0.0_pReal) then
! StressRatio_edge_p = ((abs(tau_slip(j))-state(g,ip,el)%p(5*ns+3*nt+j))/ &
! constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance))** constitutive_titanmod_pe_PerSlipSystem(j,myInstance)
! else
! StressRatio_edge_p=0.0_pReal
! endif
!* Stress ratio for screw
! if((abs(tau_slip(j))-state(g,ip,el)%p(6*ns+3*nt+j)) > 0.0_pReal) then
! StressRatio_screw_p = ((abs(tau_slip(j))-state(g,ip,el)%p(6*ns+3*nt+j))/ &
! constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance))** constitutive_titanmod_ps_PerSlipSystem(j,myInstance)
! else
! StressRatio_screw_p=0.0_pReal
! endif
if(myStructure==3.and.j>3) then ! only for hex and for all the non-basal slip systems if(myStructure==3.and.j>3) then ! only for hex and for all the non-basal slip systems
screwvelocity_kink_prefactor=state(g,ip,el)%p(3*ns+2*nt+j)/constitutive_titanmod_rlengthscrew_PerSlipSystem(j,myInstance) screwvelocity_kink_prefactor=state(g,ip,el)%p(3*ns+2*nt+j)/constitutive_titanmod_rlengthscrew_PerSlipSystem(j,myInstance)
@ -2085,12 +1996,12 @@ forall (t = 1:nt) &
!* Stress ratio for edge !* Stress ratio for edge
StressRatio_edge_p = ((abs(tau_slip(j)))/ & StressRatio_edge_p = ((abs(tau_slip(j)))/ &
( constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(4*ns+2*nt+j)) & ( constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(4*ns+3*nt+j)) &
)**(constitutive_titanmod_pe_PerSlipSystem(j,myInstance)) )**(constitutive_titanmod_pe_PerSlipSystem(j,myInstance))
!* Stress ratio for screw !* Stress ratio for screw
StressRatio_screw_p = ((abs(tau_slip(j)))/ & StressRatio_screw_p = ((abs(tau_slip(j)))/ &
( constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(5*ns+2*nt+j)) & ( constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(5*ns+3*nt+j)) &
)**(constitutive_titanmod_ps_PerSlipSystem(j,myInstance)) )**(constitutive_titanmod_ps_PerSlipSystem(j,myInstance))
if((1.0_pReal-StressRatio_edge_p)>0.001_pReal) then if((1.0_pReal-StressRatio_edge_p)>0.001_pReal) then
@ -2119,16 +2030,7 @@ forall (t = 1:nt) &
exp(-BoltzmannRatio*(minusStressRatio_screw_p)** & exp(-BoltzmannRatio*(minusStressRatio_screw_p)** &
constitutive_titanmod_qs_PerSlipSystem(j,myInstance)) constitutive_titanmod_qs_PerSlipSystem(j,myInstance))
! endif ! endif
! write(6,*) 'edge_segment(j) ',edge_segment(j)
! write(6,*) 'screw_segment(j) ',screw_segment(j)
! write(6,*) 'tau_slip(j) ',tau_slip(j)
! write(6,*) 'Temperature ',Temperature
! write(6,*) 'kB ',kB
! write(6,*) 'constitutive_titanmod_f0_PerSlipSystem(j,myInstance) ',constitutive_titanmod_f0_PerSlipSystem(j,myInstance)
! write(6,*) 'StressRatio_edge_p',StressRatio_edge_p,j
! write(6,*) 'StressRatio_screw_p',StressRatio_screw_p,j
! write(6,*) 'edge_velocity(j)',edge_velocity(j),j
! write(6,*) 'screw_velocity(j)',screw_velocity(j),j
!* Multiplication of edge dislocations !* Multiplication of edge dislocations
DotRhoEdgeGeneration(j) = 2.0_pReal*(state(g,ip,el)%p(ns+j)*screw_velocity(j)/screw_segment(j)) DotRhoEdgeGeneration(j) = 2.0_pReal*(state(g,ip,el)%p(ns+j)*screw_velocity(j)/screw_segment(j))
!* Multiplication of screw dislocations !* Multiplication of screw dislocations
@ -2150,10 +2052,6 @@ forall (t = 1:nt) &
constitutive_titanmod_dotState(ns+j) = & constitutive_titanmod_dotState(ns+j) = &
DotRhoScrewGeneration(j)+DotRhoScrewAnnihilation(j) DotRhoScrewGeneration(j)+DotRhoScrewAnnihilation(j)
! write(6,*) 'DotRhoEdgeGeneration(j)',DotRhoEdgeGeneration(j)
! write(6,*) 'DotRhoScrewGeneration(j)',DotRhoScrewGeneration(j)
! write(6,*) 'DotRhoEdgeAnnihilation(j)',DotRhoEdgeAnnihilation(j)
! write(6,*) 'DotRhoScrewAnnihilation(j)',DotRhoScrewAnnihilation(j)
enddo enddo
enddo enddo
@ -2186,12 +2084,12 @@ do f = 1,lattice_maxNtwinFamily ! loop over all
!* Stress ratio for edge !* Stress ratio for edge
twinStressRatio_edge_p = ((abs(tau_twin(j)))/ & twinStressRatio_edge_p = ((abs(tau_twin(j)))/ &
( constitutive_titanmod_twintau0e_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+4*nt+j)) & ( constitutive_titanmod_twintau0e_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+5*nt+j)) &
)**(constitutive_titanmod_twinpe_PerTwinSystem(j,myInstance)) )**(constitutive_titanmod_twinpe_PerTwinSystem(j,myInstance))
!* Stress ratio for screw !* Stress ratio for screw
twinStressRatio_screw_p = ((abs(tau_twin(j)))/ & twinStressRatio_screw_p = ((abs(tau_twin(j)))/ &
( constitutive_titanmod_twintau0s_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+5*nt+j)) & ( constitutive_titanmod_twintau0s_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+6*nt+j)) &
)**(constitutive_titanmod_twinps_PerTwinSystem(j,myInstance)) )**(constitutive_titanmod_twinps_PerTwinSystem(j,myInstance))
if((1.0_pReal-twinStressRatio_edge_p)>0.001_pReal) then if((1.0_pReal-twinStressRatio_edge_p)>0.001_pReal) then
@ -2220,16 +2118,7 @@ do f = 1,lattice_maxNtwinFamily ! loop over all
exp(-BoltzmannRatio*(twinminusStressRatio_screw_p)** & exp(-BoltzmannRatio*(twinminusStressRatio_screw_p)** &
constitutive_titanmod_twinqs_PerTwinSystem(j,myInstance)) constitutive_titanmod_twinqs_PerTwinSystem(j,myInstance))
! endif ! endif
! write(6,*) 'edge_segment(j) ',edge_segment(j)
! write(6,*) 'screw_segment(j) ',screw_segment(j)
! write(6,*) 'tau_slip(j) ',tau_slip(j)
! write(6,*) 'Temperature ',Temperature
! write(6,*) 'kB ',kB
! write(6,*) 'constitutive_titanmod_f0_PerSlipSystem(j,myInstance) ',constitutive_titanmod_f0_PerSlipSystem(j,myInstance)
! write(6,*) 'StressRatio_edge_p',StressRatio_edge_p,j
! write(6,*) 'StressRatio_screw_p',StressRatio_screw_p,j
! write(6,*) 'edge_velocity(j)',edge_velocity(j),j
! write(6,*) 'screw_velocity(j)',screw_velocity(j),j
!* Multiplication of edge dislocations !* Multiplication of edge dislocations
TwinDotRhoEdgeGeneration(j) = 2.0_pReal*(state(g,ip,el)%p(2*ns+nt+j)*twinscrew_velocity(j)/twinscrew_segment(j)) TwinDotRhoEdgeGeneration(j) = 2.0_pReal*(state(g,ip,el)%p(2*ns+nt+j)*twinscrew_velocity(j)/twinscrew_segment(j))
!* Multiplication of screw dislocations !* Multiplication of screw dislocations
@ -2251,7 +2140,12 @@ do f = 1,lattice_maxNtwinFamily ! loop over all
constitutive_titanmod_dotState(2*ns+nt+j) = & constitutive_titanmod_dotState(2*ns+nt+j) = &
TwinDotRhoScrewGeneration(j)+TwinDotRhoScrewAnnihilation(j) TwinDotRhoScrewGeneration(j)+TwinDotRhoScrewAnnihilation(j)
enddo gdot_twin(j) = constitutive_titanmod_burgersPerTwinSystem(j,myInstance)*(state(g,ip,el)%p(2*ns+j)* &
twinedge_velocity(j)+state(g,ip,el)%p(2*ns+nt+j) * twinscrew_velocity(j))* sign(1.0_pReal,tau_twin(j))
constitutive_titanmod_dotState(2*ns+2*nt+j)=gdot_twin(j)
enddo
enddo enddo
!write(6,*) '#DOTSTATE#' !write(6,*) '#DOTSTATE#'
@ -2330,6 +2224,8 @@ real(pReal) sumf,tau,StressRatio_edge_p,StressRatio_screw_p,StressRatio_pminus1,
gdot_slip,dgdot_dtauslip gdot_slip,dgdot_dtauslip
real(pReal), dimension(constitutive_titanmod_sizePostResults(phase_constitutionInstance(material_phase(g,ip,el)))) :: & real(pReal), dimension(constitutive_titanmod_sizePostResults(phase_constitutionInstance(material_phase(g,ip,el)))) :: &
constitutive_titanmod_postResults constitutive_titanmod_postResults
real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_constitutionInstance(material_phase(g,ip,el)))) :: &
volumefraction_pertwinsystem
!* Shortened notation !* Shortened notation
myInstance = phase_constitutionInstance(material_phase(g,ip,el)) myInstance = phase_constitutionInstance(material_phase(g,ip,el))
@ -2337,8 +2233,16 @@ myStructure = constitutive_titanmod_structure(myInstance)
ns = constitutive_titanmod_totalNslip(myInstance) ns = constitutive_titanmod_totalNslip(myInstance)
nt = constitutive_titanmod_totalNtwin(myInstance) nt = constitutive_titanmod_totalNtwin(myInstance)
!* Total twin volume fraction do i=1,nt
sumf = sum(state(g,ip,el)%p((2*ns+1):(2*ns+nt))) ! safe for nt == 0 volumefraction_pertwinsystem(i)=state(g,ip,el)%p(2*ns+2*nt+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance)
enddo
!sumf = sum(state(g,ip,el)%p((6*ns+7*nt+1):(6*ns+8*nt))) ! safe for nt == 0
sumf = sum(abs(volumefraction_pertwinsystem(1:nt))) ! safe for nt == 0
!* Required output !* Required output
c = 0_pInt c = 0_pInt
@ -2353,24 +2257,30 @@ do o = 1,phase_Noutput(material_phase(g,ip,el))
case ('rhoscrew') case ('rhoscrew')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p(ns+1:2*ns) constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p(ns+1:2*ns)
c = c + ns c = c + ns
case ('gamma_dot') case ('twinrhoedge')
constitutive_titanmod_postResults(c+1:c+nt) = state(g,ip,el)%p(2*ns+1:2*ns+nt)
c = c + nt
case ('twinrhoscrew')
constitutive_titanmod_postResults(c+1:c+nt) = state(g,ip,el)%p(2*ns+nt+1:2*ns+2*nt)
c = c + nt
case ('gdot_slip')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((12*ns+3*nt+1):(13*ns+3*nt)) constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((12*ns+3*nt+1):(13*ns+3*nt))
c = c + ns c = c + ns
case ('gdot_twin')
constitutive_titanmod_postResults(c+1:c+nt) = state(g,ip,el)%p((2*ns+2*nt+1):(2*ns+3*nt))
c = c + nt
case ('dgdotdtau') case ('dgdotdtau')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((13*ns+3*nt+1):(14*ns+3*nt)) constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((13*ns+3*nt+1):(14*ns+3*nt))
c = c + ns c = c + ns
case ('velocity_edge') case ('velocity_edge')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((7*ns+3*nt+1):(8*ns+3*nt)) constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((7*ns+3*nt+1):(8*ns+3*nt))
c = c + ns c = c + ns
case ('twinvelocity_edge')
constitutive_titanmod_postResults(c+1:c+nt) = state(g,ip,el)%p((6*ns+8*nt+1):(6*ns+9*nt))
c = c + nt
case ('velocity_screw') case ('velocity_screw')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((8*ns+3*nt+1):(9*ns+3*nt)) constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((8*ns+3*nt+1):(9*ns+3*nt))
c = c + ns c = c + ns
case('stressratio_edgep')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((10*ns+3*nt+1):(11*ns+3*nt))
c = c + ns
case('stressratio_screwp')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((11*ns+3*nt+1):(12*ns+3*nt))
c = c + ns
case ('segment_edge') case ('segment_edge')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((2*ns+nt+1):(3*ns+nt)) constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((2*ns+nt+1):(3*ns+nt))
c = c + ns c = c + ns
@ -2383,7 +2293,7 @@ do o = 1,phase_Noutput(material_phase(g,ip,el))
case ('resistance_screw') case ('resistance_screw')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((6*ns+3*nt+1):(7*ns+3*nt)) constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((6*ns+3*nt+1):(7*ns+3*nt))
c = c + ns c = c + ns
case ('rss_slip') case ('tau_slip')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p(9*ns+3*nt+1:10*ns+3*nt) constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p(9*ns+3*nt+1:10*ns+3*nt)
c=c + ns c=c + ns
case('edge_generation') case('edge_generation')
@ -2457,11 +2367,8 @@ do o = 1,phase_Noutput(material_phase(g,ip,el))
case('total_density') case('total_density')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p(1:ns)+state(g,ip,el)%p(ns+1:2*ns) constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p(1:ns)+state(g,ip,el)%p(ns+1:2*ns)
c = c + ns c = c + ns
case('rlengthprefactor')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((14*ns+3*nt+1):(15*ns+3*nt))
c = c + ns
case ('twin_fraction') case ('twin_fraction')
constitutive_titanmod_postResults(c+1:c+nt) = state(g,ip,el)%p((6*ns+6*nt+1):(6*ns+7*nt)) constitutive_titanmod_postResults(c+1:c+nt) = volumefraction_pertwinsystem(1:nt)
c = c + nt c = c + nt
end select end select