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

First step towards reading .vtu mesh

Browse source 
Just setting up the required functions.
This commit is contained in:
Jorge Gonzalez 2023-02-04 15:41:13 +01:00
commit f5be04587a
11 changed files with 78 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/modules/solver/moduleSolver.f90
View file

@ -514,7 +514,7 @@ MODULE moduleSolver
USE moduleSpecies
USE moduleCompTime
USE moduleProbe
USE moduleMeshOutputVTK !TEMPORARY TO TEST VTK OUTPUT
USE moduleMeshOutputVTU !TEMPORARY TO TEST VTU OUTPUT
IMPLICIT NONE
INTEGER, INTENT(in):: t
@ -528,11 +528,11 @@ MODULE moduleSolver
CALL outputProbes(t)
CALL mesh%printOutput(t)
CALL printOutputVTK(mesh, t) !TEMPORARY TO TEST VTK OUTPUT
CALL printOutputVTU(mesh, t) !TEMPORARY TO TEST VTU OUTPUT
IF (ASSOCIATED(meshForMCC)) CALL meshForMCC%printColl(t)
IF (ASSOCIATED(meshForMCC)) CALL printCollVTK(meshForMCC,t) !TEMPORARY TO TEST VTK OUTPUT
IF (ASSOCIATED(meshForMCC)) CALL printCollVTU(meshForMCC,t) !TEMPORARY TO TEST VTU OUTPUT
CALL mesh%printEM(t)
CALL printEMVTK(mesh, t) !TEMPORARY TO TEST VTK OUTPUT
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 +565,7 @@ MODULE moduleSolver
!Output average values
IF (useAverage .AND. t == tFinal) THEN
CALL mesh%printAverage()
CALL printAverageVTK(mesh) !TEMPORARY TO TEST VTK OUTPUT
CALL printAverageVTU(mesh) !TEMPORARY TO TEST VTU OUTPUT
END IF