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

Final version of titanmod

This commit is contained in:
Alankar Alankar 2011-03-31 09:21:43 +00:00
parent a546f8dbd2
commit 06fc83ac14
1 changed files with 241 additions and 138 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

379
code/constitutive_titanmod.f90
View File

@ -1,5 +1,30 @@
!* $Id$ !* $Id$
! states for titanmod
! Basic states
! rhoedge
! rhoscrew
! shear_system
! Dependent states
! segment_edge
! segment_screw
! resistance_edge
! resistance_screw
! tau_slip
! gdot_slip
! velocity_edge
! velocity_screw
! gdot_slip_edge
! gdot_slip_screw
! stressratio_edge_p
! stressratio_screw_p
! shear_basal
! shear_prism
! shear_pyra
! shear_pyrca
MODULE constitutive_titanmod MODULE constitutive_titanmod
!* Include other modules !* Include other modules
@ -8,16 +33,17 @@ 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(3), parameter:: constitutive_titanmod_listBasicSlipStates = (/'rho_edge', &
'rho_screw'/) 'rho_screw', &
'shear_system'/)
character(len=18), dimension(1), parameter:: constitutive_titanmod_listBasicTwinStates = (/'gdot_twin'/) character(len=18), dimension(1), parameter:: constitutive_titanmod_listBasicTwinStates = (/'gdot_twin'/)
character(len=18), dimension(12), parameter:: constitutive_titanmod_listDependentSlipStates =(/'segment_edge', & character(len=18), dimension(11), parameter:: constitutive_titanmod_listDependentSlipStates =(/'segment_edge', &
'segment_screw', & 'segment_screw', &
'resistance_edge', & 'resistance_edge', &
'resistance_screw', & 'resistance_screw', &
'tau_slip', & 'tau_slip', &
'gdot_slip', &
'velocity_edge', & 'velocity_edge', &
'velocity_screw', & 'velocity_screw', &
'gdot_slip_edge', & 'gdot_slip_edge', &
@ -72,6 +98,7 @@ real(pReal), dimension(:,:,:,:,:), allocatable :: constitutive_titanmod_
real(pReal), dimension(:,:,:,:,:,:), allocatable :: constitutive_titanmod_Ctwin_3333 ! twin elasticity matrix for each instance real(pReal), dimension(:,:,:,:,:,:), allocatable :: constitutive_titanmod_Ctwin_3333 ! twin elasticity matrix for each instance
real(pReal), dimension(:,:), allocatable :: constitutive_titanmod_rho_edge0, & ! initial edge dislocation density per slip system for each family and instance real(pReal), dimension(:,:), allocatable :: constitutive_titanmod_rho_edge0, & ! initial edge dislocation density per slip system for each family and instance
constitutive_titanmod_rho_screw0, & ! initial screw dislocation density per slip system for each family and instance constitutive_titanmod_rho_screw0, & ! initial screw dislocation density per slip system for each family and instance
constitutive_titanmod_shear_system0, & ! accumulated shear on each system
constitutive_titanmod_burgersPerSlipFamily, & ! absolute length of burgers vector [m] for each slip family and instance constitutive_titanmod_burgersPerSlipFamily, & ! absolute length of burgers vector [m] for each slip family and instance
constitutive_titanmod_burgersPerSlipSystem, & ! absolute length of burgers vector [m] for each slip system and instance constitutive_titanmod_burgersPerSlipSystem, & ! absolute length of burgers vector [m] for each slip system and instance
constitutive_titanmod_burgersPerTwinFamily, & ! absolute length of burgers vector [m] for each twin family and instance constitutive_titanmod_burgersPerTwinFamily, & ! absolute length of burgers vector [m] for each twin family and instance
@ -256,6 +283,7 @@ constitutive_titanmod_Cslip_66 = 0.0_pReal
constitutive_titanmod_Cslip_3333 = 0.0_pReal constitutive_titanmod_Cslip_3333 = 0.0_pReal
allocate(constitutive_titanmod_rho_edge0(lattice_maxNslipFamily,maxNinstance)) allocate(constitutive_titanmod_rho_edge0(lattice_maxNslipFamily,maxNinstance))
allocate(constitutive_titanmod_rho_screw0(lattice_maxNslipFamily,maxNinstance)) allocate(constitutive_titanmod_rho_screw0(lattice_maxNslipFamily,maxNinstance))
allocate(constitutive_titanmod_shear_system0(lattice_maxNslipFamily,maxNinstance))
allocate(constitutive_titanmod_burgersPerSlipFamily(lattice_maxNslipFamily,maxNinstance)) allocate(constitutive_titanmod_burgersPerSlipFamily(lattice_maxNslipFamily,maxNinstance))
allocate(constitutive_titanmod_burgersPerTwinFamily(lattice_maxNtwinFamily,maxNinstance)) allocate(constitutive_titanmod_burgersPerTwinFamily(lattice_maxNtwinFamily,maxNinstance))
allocate(constitutive_titanmod_f0_PerSlipFamily(lattice_maxNslipFamily,maxNinstance)) allocate(constitutive_titanmod_f0_PerSlipFamily(lattice_maxNslipFamily,maxNinstance))
@ -284,6 +312,7 @@ allocate(constitutive_titanmod_twinLambdaSlipPerTwinFamily(lattice_maxNTwinFamil
constitutive_titanmod_rho_edge0 = 0.0_pReal constitutive_titanmod_rho_edge0 = 0.0_pReal
constitutive_titanmod_rho_screw0 = 0.0_pReal constitutive_titanmod_rho_screw0 = 0.0_pReal
constitutive_titanmod_shear_system0 = 0.0_pReal
constitutive_titanmod_burgersPerSlipFamily = 0.0_pReal constitutive_titanmod_burgersPerSlipFamily = 0.0_pReal
constitutive_titanmod_burgersPerTwinFamily = 0.0_pReal constitutive_titanmod_burgersPerTwinFamily = 0.0_pReal
constitutive_titanmod_f0_PerSlipFamily = 0.0_pReal constitutive_titanmod_f0_PerSlipFamily = 0.0_pReal
@ -302,10 +331,10 @@ constitutive_titanmod_ps_PerSlipFamily = 0.0_pReal
constitutive_titanmod_qe_PerSlipFamily = 0.0_pReal constitutive_titanmod_qe_PerSlipFamily = 0.0_pReal
constitutive_titanmod_qs_PerSlipFamily = 0.0_pReal constitutive_titanmod_qs_PerSlipFamily = 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_twinshearconstant_PerTwinFamily = 0.0_pReal
constitutive_titanmod_twintau0_PerTwinFamily = 0.0_pReal constitutive_titanmod_twintau0_PerTwinFamily = 0.0_pReal
constitutive_titanmod_twingamma0_PerTwinFamily = 0.0_pReal constitutive_titanmod_twingamma0_PerTwinFamily = 0.0_pReal
constitutive_titanmod_twinLambdaSlipPerTwinFamily = 0.0_pReal constitutive_titanmod_twinLambdaSlipPerTwinFamily = 0.0_pReal
constitutive_titanmod_twinp_PerTwinFamily = 0.0_pReal constitutive_titanmod_twinp_PerTwinFamily = 0.0_pReal
constitutive_titanmod_twinq_PerTwinFamily = 0.0_pReal constitutive_titanmod_twinq_PerTwinFamily = 0.0_pReal
@ -618,7 +647,6 @@ allocate(constitutive_titanmod_twinq_PerTwinSystem(maxTotalNTwin,maxNinstance))
allocate(constitutive_titanmod_twingamma0_PerTwinSystem(maxTotalNTwin,maxNinstance)) allocate(constitutive_titanmod_twingamma0_PerTwinSystem(maxTotalNTwin,maxNinstance))
allocate(constitutive_titanmod_twinsizePerTwinSystem(maxTotalNtwin, maxNinstance)) allocate(constitutive_titanmod_twinsizePerTwinSystem(maxTotalNtwin, maxNinstance))
allocate(constitutive_titanmod_twinLambdaSlipPerTwinSystem(maxTotalNtwin, maxNinstance)) allocate(constitutive_titanmod_twinLambdaSlipPerTwinSystem(maxTotalNtwin, maxNinstance))
constitutive_titanmod_burgersPerSlipSystem = 0.0_pReal constitutive_titanmod_burgersPerSlipSystem = 0.0_pReal
@ -708,19 +736,6 @@ do i = 1,maxNinstance
size(constitutive_titanmod_listDependentSlipStates)*ns+size(constitutive_titanmod_listDependentTwinStates)*nt size(constitutive_titanmod_listDependentSlipStates)*ns+size(constitutive_titanmod_listDependentTwinStates)*nt
write(6,*) 'Determined size of state and dot state' write(6,*) 'Determined size of state and dot state'
!* Determine size of postResults array !* Determine size of postResults array
! 'segment_edge'
! 'segment_screw'
! 'resistance_edge'
! 'resistance_screw'
! 'tau_slip'
! 'gdot_slip'
! 'velocity_edge'
! 'velocity_screw'
! 'gdot_slip_edge'
! 'gdot_slip_screw'
! 'StressRatio_edge_p'
! 'StressRatio_screw_p'
do o = 1,maxval(phase_Noutput) do o = 1,maxval(phase_Noutput)
select case(constitutive_titanmod_output(o,i)) select case(constitutive_titanmod_output(o,i))
@ -730,14 +745,15 @@ do i = 1,maxNinstance
'segment_screw', & 'segment_screw', &
'resistance_edge', & 'resistance_edge', &
'resistance_screw', & 'resistance_screw', &
'tau_slip', &
'gdot_slip', &
'velocity_edge', & 'velocity_edge', &
'velocity_screw', & 'velocity_screw', &
'tau_slip', &
'gdot_slip_edge', & 'gdot_slip_edge', &
'gdot_slip_screw', & 'gdot_slip_screw', &
'gdot_slip', &
'stressratio_edge_p', & 'stressratio_edge_p', &
'stressratio_screw_p' & 'stressratio_screw_p', &
'shear_system' &
) )
mySize = constitutive_titanmod_totalNslip(i) mySize = constitutive_titanmod_totalNslip(i)
case('twin_fraction', & case('twin_fraction', &
@ -745,6 +761,21 @@ do i = 1,maxNinstance
'tau_twin' & 'tau_twin' &
) )
mySize = constitutive_titanmod_totalNtwin(i) mySize = constitutive_titanmod_totalNtwin(i)
case('shear_basal', & ! use only if all 4 slip familiies in hex are considered
'shear_prism', & ! use only if all 4 slip familiies in hex are considered
'shear_pyra', & ! use only if all 4 slip familiies in hex are considered
'shear_pyrca', & ! use only if all 4 slip familiies in hex are considered
'rhoedge_basal', &
'rhoedge_prism', &
'rhoedge_pyra', &
'rhoedge_pyrca', &
'rhoscrew_basal', &
'rhoscrew_prism', &
'rhoscrew_pyra', &
'rhoscrew_pyrca', &
'shear_total' &
)
mySize = 1_pInt
case default case default
mySize = 0_pInt mySize = 0_pInt
end select end select
@ -949,6 +980,7 @@ real(pReal), dimension(constitutive_titanmod_sizeState(myInstance)) :: constitu
integer(pInt) s0,s1,s,t,f,ns,nt,ts0,ts1,tf,ts integer(pInt) s0,s1,s,t,f,ns,nt,ts0,ts1,tf,ts
real(pReal), dimension(constitutive_titanmod_totalNslip(myInstance)) :: rho_edge0, & real(pReal), dimension(constitutive_titanmod_totalNslip(myInstance)) :: rho_edge0, &
rho_screw0, & rho_screw0, &
shear_system0, &
segment_edge0, & segment_edge0, &
segment_screw0, & segment_screw0, &
resistance_edge0, & resistance_edge0, &
@ -969,6 +1001,7 @@ do f = 1,lattice_maxNslipFamily
do s = s0,s1 do s = s0,s1
rho_edge0(s) = constitutive_titanmod_rho_edge0(f,myInstance) rho_edge0(s) = constitutive_titanmod_rho_edge0(f,myInstance)
rho_screw0(s) = constitutive_titanmod_rho_screw0(f,myInstance) rho_screw0(s) = constitutive_titanmod_rho_screw0(f,myInstance)
shear_system0(s) = 0.0_pReal
enddo enddo
enddo enddo
@ -985,7 +1018,8 @@ enddo
constitutive_titanmod_stateInit(1:ns) = rho_edge0 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) = twingamma_dot0 constitutive_titanmod_stateInit(2*ns+1:3*ns) = shear_system0
constitutive_titanmod_stateInit(3*ns+1:3*ns+nt) = twingamma_dot0
!* Initialize dependent slip microstructural variables !* Initialize dependent slip microstructural variables
forall (s = 1:ns) & forall (s = 1:ns) &
@ -993,32 +1027,34 @@ segment_edge0(s) = constitutive_titanmod_CeLambdaSlipPerSlipSystem(s,myInstance)
sqrt(dot_product((rho_edge0),constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance))+ & sqrt(dot_product((rho_edge0),constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance))+ &
dot_product((rho_screw0),constitutive_titanmod_forestProjectionScrew(1:ns,s,myInstance))) dot_product((rho_screw0),constitutive_titanmod_forestProjectionScrew(1:ns,s,myInstance)))
constitutive_titanmod_stateInit(2*ns+nt+1:3*ns+nt) = segment_edge0 constitutive_titanmod_stateInit(3*ns+nt+1:4*ns+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),constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance))+ & sqrt(dot_product((rho_edge0),constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance))+ &
dot_product((rho_screw0),constitutive_titanmod_forestProjectionScrew(1:ns,s,myInstance))) dot_product((rho_screw0),constitutive_titanmod_forestProjectionScrew(1:ns,s,myInstance)))
constitutive_titanmod_stateInit(3*ns+nt+1:4*ns+nt) = segment_screw0 constitutive_titanmod_stateInit(4*ns+nt+1:5*ns+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+nt+1:5*ns+nt) = resistance_edge0
constitutive_titanmod_stateInit(5*ns+nt+1:6*ns+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+nt+1:6*ns+nt) = resistance_screw0
constitutive_titanmod_stateInit(6*ns+nt+1:7*ns+nt) = resistance_screw0
forall (t = 1:nt) & forall (t = 1:nt) &
resistance_twin0(t) = 0.0_pReal resistance_twin0(t) = 0.0_pReal
constitutive_titanmod_stateInit(6*ns+nt+1:6*ns+2*nt)=resistance_twin0 constitutive_titanmod_stateInit(7*ns+nt+1:7*ns+2*nt)=resistance_twin0
return return
end function end function
@ -1069,7 +1105,7 @@ nt = constitutive_titanmod_totalNtwin(myInstance)
!* Total twin volume fraction !* Total twin volume fraction
do i=1,nt do i=1,nt
volumefraction_pertwinsystem(i)=state(g,ip,el)%p(2*ns+i)/ & volumefraction_pertwinsystem(i)=state(g,ip,el)%p(3*ns+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance) constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance)
enddo enddo
!sumf = sum(state(g,ip,el)%p((6*ns+7*nt+1):(6*ns+8*nt))) ! safe for nt == 0 !sumf = sum(state(g,ip,el)%p((6*ns+7*nt+1):(6*ns+8*nt))) ! safe for nt == 0
@ -1124,19 +1160,24 @@ nt = constitutive_titanmod_totalNtwin(myInstance)
! Need to update this list ! Need to update this list
!* State: 1 : ns rho_edge !* State: 1 : ns rho_edge
!* State: ns+1 : 2*ns rho_screw !* State: ns+1 : 2*ns rho_screw
!* State: 2*ns+1 : 2*ns+nt gamma_twin !* State: 2*ns+1 : 3*ns shear_system
!* State: 2*ns+nt+1 : 3*ns+nt 1/lambda_slip !* State: 3*ns+1 : 3*ns+nt gamma_twin
!* State: 3*ns+nt+1 : 4*ns+nt 1/lambda_sliptwin !* State: 3*ns+nt+1 : 4*ns+nt segment_edge
!* State: 4*ns+nt+1 : 4*ns+2*nt 1/lambda_twin !* State: 4*ns+nt+1 : 5*ns+nt segment_screw
!* State: 4*ns+2*nt+1 : 5*ns+2*nt mfp_slip !* State: 5*ns+nt+1 : 6*ns+nt resistance_edge
!* State: 5*ns+2*nt+1 : 5*ns+3*nt mfp_twin !* State: 6*ns+nt+1 : 7*ns+nt resistance_screw
!* State: 5*ns+3*nt+1 : 6*ns+3*nt threshold_stress_slip !* State: 7*ns+nt+1 : 7*ns+2*nt resistance_twin
!* State: 6*ns+3*nt+1 : 6*ns+4*nt threshold_stress_twin !* State: 7*ns+2*nt+1 : 8*ns+2*nt velocity_edge
!* State: 6*ns+4*nt+1 : 6*ns+5*nt twin volume !* State: 8*ns+2*nt+1 : 9*ns+2*nt velocity_screw
!* State: 9*ns+2*nt+1 : 10*ns+2*nt tau_slip
!* State: 10*ns+2*nt+1 : 11*ns+2*nt gdot_slip_edge
!* State: 11*ns+2*nt+1 : 12*ns+2*nt gdot_slip_screw
!* State: 12*ns+2*nt+1 : 13*ns+2*nt StressRatio_edge_p
!* State: 13*ns+2*nt+1 : 14*ns+2*nt StressRatio_screw_p
!* Total twin volume fraction !* Total twin volume fraction
do i=1,nt do i=1,nt
volumefraction_pertwinsystem(i)=state(g,ip,el)%p(2*ns+i)/ & volumefraction_pertwinsystem(i)=state(g,ip,el)%p(3*ns+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance) constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance)
enddo enddo
@ -1155,7 +1196,7 @@ 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+nt+s) = constitutive_titanmod_CeLambdaSlipPerSlipSystem(s,myInstance)/ & state(g,ip,el)%p(3*ns+nt+s) = constitutive_titanmod_CeLambdaSlipPerSlipSystem(s,myInstance)/ &
sqrt(dot_product(state(g,ip,el)%p(1:ns), & sqrt(dot_product(state(g,ip,el)%p(1:ns), &
constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance))+ & constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance))+ &
dot_product(state(g,ip,el)%p(ns+1:2*ns), & dot_product(state(g,ip,el)%p(ns+1:2*ns), &
@ -1163,7 +1204,7 @@ forall (s = 1:ns) &
! average segment length for screw dislocations in matrix ! average segment length for screw dislocations in matrix
forall (s = 1:ns) & forall (s = 1:ns) &
state(g,ip,el)%p(3*ns+nt+s) = constitutive_titanmod_CsLambdaSlipPerSlipSystem(s,myInstance)/ & state(g,ip,el)%p(4*ns+nt+s) = constitutive_titanmod_CsLambdaSlipPerSlipSystem(s,myInstance)/ &
sqrt(dot_product(state(g,ip,el)%p(1:ns), & sqrt(dot_product(state(g,ip,el)%p(1:ns), &
constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance))+ & constitutive_titanmod_forestProjectionEdge(1:ns,s,myInstance))+ &
dot_product(state(g,ip,el)%p(ns+1:2*ns), & dot_product(state(g,ip,el)%p(ns+1:2*ns), &
@ -1172,7 +1213,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(4*ns+nt+s) = & state(g,ip,el)%p(5*ns+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))+ &
@ -1181,7 +1222,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(5*ns+nt+s) = & state(g,ip,el)%p(6*ns+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))+ &
@ -1190,7 +1231,7 @@ forall (s = 1:ns) &
!* threshold stress or slip resistance for dislocation motion in twin !* threshold stress or slip resistance for dislocation motion in twin
forall (t = 1:nt) & forall (t = 1:nt) &
state(g,ip,el)%p(6*ns+nt+t) = & state(g,ip,el)%p(7*ns+nt+t) = &
constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerTwinSystem(t,myInstance)*& constitutive_titanmod_Gmod(myInstance)*constitutive_titanmod_burgersPerTwinSystem(t,myInstance)*&
(dot_product((abs(state(g,ip,el)%p(2*ns+1:2*ns+nt))),& (dot_product((abs(state(g,ip,el)%p(2*ns+1:2*ns+nt))),&
constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance))) constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,myInstance)))
@ -1232,9 +1273,9 @@ real(pReal), dimension(9,9), intent(out) :: dLp_dTstar
!* Local variables !* Local variables
integer(pInt) myInstance,myStructure,ns,nt,f,i,j,k,l,m,n,index_myFamily integer(pInt) myInstance,myStructure,ns,nt,f,i,j,k,l,m,n,index_myFamily
real(pReal) sumf,StressRatio_edge_p,minusStressRatio_edge_p,StressRatio_edge_pminus1,StressRatio_screw_p, & real(pReal) sumf,StressRatio_edge_p,minusStressRatio_edge_p,StressRatio_edge_pminus1,StressRatio_screw_p, &
StressRatio_screw_pminus1, StressRatio_r,BoltzmannRatio,DotGamma0, minusStressRatio_screw_p,gdotTotal, & StressRatio_screw_pminus1, StressRatio_r,BoltzmannRatioedge,DotGamma0, minusStressRatio_screw_p,gdotTotal, &
screwvelocity_prefactor,twinStressRatio_p,twinminusStressRatio_p,twinStressRatio_pminus1, & screwvelocity_prefactor,twinStressRatio_p,twinminusStressRatio_p,twinStressRatio_pminus1, &
twinStressRatio_r, twinDotGamma0,BoltzmannRatioscrew twinStressRatio_r, twinDotGamma0,BoltzmannRatioscrew,BoltzmannRatiotwin,bottomstress_edge,bottomstress_screw
real(pReal), dimension(3,3,3,3) :: dLp_dTstar3333 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_edge,gdot_slip_screw gdot_slip,dgdot_dtauslip,tau_slip, edge_velocity, screw_velocity,gdot_slip_edge,gdot_slip_screw
@ -1248,7 +1289,7 @@ ns = constitutive_titanmod_totalNslip(myInstance)
nt = constitutive_titanmod_totalNtwin(myInstance) nt = constitutive_titanmod_totalNtwin(myInstance)
do i=1,nt do i=1,nt
volumefraction_pertwinsystem(i)=state(g,ip,el)%p(2*ns+i)/ & volumefraction_pertwinsystem(i)=state(g,ip,el)%p(3*ns+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance) constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance)
enddo enddo
@ -1275,60 +1316,78 @@ do f = 1,lattice_maxNslipFamily ! loop over all
!* 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))
!************************************************* !*************************************************
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! if(myStructure==3.and.j>3.and.j<13) then ! only for prismatic and pyr <a> systems in hex ! if(myStructure>=3.and.j>3) then ! for all non-basal slip systems
! if(myStructure==3) then ! only for prismatic and pyr <a> systems in hex if(myStructure==3) then ! only for prismatic and pyr <a> systems in hex
screwvelocity_prefactor=constitutive_titanmod_debyefrequency(myInstance)* & screwvelocity_prefactor=constitutive_titanmod_debyefrequency(myInstance)* &
state(g,ip,el)%p(3*ns+nt+j)*(constitutive_titanmod_burgersPerSlipSystem(j,myInstance)/ & state(g,ip,el)%p(4*ns+nt+j)*(constitutive_titanmod_burgersPerSlipSystem(j,myInstance)/ &
constitutive_titanmod_kinkcriticallength_PerSlipSystem(j,myInstance))**2 constitutive_titanmod_kinkcriticallength_PerSlipSystem(j,myInstance))**2
! else
! screwvelocity_prefactor=constitutive_titanmod_v0s_PerSlipSystem(j,myInstance)
! endif
!* Stress ratio for edge
StressRatio_edge_p = ((abs(tau_slip(j)))/ &
( constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(4*ns+nt+j)) &
)**constitutive_titanmod_pe_PerSlipSystem(j,myInstance)
!* Stress ratio for screw ! No slip resistance for screw dislocations, only Peierls stress !* Stress ratio for screw ! No slip resistance for screw dislocations, only Peierls stress
bottomstress_screw=constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance)
StressRatio_screw_p = ((abs(tau_slip(j)))/ & StressRatio_screw_p = ((abs(tau_slip(j)))/ &
( constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance)) & ( bottomstress_screw) &
)**constitutive_titanmod_ps_PerSlipSystem(j,myInstance) )**constitutive_titanmod_ps_PerSlipSystem(j,myInstance)
if((1.0_pReal-StressRatio_edge_p)>0.001_pReal) then
minusStressRatio_edge_p=1.0_pReal-StressRatio_edge_p
else
minusStressRatio_edge_p=0.001_pReal
endif
if((1.0_pReal-StressRatio_screw_p)>0.001_pReal) then if((1.0_pReal-StressRatio_screw_p)>0.001_pReal) then
minusStressRatio_screw_p=1.0_pReal-StressRatio_screw_p minusStressRatio_screw_p=1.0_pReal-StressRatio_screw_p
else else
minusStressRatio_screw_p=0.001_pReal minusStressRatio_screw_p=0.001_pReal
endif endif
StressRatio_edge_pminus1 = ((abs(tau_slip(j)))/ & bottomstress_screw=constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance)
( constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(4*ns+nt+j)) &
)**(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(5*ns+nt+j)) & ( bottomstress_screw) &
)**(constitutive_titanmod_ps_PerSlipSystem(j,myInstance)-1.0_pReal) )**(constitutive_titanmod_ps_PerSlipSystem(j,myInstance)-1.0_pReal)
!* Boltzmann ratio
BoltzmannRatio = constitutive_titanmod_f0_PerSlipSystem(j,myInstance)/(kB*Temperature)
!* Boltzmann ratio for screw !* Boltzmann ratio for screw
BoltzmannRatioscrew = constitutive_titanmod_kinkf0(myInstance)/(kB*Temperature) BoltzmannRatioscrew = constitutive_titanmod_kinkf0(myInstance)/(kB*Temperature)
edge_velocity(j) =constitutive_titanmod_v0e_PerSlipSystem(j,myInstance)*exp(-BoltzmannRatio* &
(minusStressRatio_edge_p)** &
constitutive_titanmod_qe_PerSlipSystem(j,myInstance))
else ! if the structure is not hex or the slip family is basal
screwvelocity_prefactor=constitutive_titanmod_v0s_PerSlipSystem(j,myInstance)
bottomstress_screw=constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(6*ns+nt+j)
StressRatio_screw_p = ((abs(tau_slip(j)))/( bottomstress_screw ))**constitutive_titanmod_ps_PerSlipSystem(j,myInstance)
if((1.0_pReal-StressRatio_screw_p)>0.001_pReal) then
minusStressRatio_screw_p=1.0_pReal-StressRatio_screw_p
else
minusStressRatio_screw_p=0.001_pReal
endif
StressRatio_screw_pminus1 = ((abs(tau_slip(j)))/( bottomstress_screw))** &
(constitutive_titanmod_ps_PerSlipSystem(j,myInstance)-1.0_pReal)
!* Boltzmann ratio for screw
BoltzmannRatioscrew = constitutive_titanmod_f0_PerSlipSystem(j,myInstance)/(kB*Temperature)
endif
!* Stress ratio for edge
bottomstress_edge=constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance)+state(g,ip,el)%p(5*ns+nt+j)
StressRatio_edge_p = ((abs(tau_slip(j)))/ &
( bottomstress_edge) &
)**constitutive_titanmod_pe_PerSlipSystem(j,myInstance)
if((1.0_pReal-StressRatio_edge_p)>0.001_pReal) then
minusStressRatio_edge_p=1.0_pReal-StressRatio_edge_p
else
minusStressRatio_edge_p=0.001_pReal
endif
StressRatio_edge_pminus1 = ((abs(tau_slip(j)))/( bottomstress_edge))** &
(constitutive_titanmod_pe_PerSlipSystem(j,myInstance)-1.0_pReal)
!* Boltzmann ratio for edge. For screws it is defined above
BoltzmannRatioedge = constitutive_titanmod_f0_PerSlipSystem(j,myInstance)/(kB*Temperature)
screw_velocity(j) =screwvelocity_prefactor * & ! there is no v0 for screw now because it is included in the prefactor screw_velocity(j) =screwvelocity_prefactor * & ! there is no v0 for screw now because it is included in the prefactor
exp(-BoltzmannRatioscrew*(minusStressRatio_screw_p)** & exp(-BoltzmannRatioscrew*(minusStressRatio_screw_p)** &
constitutive_titanmod_qs_PerSlipSystem(j,myInstance)) constitutive_titanmod_qs_PerSlipSystem(j,myInstance))
edge_velocity(j) =constitutive_titanmod_v0e_PerSlipSystem(j,myInstance)*exp(-BoltzmannRatioedge* &
(minusStressRatio_edge_p)** &
constitutive_titanmod_qe_PerSlipSystem(j,myInstance))
!* Shear rates due to edge slip !* Shear rates due to edge slip
gdot_slip_edge(j) = constitutive_titanmod_burgersPerSlipSystem(j,myInstance)*(state(g,ip,el)%p(j)* & gdot_slip_edge(j) = constitutive_titanmod_burgersPerSlipSystem(j,myInstance)*(state(g,ip,el)%p(j)* &
edge_velocity(j))* sign(1.0_pReal,tau_slip(j)) edge_velocity(j))* sign(1.0_pReal,tau_slip(j))
@ -1339,14 +1398,13 @@ do f = 1,lattice_maxNslipFamily ! loop over all
gdot_slip(j) = gdot_slip_edge(j) + gdot_slip_screw(j) gdot_slip(j) = gdot_slip_edge(j) + gdot_slip_screw(j)
state(g,ip,el)%p(6*ns+3*nt+j)=gdot_slip(j) state(g,ip,el)%p(7*ns+2*nt+j)=edge_velocity(j)
state(g,ip,el)%p(7*ns+3*nt+j)=edge_velocity(j) state(g,ip,el)%p(8*ns+2*nt+j)=screw_velocity(j)
state(g,ip,el)%p(8*ns+3*nt+j)=screw_velocity(j) state(g,ip,el)%p(9*ns+2*nt+j)=tau_slip(j)
state(g,ip,el)%p(9*ns+3*nt+j)=tau_slip(j) state(g,ip,el)%p(10*ns+2*nt+j)=gdot_slip_edge(j)
state(g,ip,el)%p(10*ns+3*nt+j)=gdot_slip_edge(j) state(g,ip,el)%p(11*ns+2*nt+j)=gdot_slip_screw(j)
state(g,ip,el)%p(11*ns+3*nt+j)=gdot_slip_screw(j) state(g,ip,el)%p(12*ns+2*nt+j)=StressRatio_edge_p
state(g,ip,el)%p(12*ns+3*nt+j)=StressRatio_edge_p state(g,ip,el)%p(13*ns+2*nt+j)=StressRatio_screw_p
state(g,ip,el)%p(13*ns+3*nt+j)=StressRatio_screw_p
!* Derivatives of shear rates !* Derivatives of shear rates
dgdot_dtauslip(j) = constitutive_titanmod_burgersPerSlipSystem(j,myInstance)*(( & dgdot_dtauslip(j) = constitutive_titanmod_burgersPerSlipSystem(j,myInstance)*(( &
@ -1354,11 +1412,11 @@ do f = 1,lattice_maxNslipFamily ! loop over all
( & ( &
( & ( &
(edge_velocity(j)*state(g,ip,el)%p(j))) * & (edge_velocity(j)*state(g,ip,el)%p(j))) * &
BoltzmannRatio*& BoltzmannRatioedge*&
constitutive_titanmod_pe_PerSlipSystem(j,myInstance)* & constitutive_titanmod_pe_PerSlipSystem(j,myInstance)* &
constitutive_titanmod_qe_PerSlipSystem(j,myInstance) & constitutive_titanmod_qe_PerSlipSystem(j,myInstance) &
)/ & )/ &
constitutive_titanmod_tau0e_PerSlipSystem(j,myInstance) & bottomstress_edge &
)*& )*&
StressRatio_edge_pminus1*(minusStressRatio_edge_p)** & StressRatio_edge_pminus1*(minusStressRatio_edge_p)** &
(constitutive_titanmod_qe_PerSlipSystem(j,myInstance)-1.0_pReal) & (constitutive_titanmod_qe_PerSlipSystem(j,myInstance)-1.0_pReal) &
@ -1367,17 +1425,17 @@ do f = 1,lattice_maxNslipFamily ! loop over all
( & ( &
( & ( &
(state(g,ip,el)%p(ns+j) * screw_velocity(j)) * & (state(g,ip,el)%p(ns+j) * screw_velocity(j)) * &
BoltzmannRatio* & BoltzmannRatioscrew* &
constitutive_titanmod_ps_PerSlipSystem(j,myInstance)* & constitutive_titanmod_ps_PerSlipSystem(j,myInstance)* &
constitutive_titanmod_qs_PerSlipSystem(j,myInstance) & constitutive_titanmod_qs_PerSlipSystem(j,myInstance) &
)/ & )/ &
constitutive_titanmod_tau0s_PerSlipSystem(j,myInstance) & bottomstress_screw &
)*& )*&
StressRatio_screw_pminus1*(minusStressRatio_screw_p)**(constitutive_titanmod_qs_PerSlipSystem(j,myInstance)-1.0_pReal) & StressRatio_screw_pminus1*(minusStressRatio_screw_p)**(constitutive_titanmod_qs_PerSlipSystem(j,myInstance)-1.0_pReal) &
) & ) &
) !* sign(1.0_pReal,tau_slip(j)) ) !* sign(1.0_pReal,tau_slip(j))
! state(g,ip,el)%p(13*ns+3*nt+j)=dgdot_dtauslip(j)
!************************************************* !*************************************************
!sumf=0.0_pReal !sumf=0.0_pReal
@ -1421,24 +1479,21 @@ do f = 1,lattice_maxNtwinFamily ! loop over all
!* Stress ratio for edge !* Stress ratio for edge
twinStressRatio_p = ((abs(tau_twin(j)))/ & twinStressRatio_p = ((abs(tau_twin(j)))/ &
( constitutive_titanmod_twintau0_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+nt+j)) & ( constitutive_titanmod_twintau0_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(7*ns+nt+j)) &
)**constitutive_titanmod_twinp_PerTwinSystem(j,myInstance) )**constitutive_titanmod_twinp_PerTwinSystem(j,myInstance)
if((1.0_pReal-twinStressRatio_p)>0.001_pReal) then if((1.0_pReal-twinStressRatio_p)>0.001_pReal) then
twinminusStressRatio_p=1.0_pReal-twinStressRatio_p twinminusStressRatio_p=1.0_pReal-twinStressRatio_p
else else
twinminusStressRatio_p=0.001_pReal twinminusStressRatio_p=0.001_pReal
endif endif
twinStressRatio_pminus1 = ((abs(tau_twin(j)))/ & twinStressRatio_pminus1 = ((abs(tau_twin(j)))/ &
( constitutive_titanmod_twintau0_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+nt+j)) & ( constitutive_titanmod_twintau0_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(7*ns+nt+j)) &
)**(constitutive_titanmod_twinp_PerTwinSystem(j,myInstance)-1.0_pReal) )**(constitutive_titanmod_twinp_PerTwinSystem(j,myInstance)-1.0_pReal)
!* Boltzmann ratio !* Boltzmann ratio
BoltzmannRatio = constitutive_titanmod_twinf0_PerTwinSystem(j,myInstance)/(kB*Temperature) BoltzmannRatiotwin = constitutive_titanmod_twinf0_PerTwinSystem(j,myInstance)/(kB*Temperature)
!* Initial twin shear rates !* Initial twin shear rates
TwinDotGamma0 = & TwinDotGamma0 = &
@ -1446,17 +1501,15 @@ do f = 1,lattice_maxNtwinFamily ! loop over all
!* Shear rates due to twin !* Shear rates due to twin
gdot_twin(j) =sign(1.0_pReal,tau_twin(j))*constitutive_titanmod_twingamma0_PerTwinSystem(j,myInstance)* & gdot_twin(j) =sign(1.0_pReal,tau_twin(j))*constitutive_titanmod_twingamma0_PerTwinSystem(j,myInstance)* &
exp(-BoltzmannRatio*(twinminusStressRatio_p)**constitutive_titanmod_twinq_PerTwinSystem(j,myInstance)) exp(-BoltzmannRatiotwin*(twinminusStressRatio_p)**constitutive_titanmod_twinq_PerTwinSystem(j,myInstance))
state(g,ip,el)%p(6*ns+2*nt+j)=gdot_twin(j)
!* Derivatives of shear rates in twin !* Derivatives of shear rates in twin
dgdot_dtautwin(j) = ( & dgdot_dtautwin(j) = ( &
( & ( &
( & ( &
(abs(gdot_twin(j))) * & (abs(gdot_twin(j))) * &
BoltzmannRatio*& BoltzmannRatiotwin*&
constitutive_titanmod_twinp_PerTwinSystem(j,myInstance)* & constitutive_titanmod_twinp_PerTwinSystem(j,myInstance)* &
constitutive_titanmod_twinq_PerTwinSystem(j,myInstance) & constitutive_titanmod_twinq_PerTwinSystem(j,myInstance) &
)/ & )/ &
@ -1544,7 +1597,7 @@ ns = constitutive_titanmod_totalNslip(myInstance)
nt = constitutive_titanmod_totalNtwin(myInstance) nt = constitutive_titanmod_totalNtwin(myInstance)
do i=1,nt do i=1,nt
volumefraction_pertwinsystem(i)=state(g,ip,el)%p(2*ns+i)/ & volumefraction_pertwinsystem(i)=state(g,ip,el)%p(3*ns+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance) constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance)
enddo enddo
@ -1560,17 +1613,17 @@ constitutive_titanmod_dotState = 0.0_pReal
j = j+1_pInt j = j+1_pInt
!* Multiplication of edge dislocations !* Multiplication of edge dislocations
DotRhoEdgeGeneration(j) = (state(g,ip,el)%p(ns+j)*state(g,ip,el)%p(8*ns+3*nt+j)/state(g,ip,el)%p(3*ns+nt+j)) DotRhoEdgeGeneration(j) = (state(g,ip,el)%p(ns+j)*state(g,ip,el)%p(8*ns+2*nt+j)/state(g,ip,el)%p(4*ns+nt+j))
!* Multiplication of screw dislocations !* Multiplication of screw dislocations
DotRhoScrewGeneration(j) = (state(g,ip,el)%p(j)*state(g,ip,el)%p(7*ns+3*nt+j)/state(g,ip,el)%p(2*ns+nt+j)) DotRhoScrewGeneration(j) = (state(g,ip,el)%p(j)*state(g,ip,el)%p(7*ns+2*nt+j)/state(g,ip,el)%p(3*ns+nt+j))
!* Annihilation of edge dislocations !* Annihilation of edge dislocations
DotRhoEdgeAnnihilation(j) = -((state(g,ip,el)%p(j))**2)* & DotRhoEdgeAnnihilation(j) = -((state(g,ip,el)%p(j))**2)* &
constitutive_titanmod_capre_PerSlipSystem(j,myInstance)*state(g,ip,el)%p(7*ns+3*nt+j)/2.0_pReal constitutive_titanmod_capre_PerSlipSystem(j,myInstance)*state(g,ip,el)%p(7*ns+2*nt+j)/2.0_pReal
!* Annihilation of screw dislocations !* Annihilation of screw dislocations
DotRhoScrewAnnihilation(j) = -((state(g,ip,el)%p(ns+j))**2)* & DotRhoScrewAnnihilation(j) = -((state(g,ip,el)%p(ns+j))**2)* &
constitutive_titanmod_caprs_PerSlipSystem(j,myInstance)*state(g,ip,el)%p(8*ns+3*nt+j)/2.0_pReal constitutive_titanmod_caprs_PerSlipSystem(j,myInstance)*state(g,ip,el)%p(8*ns+2*nt+j)/2.0_pReal
!* Edge dislocation density rate of change !* Edge dislocation density rate of change
constitutive_titanmod_dotState(j) = & constitutive_titanmod_dotState(j) = &
@ -1580,7 +1633,8 @@ constitutive_titanmod_dotState = 0.0_pReal
constitutive_titanmod_dotState(ns+j) = & constitutive_titanmod_dotState(ns+j) = &
DotRhoScrewGeneration(j)+DotRhoScrewAnnihilation(j) DotRhoScrewGeneration(j)+DotRhoScrewAnnihilation(j)
constitutive_titanmod_dotState(2*ns+j) = &
state(g,ip,el)%p(10*ns+2*nt+j)+state(g,ip,el)%p(11*ns+2*nt+j) ! sum of shear due to edge and screw
enddo enddo
enddo enddo
@ -1612,7 +1666,7 @@ do f = 1,lattice_maxNtwinFamily ! loop over all
!* Stress ratio for edge !* Stress ratio for edge
twinStressRatio_p = ((abs(tau_twin(j)))/ & twinStressRatio_p = ((abs(tau_twin(j)))/ &
( constitutive_titanmod_twintau0_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(6*ns+nt+j)) & ( constitutive_titanmod_twintau0_PerTwinSystem(j,myInstance)+state(g,ip,el)%p(7*ns+nt+j)) &
)**(constitutive_titanmod_twinp_PerTwinSystem(j,myInstance)) )**(constitutive_titanmod_twinp_PerTwinSystem(j,myInstance))
@ -1629,7 +1683,7 @@ do f = 1,lattice_maxNtwinFamily ! loop over all
(twinminusStressRatio_p)** & (twinminusStressRatio_p)** &
constitutive_titanmod_twinq_PerTwinSystem(j,myInstance))*sign(1.0_pReal,tau_twin(j)) constitutive_titanmod_twinq_PerTwinSystem(j,myInstance))*sign(1.0_pReal,tau_twin(j))
constitutive_titanmod_dotState(2*ns+j)=gdot_twin(j) constitutive_titanmod_dotState(3*ns+j)=gdot_twin(j)
enddo enddo
enddo enddo
@ -1714,7 +1768,7 @@ ns = constitutive_titanmod_totalNslip(myInstance)
nt = constitutive_titanmod_totalNtwin(myInstance) nt = constitutive_titanmod_totalNtwin(myInstance)
do i=1,nt do i=1,nt
volumefraction_pertwinsystem(i)=state(g,ip,el)%p(2*ns+i)/ & volumefraction_pertwinsystem(i)=state(g,ip,el)%p(3*ns+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance) constitutive_titanmod_twinshearconstant_PerTwinSystem(i,myInstance)
enddo enddo
@ -1738,44 +1792,87 @@ do o = 1,phase_Noutput(material_phase(g,ip,el))
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 ('segment_edge') case ('segment_edge')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((2*ns+nt+1):(3*ns+nt))
c = c + ns
case ('segment_screw')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((3*ns+nt+1):(4*ns+nt)) constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((3*ns+nt+1):(4*ns+nt))
c = c + ns c = c + ns
case ('resistance_edge') case ('segment_screw')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((4*ns+nt+1):(5*ns+nt)) constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((4*ns+nt+1):(5*ns+nt))
c = c + ns c = c + ns
case ('resistance_screw') case ('resistance_edge')
constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((5*ns+nt+1):(6*ns+nt)) constitutive_titanmod_postResults(c+1:c+ns) = state(g,ip,el)%p((5*ns+nt+1):(6*ns+nt))
c = c + ns c = c + ns
case ('tau_slip') case ('resistance_screw')
constitutive_titanmod_postResults(c+1:c+ns) = abs(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((6*ns+nt+1):(7*ns+nt))
c = c + ns
case ('gdot_slip')
constitutive_titanmod_postResults(c+1:c+ns) = abs(state(g,ip,el)%p((6*ns+3*nt+1):(7*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+2*nt+1):(8*ns+2*nt))
c = c + ns c = c + ns
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+2*nt+1):(9*ns+2*nt))
c = c + ns
case ('tau_slip')
constitutive_titanmod_postResults(c+1:c+ns) = abs(state(g,ip,el)%p((9*ns+2*nt+1):(10*ns+2*nt)))
c = c + ns c = c + ns
case ('gdot_slip_edge') case ('gdot_slip_edge')
constitutive_titanmod_postResults(c+1:c+ns) = abs(state(g,ip,el)%p((10*ns+3*nt+1):(11*ns+3*nt))) constitutive_titanmod_postResults(c+1:c+ns) = abs(state(g,ip,el)%p((10*ns+2*nt+1):(11*ns+2*nt)))
c = c + ns c = c + ns
case ('gdot_slip_screw') case ('gdot_slip_screw')
constitutive_titanmod_postResults(c+1:c+ns) = abs(state(g,ip,el)%p((11*ns+3*nt+1):(12*ns+3*nt))) constitutive_titanmod_postResults(c+1:c+ns) = abs(state(g,ip,el)%p((11*ns+2*nt+1):(12*ns+2*nt)))
c = c + ns
case ('gdot_slip')
constitutive_titanmod_postResults(c+1:c+ns) = abs(state(g,ip,el)%p((10*ns+2*nt+1):(11*ns+2*nt))) + &
abs(state(g,ip,el)%p((11*ns+2*nt+1):(12*ns+2*nt)))
c = c + ns c = c + ns
case ('stressratio_edge_p') case ('stressratio_edge_p')
constitutive_titanmod_postResults(c+1:c+ns) = abs(state(g,ip,el)%p((12*ns+3*nt+1):(13*ns+3*nt))) constitutive_titanmod_postResults(c+1:c+ns) = abs(state(g,ip,el)%p((12*ns+2*nt+1):(13*ns+2*nt)))
c = c + ns c = c + ns
case ('stressratio_screw_p') case ('stressratio_screw_p')
constitutive_titanmod_postResults(c+1:c+ns) = abs(state(g,ip,el)%p((13*ns+3*nt+1):(14*ns+3*nt))) constitutive_titanmod_postResults(c+1:c+ns) = abs(state(g,ip,el)%p((13*ns+2*nt+1):(14*ns+2*nt)))
c = c + ns c = c + ns
case ('gdot_twin') case ('shear_system')
constitutive_titanmod_postResults(c+1:c+nt) = abs(state(g,ip,el)%p((6*ns+2*nt+1):(6*ns+3*nt))) constitutive_titanmod_postResults(c+1:c+ns) = abs(state(g,ip,el)%p((2*ns+1):(3*ns)))
c = c + nt c = c + ns
case ('shear_basal')
constitutive_titanmod_postResults(c+1:c+1) = sum(abs(state(g,ip,el)%p((2*ns+1):(2*ns+3))))
c = c + 1
case ('shear_prism')
constitutive_titanmod_postResults(c+1:c+1) = sum(abs(state(g,ip,el)%p((2*ns+4):(2*ns+6))))
c = c + 1
case ('shear_pyra')
constitutive_titanmod_postResults(c+1:c+1) = sum(abs(state(g,ip,el)%p((2*ns+7):(2*ns+12))))
c = c + 1
case ('shear_pyrca')
constitutive_titanmod_postResults(c+1:c+1) = sum(abs(state(g,ip,el)%p((2*ns+13):(2*ns+24))))
c = c + 1
case ('rhoedge_basal')
constitutive_titanmod_postResults(c+1:c+1) = sum(state(g,ip,el)%p((1):(3)))
c = c + 1
case ('rhoedge_prism')
constitutive_titanmod_postResults(c+1:c+1) = sum(state(g,ip,el)%p((4):(6)))
c = c + 1
case ('rhoedge_pyra')
constitutive_titanmod_postResults(c+1:c+1) = sum(state(g,ip,el)%p((7):(12)))
c = c + 1
case ('rhoedge_pyrca')
constitutive_titanmod_postResults(c+1:c+1) = sum(state(g,ip,el)%p((13):(24)))
c = c + 1
case ('rhoscrew_basal')
constitutive_titanmod_postResults(c+1:c+1) = sum(state(g,ip,el)%p((ns+1):(ns+3)))
c = c + 1
case ('rhoscrew_prism')
constitutive_titanmod_postResults(c+1:c+1) = sum(state(g,ip,el)%p((ns+4):(ns+6)))
c = c + 1
case ('rhoscrew_pyra')
constitutive_titanmod_postResults(c+1:c+1) = sum(state(g,ip,el)%p((ns+7):(ns+12)))
c = c + 1
case ('rhoscrew_pyrca')
constitutive_titanmod_postResults(c+1:c+1) = sum(state(g,ip,el)%p((ns+13):(ns+24)))
c = c + 1
case ('shear_total')
constitutive_titanmod_postResults(c+1:c+1) = sum(abs(state(g,ip,el)%p((2*ns+1):(3*ns))))
c = c + 1
case ('twin_fraction') case ('twin_fraction')
constitutive_titanmod_postResults(c+1:c+nt) = abs(volumefraction_pertwinsystem(1:nt)) constitutive_titanmod_postResults(c+1:c+nt) = abs(volumefraction_pertwinsystem(1:nt))
c = c + nt c = c + nt
@ -1785,14 +1882,20 @@ do o = 1,phase_Noutput(material_phase(g,ip,el))
! 'segment_screw', & ! 'segment_screw', &
! 'resistance_edge', & ! 'resistance_edge', &
! 'resistance_screw', & ! 'resistance_screw', &
! 'tau_slip', &
! 'gdot_slip', &
! 'velocity_edge', & ! 'velocity_edge', &
! 'velocity_screw', & ! 'velocity_screw', &
! 'tau_slip', &
! 'gdot_slip_edge' & ! 'gdot_slip_edge' &
! 'gdot_slip_screw' & ! 'gdot_slip_screw' &
! 'gdot_slip', &
! 'StressRatio_edge_p' & ! 'StressRatio_edge_p' &
! 'StressRatio_screw_p' ! 'StressRatio_screw_p'
! 'shear_total', &
! 'shear_basal' &
! 'shear_prism', &
! 'shear_pyra', &
! 'shear_pyrca', &
! 'twin_fraction', &
end select end select
enddo enddo