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