Structure for 3D Cartesian Grid created.

Unification of boundary conditions into one file.

Some changes to input file for reference cases. This should have been
done in another branch but I wanto to commit to save progress and I
don't want to deal with tswitching branches right now, I'm very busy
watching Futurama.

src/modules/mesh/1DCart/moduleMesh1DCart.f90

@@ -4,6 +4,7 @@
 !              z == unused
 MODULE moduleMesh1DCart
   USE moduleMesh
+  USE moduleMeshBoundary
   IMPLICIT NONE
 
   TYPE, PUBLIC, EXTENDS(meshNode):: meshNode1DCart
@@ -21,52 +22,13 @@ MODULE moduleMesh1DCart
     !Connectivity to nodes
     CLASS(meshNode), POINTER:: n1 => NULL()
     CONTAINS
-      PROCEDURE, PASS:: init     => initEdge1DCart
-      PROCEDURE, PASS:: getNodes => getNodes1DCart
-      PROCEDURE, PASS:: randPos  => randPosEdge
+      PROCEDURE, PASS:: init         => initEdge1DCart
+      PROCEDURE, PASS:: getNodes     => getNodes1DCart
+      PROCEDURE, PASS:: intersection => intersection1DCart
+      PROCEDURE, PASS:: randPos      => randPosEdge
 
   END TYPE meshEdge1DCart
 
-  !Boundary functions defined in the submodule Boundary
-  INTERFACE
-    MODULE SUBROUTINE reflection(edge, part)
-      USE moduleSpecies
-      IMPLICIT NONE
-
-      CLASS(meshEdge), INTENT(inout):: edge
-      CLASS(particle), INTENT(inout):: part
-
-    END SUBROUTINE reflection
-
-    MODULE SUBROUTINE absorption(edge, part)
-      USE moduleSpecies
-      IMPLICIT NONE
-
-      CLASS(meshEdge), INTENT(inout):: edge
-      CLASS(particle), INTENT(inout):: part
-
-    END SUBROUTINE absorption
-
-    MODULE SUBROUTINE transparent(edge, part)
-      USE moduleSpecies
-      IMPLICIT NONE
-
-      CLASS(meshEdge), INTENT(inout):: edge
-      CLASS(particle), INTENT(inout):: part
-
-    END SUBROUTINE transparent
-
-    MODULE SUBROUTINE wallTemperature(edge, part)
-      USE moduleSpecies
-      IMPLICIT NONE
-
-      CLASS(meshEdge), INTENT(inout):: edge
-      CLASS(particle), INTENT(inout):: part
-
-    END SUBROUTINE wallTemperature
-
-  END INTERFACE
-
   TYPE, PUBLIC, ABSTRACT, EXTENDS(meshVol):: meshVol1DCart
     CONTAINS
       PROCEDURE, PASS:: detJac => detJ1DCart
@@ -226,6 +188,17 @@ MODULE moduleMesh1DCart
 
     END FUNCTION getNodes1DCart
 
+    PURE FUNCTION intersection1DCart(self, r0, v0) RESULT(r)
+      IMPLICIT NONE
+
+      CLASS(meshEdge1DCart), INTENT(in):: self
+      REAL(8), DIMENSION(1:3), INTENT(in):: r0, v0
+      REAL(8), DIMENSION(1:3):: r
+
+      r = (/ self%x, 0.D0, 0.D0 /)
+
+    END FUNCTION intersection1DCart
+
     !Calculates a 'random' position in edge
     FUNCTION randPosEdge(self) RESULT(r)
       CLASS(meshEdge1DCart), INTENT(in):: self