Searched refs:rectx (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/utils/dmplexlandau/tutorials/ |
| H A D | ex2.c | 140 …tNone(TS ts, Vec X, PetscInt stepi, PetscReal time, PetscBool islast, LandauCtx *ctx, REctx *rectx) in testNone() argument
146 …itzer(TS ts, Vec X, PetscInt stepi, PetscReal time, PetscBool islast, LandauCtx *ctx, REctx *rectx) in testSpitzer() argument
217 if (rectx->use_spitzer_eta) { in testSpitzer()
218 E = ctx->Ez = spit_eta * (rectx->j - J_re); in testSpitzer()
221 rectx->j = J; /* cache */ in testSpitzer()
225 if (stepi > 10 && !rectx->use_spitzer_eta && (old_ratio - ratio < 1.e-6)) { in testSpitzer()
226 rectx->pulse_start = time + 0.98 * dt; in testSpitzer()
227 rectx->use_spitzer_eta = PETSC_TRUE; in testSpitzer()
231 if (rectx->plotting || stepi == 0 || reason || rectx->pulse_start == time + 0.98 * dt) { in testSpitzer()
233 …uble)ratio, (double)(old_ratio - ratio), rectx->use_spitzer_eta ? "using Spitzer eta*J E" : "const… in testSpitzer()
[all …]
|