diff --git a/src/modules/init/moduleInput.f90 b/src/modules/init/moduleInput.f90 index 33bd894..da43e98 100644 --- a/src/modules/init/moduleInput.f90 +++ b/src/modules/init/moduleInput.f90 @@ -991,6 +991,11 @@ MODULE moduleInput END SELECT + IF (doubleMesh) THEN + meshColl%connectMesh => mesh%connectMesh + + END IF + !Get the format of mesh CALL config%get(object // '.meshType', meshFormat, found) SELECT CASE(meshFormat) diff --git a/src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90 b/src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90 index 3001eac..c62dec1 100644 --- a/src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90 +++ b/src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90 @@ -508,6 +508,44 @@ MODULE moduleMeshInputVTU REAL(8), ALLOCATABLE, INTENT(out), DIMENSION(:):: density REAL(8), ALLOCATABLE, INTENT(out), DIMENSION(:,:):: velocity REAL(8), ALLOCATABLE, INTENT(out), DIMENSION(:):: temperature + INTEGER:: fileID + CHARACTER(:), ALLOCATABLE:: line + INTEGER:: numNodes + REAL(8), ALLOCATABLE:: velocityBlock(:) + INTEGER:: n + + fileID = 10 + + OPEN(fileID, file = TRIM(filename)) + + line = findLine(fileID, '