1 #include <petsc/private/tsimpl.h> /*I "petscts.h" I*/
2
TSAdaptChoose_None(TSAdapt adapt,TS ts,PetscReal h,PetscInt * next_sc,PetscReal * next_h,PetscBool * accept,PetscReal * wlte,PetscReal * wltea,PetscReal * wlter)3 static PetscErrorCode TSAdaptChoose_None(TSAdapt adapt, TS ts, PetscReal h, PetscInt *next_sc, PetscReal *next_h, PetscBool *accept, PetscReal *wlte, PetscReal *wltea, PetscReal *wlter)
4 {
5 PetscFunctionBegin;
6 *accept = PETSC_TRUE;
7 *next_sc = 0; /* Reuse the same order scheme */
8 *next_h = h; /* Reuse the old step */
9 *wlte = -1; /* Weighted local truncation error was not evaluated */
10 *wltea = -1; /* Weighted absolute local truncation error was not evaluated */
11 *wlter = -1; /* Weighted relative local truncation error was not evaluated */
12 PetscFunctionReturn(PETSC_SUCCESS);
13 }
14
15 /*MC
16 TSADAPTNONE - Time stepping controller that always accepts the current step and does not change it
17
18 Level: intermediate
19
20 .seealso: [](ch_ts), `TS`, `TSAdapt`, `TSAdaptChoose()`, `TSAdaptType`
21 M*/
TSAdaptCreate_None(TSAdapt adapt)22 PETSC_EXTERN PetscErrorCode TSAdaptCreate_None(TSAdapt adapt)
23 {
24 PetscFunctionBegin;
25 adapt->ops->choose = TSAdaptChoose_None;
26 PetscFunctionReturn(PETSC_SUCCESS);
27 }
28