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/1DRad/moduleMesh1DRad.f90

@@ -4,6 +4,7 @@
 !              z == unused
 MODULE moduleMesh1DRad
   USE moduleMesh
+  USE moduleMeshBoundary
   IMPLICIT NONE
 
   TYPE, PUBLIC, EXTENDS(meshNode):: meshNode1DRad
@@ -21,52 +22,13 @@ MODULE moduleMesh1DRad
     !Connectivity to nodes
     CLASS(meshNode), POINTER:: n1 => NULL()
     CONTAINS
-      PROCEDURE, PASS:: init     => initEdge1DRad
-      PROCEDURE, PASS:: getNodes => getNodes1DRad
-      PROCEDURE, PASS:: randPos  => randPos1DRad
+      PROCEDURE, PASS:: init         => initEdge1DRad
+      PROCEDURE, PASS:: getNodes     => getNodes1DRad
+      PROCEDURE, PASS:: intersection => intersection1DRad
+      PROCEDURE, PASS:: randPos      => randPos1DRad
 
   END TYPE meshEdge1DRad
 
-  !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):: meshVol1DRad
     CONTAINS
       PROCEDURE, PASS:: detJac => detJ1DRad
@@ -227,6 +189,17 @@ MODULE moduleMesh1DRad
 
     END FUNCTION getNodes1DRad
 
+    PURE FUNCTION intersection1DRad(self, r0, v0) RESULT(r)
+      IMPLICIT NONE
+
+      CLASS(meshEdge1DRad), INTENT(in):: self
+      REAL(8), DIMENSION(1:3), INTENT(in):: r0, v0
+      REAL(8), DIMENSION(1:3):: r
+
+      r = (/ self%r, 0.D0, 0.D0 /)
+
+    END FUNCTION intersection1DRad
+
     !Calculates a 'random' position in edge
     FUNCTION randPos1DRad(self) RESULT(r)
       CLASS(meshEdge1DRad), INTENT(in):: self