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

Still there are issues linking a volume to an edge.
2021-03-15 10:00:34 +01:00 · 2021-03-15 10:00:34 +01:00 · c236c5e0e2
commit c236c5e0e2
parent 1e66110014
8 changed files with 123 additions and 148 deletions
--- a/src/modules/mesh/1DRad/moduleMesh1DRadRead.f90
+++ b/src/modules/mesh/1DRad/moduleMesh1DRadRead.f90
@ -218,6 +218,9 @@ MODULE moduleMesh1DRadRead
        elemA%e1 => elemB
        elemB%e2 => elemA

+        !Revers the normal to point inside the domain
+        elemB%normal = - elemB%normal
+
      END IF

      IF (.NOT. ASSOCIATED(elemA%e2) .AND. &