From ceab516a5b9659ba538ae0f1dd430e9d67e03b28 Mon Sep 17 00:00:00 2001
From: Jorge Gonzalez <jorge.gonzalez@upm.es>
Date: Sat, 4 Feb 2023 08:54:36 +0100
Subject: [PATCH] Correction on collection file

The extension of the collection file has to be .pvd so that ParaView
properly reads it.
---
 src/modules/mesh/inout/vtk/moduleMeshOutputVTK.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/modules/mesh/inout/vtk/moduleMeshOutputVTK.f90 b/src/modules/mesh/inout/vtk/moduleMeshOutputVTK.f90
index efaf6e3..9b1a442 100644
--- a/src/modules/mesh/inout/vtk/moduleMeshOutputVTK.f90
+++ b/src/modules/mesh/inout/vtk/moduleMeshOutputVTK.f90
@@ -181,7 +181,7 @@ MODULE moduleMeshOutputVTK
         WRITE(*, "(6X,A15,A)") "Creating file: ", fileName
         OPEN (fileID, file = path // folder // '/' //  fileName)
 
-        fileNameCollection = 'OUTPUT_Collection_' // species(i)%obj%name // '.vtu'
+        fileNameCollection = 'OUTPUT_Collection_' // species(i)%obj%name // '.pvd'
         IF (t == tInitial) THEN
           !Create collection file
           WRITE(*, "(6X,A15,A)") "Creating file: ", fileNameCollection
@@ -192,9 +192,11 @@ MODULE moduleMeshOutputVTK
 
         END IF
 
+        !Write iteration file in collection
         OPEN (fileID + 1, file = path // folder  // '/' // fileNameCollection, ACCESS='APPEND')
         WRITE(fileID + 1, "(4X, A, ES20.6E3, A, A, A)"), '<DataSet timestep="', t*ti_ref,'" file="', fileName,'"/>'
 
+        !Close collection file
         IF (t == tFinal) THEN
           WRITE (fileID + 1, "(2X, A)") '</Collection>'
           WRITE (fileID + 1, "(A)") '</VTKFile>'