New physical surfaces implemented

src/modules/mesh/moduleMesh@elements.f90

@@ -39,6 +39,27 @@ submodule(moduleMesh) elements
 
     end function meshNodePointer_equal_type_int
 
+    function meshEdgePointer_equal_type_type(self, other) result(isEqual)
+      implicit none
+
+      class(meshEdgePointer), intent(in):: self, other
+      logical:: isEqual
+
+      isEqual = self%obj%n == other%obj%n
+
+    end function meshEdgePointer_equal_type_type
+
+    function meshEdgePointer_equal_type_int(self, other) result(isEqual)
+      implicit none
+
+      class(meshEdgePointer), intent(in):: self
+      integer, intent(in):: other
+      logical:: isEqual
+
+      isEqual = self%obj%n == other
+
+    end function meshEdgePointer_equal_type_int
+
     !Constructs the global K matrix
     SUBROUTINE constructGlobalK(self)
       IMPLICIT NONE