forked from mmcgurn/petscDebug
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgmshDistribute.c
53 lines (40 loc) · 2.11 KB
/
gmshDistribute.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
static const char help[] = "Debug Code";
#include <petsc.h>
int main(int argc, char **argv)
{
DM dm,dma, dmDist = NULL;
PetscCall(PetscInitialize(&argc, &argv, NULL, help));
PetscCall(DMCreate(PETSC_COMM_WORLD, &dm));
PetscCall(DMSetType(dm, DMPLEX));
PetscCall(DMPlexDistributeSetDefault(dm, PETSC_TRUE));
PetscCall(DMSetFromOptions(dm));
PetscCall(DMViewFromOptions(dm, NULL, "-dm_view_before_extrude"));
// get the surface marker label
DMLabel adaptLabel;
PetscCall(DMGetLabel(dm, "marker", &adaptLabel));
PetscCall(DMAdaptLabel(dm, adaptLabel, &dma));
if (dma) {
PetscCall(DMDestroy(&dm));
dm = dma;
}
PetscCall(DMViewFromOptions(dm, NULL, "-dm_view_after_extrude"));
// distribute the mesh with ghost cells
PetscCall(DMPlexDistribute(dm, 2, NULL, &dmDist));
if (dmDist) {
PetscCall(DMDestroy(&dm));
dm = dmDist;
}
// View the mesh
PetscCall(DMSetFromOptions(dm));
PetscCall(DMViewFromOptions(dm, NULL, "-dm_view"));
PetscCall(DMDestroy(&dm));
PetscCall(PetscFinalize());
return 0;
}
/*TEST
*
with -dm_plex_check_all
mpirun -n 2 ./gMshDistribute -dm_plex_filename /Users/mcgurn/scratch/results/2Dproblem/combustionChamber2d_refinedv2.msh -dm_view :finalMesh.tex:ascii_latex -dm_view_after_extrude :afterExtrude.tex:ascii_latex -dm_view_before_extrude :beforeExtrude.tex:ascii_latex -dm_adaptor cellrefiner -dm_plex_transform_type extrude -dm_plex_transform_extrude_thickness 0.0016 -dm_plex_check_all -dm_plex_gmsh_use_marker -dm_plex_view_tikzscale 120.0 -dm_plex_transform_extrude_use_tensor 0
// without -dm_plex_check_all
mpirun -n 2 ./gMshDistribute -dm_plex_filename /Users/mcgurn/scratch/results/2Dproblem/combustionChamber2d_refinedv2.msh -dm_view :finalMesh.tex:ascii_latex -dm_view_after_extrude :afterExtrude.tex:ascii_latex -dm_view_before_extrude :beforeExtrude.tex:ascii_latex -dm_adaptor cellrefiner -dm_plex_transform_type extrude -dm_plex_transform_extrude_thickness 0.0016 -dm_plex_gmsh_use_marker -dm_plex_view_tikzscale 120.0 -dm_plex_transform_extrude_use_tensor 0
TEST*/