1 #include <petsc/private/tsimpl.h> /*I "petscts.h" I*/ 2 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*/ 22 PETSC_EXTERN PetscErrorCode TSAdaptCreate_None(TSAdapt adapt) 23 { 24 PetscFunctionBegin; 25 adapt->ops->choose = TSAdaptChoose_None; 26 PetscFunctionReturn(PETSC_SUCCESS); 27 } 28