241   PetscReal Lx, Ly, Lz; /* Model domain */  member
343 …units->meter * PetscSinReal(x * 2 * PETSC_PI / thi->Lx) * PetscSinReal(y * 2 * PETSC_PI / thi->Ly);  in THIInitialize_HOM_A()
356 …SinReal(x * 2 * PETSC_PI / thi->Lx) * PetscSinReal(y * 2 * PETSC_PI / thi->Ly)) * units->Pascal * …  in THIInitialize_HOM_C()
378 …PetscReal x = xx * 2 * PETSC_PI / thi->Lx - PETSC_PI, y = yy * 2 * PETSC_PI / thi->Ly - PETSC_PI; …  in THIInitialize_HOM_X()
389 …PetscReal x = xx * 2 * PETSC_PI / thi->Lx - PETSC_PI, y = yy * 2 * PETSC_PI / thi->Ly - PETSC_PI; …  in THIInitialize_HOM_Y()
401 …PetscReal x = xx * 2 * PETSC_PI / thi->Lx - PETSC_PI, y = yy * 2 * PETSC_PI / thi->Ly - PETSC_PI; …  in THIInitialize_HOM_Z()
525   thi->Ly              = 10.e3;  in THICreate()
545     if (flg) thi->Lx = thi->Ly = L;  in THICreate()
547     PetscCall(PetscOptionsReal("-thi_Ly", "Y Domain size (m)", "", thi->Ly, &thi->Ly, NULL));  in THICreate()
622   thi->Ly *= units->meter;  in THICreate()
636 …g), pressure %8.2g, driving stress %8.2g\n", (double)thi->Lx, (double)thi->Ly, (double)thi->Lz, (d…  in THICreate()
678       PetscReal xx = thi->Lx * i / mx, yy = thi->Ly * j / my;  in THIInitializePrm()
707   hy = thi->Ly / my;  in THIInitial()
762   hy = thi->Ly / info->my;  in THIFunctionLocal_3D()
1106   hy = thi->Ly / info->my;  in THIJacobianLocal_Momentum()
1414 …PetscReal xx = thi->Lx * i / mx, yy = thi->Ly * j / my, b = PetscRealPart(y2[i * ym + j][FieldOffs…  in THIDAVecView_VTK_XML()
1560 …PetscReal Lx = thi->Lx / thi->units->meter, Ly = thi->Ly / thi->units->meter, Lz = thi->Lz / thi->…  in main()  local
1564 …d x %3d x %3d (%8d), size (m) %g x %g x %g\n", i, Lx, Ly, Lz, Mx, My, Mz, Mx * My * Mz, Lx / Mx, L…  in main()