foam-extend4.1-coherent-io/applications/solvers/multiphase/settlingFoam/correctViscosity.H

{
    mul = muc + 
        plasticViscosity
        (
            plasticViscosityCoeff,
            plasticViscosityExponent,
            alpha
        );

    if (BinghamPlastic)
    {
        volScalarField tauy = yieldStress
        (
            yieldStressCoeff,
            yieldStressExponent,
            yieldStressOffset,
            alpha
        );

        mul =
            tauy/
            (
                mag(fvc::grad(U))
              + 1.0e-4*
                (
                    tauy
                  + dimensionedScalar
                    (
                        "deltaTauy",
                        tauy.dimensions(),
                        1.0e-15
                    )
                )/mul
            )
          + mul;
    }
}