Files renamed and makefile make compatible with ifort.

src/modules/moduleBoundary.f90

@@ -0,0 +1,36 @@
+MODULE moduleBoundary
+
+  TYPE, PUBLIC:: boundaryGeneric
+    INTEGER:: id = 0
+    CHARACTER(:), ALLOCATABLE:: name
+    INTEGER:: physicalSurface = 0
+    CHARACTER(:), ALLOCATABLE:: boundaryType
+
+  END TYPE boundaryGeneric
+
+  TYPE:: boundaryCont
+    CLASS(boundaryGeneric), ALLOCATABLE:: obj
+
+  END TYPE boundaryCont
+
+
+  INTEGER:: nBoundary = 0
+  TYPE(boundaryCont), ALLOCATABLE:: boundary(:)
+
+  CONTAINS
+    FUNCTION getBoundaryId(physicalSurface) RESULT(id)
+      IMPLICIT NONE
+
+      INTEGER:: physicalSurface
+      INTEGER:: id
+      INTEGER:: i
+
+      id = 0
+      DO i = 1, nBoundary
+        IF (physicalSurface == boundary(i)%obj%physicalSurface) id = boundary(i)%obj%id
+
+      END DO
+
+    END FUNCTION getBoundaryId
+
+END MODULE moduleBoundary