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

unused variables

This commit is contained in:
Martin Diehl 2015-12-14 19:48:11 +00:00
parent 3a7f4bf43a
commit dc990a88d6
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/plastic_dislotwin.f90
View File

@ -2026,7 +2026,7 @@ subroutine plastic_dislotwin_dotState(Tstar_v,Temperature,ipc,ip,el)
ip, & !< integration point ip, & !< integration point
el !< element el !< element
integer(pInt) :: instance,ns,nt,nr,f,i,j,index_myFamily,s1,s2,a,b,sa,sb,ssa,ssb, & integer(pInt) :: instance,ns,nt,nr,f,i,j,index_myFamily,s1,s2, &
ph, & ph, &
of of
real(pReal) :: sumf,sumftr,StressRatio_p,StressRatio_pminus1,BoltzmannRatio,DotGamma0,& real(pReal) :: sumf,sumftr,StressRatio_p,StressRatio_pminus1,BoltzmannRatio,DotGamma0,&

5
code/plastic_phenoplus.f90
View File

@ -788,7 +788,6 @@ subroutine plastic_phenoplus_microstructure(orientation,ipc,ip,el)
vld_Nneighbors, & !number of my valid neighbors vld_Nneighbors, & !number of my valid neighbors
n, & !neighbor index (for iterating through all neighbors) n, & !neighbor index (for iterating through all neighbors)
ns, & !number of slip system ns, & !number of slip system
nns, & !number of slip in my neighbors
nt, & !number of twin system nt, & !number of twin system
me_slip, & !my slip system index me_slip, & !my slip system index
neighbor_el, & !element number of neighboring material point neighbor_el, & !element number of neighboring material point
@ -802,14 +801,12 @@ subroutine plastic_phenoplus_microstructure(orientation,ipc,ip,el)
j !quickly loop through slip families j !quickly loop through slip families
real(pReal) kappa_max, & ! real(pReal) kappa_max, & !
weight_sum, & !temp storage for the denominator in weighting function
mprimeavg mprimeavg
real(pReal), dimension(plastic_phenoplus_totalNslip(phase_plasticityInstance(material_phase(1,ip,el)))) :: & real(pReal), dimension(plastic_phenoplus_totalNslip(phase_plasticityInstance(material_phase(1,ip,el)))) :: &
m_primes, & !m' between me_alpha(one) and neighbor beta(all) m_primes, & !m' between me_alpha(one) and neighbor beta(all)
me_acshear, & !temp storage for ac_shear of one particular system for me me_acshear !temp storage for ac_shear of one particular system for me
ne_acshear !temp storage for ac_shear of one particular system for one of my neighbor
real(pReal), dimension(3,plastic_phenoplus_totalNslip(phase_plasticityInstance(material_phase(1,ip,el)))) :: & real(pReal), dimension(3,plastic_phenoplus_totalNslip(phase_plasticityInstance(material_phase(1,ip,el)))) :: &
slipNormal, & slipNormal, &