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

corrected typo in random multiplication term

This commit is contained in:
Christoph Kords 2012-12-06 14:04:18 +00:00
parent 9fd7b5f11a
commit 1f5a30d6f0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/constitutive_nonlocal.f90
View File

@ -2242,7 +2242,7 @@ if (constitutive_nonlocal_probabilisticMultiplication(myInstance)) then
!$OMP FLUSH(constitutive_nonlocal_sourceProbability) !$OMP FLUSH(constitutive_nonlocal_sourceProbability)
endif endif
if (constitutive_nonlocal_sourceProbability(s,g,ip,el) > 1.0_pReal - nSources(s)) then if (constitutive_nonlocal_sourceProbability(s,g,ip,el) > 1.0_pReal - nSources(s)) then
rhoDotMultiplication(s,1:4) = sum(rhoSglOriginal(1:ns,1:4),2) * abs(v(s,1:4)) / meshlength rhoDotMultiplication(s,1:4) = sum(rhoSglOriginal(s,1:4) * abs(v(s,1:4))) / meshlength
endif endif
else else
constitutive_nonlocal_sourceProbability(s,g,ip,el) = 2.0_pReal constitutive_nonlocal_sourceProbability(s,g,ip,el) = 2.0_pReal