278   PetscReal meter;  member
304 …p->b     = s - 1000 * units->meter + 500 * units->meter * PetscSinReal(x * 2 * PETSC_PI / thi->Lx)…  in THIInitialize_HOM_A()
314   p->b = s - 1000 * units->meter;  in THIInitialize_HOM_C()
317 … thi->Lx) * PetscSinReal(y * 2 * PETSC_PI / thi->Ly)) * units->Pascal * units->year / units->meter;  in THIInitialize_HOM_C()
328 …p->b     = s - 1000 * units->meter + 500 * units->meter * PetscSinReal(x + PETSC_PI) * PetscSinRea…  in THIInitialize_HOM_X()
330   p->beta2 = 1000 * (r < 1 ? 2 : 0) * units->Pascal * units->year / units->meter;  in THIInitialize_HOM_X()
340 …p->b = s - 1000 * units->meter + 500 * units->meter * PetscSinReal(x + PETSC_PI) * PetscSinReal(y …  in THIInitialize_HOM_Y()
341   if (PetscRealPart(p->b) > -700 * units->meter) p->b += 200 * units->meter;  in THIInitialize_HOM_Y()
343 … * PetscCosReal(x * 3 / 2) * PetscCosReal(y * 3 / 2)) * units->Pascal * units->year / units->meter;  in THIInitialize_HOM_Y()
353 …p->b     = s - 1000 * units->meter + 500 * units->meter * PetscSinReal(x + PETSC_PI) * PetscSinRea…  in THIInitialize_HOM_Z()
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()
446   units->meter    = 1e-2;  in THICreate()
452 …ionsReal("-units_meter", "1 meter in scaled length units", "", units->meter, &units->meter, NULL));  in THICreate()
457   units->Pascal = units->kilogram / (units->meter * PetscSqr(units->second));  in THICreate()
542   thi->Lx *= units->meter;  in THICreate()
543   thi->Ly *= units->meter;  in THICreate()
544   thi->Lz *= units->meter;  in THICreate()
551 …meter / (3e7 * units->second), gradu = u / (100 * units->meter), eta, deta, rho = 910 * units->kil…  in THICreate()
552               driving = rho * grav * PetscSinReal(thi->alpha) * 1000 * units->meter;  in THICreate()
556 … "Units: meter %8.2g  second %8.2g  kg %8.2g  Pa %8.2g\n", (double)units->meter, (double)units->se…  in THICreate()
557 …>Lx, (double)thi->Ly, (double)thi->Lz, (double)(rho * grav * 1e3 * units->meter), (double)driving)…  in THICreate()
604 …PetscReal Lx = thi->Lx / thi->units->meter, Ly = thi->Ly / thi->units->meter, Lz = thi->Lz / thi->…  in THISetUpDM()
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 …cRealPart(ptr[i]) * units->year / units->meter), (double)(PetscRealPart(ptr[i + 1]) * units->year …