First Implementation of Tria elements in 2D Cylindrical space.

Reading of this type of element needs to be implemented.

Fixed a bug in which the L_ref (reference length) was not correctly
being calculated for neutral solver.

src/modules/moduleEM.f95

@@ -56,7 +56,7 @@ MODULE moduleEM
 
       elField = 0.D0
 
-      xi  = part%xLog
+      xi  = part%xi
 
       elField = mesh%vols(part%e_p)%obj%gatherEF(xi)
 

src/modules/moduleInput.f95

@@ -86,8 +86,8 @@ MODULE moduleInput
       v_ref     = DSQRT(kb*T_ref/m_ref)  !reference velocity
       !TODO: Make this solver dependent
       IF (found_r) THEN
-        L_ref = 1.D0/(sigma_ref*n_ref)     !mean free path
         sigma_ref = PI*(r_ref+r_ref)**2    !reference cross section
+        L_ref = 1.D0/(sigma_ref*n_ref)     !mean free path
 
       ELSE
         L_ref = DSQRT(kb*T_ref*eps_0/n_ref)/qe !Debye length
@@ -483,7 +483,6 @@ MODULE moduleInput
         CALL inject(i)%init(i, v, normal, T, flow, units, pt, physicalSurface)
 
       END DO
-      PRINT *, inject(:)%nParticles
 
       !Allocate array for injected particles
       IF (nPartInj > 0) THEN

src/modules/moduleMesh.f95

@@ -130,8 +130,11 @@ MODULE moduleMesh
       PROCEDURE(gatherEF_interface),    DEFERRED, PASS::   gatherEF
       PROCEDURE(getNodesVol_interface), DEFERRED, PASS::   getNodes
       PROCEDURE(elemF_interface),       DEFERRED, PASS::   elemF
-      PROCEDURE(collision_interface),   DEFERRED, PASS:: collision
       PROCEDURE(findCell_interface),    DEFERRED, PASS::   findCell
+      PROCEDURE(phy2log_interface),     DEFERRED, PASS::   phy2log
+      PROCEDURE(inside_interface),      DEFERRED, NOPASS:: inside
+      PROCEDURE(nextElement_interface), DEFERRED, PASS::   nextElement
+      PROCEDURE(collision_interface),   DEFERRED, PASS::   collision
       PROCEDURE(resetOutput_interface), DEFERRED, PASS::   resetOutput
 
   END TYPE meshVol
@@ -164,7 +167,6 @@ MODULE moduleMesh
     END FUNCTION gatherEF_interface
 
     PURE FUNCTION getNodesVol_interface(self) RESULT(n)
-      
       IMPORT:: meshVol
       CLASS(meshVol), INTENT(in):: self
       INTEGER, ALLOCATABLE:: n(:)
@@ -172,7 +174,6 @@ MODULE moduleMesh
     END FUNCTION getNodesVol_interface
 
     PURE FUNCTION elemF_interface(self, source) RESULT(localF)
-      
       IMPORT:: meshVol
       CLASS(meshVol), INTENT(in):: self
       REAL(8), INTENT(in):: source(1:)
@@ -180,11 +181,13 @@ MODULE moduleMesh
 
     END FUNCTION elemF_interface
 
-    SUBROUTINE collision_interface(self)
+    SUBROUTINE nextElement_interface(self, xi, nextElement)
       IMPORT:: meshVol
-      CLASS(meshVol), INTENT(inout):: self
+      CLASS(meshVol), INTENT(in):: self
+      REAL(8), INTENT(in):: xi(1:3)
+      CLASS(*), POINTER, INTENT(out):: nextElement
 
-    END SUBROUTINE collision_interface
+    END SUBROUTINE nextElement_interface
 
     SUBROUTINE findCell_interface(self, part, oldCell)
       USE moduleSpecies
@@ -196,6 +199,27 @@ MODULE moduleMesh
 
     END SUBROUTINE findCell_interface
 
+    PURE FUNCTION phy2log_interface(self,r) RESULT(xN) 
+      IMPORT:: meshVol
+      CLASS(meshVol), INTENT(in):: self
+      REAL(8), INTENT(in):: r(1:3)
+      REAL(8):: xN(1:3)
+
+    END FUNCTION phy2log_interface
+
+    PURE FUNCTION inside_interface(xi) RESULT(ins)
+      IMPORT:: meshVol
+      REAL(8), INTENT(in):: xi(1:3)
+      LOGICAL:: ins
+
+    END FUNCTION inside_interface
+
+    SUBROUTINE collision_interface(self)
+      IMPORT:: meshVol
+      CLASS(meshVol), INTENT(inout):: self
+
+    END SUBROUTINE collision_interface
+
     SUBROUTINE resetOutput_interface(self)
       IMPORT:: meshVol
       CLASS(meshVol), INTENT(inout):: self

src/modules/moduleSpecies.f95

@@ -31,7 +31,7 @@ MODULE moduleSpecies
     REAL(8):: v(1:3) !Velocity
     INTEGER:: pt !Particle species id
     INTEGER:: e_p !Index of element in which the particle is located
-    REAL(8):: xLog(1:3) !Logical coordinates of particle in element e_p.
+    REAL(8):: xi(1:3) !Logical coordinates of particle in element e_p.
     LOGICAL:: n_in !Flag that indicates if a particle is in the domain
     REAL(8):: weight=0.D0 !weight of particle
     REAL(8):: qm = 0.D0 !charge over mass