cngf-pf

commit bcfdeee0984251238a21f42b6491db14638ce373
parent 8050a4f258c3648cf3bc6f9dad04d4173b6450b6
Author: Anders Damsgaard <anders@adamsgaard.dk>
Date:   Wed, 13 Jan 2021 14:46:04 +0100

cngf-pf.c: fix order of initial stress computations

Diffstat:
M
cngf-pf.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/cngf-pf.c b/cngf-pf.c
@@ -245,7 +245,6 @@ main(int argc, char *argv[])
 			sim.k[i] = new_k;
 
 	lithostatic_pressure_distribution(&sim);
-	compute_effective_stress(&sim);
 
 	if (sim.fluid) {
 		hydrostatic_fluid_pressure_distribution(&sim);
@@ -257,6 +256,7 @@ main(int argc, char *argv[])
 
 	if (sim.dt > sim.file_dt)
 		sim.dt = sim.file_dt;
+	compute_effective_stress(&sim);
 
 	check_simulation_parameters(&sim);