moebiusband/NuSiF-Solver
2
0
Fork 2
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Merge branch 'main' of git.clustercockpit.org:moebiusband/NuSiF-Solver

Browse Source
This commit is contained in:
Jan Eitzinger
2024-01-31 17:50:55 +01:00
parent 91cbb29f6e 4e8535f4a1
commit cc2aef66b4
6 changed files with 110 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
BasicSolver/3D-mpi/src/main.c
View File

@@ -71,6 +71,7 @@ int main(int argc, char** argv)
printf("Solution took %.2fs\n", timeStop - timeStart);
}
timeStart = getTimeStamp();
#ifdef _VTK_WRITER_MPI
VtkOptions opts = { .grid = s.grid, .comm = s.comm };
vtkOpen(&opts, s.problem);
@@ -111,6 +112,12 @@ int main(int argc, char** argv)
}
#endif
timeStop = getTimeStamp();
if (commIsMaster(&s.comm)) {
printf("Result output took %.2fs\n", timeStop - timeStart);
}
commFinalize(&s.comm);
return EXIT_SUCCESS;
}

3
BasicSolver/3D-mpi/src/vtkWriter-mpi.c
View File

@@ -91,8 +91,7 @@ void vtkScalar(VtkOptions* o, char* name, double* s)
char header[100];
char* cursor = header;
cursor += sprintf(cursor, "SCALARS %s double 1\n", name);
cursor += sprintf(cursor, "LOOKUP_TABLE default\n");
cursor += sprintf(cursor, "SCALARS %s double\n", name);
if (commIsMaster(&o->comm)) {
MPI_File_write(o->fh, header, (int)strlen(header), MPI_CHAR, MPI_STATUS_IGNORE);