283   PetscReal year;  member
317 … thi->Lx) * PetscSinReal(y * 2 * PETSC_PI / thi->Ly)) * units->Pascal * units->year / units->meter;  in THIInitialize_HOM_C()
330   p->beta2 = 1000 * (r < 1 ? 2 : 0) * units->Pascal * units->year / units->meter;  in THIInitialize_HOM_X()
343 … * PetscCosReal(x * 3 / 2) * PetscCosReal(y * 3 / 2)) * units->Pascal * units->year / units->meter;  in THIInitialize_HOM_Y()
355 … * PetscCosReal(x * 3 / 2) * PetscCosReal(y * 3 / 2)) * units->Pascal * units->year / units->meter;  in THIInitialize_HOM_Z()
362 …  thi->friction.irefgam = 1. / (0.5 * PetscSqr(thi->friction.refvel * units->meter / units->year));  in THIFriction()
363 …thi->friction.eps2    = 0.5 * PetscSqr(thi->friction.epsvel * units->meter / units->year) * thi->f…  in THIFriction()
381 …A                     = 1.e-16 * PetscPowReal(units->Pascal, -n) / units->year, /* softness parame…  in THIViscosity()
385     thi->viscosity.eps      = 0.5 * PetscSqr(1e-5 / units->year);  in THIViscosity()
458   units->year   = 31556926. * units->second; /* seconds per year */  in THICreate()
943     nrm2 *= thi->units->year / thi->units->meter;  in THISolveStatistics()
945       min[j] *= thi->units->year / thi->units->meter;  in THISolveStatistics()
946       max[j] *= thi->units->year / thi->units->meter;  in THISolveStatistics()
953       umin *= thi->units->year / thi->units->meter;  in THISolveStatistics()
954       umax *= thi->units->year / thi->units->meter;  in THISolveStatistics()
955       umean *= thi->units->year / thi->units->meter;  in THISolveStatistics()
1423 … (double)(PetscRealPart(ptr[i]) * units->year / units->meter), (double)(PetscRealPart(ptr[i + 1]) …