Searched refs:reaction_force (Results 1 – 1 of 1) sorted by relevance
| /libCEED/examples/fluids/src/ |
| H A D | setupts.c | 57 …ces_NS(DM dm, Vec G_loc, PetscInt num_walls, const PetscInt walls[], PetscScalar *reaction_force) { in Surface_Forces_NS() argument
65 PetscCall(PetscArrayzero(reaction_force, num_walls * dim)); in Surface_Forces_NS()
88 reaction_force[w * dim + j] -= r[node].momentum[j]; in Surface_Forces_NS()
96 …PetscCallMPI(MPI_Allreduce(MPI_IN_PLACE, reaction_force, dim * num_walls, MPIU_SCALAR, MPI_SUM, co… in Surface_Forces_NS()
248 PetscScalar *reaction_force; in TSMonitor_WallForce() local
254 PetscCall(PetscMalloc1(num_wall * dim, &reaction_force)); in TSMonitor_WallForce()
255 PetscCall(Surface_Forces_NS(user->dm, G_loc, num_wall, walls, reaction_force)); in TSMonitor_WallForce()
269 … reaction_force[w * dim + 0], reaction_force[w * dim + 1], reaction_force[w * dim + 2])); in TSMonitor_WallForce()
273 … reaction_force[w * dim + 0], reaction_force[w * dim + 1], reaction_force[w * dim + 2])); in TSMonitor_WallForce()
277 PetscCall(PetscFree(reaction_force)); in TSMonitor_WallForce()
|