tfix one-off error in write of fluid pressure solution - cngf-pf - continuum model for granular flows with pore-pressure dynamics (renamed from 1d_fd_simple_shear) (HTM) git clone git://src.adamsgaard.dk/cngf-pf (DIR) Log (DIR) Files (DIR) Refs (DIR) README (DIR) LICENSE --- (DIR) commit 41c495d99bab0f2d2d14f312c3ab6428b88db246 (DIR) parent 97e88f765d0b872280c99f2cd5753ed1afefe420 (HTM) Author: Anders Damsgaard <anders@adamsgaard.dk> Date: Wed, 18 Nov 2020 12:07:21 +0100 fix one-off error in write of fluid pressure solution Diffstat: M fluid.c | 6 +----- M simulation.c | 4 ++-- 2 files changed, 3 insertions(+), 7 deletions(-) --- (DIR) diff --git a/fluid.c b/fluid.c t@@ -252,11 +252,7 @@ darcy_solver_1d(struct simulation *sim, sim->D); for (i = 0; i < sim->nz - 1; ++i) { - sim->p_f_dot[i] = epsilon * p_f_dot_impl[i]; - - if (epsilon < 1.0) - sim->p_f_dot[i + 1] += (1.0 - epsilon) * p_f_dot_expl[i]; - + sim->p_f_dot[i] = epsilon * p_f_dot_impl[i] + (1.0 - epsilon) * p_f_dot_expl[i]; p_f_ghost_new[i + 1] += sim->p_f_dot[i] * sim->dt; r_norm[i] = fabs(residual(sim->p_f_dot[i], old_val[i])); } (DIR) diff --git a/simulation.c b/simulation.c t@@ -745,8 +745,8 @@ temporal_increment(struct simulation *sim) sim->phi[i] += sim->phi_dot[i] * sim->dt; if (sim->fluid) - for (i = 1; i <= sim->nz; ++i) - sim->p_f_ghost[i] += sim->p_f_dot[i] * sim->dt; + for (i = 0; i < sim->nz; ++i) + sim->p_f_ghost[i + 1] += sim->p_f_dot[i] * sim->dt; sim->t += sim->dt; }