JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Jorge Gonzalez 2026-03-11 21:30:38 +01:00
commit 215eb8563f
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/modules/mesh/inout/vtu/moduleMeshOutputVTU.f90
View file

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