Home
last modified time | relevance | path

Searched refs:cfl_idt (Results 1 – 8 of 8) sorted by relevance

/petsc/src/ts/tutorials/multirate/
H A Dex5.c191 PetscReal hx, cfl_idt = 0; in FVRHSFunctionslow() local
261 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionslow()
277 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionslow()
296 PetscReal hx, cfl_idt = 0; in FVRHSFunctionfast() local
364 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionfast()
380 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionfast()
397 PetscReal hx, cfl_idt = 0; in FVRHSFunctionslow2() local
465 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionslow2()
481 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionslow2()
494 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionslow2()
[all …]
H A Dex6.c209 PetscReal hxf, hxs, cfl_idt = 0; in FVRHSFunction_2WaySplit() local
328 …cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hxs)); /* Max allowable value of 1/Delta t */ in FVRHSFunction_2WaySplit()
341 …PetscCallMPI(MPIU_Allreduce(&cfl_idt, &ctx->cfl_idt, 1, MPIU_SCALAR, MPIU_MAX, PetscObjectComm((Pe… in FVRHSFunction_2WaySplit()
347 if (dt > 0.5 / ctx->cfl_idt) { in FVRHSFunction_2WaySplit()
348 …aint exceeded at t=%g, dt %g > %g\n", (double)tnow, (double)dt, (double)(1 / (2 * ctx->cfl_idt)))); in FVRHSFunction_2WaySplit()
349 …OWN_TYPE, "Stability constraint exceeded, %g > %g", (double)dt, (double)(ctx->cfl / ctx->cfl_idt)); in FVRHSFunction_2WaySplit()
360 PetscReal hxs, hxf, cfl_idt = 0; in FVRHSFunctionslow_2WaySplit() local
430 …cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hxs)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionslow_2WaySplit()
479 …PetscCallMPI(MPIU_Allreduce(&cfl_idt, &ctx->cfl_idt, 1, MPIU_SCALAR, MPIU_MAX, PetscObjectComm((Pe… in FVRHSFunctionslow_2WaySplit()
873 PetscCall(TSSetTimeStep(ts, ctx.cfl / ctx.cfl_idt)); in main()
[all …]
H A Dex4.c553 PetscReal hxf, hxs, cfl_idt = 0; in FVRHSFunction_2WaySplit() local
697 …cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hxs)); /* Max allowable value of 1/Delta t */ in FVRHSFunction_2WaySplit()
710 …PetscCallMPI(MPIU_Allreduce(&cfl_idt, &ctx->cfl_idt, 1, MPIU_SCALAR, MPIU_MAX, PetscObjectComm((Pe… in FVRHSFunction_2WaySplit()
716 if (dt > 0.5 / ctx->cfl_idt) { in FVRHSFunction_2WaySplit()
717 …nstraint exceeded at t=%g, dt %g > %g\n", (double)tnow, (double)dt, (double)(0.5 / ctx->cfl_idt))); in FVRHSFunction_2WaySplit()
718 …ERR_PLIB, "Stability constraint exceeded, %g > %g", (double)dt, (double)(ctx->cfl / ctx->cfl_idt)); in FVRHSFunction_2WaySplit()
729 PetscReal hxs, hxf, cfl_idt = 0; in FVRHSFunctionslow_2WaySplit() local
823 …cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hxs)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionslow_2WaySplit()
872 …PetscCallMPI(MPIU_Allreduce(&cfl_idt, &ctx->cfl_idt, 1, MPIU_SCALAR, MPIU_MAX, PetscObjectComm((Pe… in FVRHSFunctionslow_2WaySplit()
1316 PetscCall(TSSetTimeStep(ts, ctx.cfl / ctx.cfl_idt)); in main()
[all …]
H A Dex8.c224 PetscReal hxf, hxm, hxs, cfl_idt = 0; in FVRHSFunction_3WaySplit() local
369 …cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hxs)); /* Max allowable value of 1/Delta t */ in FVRHSFunction_3WaySplit()
382 …PetscCallMPI(MPIU_Allreduce(&cfl_idt, &ctx->cfl_idt, 1, MPIU_SCALAR, MPIU_MAX, PetscObjectComm((Pe… in FVRHSFunction_3WaySplit()
388 …cfl_idt) PetscCall(PetscPrintf(ctx->comm, "Stability constraint exceeded at t=%g, dt %g > %g\n", (… in FVRHSFunction_3WaySplit()
398 PetscReal hxs, hxm, hxf, cfl_idt = 0; in FVRHSFunctionslow_3WaySplit() local
470 …cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hxs)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionslow_3WaySplit()
506 …cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hxs)); /* Max allowable value of 1/Delta t */ in FVRHSFunctionslow_3WaySplit()
520 …PetscCallMPI(MPIU_Allreduce(&cfl_idt, &ctx->cfl_idt, 1, MPIU_SCALAR, MPIU_MAX, PetscObjectComm((Pe… in FVRHSFunctionslow_3WaySplit()
1235 PetscCall(TSSetTimeStep(ts, ctx.cfl / ctx.cfl_idt)); in main()
1278 …(PetscPrintf(comm, "Maximum allowable stepsize according to CFL %g\n", (double)(1 / ctx.cfl_idt))); in main()
H A Dex7.c62 …PetscReal cfl_idt; /* Max allowable value of 1/Delta t */ member
173 PetscReal hf, hs, cfl_idt = 0; in FVRHSFunction() local
214 cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hs)); in FVRHSFunction()
306 …PetscCallMPI(MPIU_Allreduce(&cfl_idt, &ctx->cfl_idt, 1, MPIU_SCALAR, MPIU_MAX, PetscObjectComm((Pe… in FVRHSFunction()
312 …cfl_idt) PetscCall(PetscPrintf(ctx->comm, "Stability constraint exceeded at t=%g, dt %g > %g\n", (… in FVRHSFunction()
761 PetscCall(TSSetTimeStep(ts, ctx.cfl / ctx.cfl_idt)); in main()
H A Dfinitevolume1d.c527 PetscReal hx, cfl_idt = 0; in FVRHSFunction() local
594 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunction()
606 …PetscCallMPI(MPIU_Allreduce(&cfl_idt, &ctx->cfl_idt, 1, MPIU_REAL, MPIU_MAX, PetscObjectComm((Pets… in FVRHSFunction()
612 if (dt > 0.5 / ctx->cfl_idt) { in FVRHSFunction()
613 …aint exceeded at t=%g, dt %g > %g\n", (double)tnow, (double)dt, (double)(1 / (2 * ctx->cfl_idt)))); in FVRHSFunction()
614 …TOFRANGE, "Stability constraint exceeded, %g > %g", (double)dt, (double)(ctx->cfl / ctx->cfl_idt)); in FVRHSFunction()
H A Dfinitevolume1d.h114 PetscReal cfl_idt; /* Max allowable value of 1/Delta t */ member
/petsc/src/ts/tutorials/
H A Dex9.c219 PetscReal cfl_idt; /* Max allowable value of 1/Delta t */ member
1164 PetscReal hx, cfl_idt = 0; in FVRHSFunction() local
1233 … cfl_idt = PetscMax(cfl_idt, PetscAbsScalar(maxspeed / hx)); /* Max allowable value of 1/Delta t */ in FVRHSFunction()
1248 …PetscCallMPI(MPIU_Allreduce(&cfl_idt, &ctx->cfl_idt, 1, MPIU_REAL, MPIU_MAX, PetscObjectComm((Pets… in FVRHSFunction()
1254 …>cfl_idt) PetscCall(PetscPrintf(ctx->comm, "Stability constraint exceeded at t=%g, dt %g > %g\n", … in FVRHSFunction()
1502 PetscCall(TSSetTimeStep(ts, ctx.cfl / ctx.cfl_idt)); in main()