Tempus
Version of the Day
Time Integration
Main Page
Related Pages
Namespaces
Classes
Files
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Groups
Pages
src
Tempus_StepperNewmarkImplicitDFormModifierXBase.hpp
Go to the documentation of this file.
1
// @HEADER
2
// ****************************************************************************
3
// Tempus: Copyright (2017) Sandia Corporation
4
//
5
// Distributed under BSD 3-clause license (See accompanying file Copyright.txt)
6
// ****************************************************************************
7
// @HEADER
8
9
#ifndef Tempus_StepperNewmarkImplicitDFormModifierXBase_hpp
10
#define Tempus_StepperNewmarkImplicitDFormModifierXBase_hpp
11
12
#include "Tempus_config.hpp"
13
#include "Tempus_SolutionHistory.hpp"
14
#include "
Tempus_StepperNewmarkImplicitDFormAppAction.hpp
"
15
16
namespace
Tempus {
17
35
template
<
class
Scalar>
36
class
StepperNewmarkImplicitDFormModifierXBase
37
:
virtual
public
Tempus::StepperNewmarkImplicitDFormAppAction
<Scalar> {
38
private
:
39
/* \brief Adaptor execute function
40
*
41
* This is an adaptor function to bridge between the AppAction
42
* interface and the ModifierX interface. It is meant to be private
43
* and non-virtual as deriving from this class should only need to
44
* implement the modify function.
45
*
46
* For the ModifierX interface, this adaptor maps the
47
* StepperNewmarkImplicitDFormAppAction::ACTION_LOCATION to the
48
* StepperNewmarkImplicitDFormModifierX::MODIFIERX_TYPE, and only pass the
49
* solution
50
* (\f$x\f$ and/or \f$\dot{x}\f$ and other parameters to the modify
51
* function.
52
*/
53
void
execute
(
Teuchos::RCP
<
SolutionHistory<Scalar>
> sh,
54
Teuchos::RCP
<
StepperNewmarkImplicitDForm<Scalar>
> stepper,
55
const
typename
StepperNewmarkImplicitDFormAppAction
<
56
Scalar>::
ACTION_LOCATION
actLoc)
57
{
58
using
Teuchos::RCP
;
59
60
MODIFIER_TYPE
modType =
X_BEGIN_STEP
;
61
RCP<SolutionState<Scalar> > workingState = sh->getWorkingState();
62
const
Scalar time = workingState->getTime();
63
const
Scalar dt = workingState->getTimeStep();
64
RCP<Thyra::VectorBase<Scalar> > x;
65
66
switch
(actLoc) {
67
case
StepperNewmarkImplicitDFormAppAction<Scalar>::BEGIN_STEP
: {
68
modType =
X_BEGIN_STEP
;
69
x = workingState->getX();
70
break
;
71
}
72
case
StepperNewmarkImplicitDFormAppAction<Scalar>::BEFORE_SOLVE
: {
73
modType =
X_BEFORE_SOLVE
;
74
x = workingState->getX();
75
break
;
76
}
77
case
StepperNewmarkImplicitDFormAppAction<Scalar>::AFTER_SOLVE
: {
78
modType =
X_AFTER_SOLVE
;
79
x = workingState->getX();
80
break
;
81
}
82
case
StepperNewmarkImplicitDFormAppAction<Scalar>::END_STEP
: {
83
modType =
X_END_STEP
;
84
x = workingState->getX();
85
break
;
86
}
87
default
:
88
TEUCHOS_TEST_FOR_EXCEPTION
(
true
, std::logic_error,
89
"Error - unknown action location.\n"
);
90
}
91
92
this->
modify
(x, time, dt, modType);
93
}
94
95
public
:
97
enum
MODIFIER_TYPE
{
98
X_BEGIN_STEP
,
99
X_BEFORE_SOLVE
,
100
X_AFTER_SOLVE
,
101
X_END_STEP
102
};
103
105
virtual
void
modify
(
Teuchos::RCP
<
Thyra::VectorBase<Scalar>
>
/* x */
,
106
const
Scalar
/* time */
,
const
Scalar
/* dt */
,
107
const
MODIFIER_TYPE
modType) = 0;
108
};
109
110
}
// namespace Tempus
111
112
#endif // Tempus_StepperNewmarkImplicitDFormModifierXBase_hpp
Tempus::StepperNewmarkImplicitDFormModifierXBase::X_END_STEP
Modify at the end of the step.
Definition:
Tempus_StepperNewmarkImplicitDFormModifierXBase.hpp:101
Tempus::StepperNewmarkImplicitDFormModifierXBase
Base ModifierX for StepperNewmarkImplicitDForm.
Definition:
Tempus_StepperNewmarkImplicitDFormModifierXBase.hpp:36
Tempus::StepperNewmarkImplicitDFormModifierXBase::X_AFTER_SOLVE
Modify after the implicit solve.
Definition:
Tempus_StepperNewmarkImplicitDFormModifierXBase.hpp:100
TEUCHOS_TEST_FOR_EXCEPTION
#define TEUCHOS_TEST_FOR_EXCEPTION(throw_exception_test, Exception, msg)
Tempus::StepperNewmarkImplicitDFormModifierXBase::modify
virtual void modify(Teuchos::RCP< Thyra::VectorBase< Scalar > >, const Scalar, const Scalar, const MODIFIER_TYPE modType)=0
Modify solution based on the MODIFIER_TYPE.
Tempus::StepperNewmarkImplicitDForm
Newmark time stepper.
Definition:
Tempus_StepperNewmarkImplicitDForm_decl.hpp:77
Tempus::StepperNewmarkImplicitDFormModifierXBase::X_BEGIN_STEP
Modify at the beginning of the step.
Definition:
Tempus_StepperNewmarkImplicitDFormModifierXBase.hpp:98
Tempus::StepperNewmarkImplicitDFormAppAction< double >::ACTION_LOCATION
ACTION_LOCATION
Indicates the location of application action (see algorithm).
Definition:
Tempus_StepperNewmarkImplicitDFormAppAction.hpp:37
Thyra::VectorBase
Tempus::SolutionHistory
SolutionHistory is basically a container of SolutionStates. SolutionHistory maintains a collection of...
Definition:
Tempus_Integrator.hpp:27
Tempus::StepperNewmarkImplicitDFormModifierXBase::X_BEFORE_SOLVE
Modify before the implicit solve.
Definition:
Tempus_StepperNewmarkImplicitDFormModifierXBase.hpp:99
Tempus::StepperNewmarkImplicitDFormAppAction
Application Action for StepperNewmarkImplicitDForm.
Definition:
Tempus_StepperNewmarkImplicitDFormAppAction.hpp:34
Tempus_StepperNewmarkImplicitDFormAppAction.hpp
Teuchos::RCP
Tempus::StepperNewmarkImplicitDFormModifierXBase::execute
void execute(Teuchos::RCP< SolutionHistory< Scalar > > sh, Teuchos::RCP< StepperNewmarkImplicitDForm< Scalar > > stepper, const typename StepperNewmarkImplicitDFormAppAction< Scalar >::ACTION_LOCATION actLoc)
Execute application action for NewmarkImplicitDForm Stepper.
Definition:
Tempus_StepperNewmarkImplicitDFormModifierXBase.hpp:53
Tempus::StepperNewmarkImplicitDFormModifierXBase< double >::MODIFIER_TYPE
MODIFIER_TYPE
Indicates the location of application action (see algorithm).
Definition:
Tempus_StepperNewmarkImplicitDFormModifierXBase.hpp:97
Generated on Fri Apr 26 2024 09:25:42 for Tempus by
1.8.5