tUse Dirichlet BC for top - 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 bbd24afac544c4afc9772f126eec9c3ba2c602e4
 (DIR) parent 2e2fa53fd466f6e8a224249b5f353cf0029f257a
 (HTM) Author: Anders Damsgaard <anders@adamsgaard.dk>
       Date:   Sat,  6 Apr 2019 12:40:28 +0200
       
       Use Dirichlet BC for top
       
       Diffstat:
         M 1d_fd_simple_shear.png              |       0 
         M julia/1d_fd_simple_shear.jl         |      16 +++-------------
         M julia/1d_fd_simple_shear.png        |       0 
         M simulation.c                        |       7 +++++--
       
       4 files changed, 8 insertions(+), 15 deletions(-)
       ---
 (DIR) diff --git a/1d_fd_simple_shear.png b/1d_fd_simple_shear.png
       Binary files differ.
 (DIR) diff --git a/julia/1d_fd_simple_shear.jl b/julia/1d_fd_simple_shear.jl
       t@@ -175,10 +175,11 @@ function implicit_1d_jacobian_poisson_solver(g, p, μ, Δz,
            r_norm_max = 0.0
        
            for iter=1:max_iter
       -        println("\n@@@ ITERATION $iter @@@")
       +        #println("\n@@@ ITERATION $iter @@@")
        
                set_bc_dirichlet(g, "-z")
       -        set_bc_neumann(g, "+z")
       +        set_bc_dirichlet(g, "+z")
       +        #set_bc_neumann(g, "+z")
        
                if verbose
                    println("g after BC: ")
       t@@ -245,12 +246,6 @@ for P_wall in P_wall_
            ## calculate stresses
            p = p_lithostatic(P_wall, z)
            μ = init_μ(μ_wall, ϕ, ρ_s, G, z, P_wall)
       -    println(".. z:")
       -    println(z)
       -    println(".. p:")
       -    println(p)
       -    println(".. mu:")
       -    println(μ)
        
            ## solve for fluidity
            implicit_1d_jacobian_poisson_solver(g_ghost, p, μ, Δz)
       t@@ -259,11 +254,6 @@ for P_wall in P_wall_
            γ_dot = γ_dot_p(g_ghost[2:end-1], μ)
            v_x = shear_velocity(γ_dot, Δz, v_x_bot)
        
       -    println(".. g:")
       -    println(g_ghost)
       -    println(".. v_x:")
       -    println(v_x)
       -
            ## plot results
            P = Int(round(P_wall/1e3))
            PyPlot.plot(v_x/maximum(v_x), z, "+-", label="\$P_{wall}\$ = $P kPa")
 (DIR) diff --git a/julia/1d_fd_simple_shear.png b/julia/1d_fd_simple_shear.png
       Binary files differ.
 (DIR) diff --git a/simulation.c b/simulation.c
       t@@ -163,9 +163,12 @@ int implicit_1d_jacobian_poisson_solver(
        #ifdef DEBUG
                printf("\n@@@ ITERATION %d @@@\n", iter);
        #endif
       -
       +        /* Dirichlet BCs resemble fixed particle velocities */
                set_bc_dirichlet(sim->g_ghost, sim->nz, -1, 0.0);
       -        set_bc_neumann(sim->g_ghost, sim->nz, +1);
       +        set_bc_dirichlet(sim->g_ghost, sim->nz, +1, 0.0);
       +
       +        /* Neumann BCs resemble free surfaces */
       +        /* set_bc_neumann(sim->g_ghost, sim->nz, +1); */
        
                for (int i=0; i<sim->nz; ++i)
                    poisson_solver_1d_cell_update(