New physical surfaces implemented

src/modules/mesh/moduleMesh.f90

@@ -71,7 +71,7 @@ MODULE moduleMesh
   ! Array of pointers to nodes.
   TYPE:: meshNodePointer
     CLASS(meshNode), POINTER:: obj
-    CONTAINS
+    contains
       procedure, pass:: meshNodePointer_equal_type_type
       procedure, pass:: meshNodePointer_equal_type_int
       generic:: operator(==) => meshNodePointer_equal_type_type, meshNodePointer_equal_type_int
@@ -136,14 +136,14 @@ MODULE moduleMesh
 
   ABSTRACT INTERFACE
     !Inits the edge parameters
-    subroutine initEdge_interface(self, n, p, physicalSurface)
+    subroutine initEdge_interface(self, n, p, ps)
       use moduleSpecies, only:nSpecies
       import:: meshEdge
 
       class(meshEdge), intent(out):: self
       integer, intent(in):: n
       integer, intent(in):: p(:)
-      integer, intent(in):: physicalSurface
+      integer, intent(in):: ps
 
     end subroutine initEdge_interface
 
@@ -184,9 +184,29 @@ MODULE moduleMesh
   ! Array of pointers to edges.
   type:: meshEdgePointer
     class(meshEdge), pointer:: obj
+    contains
+      procedure, pass:: meshEdgePointer_equal_type_type
+      procedure, pass:: meshEdgePointer_equal_type_int
+      generic:: operator(==) => meshEdgePointer_equal_type_type, meshEdgePointer_equal_type_int
 
   end type meshEdgePointer
 
+  interface
+    module function meshEdgePointer_equal_type_type(self, other) result(isEqual)
+      class(meshEdgePointer), intent(in):: self, other
+      logical:: isEqual
+
+    end function meshEdgePointer_equal_type_type
+
+    module function meshEdgePointer_equal_type_int(self, other) result(isEqual)
+      class(meshEdgePointer), intent(in):: self
+      integer, intent(in):: other
+      logical:: isEqual
+
+    end function meshEdgePointer_equal_type_int
+
+  end interface
+
   !Parent of cell element
   TYPE, PUBLIC, ABSTRACT, EXTENDS(meshElement):: meshCell
     !Number of nodes in the cell