First version with possibility for charged particles to be included.

Now, the solver needs to be an input parameter of the case, to select if
it is for charged or neutral particles.

Resolution of Poisson equation with Dirichlet boundary conditions is
possible. The source vector is the charge density. This resolution is
done in two steps to save computational time:
  1. When reading the mesh, the PLU factorization of the K matrix is
  computed.
  2. In each iteration, the system K*u = f is solved, in which f is the
  source vector (charge density) and u is the solution (potential) in
  each node.

No case has been added to the repository. This will be done in next
commit.

The 'non-analog' scheme has been commented. It still needs to split
the particle to avoid 'overweight' particles.

src/modules/moduleMeshCylRead.f95

@@ -8,6 +8,7 @@ MODULE moduleMeshCylRead
       PROCEDURE, PASS:: readMesh => readMeshCyl
       PROCEDURE, PASS:: printOutput => printOutputCyl
       PROCEDURE, PASS:: printColl   => printCollisionsCyl
+      PROCEDURE, PASS:: printEM     => printEMCyl
 
   END TYPE
 
@@ -41,8 +42,10 @@ MODULE moduleMeshCylRead
       READ(10, *) self%numNodes
       !Allocate required matrices and vectors
       ALLOCATE(self%nodes(1:self%numNodes))
-      ! ALLOCATE(self%K(1:numNodes,1:numNodes))
-      ! ALLOCATE(self%F(1:numNodes))
+      ALLOCATE(self%K(1:self%numNodes,1:self%numNodes))
+      ALLOCATE(self%IPIV(1:self%numNodes,1:self%numNodes))
+      self%K = 0.D0
+      self%IPIV = 0
       !Read nodes cartesian coordinates (x=z, y=r, z=null)
       DO e=1, self%numNodes
         READ(10, *) n, z, r
@@ -123,24 +126,10 @@ MODULE moduleMeshCylRead
 
         END DO
 
-      END DO
+        !Constructs the global K matrix
+        CALL constructGlobalK(self%K, self%vols(e)%obj)
 
-      ! !Compute global stiffness matrix
-      ! GlobalK=0.D0
-      ! DO e=1, numElem
-        ! DO i=1, 4
-          ! DO j=1, 4
-            ! GlobalK(elems(e)%p(i),elems(e)%p(j)) = GlobalK(elems(e)%p(i),elems(e)%p(j)) + elems(e)%Ke(i,j)
-          ! END DO
-        ! END DO
-      ! END DO
-      ! ! Apply Dirichlet boundary conditions to GlobalK
-      ! DO n=1, numNodes
-        ! IF (nodes(n)%bound == 1) THEN
-          ! GlobalK(n,:)=0.D0
-          ! GlobalK(n,n)=1.D0
-        ! END IF
-      ! END DO
+      END DO
 
     END SUBROUTINE
 
@@ -298,6 +287,41 @@ MODULE moduleMeshCylRead
 
     END SUBROUTINE connectedQuadEdge
 
+    SUBROUTINE constructGlobalK(K, elem)
+      IMPLICIT NONE
+
+      REAL(8), INTENT(inout):: K(1:,1:)
+      CLASS(meshVol), INTENT(in):: elem
+      REAL(8), ALLOCATABLE:: localK(:,:)
+      INTEGER:: nNodes, i, j
+      INTEGER, ALLOCATABLE:: n(:)
+
+      SELECT TYPE(elem)
+      TYPE IS(meshVolCylQuad)
+        nNodes = 4
+        ALLOCATE(localK(1:nNodes,1:nNodes))
+        localK = elem%elemK()
+        ALLOCATE(n(1:nNodes))
+        n = (/ elem%n1%n, elem%n2%n, &
+               elem%n3%n, elem%n4%n /)
+
+      CLASS DEFAULT
+        nNodes = 0
+        ALLOCATE(localK(1:1, 1:1))
+        localK = 0.D0
+        ALLOCATE(n(1:1))
+        n = 0
+
+      END SELECT
+      
+      DO i = 1, nNodes
+        DO j = 1, nNodes
+          K(n(i), n(j)) = K(n(i), n(j)) + localK(i, j)
+        END DO
+      END DO
+
+    END SUBROUTINE constructGlobalK
+
     SUBROUTINE printOutputCyl(self, t)
       USE moduleRefParam
       USE moduleSpecies
@@ -425,4 +449,60 @@ MODULE moduleMeshCylRead
 
     END SUBROUTINE printCollisionsCyl
 
+    SUBROUTINE printEMCyl(self, t)
+      USE moduleRefParam
+      USE moduleCaseParam
+      USE moduleOutput
+      IMPLICIT NONE
+
+      CLASS(meshCylGeneric), INTENT(in):: self
+      INTEGER, INTENT(in):: t
+      INTEGER:: n, e
+      REAL(8):: time
+      CHARACTER(:), ALLOCATABLE:: fileName
+      CHARACTER (LEN=6):: tstring !TODO: Review to allow any number of iterations
+
+      IF (emOutput) THEN
+        time = DBLE(t)*tau*ti_ref
+        WRITE(tstring, '(I6.6)') t
+
+        fileName='OUTPUT_' // tstring// '_EMField.msh'
+        WRITE(*, "(6X,A15,A)") "Creating file: ", fileName
+        OPEN (20, file = path // folder // '/' //  fileName)
+        WRITE(20, "(A)") '$MeshFormat'
+        WRITE(20, "(A)") '2.2 0 8'
+        WRITE(20, "(A)") '$EndMeshFormat'
+        WRITE(20, "(A)") '$NodeData'
+        WRITE(20, "(A)") '1'
+        WRITE(20, "(A)") '"Potential (V)"'
+        WRITE(20, *) 1
+        WRITE(20, *) time
+        WRITE(20, *) 3
+        WRITE(20, *) t
+        WRITE(20, *) 1
+        WRITE(20, *) self%numNodes
+        DO n=1, self%numNodes
+          WRITE(20, *) n, self%nodes(n)%obj%emData%phi*Volt_ref
+        END DO
+        WRITE(20, "(A)") '$EndNodeData'
+        
+        WRITE(20, "(A)") '$ElementData'
+        WRITE(20, "(A)") '1'
+        WRITE(20, "(A)") '"Electric Field (V/m)"'
+        WRITE(20, *) 1
+        WRITE(20, *) time
+        WRITE(20, *) 3
+        WRITE(20, *) t
+        WRITE(20, *) 3
+        WRITE(20, *) self%numVols
+        DO e=1, self%numVols
+          WRITE(20, *) e+self%numEdges, self%vols(e)%obj%gatherEF((/0.D0, 0.D0, 0.D0/))*EF_ref
+        END DO
+        WRITE(20, "(A)") '$EndElementData'
+        CLOSE(20)
+
+      END IF
+
+    END SUBROUTINE printEMCyl
+  
 END MODULE moduleMeshCylRead