1af0996ceSBarry Smith #include <petsc/private/tsimpl.h> /*I "petscts.h" I*/ 2b0f836d7SJed Brown 3*d71ae5a4SJacob 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) 4*d71ae5a4SJacob 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 */ 12b0f836d7SJed Brown PetscFunctionReturn(0); 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 20db781477SPatrick Sanan .seealso: `TS`, `TSAdapt`, `TSAdaptChoose()` 21b0f836d7SJed Brown M*/ 22*d71ae5a4SJacob Faibussowitsch PETSC_EXTERN PetscErrorCode TSAdaptCreate_None(TSAdapt adapt) 23*d71ae5a4SJacob Faibussowitsch { 24b0f836d7SJed Brown PetscFunctionBegin; 25b0f836d7SJed Brown adapt->ops->choose = TSAdaptChoose_None; 26b0f836d7SJed Brown PetscFunctionReturn(0); 27b0f836d7SJed Brown } 28