From 9300abf7cf97bb5e4d217eca5a1ccdc962633f66 Mon Sep 17 00:00:00 2001 From: "Graham H. Edwards" Date: Thu, 29 Feb 2024 21:25:35 -0500 Subject: [PATCH] keep column bottom values pinned at basalwater compositions --- src/diffuse.jl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/diffuse.jl b/src/diffuse.jl index d8c21bd..24b128c 100644 --- a/src/diffuse.jl +++ b/src/diffuse.jl @@ -125,9 +125,9 @@ function diffuseadvectcolumn!(sc::SedimentColumn, k::Constants) end # set bottom values to penultimate values - sc.O.p[k.nz] = sc.O.p[k.penultimate_node] - sc.Cl.p[k.nz] = sc.Cl.p[k.penultimate_node] - sc.rho.p[k.nz] = sc.rho.p[k.penultimate_node] + #sc.O.p[k.nz] = sc.O.p[k.penultimate_node] + #sc.Cl.p[k.nz] = sc.Cl.p[k.penultimate_node] + #sc.rho.p[k.nz] = sc.rho.p[k.penultimate_node] # And time steps forward, replacing o with p. sc.O.o .= sc.O.p