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

div by zero in output

This commit is contained in:
Martin Diehl 2016-01-07 11:48:30 +00:00
parent 0e01439e7d
commit 1857e47f75
1 changed files with 34 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
code/plastic_dislotwin.f90
View File

@ -1559,13 +1559,13 @@ subroutine plastic_dislotwin_microstructure(temperature,ipc,ip,el)
!* mean free path between 2 obstacles seen by a growing twin !* mean free path between 2 obstacles seen by a growing twin
forall (t = 1_pInt:nt) & forall (t = 1_pInt:nt) &
state(ph)%mfp_twin(t,of) = & state(ph)%mfp_twin(t,of) = &
(plastic_dislotwin_Cmfptwin(instance)*plastic_dislotwin_GrainSize(instance))/& plastic_dislotwin_Cmfptwin(instance)*plastic_dislotwin_GrainSize(instance)/&
(1.0_pReal+plastic_dislotwin_GrainSize(instance)*state(ph)%invLambdaTwin(t,of)) (1.0_pReal+plastic_dislotwin_GrainSize(instance)*state(ph)%invLambdaTwin(t,of))
!* mean free path between 2 obstacles seen by a growing martensite !* mean free path between 2 obstacles seen by a growing martensite
forall (r = 1_pInt:nr) & forall (r = 1_pInt:nr) &
state(ph)%mfp_trans(r,of) = & state(ph)%mfp_trans(r,of) = &
(plastic_dislotwin_Cmfptrans(instance)*plastic_dislotwin_GrainSize(instance))/& plastic_dislotwin_Cmfptrans(instance)*plastic_dislotwin_GrainSize(instance)/&
(1.0_pReal+plastic_dislotwin_GrainSize(instance)*state(ph)%invLambdaTrans(r,of)) (1.0_pReal+plastic_dislotwin_GrainSize(instance)*state(ph)%invLambdaTrans(r,of))
!* threshold stress for dislocation motion !* threshold stress for dislocation motion
@ -1579,19 +1579,21 @@ subroutine plastic_dislotwin_microstructure(temperature,ipc,ip,el)
forall (t = 1_pInt:nt) & forall (t = 1_pInt:nt) &
state(ph)%threshold_stress_twin(t,of) = & state(ph)%threshold_stress_twin(t,of) = &
plastic_dislotwin_Cthresholdtwin(instance)* & plastic_dislotwin_Cthresholdtwin(instance)* &
(sfe/(3.0_pReal*plastic_dislotwin_burgersPerTwinSystem(t,instance))+& (sfe/(3.0_pReal*plastic_dislotwin_burgersPerTwinSystem(t,instance)) &
3.0_pReal*plastic_dislotwin_burgersPerTwinSystem(t,instance)*lattice_mu(ph)/& + 3.0_pReal*plastic_dislotwin_burgersPerTwinSystem(t,instance)*lattice_mu(ph)/&
(plastic_dislotwin_L0_twin(instance)*plastic_dislotwin_burgersPerSlipSystem(t,instance))) (plastic_dislotwin_L0_twin(instance)*plastic_dislotwin_burgersPerSlipSystem(t,instance)) &
)
!* threshold stress for growing martensite !* threshold stress for growing martensite
forall (r = 1_pInt:nr) & forall (r = 1_pInt:nr) &
state(ph)%threshold_stress_trans(r,of) = & state(ph)%threshold_stress_trans(r,of) = &
plastic_dislotwin_Cthresholdtrans(instance)* & plastic_dislotwin_Cthresholdtrans(instance)* &
(sfe/(3.0_pReal*plastic_dislotwin_burgersPerTransSystem(r,instance)) + & (sfe/(3.0_pReal*plastic_dislotwin_burgersPerTransSystem(r,instance)) &
3.0_pReal*plastic_dislotwin_burgersPerTransSystem(r,instance)*lattice_mu(ph)/& + 3.0_pReal*plastic_dislotwin_burgersPerTransSystem(r,instance)*lattice_mu(ph)/&
(plastic_dislotwin_L0_trans(instance)*plastic_dislotwin_burgersPerSlipSystem(r,instance)) + & (plastic_dislotwin_L0_trans(instance)*plastic_dislotwin_burgersPerSlipSystem(r,instance))&
(plastic_dislotwin_transStackHeight(instance)*plastic_dislotwin_deltaG(instance))/ & + plastic_dislotwin_transStackHeight(instance)*plastic_dislotwin_deltaG(instance)/ &
(3.0_pReal*plastic_dislotwin_burgersPerTransSystem(r,instance))) (3.0_pReal*plastic_dislotwin_burgersPerTransSystem(r,instance)) &
)
!* final twin volume after growth !* final twin volume after growth
forall (t = 1_pInt:nt) & forall (t = 1_pInt:nt) &
@ -2082,11 +2084,10 @@ subroutine plastic_dislotwin_dotState(Tstar_v,Temperature,ipc,ip,el)
if (EdgeDipDistance-EdgeDipMinDistance <= tiny(0.0_pReal)) then if (EdgeDipDistance-EdgeDipMinDistance <= tiny(0.0_pReal)) then
DotRhoEdgeDipClimb = 0.0_pReal DotRhoEdgeDipClimb = 0.0_pReal
else else
ClimbVelocity = & ClimbVelocity = 3.0_pReal*lattice_mu(ph)*VacancyDiffusion*AtomicVolume/ &
((3.0_pReal*lattice_mu(ph)*VacancyDiffusion*AtomicVolume)/(2.0_pReal*pi*kB*Temperature))*& (2.0_pReal*pi*kB*Temperature*(EdgeDipDistance+EdgeDipMinDistance))
(1/(EdgeDipDistance+EdgeDipMinDistance)) DotRhoEdgeDipClimb = 4.0_pReal*ClimbVelocity*state(ph)%rhoEdgeDip(j,of)/ &
DotRhoEdgeDipClimb = & (EdgeDipDistance-EdgeDipMinDistance)
(4.0_pReal*ClimbVelocity*state(ph)%rhoEdgeDip(j,of))/(EdgeDipDistance-EdgeDipMinDistance)
endif endif
endif endif
@ -2259,10 +2260,6 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el)
!* Required output !* Required output
c = 0_pInt c = 0_pInt
plastic_dislotwin_postResults = 0.0_pReal plastic_dislotwin_postResults = 0.0_pReal
!* Spectral decomposition of stress
call math_spectralDecompositionSym33(math_Mandel6to33(Tstar_v),eigValues,eigVectors, error)
do o = 1_pInt,plastic_dislotwin_Noutput(instance) do o = 1_pInt,plastic_dislotwin_Noutput(instance)
select case(plastic_dislotwin_outputID(o,instance)) select case(plastic_dislotwin_outputID(o,instance))
@ -2419,11 +2416,8 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el)
do i = 1,plastic_dislotwin_Ntwin(f,instance) ! process each (active) twin system in family do i = 1,plastic_dislotwin_Ntwin(f,instance) ! process each (active) twin system in family
j = j + 1_pInt j = j + 1_pInt
!* Resolved shear stress on twin system
tau = dot_product(Tstar_v,lattice_Stwin_v(:,index_myFamily+i,ph)) tau = dot_product(Tstar_v,lattice_Stwin_v(:,index_myFamily+i,ph))
!* Stress ratios
StressRatio_r = (state(ph)%threshold_stress_twin(j,of)/ &
tau)**plastic_dislotwin_rPerTwinFamily(f,instance)
!* Shear rates due to twin !* Shear rates due to twin
if ( tau > 0.0_pReal ) then if ( tau > 0.0_pReal ) then
@ -2444,6 +2438,8 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el)
case default case default
Ndot0_twin=plastic_dislotwin_Ndot0PerTwinSystem(j,instance) Ndot0_twin=plastic_dislotwin_Ndot0PerTwinSystem(j,instance)
end select end select
StressRatio_r = (state(ph)%threshold_stress_twin(j,of)/tau) &
**plastic_dislotwin_rPerTwinFamily(f,instance)
plastic_dislotwin_postResults(c+j) = & plastic_dislotwin_postResults(c+j) = &
(plastic_dislotwin_MaxTwinFraction(instance)-sumf)*lattice_shearTwin(index_myFamily+i,ph)*& (plastic_dislotwin_MaxTwinFraction(instance)-sumf)*lattice_shearTwin(index_myFamily+i,ph)*&
state(ph)%twinVolume(j,of)*Ndot0_twin*exp(-StressRatio_r) state(ph)%twinVolume(j,of)*Ndot0_twin*exp(-StressRatio_r)
@ -2524,10 +2520,11 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el)
enddo ; enddo enddo ; enddo
c = c + ns c = c + ns
case (sb_eigenvalues_ID) case (sb_eigenvalues_ID)
forall (j = 1_pInt:3_pInt) & call math_spectralDecompositionSym33(math_Mandel6to33(Tstar_v),eigValues,eigVectors, error)
plastic_dislotwin_postResults(c+j) = eigValues(j) plastic_dislotwin_postResults(c+1_pInt:c+3_pInt) = eigValues
c = c + 3_pInt c = c + 3_pInt
case (sb_eigenvectors_ID) case (sb_eigenvectors_ID)
call math_spectralDecompositionSym33(math_Mandel6to33(Tstar_v),eigValues,eigVectors, error)
plastic_dislotwin_postResults(c+1_pInt:c+9_pInt) = reshape(eigVectors,[9]) plastic_dislotwin_postResults(c+1_pInt:c+9_pInt) = reshape(eigVectors,[9])
c = c + 9_pInt c = c + 9_pInt
case (stress_trans_fraction_ID) case (stress_trans_fraction_ID)