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

New functions to read VTU

Browse source 
Added a few functions to read .vtu meshes.

Output in .vtu changed to output data in 6 columns (seems to be the
    standard.)
This commit is contained in:
Jorge Gonzalez 2023-02-05 16:23:37 +01:00
commit 63fd8fdb91
3 changed files with 192 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/modules/init/moduleInput.f90
View file

@ -860,6 +860,7 @@ MODULE moduleInput
SUBROUTINE readGeometry(config)
USE moduleMesh
USE moduleMeshInputGmsh2, ONLY: initGmsh2
USE moduleMeshInputVTU, ONLY: initVTU, readVTU !TEMPORARY TO TEST VTU OUTPUT
USE moduleMeshInput0D, ONLY: init0D
USE moduleErrors
USE moduleOutput
@ -873,6 +874,7 @@ MODULE moduleInput
LOGICAL:: found
CHARACTER(:), ALLOCATABLE:: meshFormat, meshFile
REAL(8):: volume
CHARACTER(:), ALLOCATABLE:: meshFileVTU !Temporary to test VTU OUTPUT
object = 'geometry'
@ -973,6 +975,8 @@ MODULE moduleInput
CALL config%get(object // '.meshFile', meshFile, found)
pathMeshParticle = path // meshFile
CALL mesh%readMesh(pathMeshParticle)
meshFileVTU = '/home/jorge/fpakc/runs/cylFlow/mesh.vtu' !TEMPORARY TO TEST VTU OUTPUT
CALL readVTU(mesh, meshFileVTU) !TEMPORARY TO TEST VTU OUTPUT
DEALLOCATE(meshFile)
IF (doubleMesh) THEN
!Reads the mesh file for collisions