Searched refs:sum_values (Results 1 – 1 of 1) sorted by relevance
| /honee/src/ |
| H A D | monitor_totalkineticenergy.c | 11 PetscScalar *sum_values; member
24 PetscCall(PetscFree(monitor_ctx_->sum_values)); in MonitorTotalKEDestroy()
114 PetscCall(PetscMalloc1(num_comp_totalke, &monitor_ctx->sum_values)); in SetupMontiorTotalKineticEnergy()
153 PetscCall(VecStrideSum(monitor_ctx->values, i, &monitor_ctx->sum_values[i])); in TSMonitor_TotalKineticEnergy()
156 …if (rank == 0) PetscCallMPI(MPI_Reduce(MPI_IN_PLACE, monitor_ctx->sum_values, monitor_ctx->num_com… in TSMonitor_TotalKineticEnergy()
157 …else PetscCallMPI(MPI_Reduce(monitor_ctx->sum_values, monitor_ctx->sum_values, monitor_ctx->num_co… in TSMonitor_TotalKineticEnergy()
160 …for (PetscInt i = 0; i < monitor_ctx->num_comps; i++) monitor_ctx->sum_values[i] /= monitor_ctx->v… in TSMonitor_TotalKineticEnergy()
204 PetscCall(PetscViewerASCIIPrintf(ctx->viewer, "%0.17e", monitor_ctx->sum_values[i])); in TSMonitor_TotalKineticEnergy()
211 …ll(PetscViewerASCIIPrintf(ctx->viewer, "%s: %0.12e ", field_names[i], monitor_ctx->sum_values[i])); in TSMonitor_TotalKineticEnergy()
215 … for (PetscInt i = 1; i < monitor_ctx->num_comps - 1; i++) sum_rates += monitor_ctx->sum_values[i]; in TSMonitor_TotalKineticEnergy()
|