JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge branch 'development' into feature/3DCart

Browse source
This commit is contained in:
Jorge Gonzalez 2021-03-11 18:43:44 +01:00
commit 1e66110014
9 changed files with 123 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/modules/mesh/3DCart/moduleMesh3DCart.f90
View file

@ -159,6 +159,7 @@ MODULE moduleMesh3DCart
self%normal = (/ (self%y(2)-self%y(1))*(self%z(3)-self%z(1)) - (self%z(2)-self%z(1))*(self%y(3)-self%y(1)), &
(self%x(2)-self%x(1))*(self%z(3)-self%z(1)) - (self%z(2)-self%z(1))*(self%x(3)-self%x(1)), &
(self%x(2)-self%x(1))*(self%y(3)-self%y(1)) - (self%z(2)-self%z(1))*(self%y(3)-self%y(1)) /)
self%normal = self%normal/NORM2(self%normal)
!Boundary index
self%boundary => boundary(bt)