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

fixed typo

This commit is contained in:
Martin Diehl 2020-09-19 22:08:38 +02:00
parent c108b4df66
commit 42186b9f87
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/marc/discretization_marc.f90
View File

@ -1032,7 +1032,7 @@ pure function IPareaNormal(elem,nElem,connectivity,node)
case (4) ! 3D 8node case (4) ! 3D 8node
! Get the normal of the quadrilateral face as the average of four normals of triangular ! Get the normal of the quadrilateral face as the average of four normals of triangular
! subfaces. Since the face consists only of two triangles, the sum has to be divided ! subfaces. Since the face consists only of two triangles, the sum has to be divided
! by two. This procedure tries to compensate forprobable non-planar cell surfaces ! by two. This procedure tries to compensate for probable non-planar cell surfaces
IPareaNormal(1:3,f,i,e) = 0.0_pReal IPareaNormal(1:3,f,i,e) = 0.0_pReal
do n = 1, m do n = 1, m
IPareaNormal(1:3,f,i,e) = IPareaNormal(1:3,f,i,e) & IPareaNormal(1:3,f,i,e) = IPareaNormal(1:3,f,i,e) &