Fixed an issue with normal vector not being norm unit, which was causing
reflected particle velocities to increase.
This commit is contained in:
parent
95d5a1200d
commit
ff0c09242d
5 changed files with 6 additions and 0 deletions
|
|
@ -145,6 +145,7 @@ MODULE moduleMesh1DCart
|
||||||
self%x = r1(1)
|
self%x = r1(1)
|
||||||
|
|
||||||
self%normal = (/ 1.D0, 0.D0, 0.D0 /)
|
self%normal = (/ 1.D0, 0.D0, 0.D0 /)
|
||||||
|
self%normal = self%normal/NORM2(self%normal)
|
||||||
|
|
||||||
!Boundary index
|
!Boundary index
|
||||||
self%boundary => boundary(bt)
|
self%boundary => boundary(bt)
|
||||||
|
|
|
||||||
|
|
@ -146,6 +146,7 @@ MODULE moduleMesh1DRad
|
||||||
self%r = r1(1)
|
self%r = r1(1)
|
||||||
|
|
||||||
self%normal = (/ 1.D0, 0.D0, 0.D0 /)
|
self%normal = (/ 1.D0, 0.D0, 0.D0 /)
|
||||||
|
self%normal = self%normal/NORM2(self%normal)
|
||||||
|
|
||||||
!Boundary index
|
!Boundary index
|
||||||
self%boundary => boundary(bt)
|
self%boundary => boundary(bt)
|
||||||
|
|
|
||||||
|
|
@ -193,6 +193,8 @@ MODULE moduleMesh2DCart
|
||||||
self%normal = (/ self%y(2)-self%y(1), &
|
self%normal = (/ self%y(2)-self%y(1), &
|
||||||
self%x(2)-self%x(1), &
|
self%x(2)-self%x(1), &
|
||||||
0.D0 /)
|
0.D0 /)
|
||||||
|
self%normal = self%normal/NORM2(self%normal)
|
||||||
|
|
||||||
!Boundary index
|
!Boundary index
|
||||||
self%boundary => boundary(bt)
|
self%boundary => boundary(bt)
|
||||||
ALLOCATE(self%fboundary(1:nSpecies))
|
ALLOCATE(self%fboundary(1:nSpecies))
|
||||||
|
|
|
||||||
|
|
@ -194,6 +194,7 @@ MODULE moduleMesh2DCyl
|
||||||
self%normal = (/ self%r(2)-self%r(1), &
|
self%normal = (/ self%r(2)-self%r(1), &
|
||||||
self%z(2)-self%z(1), &
|
self%z(2)-self%z(1), &
|
||||||
0.D0 /)
|
0.D0 /)
|
||||||
|
self%normal = self%normal/NORM2(self%normal)
|
||||||
!Boundary index
|
!Boundary index
|
||||||
self%boundary => boundary(bt)
|
self%boundary => boundary(bt)
|
||||||
ALLOCATE(self%fboundary(1:nSpecies))
|
ALLOCATE(self%fboundary(1:nSpecies))
|
||||||
|
|
|
||||||
|
|
@ -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%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%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%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
|
!Boundary index
|
||||||
self%boundary => boundary(bt)
|
self%boundary => boundary(bt)
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue