Searched refs:irefgam (Results 1 – 2 of 2) sorted by relevance
266 PetscReal irefgam, eps2, exponent, refvel, epsvel; member360 if (thi->friction.irefgam == 0) { in THIFriction()362 … thi->friction.irefgam = 1. / (0.5 * PetscSqr(thi->friction.refvel * units->meter / units->year)); in THIFriction()363 …ps2 = 0.5 * PetscSqr(thi->friction.epsvel * units->meter / units->year) * thi->friction.irefgam; in THIFriction()369 …*beta2 = rbeta2 * PetscPowReal(thi->friction.eps2 + gam * thi->friction.irefgam, thi->friction.ex… in THIFriction()370 …ion.exponent * *beta2 / (thi->friction.eps2 + gam * thi->friction.irefgam) * thi->friction.irefgam; in THIFriction()
253 PetscReal irefgam, eps2, exponent; member410 if (thi->friction.irefgam == 0) { in THIFriction()412 thi->friction.irefgam = 1. / (0.5 * PetscSqr(100 * units->meter / units->year)); in THIFriction()413 thi->friction.eps2 = 0.5 * PetscSqr(1.e-4 / thi->friction.irefgam); in THIFriction()419 …*beta2 = rbeta2 * PetscPowReal(thi->friction.eps2 + gam * thi->friction.irefgam, thi->friction.ex… in THIFriction()420 …ion.exponent * *beta2 / (thi->friction.eps2 + gam * thi->friction.irefgam) * thi->friction.irefgam; in THIFriction()