Merge branch 'development' into feature/BoltzmannElectrons

src/modules/solver/moduleSolver.f90

@@ -493,52 +493,46 @@ MODULE moduleSolver
     END SUBROUTINE updateParticleCell
 
     !Update the information about if a species needs to be moved this iteration
-    SUBROUTINE updatePushSpecies(self, t)
+    SUBROUTINE updatePushSpecies(self)
       USE moduleSpecies
+      USE moduleCaseparam, ONLY: timeStep
       IMPLICIT NONE
 
       CLASS(solverGeneric), INTENT(inout):: self
-      INTEGER, INTENT(in):: t
       INTEGER:: s
 
       DO s=1, nSpecies
-        self%pusher(s)%pushSpecies = MOD(t, self%pusher(s)%every) == 0
+        self%pusher(s)%pushSpecies = MOD(timeStep, self%pusher(s)%every) == 0
 
       END DO
 
     END SUBROUTINE updatePushSpecies
 
     !Output the different data and information
-    SUBROUTINE doOutput(t)
+    SUBROUTINE doOutput()
       USE moduleMesh
       USE moduleOutput
       USE moduleSpecies
       USE moduleCompTime
       USE moduleProbe
+      USE moduleCaseParam, ONLY: timeStep
       IMPLICIT NONE
 
-      INTEGER, INTENT(in):: t
-
-      IF (t == tInitial) THEN
-        CALL SYSTEM('git rev-parse HEAD > ' // path // folder // '/' // 'fpack_commit.txt')
-
-      END IF
-
-      CALL outputProbes(t)
+      CALL outputProbes()
 
       counterOutput = counterOutput + 1
       IF (counterOutput >= triggerOutput .OR. &
-          t == tFinal .OR. t == tInitial) THEN
+          timeStep == tFinal .OR. timeStep == tInitial) THEN
 
         !Resets output counter
         counterOutput=0
 
-        CALL mesh%printOutput(t)
-        IF (ASSOCIATED(meshForMCC)) CALL meshForMCC%printColl(t)
-        CALL mesh%printEM(t)
-        WRITE(*, "(5X,A21,I10,A1,I10)") "t/tFinal: ", t, "/", tFinal
+        CALL mesh%printOutput()
+        IF (ASSOCIATED(meshForMCC)) CALL meshForMCC%printColl()
+        CALL mesh%printEM()
+        WRITE(*, "(5X,A21,I10,A1,I10)") "t/tFinal: ", timeStep, "/", tFinal
         WRITE(*, "(5X,A21,I10)")        "Particles: ", nPartOld
-        IF (t == 0) THEN
+        IF (timeStep == 0) THEN
           WRITE(*, "(5X,A21,F8.1,A2)")   "     init time: ",    1.D3*tStep, "ms"
 
         ELSE
@@ -556,34 +550,32 @@ MODULE moduleSolver
 
       counterCPUTime = counterCPUTime + 1
       IF (counterCPUTime >= triggerCPUTime .OR. &
-          t == tFinal .OR. t == tInitial) THEN
+          timeStep == tFinal .OR. timeStep == tInitial) THEN
 
         !Reset CPU Time counter
         counterCPUTime = 0
 
-        CALL printTime(t, t == 0)
+        CALL printTime(timeStep == 0)
 
       END IF
 
       !Output average values
-      IF (useAverage .AND. t == tFinal) THEN
+      IF (useAverage .AND. timeStep == tFinal) THEN
         CALL mesh%printAverage()
 
       END IF
 
     END SUBROUTINE doOutput
 
-    SUBROUTINE doAverage(t)
+    SUBROUTINE doAverage()
       USE moduleAverage
       USE moduleMesh
       IMPLICIT NONE
 
-      INTEGER, INTENT(in):: t
       INTEGER:: tAverage, n
 
-
       IF (useAverage) THEN
-        tAverage = t - tAverageStart
+        tAverage = timeStep - tAverageStart
 
         IF (tAverage == 1) THEN
           !First iteration in which average scheme is used