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

Fixing some issues in 3D Cartesian coordinates. Included 3D pusher.

Browse source 
Still there are issues linking a volume to an edge.
This commit is contained in:
Jorge Gonzalez 2021-03-15 10:00:34 +01:00
commit c236c5e0e2
8 changed files with 123 additions and 148 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/modules/mesh/2DCyl/moduleMesh2DCylRead.f90
View file

@ -439,6 +439,9 @@ MODULE moduleMesh2DCylRead
elemA%e1 => elemB
elemB%e2 => elemA
!Revers the normal to point inside the domain
elemB%normal = - elemB%normal
ELSEIF (elemA%n1%n == elemB%n2%n .AND. &
elemA%n2%n == elemB%n1%n) THEN
elemA%e1 => elemB
@ -455,6 +458,9 @@ MODULE moduleMesh2DCylRead
elemA%e2 => elemB
elemB%e2 => elemA
!Revers the normal to point inside the domain
elemB%normal = - elemB%normal
ELSEIF (elemA%n2%n == elemB%n2%n .AND. &
elemA%n3%n == elemB%n1%n) THEN
elemA%e2 => elemB
@ -471,6 +477,9 @@ MODULE moduleMesh2DCylRead
elemA%e3 => elemB
elemB%e2 => elemA
!Revers the normal to point inside the domain
elemB%normal = - elemB%normal
ELSEIF (elemA%n3%n == elemB%n2%n .AND. &
elemA%n4%n == elemB%n1%n) THEN
elemA%e3 => elemB
@ -511,6 +520,9 @@ MODULE moduleMesh2DCylRead
elemA%e1 => elemB
elemB%e2 => elemA
!Revers the normal to point inside the domain
elemB%normal = - elemB%normal
ELSEIF (elemA%n1%n == elemB%n2%n .AND. &
elemA%n2%n == elemB%n1%n) THEN
elemA%e1 => elemB
@ -527,6 +539,9 @@ MODULE moduleMesh2DCylRead
elemA%e2 => elemB
elemB%e2 => elemA
!Revers the normal to point inside the domain
elemB%normal = - elemB%normal
ELSEIF (elemA%n2%n == elemB%n2%n .AND. &
elemA%n3%n == elemB%n1%n) THEN
elemA%e2 => elemB
@ -543,6 +558,9 @@ MODULE moduleMesh2DCylRead
elemA%e3 => elemB
elemB%e2 => elemA
!Revers the normal to point inside the domain
elemB%normal = - elemB%normal
ELSEIF (elemA%n3%n == elemB%n2%n .AND. &
elemA%n1%n == elemB%n1%n) THEN
elemA%e3 => elemB