From 6f185c418846a518a1afb338e71ab3204b869188 Mon Sep 17 00:00:00 2001
From: JGonzalez <jorge.gonzalez@upm.es>
Date: Sat, 13 Jul 2024 12:35:42 +0200
Subject: [PATCH] Organizing things

Move the array of pointers to the nodes to moduleMesh.
---
 src/modules/mesh/moduleMesh.f90                 | 7 +++++++
 src/modules/solver/electromagnetic/moduleEM.f90 | 8 --------
 2 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/src/modules/mesh/moduleMesh.f90 b/src/modules/mesh/moduleMesh.f90
index f933dd1..7ab3914 100644
--- a/src/modules/mesh/moduleMesh.f90
+++ b/src/modules/mesh/moduleMesh.f90
@@ -59,6 +59,13 @@ MODULE moduleMesh
 
   END TYPE meshNodeCont
 
+  ! Array of pointers to nodes.
+  TYPE:: meshNodePointer
+    CLASS(meshNode), POINTER:: obj
+    CONTAINS
+
+  END TYPE meshNodePointer
+
   !Type for array of boundary functions (one per species)
   TYPE, PUBLIC:: fBoundaryGeneric
     PROCEDURE(boundary_interface), POINTER, NOPASS:: apply => NULL()
diff --git a/src/modules/solver/electromagnetic/moduleEM.f90 b/src/modules/solver/electromagnetic/moduleEM.f90
index 703b31c..126f9a6 100644
--- a/src/modules/solver/electromagnetic/moduleEM.f90
+++ b/src/modules/solver/electromagnetic/moduleEM.f90
@@ -4,14 +4,6 @@ MODULE moduleEM
   USE moduleTable
   IMPLICIT NONE
 
-  ! Array of pointers to nodes.
-  !TODO: This is probably better in moduleMesh as multiple modules could use this.
-  TYPE:: meshNodePointer
-    CLASS(meshNode), POINTER:: obj
-    CONTAINS
-
-  END TYPE meshNodePointer
-
   ! Generic type for electromagnetic boundary conditions
   TYPE, PUBLIC, ABSTRACT:: boundaryEMGeneric
     INTEGER:: nNodes