Creating of nodes and edges in .vtu format

Moving forward making vtu an independent format.

Now fpakc can generate nodes and edges from vtu input.
Next step is cells.

Some minor corrections in gmsh2 format to unify statements.
The reading of meshes needs a good overhaul.

Testing all geometries with vtu is gonna be fun...
This commit is contained in:
Jorge Gonzalez 2023-02-05 19:35:49 +01:00
commit 43a7421795
4 changed files with 220 additions and 43 deletions

View file

@ -514,7 +514,6 @@ MODULE moduleSolver
USE moduleSpecies
USE moduleCompTime
USE moduleProbe
USE moduleMeshOutputVTU !TEMPORARY TO TEST VTU OUTPUT
IMPLICIT NONE
INTEGER, INTENT(in):: t
@ -528,11 +527,8 @@ MODULE moduleSolver
CALL outputProbes(t)
CALL mesh%printOutput(t)
CALL printOutputVTU(mesh, t) !TEMPORARY TO TEST VTU OUTPUT
IF (ASSOCIATED(meshForMCC)) CALL meshForMCC%printColl(t)
IF (ASSOCIATED(meshForMCC)) CALL printCollVTU(meshForMCC,t) !TEMPORARY TO TEST VTU OUTPUT
CALL mesh%printEM(t)
CALL printEMVTU(mesh, t) !TEMPORARY TO TEST VTU OUTPUT
WRITE(*, "(5X,A21,I10,A1,I10)") "t/tFinal: ", t, "/", tFinal
WRITE(*, "(5X,A21,I10)") "Particles: ", nPartOld
IF (t == 0) THEN
@ -565,7 +561,6 @@ MODULE moduleSolver
!Output average values
IF (useAverage .AND. t == tFinal) THEN
CALL mesh%printAverage()
CALL printAverageVTU(mesh) !TEMPORARY TO TEST VTU OUTPUT
END IF