setupts.c (48bb5a66e4edd6be31da4ab6b042183d51d0f5d3) setupts.c (216bbcafa310ca9c8563aabbff60855a4edc792b)
1// Copyright (c) 2017-2022, Lawrence Livermore National Security, LLC and other CEED contributors.
2// All Rights Reserved. See the top-level LICENSE and NOTICE files for details.
3//
4// SPDX-License-Identifier: BSD-2-Clause
5//
6// This file is part of CEED: http://github.com/ceed
7
8/// @file

--- 414 unchanged lines hidden (view full) ---

423 PetscCall(TSSetType(*ts, TSRK));
424 PetscCall(TSRKSetType(*ts, TSRK5F));
425 PetscCall(TSSetRHSFunction(*ts, NULL, RHS_NS, &user));
426 }
427 PetscCall(TSSetMaxTime(*ts, 500. * user->units->second));
428 PetscCall(TSSetExactFinalTime(*ts, TS_EXACTFINALTIME_STEPOVER));
429 if (app_ctx->test_type == TESTTYPE_NONE) PetscCall(TSSetErrorIfStepFails(*ts, PETSC_FALSE));
430 PetscCall(TSSetTimeStep(*ts, 1.e-2 * user->units->second));
1// Copyright (c) 2017-2022, Lawrence Livermore National Security, LLC and other CEED contributors.
2// All Rights Reserved. See the top-level LICENSE and NOTICE files for details.
3//
4// SPDX-License-Identifier: BSD-2-Clause
5//
6// This file is part of CEED: http://github.com/ceed
7
8/// @file

--- 414 unchanged lines hidden (view full) ---

423 PetscCall(TSSetType(*ts, TSRK));
424 PetscCall(TSRKSetType(*ts, TSRK5F));
425 PetscCall(TSSetRHSFunction(*ts, NULL, RHS_NS, &user));
426 }
427 PetscCall(TSSetMaxTime(*ts, 500. * user->units->second));
428 PetscCall(TSSetExactFinalTime(*ts, TS_EXACTFINALTIME_STEPOVER));
429 if (app_ctx->test_type == TESTTYPE_NONE) PetscCall(TSSetErrorIfStepFails(*ts, PETSC_FALSE));
430 PetscCall(TSSetTimeStep(*ts, 1.e-2 * user->units->second));
431 if (app_ctx->test_type != TESTTYPE_NONE) {
432 PetscCall(TSSetMaxSteps(*ts, 10));
433 }
434 PetscCall(TSGetAdapt(*ts, &adapt));
435 PetscCall(TSAdaptSetStepLimits(adapt, 1.e-12 * user->units->second, 1.e2 * user->units->second));
436 PetscCall(TSSetFromOptions(*ts));
437 user->time_bc_set = -1.0; // require all BCs be updated
438 if (app_ctx->cont_steps) { // continue from previous timestep data
439 PetscInt count;
440 PetscViewer viewer;
441

--- 74 unchanged lines hidden --- 		431 PetscCall(TSGetAdapt(*ts, &adapt));
432 PetscCall(TSAdaptSetStepLimits(adapt, 1.e-12 * user->units->second, 1.e2 * user->units->second));
433 PetscCall(TSSetFromOptions(*ts));
434 user->time_bc_set = -1.0; // require all BCs be updated
435 if (app_ctx->cont_steps) { // continue from previous timestep data
436 PetscInt count;
437 PetscViewer viewer;
438

--- 74 unchanged lines hidden ---