Actual source code: adaptnone.c

  1: #include <petsc/private/tsimpl.h>

  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:   *accept  = PETSC_TRUE;
  6:   *next_sc = 0;  /* Reuse the same order scheme */
  7:   *next_h  = h;  /* Reuse the old step */
  8:   *wlte    = -1; /* Weighted local truncation error was not evaluated */
  9:   *wltea   = -1; /* Weighted absolute local truncation error was not evaluated */
 10:   *wlter   = -1; /* Weighted relative local truncation error was not evaluated */
 11:   return 0;
 12: }

 14: /*MC
 15:    TSADAPTNONE - Time stepping controller that always accepts the current step and does not change it

 17:    Level: intermediate

 19: .seealso: [](chapter_ts), `TS`, `TSAdapt`, `TSAdaptChoose()`, `TSAdaptType`
 20: M*/
 21: PETSC_EXTERN PetscErrorCode TSAdaptCreate_None(TSAdapt adapt)
 22: {
 23:   adapt->ops->choose = TSAdaptChoose_None;
 24:   return 0;
 25: }