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

vectorized

This commit is contained in:
Martin Diehl 2020-03-16 16:41:55 +01:00
parent 9d6bd1cb77
commit ad014d40be
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/constitutive_plastic_nonlocal.f90
View File

@ -638,7 +638,6 @@ module subroutine plastic_nonlocal_dependentState(F, Fp, ip, el)
n n
real(pReal) :: & real(pReal) :: &
FVsize, & FVsize, &
correction, &
nRealNeighbors ! number of really existing neighbors nRealNeighbors ! number of really existing neighbors
integer, dimension(2) :: & integer, dimension(2) :: &
neighbors neighbors
@ -668,7 +667,6 @@ module subroutine plastic_nonlocal_dependentState(F, Fp, ip, el)
real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phaseAt(1,el))), & real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phaseAt(1,el))), &
totalNslip(phase_plasticityInstance(material_phaseAt(1,el)))) :: & totalNslip(phase_plasticityInstance(material_phaseAt(1,el)))) :: &
myInteractionMatrix ! corrected slip interaction matrix myInteractionMatrix ! corrected slip interaction matrix
real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phaseAt(1,el))),nIPneighbors) :: & real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phaseAt(1,el))),nIPneighbors) :: &
rho_edg_delta_neighbor, & rho_edg_delta_neighbor, &
rho_scr_delta_neighbor rho_scr_delta_neighbor
@ -695,13 +693,11 @@ module subroutine plastic_nonlocal_dependentState(F, Fp, ip, el)
! coefficients are corrected for the line tension effect ! coefficients are corrected for the line tension effect
! (see Kubin,Devincre,Hoc; 2008; Modeling dislocation storage rates and mean free paths in face-centered cubic crystals) ! (see Kubin,Devincre,Hoc; 2008; Modeling dislocation storage rates and mean free paths in face-centered cubic crystals)
if (any(lattice_structure(material_phaseAt(1,el)) == [LATTICE_bcc_ID,LATTICE_fcc_ID])) then if (any(lattice_structure(material_phaseAt(1,el)) == [LATTICE_bcc_ID,LATTICE_fcc_ID])) then
do s = 1,ns myInteractionMatrix = prm%interactionSlipSlip &
correction = ( 1.0_pReal - prm%linetensionEffect & * transpose(spread(( 1.0_pReal - prm%linetensionEffect &
+ prm%linetensionEffect & + prm%linetensionEffect &
* log(0.35_pReal * prm%burgers(s) * sqrt(max(stt%rho_forest(s,of),prm%significantRho))) & * log(0.35_pReal * prm%burgers * sqrt(max(stt%rho_forest(:,of),prm%significantRho))) &
/ log(0.35_pReal * prm%burgers(s) * 1e6_pReal)) ** 2.0_pReal / log(0.35_pReal * prm%burgers * 1e6_pReal))** 2.0_pReal,2,ns))
myInteractionMatrix(:,s) = correction * prm%interactionSlipSlip(:,s)
enddo
else else
myInteractionMatrix = prm%interactionSlipSlip myInteractionMatrix = prm%interactionSlipSlip
endif endif