Reading of mesh files has been made independent from geometry and

prepared to accept different formats.

src/modules/mesh/1DRad/moduleMesh1DRad.f90

@@ -312,19 +312,20 @@ MODULE moduleMesh1DRad
     END SUBROUTINE partialDerRad
 
     !Computes local stiffness matrix
-    PURE FUNCTION elemKRad(self) RESULT(ke)
+    PURE FUNCTION elemKRad(self) RESULT(localK)
       USE moduleConstParam, ONLY: PI2
       IMPLICIT NONE
 
       CLASS(meshVol1DRadSegm), INTENT(in):: self
-      REAL(8):: ke(1:2,1:2)
+      REAL(8), ALLOCATABLE:: localK(:,:)
       REAL(8):: Xii(1:3)
       REAL(8):: dPsi(1:1, 1:2)
       REAL(8):: invJ(1), detJ
       REAL(8):: r, fPsi(1:2)
       INTEGER:: l
 
-      ke      = 0.D0
+      ALLOCATE(localK(1:2, 1:2))
+      localK  = 0.D0
       Xii     = 0.D0
       DO l = 1, 3
         xii(1) = corSeg(l)
@@ -333,13 +334,13 @@ MODULE moduleMesh1DRad
         invJ    = self%invJac(Xii, dPsi)
         fPsi    = self%fPsi(Xii)
         r       = DOT_PRODUCT(fPsi, self%r)
-        ke      = ke + MATMUL(RESHAPE(MATMUL(invJ,dPsi), (/ 2, 1/)), &
-                              RESHAPE(MATMUL(invJ,dPsi), (/ 1, 2/)))* &
-                       r*wSeg(l)/detJ
+        localK  = localK + MATMUL(RESHAPE(MATMUL(invJ,dPsi), (/ 2, 1/)), &
+                                  RESHAPE(MATMUL(invJ,dPsi), (/ 1, 2/)))* &
+                           r*wSeg(l)/detJ
 
       END DO
 
-      ke      = ke*PI2
+      localK = localK*PI2
 
     END FUNCTION elemKRad
 
@@ -532,5 +533,117 @@ MODULE moduleMesh1DRad
 
     END FUNCTION invJ1DRad
 
+    SUBROUTINE connectMesh1DRad(self)
+      IMPLICIT NONE
+
+      CLASS(meshParticle), INTENT(inout):: self
+      INTEGER:: e, et
+
+      DO e = 1, self%numVols
+        !Connect Vol-Vol
+        DO et = 1, self%numVols
+          IF (e /= et) THEN
+            CALL connectVolVol(self%vols(e)%obj, self%vols(et)%obj)
+
+          END IF
+
+        END DO
+
+        !Connect Vol-Edge
+        DO et = 1, self%numEdges
+          CALL connectVolEdge(self%vols(e)%obj, self%edges(et)%obj)
+
+        END DO
+
+      END DO
+
+    END SUBROUTINE connectMesh1DRad
+
+    SUBROUTINE connectVolVol(elemA, elemB)
+      IMPLICIT NONE
+
+      CLASS(meshVol), INTENT(inout):: elemA
+      CLASS(meshVol), INTENT(inout):: elemB
+
+        SELECT TYPE(elemA)
+        TYPE IS(meshVol1DRadSegm)
+          SELECT TYPE(elemB)
+          TYPE IS(meshVol1DRadSegm)
+            CALL connectSegmSegm(elemA, elemB)
+
+          END SELECT
+
+        END SELECT
+
+    END SUBROUTINE connectVolVol
+
+    SUBROUTINE connectSegmSegm(elemA, elemB)
+      IMPLICIT NONE
+
+      CLASS(meshVol1DRadSegm), INTENT(inout), TARGET:: elemA
+      CLASS(meshVol1DRadSegm), INTENT(inout), TARGET:: elemB
+
+      IF (.NOT. ASSOCIATED(elemA%e1) .AND. &
+          elemA%n2%n == elemB%n1%n) THEN
+        elemA%e1 => elemB
+        elemB%e2 => elemA
+        
+      END IF
+
+      IF (.NOT. ASSOCIATED(elemA%e2) .AND. &
+          elemA%n1%n == elemB%n2%n) THEN
+
+        elemA%e2 => elemB
+        elemB%e1 => elemA
+
+      END IF
+
+    END SUBROUTINE connectSegmSegm
+
+    SUBROUTINE connectVolEdge(elemA, elemB)
+      IMPLICIT NONE
+
+      CLASS(meshVol),  INTENT(inout):: elemA
+      CLASS(meshEdge), INTENT(inout):: elemB
+
+      SELECT TYPE(elemA)
+      TYPE IS (meshVol1DRadSegm)
+        SELECT TYPE(elemB)
+        CLASS IS(meshEdge1DRad)
+          CALL connectSegmEdge(elemA, elemB)
+
+        END SELECT
+
+      END SELECT
+
+    END SUBROUTINE connectVolEdge
+
+    SUBROUTINE connectSegmEdge(elemA, elemB)
+      IMPLICIT NONE
+
+      CLASS(meshVol1DRadSegm), INTENT(inout), TARGET:: elemA
+      CLASS(meshEdge1DRad),    INTENT(inout), TARGET:: elemB
+
+      IF (.NOT. ASSOCIATED(elemA%e1) .AND. &
+          elemA%n2%n == elemB%n1%n) THEN
+
+        elemA%e1 => elemB
+        elemB%e2 => elemA
+
+        !Revers the normal to point inside the domain
+        elemB%normal = - elemB%normal
+
+      END IF
+
+      IF (.NOT. ASSOCIATED(elemA%e2) .AND. &
+          elemA%n1%n == elemB%n1%n) THEN
+
+        elemA%e2 => elemB
+        elemB%e1 => elemA
+
+      END IF
+
+    END SUBROUTINE connectSegmEdge
+
 END MODULE moduleMesh1DRad