First implementation of ionization boundary. Still some work to do.

src/modules/mesh/2DCyl/moduleMesh2DCyl.f90

@@ -200,26 +200,7 @@ MODULE moduleMesh2DCyl
       ALLOCATE(self%fboundary(1:nSpecies))
       !Assign functions to boundary
       DO s = 1, nSpecies
-        SELECT TYPE(obj => self%boundary%bTypes(s)%obj)
-        TYPE IS(boundaryAbsorption)
-          self%fBoundary(s)%apply => absorption
-
-        TYPE IS(boundaryReflection)
-          self%fBoundary(s)%apply => reflection
-
-        TYPE IS(boundaryTransparent)
-          self%fBoundary(s)%apply => transparent
-
-        TYPE IS(boundaryWallTemperature)
-          self%fBoundary(s)%apply => wallTemperature
-
-        TYPE IS(boundaryAxis)
-          self%fBoundary(s)%apply => symmetryAxis
-
-        CLASS DEFAULT
-          CALL criticalError("Boundary type not defined in this geometry", 'initEdge2DCyl')
-
-        END SELECT
+        CALL pointBoundaryFunction(self, s)
 
       END DO
 
@@ -459,7 +440,9 @@ MODULE moduleMesh2DCyl
           detJ      = self%detJac(xi,dPsi)
           invJ      = self%invJac(xi,dPsi)
           r         = DOT_PRODUCT(fPsi,self%r)
-          ke        = ke + MATMUL(TRANSPOSE(MATMUL(invJ,dPsi)),MATMUL(invJ,dPsi))*r*wQuad(l)*wQuad(m)/detJ
+          ke        = ke + MATMUL(TRANSPOSE(MATMUL(invJ,dPsi)), &
+                                            MATMUL(invJ,dPsi))* &
+                           r*wQuad(l)*wQuad(m)/detJ
 
         END DO
       END DO