Change export of omesh to use Sequential variables. Important for addons

where whole mpi mesh is not constructed.
loganoz · Apr 4, 2024 · 6341555 · 6341555
1 parent b98ab2b
commit 6341555
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Solver/src/libs/mesh/HexMesh.f90 b/Solver/src/libs/mesh/HexMesh.f90
@@ -2861,9 +2861,9 @@ subroutine HexMesh_ExportOrders(self,fileName)
          OrderFileName = "./MESH/" // trim(removePath(getFileName(fileName))) // ".omesh"
          open( newunit = fd , FILE = TRIM(OrderFileName), ACTION = 'write')
 
-         write(fd,*) self % no_of_allElements
+         write(fd,*) self % no_of_elements
 
-         do k=1, self % no_of_allElements
+         do k=1, self % no_of_elements
             write(fd,*) self % elements(k) % Nxyz
          end do