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

performance.

src/DSMC_Neutrals.f95

@@ -10,17 +10,15 @@ PROGRAM DSMC_Neutrals
   USE moduleList
   USE moduleOutput
   USE moduleCaseParam
+  USE moduleParallel
   IMPLICIT NONE
 
   ! t = time step; n = number of particle; e = number of element; i = number of inject
   INTEGER:: t, n, e, i
   CHARACTER(200):: arg1
   CHARACTER(:), ALLOCATABLE:: inputFile
-  REAL(8), EXTERNAL::omp_get_wtime, omp_get_wtick
+  REAL(8), EXTERNAL::omp_get_wtime
 
-  !Starts threads for OpenMP parallelization
-  !TODO: make this an input parameter
-  CALL OMP_SET_NUM_THREADS(8)
 
   !Gets the input file
   CALL getarg(1, arg1)
@@ -39,6 +37,10 @@ PROGRAM DSMC_Neutrals
   PRINT *, "t/tmax: ", t, "/", tmax
   PRINT *, "Particles: ", n_part_old
 
+  !Starts threads for OpenMP parallelization
+  !TODO: make this an input parameter
+  CALL OMP_SET_NUM_THREADS(openMP%nThreads)
+
   !$OMP PARALLEL PRIVATE(t) DEFAULT(SHARED) 
   DO t = 1, tmax
     tStep = omp_get_wtime()