107 static PetscErrorCode CreateMesh(MPI_Comm comm, AppCtx *ctx, DM *mesh)  in CreateMesh()  argument
110   PetscCall(DMCreate(comm, mesh));  in CreateMesh()
111   PetscCall(DMSetType(*mesh, DMPLEX));  in CreateMesh()
112   PetscCall(DMSetFromOptions(*mesh));  in CreateMesh()
113   PetscCall(DMSetApplicationContext(*mesh, ctx));  in CreateMesh()
114   PetscCall(DMViewFromOptions(*mesh, NULL, "-dm_view"));  in CreateMesh()
147 static PetscErrorCode SetupDiscretization(DM mesh, DM mesh_sum, PetscErrorCode (*setup)(DM, AppCtx …  in SetupDiscretization()  argument
149   DM        cdm = mesh, cdm_sum = mesh_sum;  in SetupDiscretization()
156   PetscCall(DMGetDimension(mesh, &dim));  in SetupDiscretization()
157   PetscCall(DMPlexIsSimplex(mesh, &simplex));  in SetupDiscretization()
169 …PetscCall(PetscFECreateDefault(PetscObjectComm((PetscObject)mesh), dim, dim, simplex, "velocity_",…  in SetupDiscretization()
173 …PetscCall(PetscFECreateDefault(PetscObjectComm((PetscObject)mesh), dim, 1, simplex, "divu_", -1, &…  in SetupDiscretization()
182   PetscCall(DMSetField(mesh, 0, NULL, (PetscObject)u));  in SetupDiscretization()
183   PetscCall(DMSetField(mesh, 1, NULL, (PetscObject)divu));  in SetupDiscretization()
184   PetscCall(DMCreateDS(mesh));  in SetupDiscretization()
185   PetscCall((*setup)(mesh, ctx));  in SetupDiscretization()
193     PetscCall(DMCopyDisc(mesh, cdm));  in SetupDiscretization()