Home
last modified time | relevance | path

Searched refs:cR (Results 1 – 4 of 4) sorted by relevance

/petsc/src/ts/tutorials/
H A Dex11.h173 PetscReal cL, cR, speed; in PhysicsRiemann_SW_Rusanov() local
218 cR = PetscSqrtReal(sw->gravity * uR->h); /* gravity wave speed */ in PhysicsRiemann_SW_Rusanov()
219 …(PetscAbsReal(Dot2Real(uL->uh, nn) / uL->h) + cL, PetscAbsReal(Dot2Real(uR->uh, nn) / uR->h) + cR); in PhysicsRiemann_SW_Rusanov()
231 CeedScalar *cL = out[0], *cR = out[1]; in PhysicsRiemann_SW_Rusanov_CEED() local
257 cR[i + Q * j] = flux[j] / geom[i + Q * 3]; in PhysicsRiemann_SW_Rusanov_CEED()
263 …for (CeedInt j = 0; j < DIM + 1; ++j) PetscPrintf(PETSC_COMM_SELF, " | %g | (%g)\n", cR[i + Q * j… in PhysicsRiemann_SW_Rusanov_CEED()
789 PetscReal cL, cR, speed, velL, velR, nn[DIM], s2; in PhysicsRiemann_Euler_Godunov() local
821 ierr = SpeedOfSound_PG(gamma, uR, &cR); in PhysicsRiemann_Euler_Godunov()
824 cR = zero / zero; in PhysicsRiemann_Euler_Godunov()
829 speed = PetscMax(velR + cR, velL + cL); in PhysicsRiemann_Euler_Godunov()
[all …]
H A Dex9.c1015 PetscScalar g = phys->gravity, ustar[2], cL, cR, c, cstar; in PhysicsRiemann_Shallow_Exact() local
1024 cR = PetscSqrtScalar(g * R.h); in PhysicsRiemann_Shallow_Exact()
1025 c = PetscMax(cL, cR); in PhysicsRiemann_Shallow_Exact()
1066 } else if (star.u + cstar < 0 && 0 < R.u + cR) { /* 2-wave is sonic rarefaction */ in PhysicsRiemann_Shallow_Exact()
1068 ufan[0] = 1 / g * PetscSqr(R.u / 3 - 2. / 3 * cR); in PhysicsRiemann_Shallow_Exact()
1082 *maxspeed = MaxAbs(MaxAbs(star.u - cstar, star.u + cstar), MaxAbs(L.u - cL, R.u + cR)); in PhysicsRiemann_Shallow_Exact()
/petsc/src/ts/tutorials/multirate/
H A Dex4.c162 PetscScalar g = phys->gravity, ustar[2], cL, cR, c, cstar; in PhysicsRiemann_Shallow_Exact() local
171 cR = PetscSqrtScalar(g * R.h); in PhysicsRiemann_Shallow_Exact()
172 c = PetscMax(cL, cR); in PhysicsRiemann_Shallow_Exact()
213 } else if (star.u + cstar < 0 && 0 < R.u + cR) { /* 2-wave is sonic rarefaction */ in PhysicsRiemann_Shallow_Exact()
215 ufan[0] = 1 / g * PetscSqr(R.u / 3 - 2. / 3 * cR); in PhysicsRiemann_Shallow_Exact()
229 *maxspeed = MaxAbs(MaxAbs(star.u - cstar, star.u + cstar), MaxAbs(L.u - cL, R.u + cR)); in PhysicsRiemann_Shallow_Exact()
/petsc/src/dm/impls/plex/
H A Dplexgeometry.c3036 PetscFVCellGeom *cL, *cR; in DMPlexComputeGeometryFVM() local
3043 PetscCall(DMPlexPointLocalRead(dmCell, cells[1], cgeom, &cR)); in DMPlexComputeGeometryFVM()
3044 rcentroid = cells[1] >= cEndInterior ? fg->centroid : cR->centroid; in DMPlexComputeGeometryFVM()
3064 DMPlex_WaxpyD_Internal(dim, -1, fg->centroid, cR->centroid, v); in DMPlexComputeGeometryFVM()