| /petsc/src/ts/tutorials/multirate/ |
| H A D | ex8.c | 31 …, PetscInt m, const PetscScalar *uL, const PetscScalar *uR, PetscScalar *flux, PetscReal *maxspeed) in PhysicsRiemann_Advect() argument 39 *maxspeed = speed; in PhysicsRiemann_Advect() 287 PetscReal maxspeed; in FVRHSFunction_3WaySplit() local 296 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_3WaySplit() 308 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_3WaySplit() 320 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_3WaySplit() 332 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_3WaySplit() 344 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_3WaySplit() 356 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_3WaySplit() 368 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_3WaySplit() [all …]
|
| H A D | ex5.c | 46 …t PetscScalar *uL, const PetscScalar *uR, PetscScalar *flux, PetscReal *maxspeed, PetscReal x, Pet… in PhysicsRiemann_Advect() argument 57 *maxspeed = *speed; in PhysicsRiemann_Advect() 251 PetscReal maxspeed; in FVRHSFunctionslow() local 260 …PetscCall((*ctx->physics.riemann)(ctx->physics.user, dof, uL, uR, ctx->flux, &maxspeed, ctx->xmin … in FVRHSFunctionslow() 261 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionslow() 276 …PetscCall((*ctx->physics.riemann)(ctx->physics.user, dof, uL, uR, ctx->flux, &maxspeed, ctx->xmin … in FVRHSFunctionslow() 277 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionslow() 354 PetscReal maxspeed; in FVRHSFunctionfast() local 363 …PetscCall((*ctx->physics.riemann)(ctx->physics.user, dof, uL, uR, ctx->flux, &maxspeed, ctx->xmin … in FVRHSFunctionfast() 364 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionfast() [all …]
|
| H A D | ex6.c | 38 …, PetscInt m, const PetscScalar *uL, const PetscScalar *uR, PetscScalar *flux, PetscReal *maxspeed) in PhysicsRiemann_Advect() argument 46 *maxspeed = speed; in PhysicsRiemann_Advect() 270 PetscReal maxspeed; in FVRHSFunction_2WaySplit() local 279 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_2WaySplit() 291 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_2WaySplit() 303 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_2WaySplit() 315 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_2WaySplit() 327 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_2WaySplit() 328 …cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hxs)); /* Max allowable value of 1/Delta t */ in FVRHSFunction_2WaySplit() 420 PetscReal maxspeed; in FVRHSFunctionslow_2WaySplit() local [all …]
|
| H A D | ex4.c | 57 …, PetscInt m, const PetscScalar *uL, const PetscScalar *uR, PetscScalar *flux, PetscReal *maxspeed) in PhysicsRiemann_Advect() argument 65 *maxspeed = speed; in PhysicsRiemann_Advect() 159 …, PetscInt m, const PetscScalar *uL, const PetscScalar *uR, PetscScalar *flux, PetscReal *maxspeed) in PhysicsRiemann_Shallow_Exact() argument 229 *maxspeed = MaxAbs(MaxAbs(star.u - cstar, star.u + cstar), MaxAbs(L.u - cL, R.u + cR)); in PhysicsRiemann_Shallow_Exact() 233 …, PetscInt m, const PetscScalar *uL, const PetscScalar *uR, PetscScalar *flux, PetscReal *maxspeed) in PhysicsRiemann_Shallow_Rusanov() argument 257 *maxspeed = s; in PhysicsRiemann_Shallow_Rusanov() 639 PetscReal maxspeed; in FVRHSFunction_2WaySplit() local 648 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_2WaySplit() 660 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_2WaySplit() 672 PetscCall((*ctx->physics2.riemann2)(ctx->physics2.user, dof, uL, uR, ctx->flux, &maxspeed)); in FVRHSFunction_2WaySplit() [all …]
|
| H A D | ex7.c | 87 …orCode PhysicsFlux_Advect(void *vctx, const PetscScalar *u, PetscScalar *flux, PetscReal *maxspeed) in PhysicsFlux_Advect() argument 95 *maxspeed = speed; in PhysicsFlux_Advect() 202 PetscReal maxspeed; in FVRHSFunction() local 213 PetscCall((*ctx->physics.flux)(ctx->physics.user, u, ctx->flux, &maxspeed)); in FVRHSFunction() 214 cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hs)); in FVRHSFunction() 230 PetscCall((*ctx->physics.flux)(ctx->physics.user, u, ctx->flux, &maxspeed)); in FVRHSFunction() 246 PetscCall((*ctx->physics.flux)(ctx->physics.user, u, ctx->flux, &maxspeed)); in FVRHSFunction() 262 PetscCall((*ctx->physics.flux)(ctx->physics.user, u, ctx->flux, &maxspeed)); in FVRHSFunction() 278 PetscCall((*ctx->physics.flux)(ctx->physics.user, u, ctx->flux, &maxspeed)); in FVRHSFunction() 294 PetscCall((*ctx->physics.flux)(ctx->physics.user, u, ctx->flux, &maxspeed)); in FVRHSFunction() [all …]
|
| H A D | finitevolume1d.c | 585 PetscReal maxspeed; in FVRHSFunction() local 593 …PetscCall((*ctx->physics.riemann)(ctx->physics.user, dof, uL, uR, ctx->flux, &maxspeed, ctx->xmin … in FVRHSFunction() 594 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunction()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex9.c | 290 …, PetscInt m, const PetscScalar *uL, const PetscScalar *uR, PetscScalar *flux, PetscReal *maxspeed) in PhysicsRiemann_Advect() argument 298 *maxspeed = speed; in PhysicsRiemann_Advect() 426 …, PetscInt m, const PetscScalar *uL, const PetscScalar *uR, PetscScalar *flux, PetscReal *maxspeed) in PhysicsRiemann_Burgers_Exact() argument 435 *maxspeed = (PetscAbs(uL[0]) > PetscAbs(uR[0])) ? uL[0] : uR[0]; in PhysicsRiemann_Burgers_Exact() 439 …, PetscInt m, const PetscScalar *uL, const PetscScalar *uR, PetscScalar *flux, PetscReal *maxspeed) in PhysicsRiemann_Burgers_Roe() argument 447 *maxspeed = speed; in PhysicsRiemann_Burgers_Roe() 451 …, PetscInt m, const PetscScalar *uL, const PetscScalar *uR, PetscScalar *flux, PetscReal *maxspeed) in PhysicsRiemann_Burgers_LxF() argument 461 *maxspeed = c; in PhysicsRiemann_Burgers_LxF() 465 …, PetscInt m, const PetscScalar *uL, const PetscScalar *uR, PetscScalar *flux, PetscReal *maxspeed) in PhysicsRiemann_Burgers_Rusanov() argument 475 *maxspeed = c; in PhysicsRiemann_Burgers_Rusanov() [all …]
|
| H A D | ex11.c | 79 PetscReal maxspeed; /* estimate of global maximum speed (for CFL calculation) */ member 301 phys->maxspeed = Norm2Real(tilted->wind); in PhysicsCreate_Advect() 314 phys->maxspeed = 3.; /* radius of mesh, kludge */ in PhysicsCreate_Advect() 451 phys->maxspeed = PetscSqrtReal(2.0 * sw->gravity); /* Mach 1 for depth of 2 */ in PhysicsCreate_SW() 530 if (c > phys->maxspeed) phys->maxspeed = c; in PhysicsSolution_Euler() 694 phys->maxspeed = 0.; /* will get set in solution */ in PhysicsCreate_Euler() 1224 …PetscCallMPI(MPIU_Allreduce(&phys->maxspeed, &mod->maxspeed, 1, MPIU_REAL, MPIU_MAX, PetscObjectCo… in Transfer() 1225 …PetscCheck(mod->maxspeed > 0, PetscObjectComm((PetscObject)ts), PETSC_ERR_ARG_WRONGSTATE, "Physics… in Transfer() 1227 PetscReal dt = tctx->cfl * minRadius / mod->maxspeed; in Transfer() 1526 …PetscCallMPI(MPIU_Allreduce(&phys->maxspeed, &mod->maxspeed, 1, MPIU_REAL, MPIU_MAX, PetscObjectCo… in main() [all …]
|
| H A D | ex11.h | 55 …PetscReal maxspeed; /* kludge to pick initial time step, need to add monitori… member
|