Now the Collections in vut format can be read during execution!

doc/user-manual/fpakc_UserManual.tex

@@ -398,6 +398,9 @@ make
                                   Trigger between writings is the same as in \textbf{triggerOutput}.
           \item \textbf{EMField}: Logical.
                                   Determines if the electromagnetic field is printed.
+          \item \textbf{bounraiesParticle}: Logical.
+                                            Determines if the properties of the boundaries are written.
+                                            \textit{Warning}: Not all particle models produce this output, only those whose properties change during the simulation.
           \item \textbf{probes}: Array of objects.
                                  Defines the probes employed for obtaining the distribution function at specific positions.
                                  See Sec.~\ref{sec:probing} for more information.

src/modules/init/moduleInput.f90

@@ -492,7 +492,7 @@ MODULE moduleInput
       CALL config%get(object // '.cpuTime', timeOutput, found)
       CALL config%get(object // '.numColl', collOutput, found)
       CALL config%get(object // '.EMField', emOutput, found)
-      call config%get(object // '.boundaryParticle', boundaryParticleOutput, found)
+      call config%get(object // '.boundariesParticle', boundaryParticleOutput, found)
 
       CALL config%get(object // '.triggerCPUTime', triggerCPUTime, found)
       IF (.NOT. found) THEN

src/modules/mesh/inout/0D/moduleMeshOutput0D.f90

@@ -50,7 +50,6 @@ MODULE moduleMeshOutput0D
       CLASS(meshGeneric), INTENT(in):: self
       CHARACTER(:), ALLOCATABLE:: fileName
       INTEGER:: k
-      character(:), allocatable:: kString
 
       fileName = formatFileName('Output', 'Collisions', 'csv')
       IF (timeStep == tInitial) THEN

src/modules/mesh/inout/vtu/moduleMeshOutputVTU.f90

@@ -230,17 +230,16 @@ MODULE moduleMeshOutputVTU
         OPEN (fileID + 1, file = generateFilePath(fileNameCollection))
         WRITE (fileID + 1, "(A)") '<VTKFile type="Collection">'
         WRITE (fileID + 1, "(2X, A)") '<Collection>'
-        CLOSE(fileID + 1)
 
       else
+        OPEN (fileID + 1, file = generateFilePath(fileNameCollection), ACCESS='APPEND')
         ! Append removing the last two lines that close the <tags>
-        rewind(fileID)
+        backspace(fileID + 1)
-        rewind(fileID)
+        backspace(fileID + 1)
 
       END IF
 
       !Write iteration file in collection
-      OPEN (fileID + 1, file = generateFilePath(fileNameCollection), ACCESS='APPEND')
       WRITE(fileID + 1, "(4X, A, "//fmtReal//", A, A, A)") &
             '<DataSet timestep="', DBLE(timeStep)*tauMin*ti_ref,'" file="', fileNameStep,'"/>'
 

src/modules/output/moduleOutput.f90

@@ -34,6 +34,7 @@ MODULE moduleOutput
   integer, parameter:: fileID_boundaryParticle = 30 ! Particle boundaries
   integer, parameter:: fileID_boundaryEM = 31       ! EM boundaries
   integer, parameter:: fileID_reference = 40        ! Reference values
+  integer, parameter:: fileID_time =50              ! Computation time
 
   !Output for each node 
   TYPE, PUBLIC:: outputNode
@@ -243,7 +244,7 @@ MODULE moduleOutput
 
     END SUBROUTINE calculateOutput
 
-    SUBROUTINE printTime(first)
+    SUBROUTINE writeTime(first)
       USE moduleSpecies
       USE moduleCompTime
       USE moduleCaseParam, ONLY: timeStep
@@ -252,31 +253,31 @@ MODULE moduleOutput
       LOGICAL, INTENT(in), OPTIONAL:: first
       CHARACTER(:), ALLOCATABLE:: fileName
 
-      fileName = 'cpuTime.dat'
+      fileName = 'cpuTime.csv'
 
       IF (timeOutput) THEN
         IF (PRESENT(first)) THEN
           IF (first) THEN
-            OPEN(20, file = generateFilePath(fileName), action = 'write')
+            OPEN(fileID_time, file = generateFilePath(fileName), action = 'write')
-            WRITE(20, "(A1, 8X, A1, 9X, A1, 7(A20))") "#","t","n","total (s)","push (s)","reset (s)",        &
+            WRITE(fileID_time, "(*("//fmtColStr//"))") "t","n","total (s)","push (s)","reset (s)",        &
-                                                                              "collision (s)","coulomb (s)", &
+                                                               "collision (s)","coulomb (s)", &
-                                                                              "weighting (s)","EMField (s)"
+                                                               "weighting (s)","EMField (s)"
             call informFileCreation(fileName)
-            CLOSE(20)
+            CLOSE(fileID_time)
 
           END IF
 
         END IF
 
-        OPEN(20, file = generateFilePath(fileName), position = 'append', action = 'write')
+        OPEN(fileID_time, file = generateFilePath(fileName), position = 'append', action = 'write')
 
-        WRITE (20, "(I10, I10, 7(ES20.6E3))") timeStep, nPartOld, tStep, tPush, tReset, tColl, tCoul, tWeight, tEMField
+        WRITE (fileID_time, "(*("//fmtColInt//"),*("//fmtColReal//"))") timeStep, nPartOld, tStep, tPush, tReset, tColl, tCoul, tWeight, tEMField
 
-        CLOSE(20)
+        CLOSE(fileID_time)
 
       END IF
 
-    END SUBROUTINE printTime
+    END SUBROUTINE writeTime
 
     ! Write file with reference values
     subroutine writeReference()

src/modules/solver/moduleSolver.f90

@@ -564,7 +564,7 @@ MODULE moduleSolver
         !Reset CPU Time counter
         counterCPUTime = 0
 
-        CALL printTime(timeStep == 0)
+        CALL writeTime(timeStep == 0)
 
       END IF