tadd dirichlet BC fix for top wall for darcy solver - sphere - GPU-based 3D discrete element method algorithm with optional fluid coupling
 (HTM) git clone git://src.adamsgaard.dk/sphere
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) LICENSE
       ---
 (DIR) commit 0a6a4c9f38e0a21a5202a659e9ca4edad507e6f1
 (DIR) parent b0ec0f769e28d02c5dc5402ad463e99092e89e1c
 (HTM) Author: Anders Damsgaard <anders.damsgaard@geo.au.dk>
       Date:   Mon, 19 Jan 2015 09:57:38 +0100
       
       add dirichlet BC fix for top wall for darcy solver
       
       Diffstat:
         M src/device.cu                       |       3 ++-
       
       1 file changed, 2 insertions(+), 1 deletion(-)
       ---
 (DIR) diff --git a/src/device.cu b/src/device.cu
       t@@ -1821,7 +1821,8 @@ __host__ void DEM::startTime()
                            checkForCudaErrorsIter("Post findDarcyPorosities", iter);
                        }
        
       -                if (walls.nw > 0 && walls.wmode[0] == 1) {
       +                if (walls.nw > 0 &&
       +                        (walls.wmode[0] == 1 || walls.wmode[0] == 3) {
                            wall0_iz = walls.nx->w/(grid.L[2]/grid.num[2]);
                            /*setDarcyTopWallPressure
                              <<<dimGridFluid, dimBlockFluid>>>(