correction of interaction coefficients due to line tension effect only applies to coefficients 3, 4 and 5

This commit is contained in:
Christoph Kords 2012-12-04 18:23:46 +00:00
parent 0986a66449
commit 20f7053ad3
1 changed files with 1 additions and 1 deletions

View File

@ -1312,7 +1312,7 @@ if (latticeStruct == 1_pInt) then ! in case of fcc: coefficients are corrected f
constitutive_nonlocal_slipSystemLattice(s2,instance), & constitutive_nonlocal_slipSystemLattice(s2,instance), &
latticeStruct) latticeStruct)
select case(interactionCoefficient) select case(interactionCoefficient)
case(3_pInt,4_pInt,5_pInt,6_pInt) ! only correct junction forming interactions (4,5,6) and colinear interaction (3) case(4_pInt,5_pInt,6_pInt) ! only correct junction forming interactions (4,5,6)
myInteractionMatrix(s,s2) = correction * myInteractionMatrix(s,s2) myInteractionMatrix(s,s2) = correction * myInteractionMatrix(s,s2)
endselect endselect
enddo enddo