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:
parent
7b470b7f58
commit
43a7421795
4 changed files with 220 additions and 43 deletions
|
|
@ -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
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue