358 static void THIFriction(THI thi, PetscReal rbeta2, PetscReal gam, PetscReal *beta2, PetscReal *dbet…  in THIFriction()  argument
369 …*beta2  = rbeta2 * PetscPowReal(thi->friction.eps2 + gam * thi->friction.irefgam, thi->friction.ex…  in THIFriction()
370 …*dbeta2 = thi->friction.exponent * *beta2 / (thi->friction.eps2 + gam * thi->friction.irefgam) * t…  in THIFriction()
374 static void THIViscosity(THI thi, PetscReal gam, PetscReal *eta, PetscReal *deta)  in THIViscosity()  argument
390   *eta     = Bd2 * PetscPowReal(eps + gam, exponent);  in THIViscosity()
391   *deta    = exponent * (*eta) / (eps + gam);  in THIViscosity()
713   PetscScalar gam;  in PointwiseNonlinearity()  local
727 …gam = PetscSqr(du[0]) + PetscSqr(dv[1]) + du[0] * dv[1] + 0.25 * PetscSqr(du[1] + dv[0]) + 0.25 * …  in PointwiseNonlinearity()
728   THIViscosity(thi, PetscRealPart(gam), eta, deta);  in PointwiseNonlinearity()
734   PetscScalar gam;  in PointwiseNonlinearity2D()  local
748   gam = PetscSqr(du[0]) + PetscSqr(dv[1]) + du[0] * dv[1] + 0.25 * PetscSqr(du[1] + dv[0]);  in PointwiseNonlinearity2D()
749   THIViscosity(thi, PetscRealPart(gam), eta, deta);  in PointwiseNonlinearity2D()