Commit befor trying to convert particle array to linked list to improve

performance.

src/modules/moduleInput.f95

@@ -45,6 +45,9 @@ MODULE moduleInput
       !Read injection of particles
       CALL readInject(config)
 
+      !Read parallel parameters
+      CALL readParallel(config)
+
     END SUBROUTINE readConfig
 
     !Reads the reference parameters
@@ -325,9 +328,9 @@ MODULE moduleInput
 
       TYPE(json_file), INTENT(inout):: config
       INTEGER:: i
-      character(2):: istring
-      character(:), allocatable:: object
-      logical:: found
+      CHARACTER(2):: istring
+      CHARACTER(:), ALLOCATABLE:: object
+      LOGICAL:: found
       CHARACTER(:), ALLOCATABLE:: speciesName
       CHARACTER(:), ALLOCATABLE:: name
       REAL(8):: v
@@ -366,4 +369,28 @@ MODULE moduleInput
       
     END SUBROUTINE readInject
 
+    SUBROUTINE readParallel(config)
+      USE moduleParallel
+      USE moduleErrors
+      USE json_module
+      IMPLICIT NONE
+
+      TYPE(json_file), INTENT(inout):: config
+      CHARACTER(:), ALLOCATABLE:: object
+      LOGICAL:: found
+
+      !Reads OpenMP parameters
+      object = 'parallel.OpenMP'
+
+      CALL config%get(object // '.nThreads', openMP%nThreads, found)
+
+      IF (.NOT. found) THEN
+        openMP%nthreads = 8
+        CALL warningError('No OpenMP configuration detected, using 8 threads as default.')
+
+      END IF
+
+    END SUBROUTINE readParallel
+
+
 END MODULE moduleInput