ace the producer / injector in the large-scale fractures</span>
    [fcells,ncells] = getFractureCells(g_fine,1);

    <span class="comment">% Injector in lower left corner</span>
    c1 = findClosestCell(g_fine,box(1,1),box(1,2),fcells);
    <span class="comment">% Producer in upper right corner</span>
    c2 = findClosestCell(g_fine,box(2,1),box(2,2),fcells);

    <span class="comment">% set up the well</span>
    rate = 10*meter^3/day;
    bhp  = 1*barsa;
    radius = 0.05;

    W = addWell([], g_fine, r