Searched refs:derate (Results 1 – 1 of 1) sorted by relevance
444 static void THIErosion(THI thi, const Node *vel, PetscScalar *erate, Node *derate) in THIErosion() argument448 if (derate) { in THIErosion()450 derate->u = 0; in THIErosion()451 derate->v = 0; in THIErosion()453 …derate->u = 0.5 * thi->erosion.exponent * rate / magref2 * 2. * vel->u / PetscSqr(thi->erosion.ref… in THIErosion()454 …derate->v = 0.5 * thi->erosion.exponent * rate / magref2 * 2. * vel->v / PetscSqr(thi->erosion.ref… in THIErosion()1259 Node derate; in THIJacobianLocal_2D() local1260 THIErosion(thi, &x3[i][j][0], NULL, &derate); in THIJacobianLocal_2D()1261 vals[1] -= derate.u; in THIJacobianLocal_2D()1262 vals[4] -= derate.v; in THIJacobianLocal_2D()