Searched refs:reaction_force (Results 1 – 1 of 1) sorted by relevance
| /honee/src/ |
| H A D | setupts.c | 72 …ces_NS(DM dm, Vec G_loc, PetscInt num_walls, const PetscInt walls[], PetscScalar *reaction_force) { in Surface_Forces_NS() argument
103 reaction_force[w * dim + j] -= r[node].momentum[j]; in Surface_Forces_NS()
110 …PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, reaction_force, dim * num_walls, MPIU_SCALAR, MPI_SUM, c… in Surface_Forces_NS()
261 PetscScalar *reaction_force; in TSMonitor_WallForce() local
267 PetscCall(PetscCalloc1(num_wall * dim, &reaction_force)); in TSMonitor_WallForce()
268 PetscCall(Surface_Forces_NS(honee->dm, G_loc, num_wall, walls, reaction_force)); in TSMonitor_WallForce()
282 … reaction_force[w * dim + 0], reaction_force[w * dim + 1], reaction_force[w * dim + 2])); in TSMonitor_WallForce()
286 … reaction_force[w * dim + 0], reaction_force[w * dim + 1], reaction_force[w * dim + 2])); in TSMonitor_WallForce()
290 PetscCall(PetscFree(reaction_force)); in TSMonitor_WallForce()
|