ERF
Energy Research and Forecasting: An Atmospheric Modeling Code
MRISplitIntegrator< T > Class Template Reference

#include <ERF_MRI.H>

Collaboration diagram for MRISplitIntegrator< T >:

Public Member Functions

 MRISplitIntegrator ()=default
 
 MRISplitIntegrator (const T &S_data)
 
void initialize (const T &S_data)
 
 ~MRISplitIntegrator ()=default
 
 MRISplitIntegrator (MRISplitIntegrator &&) noexcept=default
 
MRISplitIntegratoroperator= (MRISplitIntegrator &&other) noexcept=default
 
 MRISplitIntegrator (const MRISplitIntegrator &other)=delete
 
MRISplitIntegratoroperator= (const MRISplitIntegrator &other)=delete
 
void setNcompCons (int _ncomp_cons)
 
void setAnelastic (int _anelastic)
 
void setNoSubstepping (int _no_substepping)
 
void setForceFirstStageSingleSubstep (int _force_stage1_single_substep)
 
void set_slow_rhs_pre (std::function< void(T &, T &, T &, const amrex::Real, const amrex::Real, const amrex::Real, const int)> F)
 
void set_slow_rhs_post (std::function< void(T &, T &, T &, T &, const amrex::Real, const amrex::Real, const amrex::Real, const int)> F)
 
void set_acoustic_substepping (std::function< void(int, int, int, T &, const T &, T &, T &, const amrex::Real, const amrex::Real, const amrex::Real, const amrex::Real, const amrex::Real)> F)
 
void set_slow_fast_timestep_ratio (const int timestep_ratio=1)
 
int get_slow_fast_timestep_ratio ()
 
void set_no_substep (std::function< void(T &, T &, T &, amrex::Real, amrex::Real, int)> F)
 
std::function< void(T &, const T &, const amrex::Real, int)> get_rhs ()
 
amrex::Real advance (T &S_old, T &S_new, amrex::Real time, const amrex::Real time_step)
 
void map_data (std::function< void(T &)> Map)
 

Private Member Functions

void initialize_data (const T &S_data)
 

Private Attributes

std::function< void(T &, const T &, const amrex::Real, const amrex::Real)> rhs
 rhs is the right-hand-side function the integrator will use. More...
 
std::function< void(T &, T &, T &, const amrex::Real, const amrex::Real, const amrex::Real, const int)> slow_rhs_pre
 
std::function< void(T &, T &, T &, T &, const amrex::Real, const amrex::Real, const amrex::Real, const int)> slow_rhs_post
 
std::function< void(int, int, int, T &, const T &, T &, T &, const amrex::Real, const amrex::Real, const amrex::Real, const amrex::Real, const amrex::Real)> acoustic_substepping
 
amrex::Real timestep
 Integrator timestep size (Real) More...
 
int slow_fast_timestep_ratio = 0
 The ratio of slow timestep size / fast timestep size (int) More...
 
int no_substepping
 Should we not do acoustic substepping. More...
 
int anelastic
 Should we use the anelastic integrator. More...
 
int ncomp_cons
 How many components in the cell-centered MultiFab. More...
 
int force_stage1_single_substep
 Do we follow the recommendation to only perform a single substep in the first RK stage. More...
 
std::function< void(T &, T &, T &, amrex::Real, amrex::Real, int)> no_substep
 The no_substep function is called when we have no acoustic substepping. More...
 
amrex::Vector< std::unique_ptr< T > > T_store
 
T * S_sum
 
T * F_slow
 

Constructor & Destructor Documentation

◆ MRISplitIntegrator() [1/4]

template<class T >
MRISplitIntegrator< T >::MRISplitIntegrator ( )
default

◆ MRISplitIntegrator() [2/4]

template<class T >
MRISplitIntegrator< T >::MRISplitIntegrator ( const T &  S_data)
inline
83  {
84  initialize_data(S_data);
85  }
void initialize_data(const T &S_data)
Definition: ERF_MRI.H:68
Here is the call graph for this function:

◆ ~MRISplitIntegrator()

template<class T >
MRISplitIntegrator< T >::~MRISplitIntegrator ( )
default

◆ MRISplitIntegrator() [3/4]

template<class T >
MRISplitIntegrator< T >::MRISplitIntegrator ( MRISplitIntegrator< T > &&  )
defaultnoexcept

◆ MRISplitIntegrator() [4/4]

template<class T >
MRISplitIntegrator< T >::MRISplitIntegrator ( const MRISplitIntegrator< T > &  other)
delete

Member Function Documentation

◆ advance()

template<class T >
amrex::Real MRISplitIntegrator< T >::advance ( T &  S_old,
T &  S_new,
amrex::Real  time,
const amrex::Real  time_step 
)
inline
169  {
170  BL_PROFILE_REGION("MRI_advance");
171  using namespace amrex;
172 
173  // *******************************************************************************
174  // !no_substepping: we only update the fast variables every fast timestep, then update
175  // the slow variables after the acoustic sub-stepping. This has
176  // two calls to slow_rhs so that we can update the slow variables
177  // with the velocity field after the acoustic substepping using
178  // the time-averaged velocity from the substepping
179  // no_substepping: we don't do any acoustic subcyling so we only make one call per RK
180  // stage to slow_rhs
181  // *******************************************************************************
182  timestep = time_step;
183 
184  const int substep_ratio = get_slow_fast_timestep_ratio();
185 
186  if (!no_substepping) {
187  AMREX_ALWAYS_ASSERT(substep_ratio > 1 && substep_ratio % 2 == 0);
188  }
189 
190  // Assume before advance() that S_old is valid data at the current time ("time" argument)
191  // And that if data is a MultiFab, both S_old and S_new contain ghost cells for evaluating a stencil based RHS
192  // We need this from S_old. This is convenient for S_new to have so we can use it
193  // as scratch space for stage values without creating a new scratch MultiFab with ghost cells.
194 
195  // NOTE: In the following, we use S_new to hold S*, S**, and finally, S^(n+1) at the new time
196  // DEFINITIONS:
197  // S_old = S^n
198  // S_sum = S(t)
199  // F_slow = F(S_stage)
200 
201  int n_data = IntVars::NumTypes;
202 
203  /**********************************************/
204  /* RK3 Integration with Acoustic Sub-stepping */
205  /**********************************************/
206  Vector<int> num_vars = {ncomp_cons, 1, 1, 1};
207  for (int i(0); i<n_data; ++i)
208  {
209  // Copy old -> new
210  MultiFab::Copy(S_new[i],S_old[i],0,0,num_vars[i],S_old[i].nGrowVect());
211  }
212 
213  // Timestep taken by the fast integrator
214  amrex::Real dtau;
215 
216  // How many timesteps taken by the fast integrator
217  int nsubsteps;
218 
219  // This is the final time of the full timestep (also the 3rd RK stage)
220  // Real new_time = time + timestep;
221 
222  amrex::Real time_stage = time;
223  amrex::Real old_time_stage;
224 
225  const amrex::Real sub_timestep = timestep / substep_ratio;
226 
227  if (!anelastic) {
228  // RK3 for compressible integrator
229  for (int nrk = 0; nrk < 3; nrk++)
230  {
231  // Capture the time we got to in the previous RK step
232  old_time_stage = time_stage;
233 
234  if (nrk == 0) {
236  nsubsteps = 1; dtau = timestep / 3.0;
237  } else {
238  nsubsteps = substep_ratio/3; dtau = sub_timestep ;
239  }
240  time_stage = time + timestep / 3.0;
241  }
242  if (nrk == 1) {
243  if (no_substepping) {
244  nsubsteps = 1; dtau = 0.5 * timestep;
245  } else {
246  nsubsteps = substep_ratio/2; dtau = sub_timestep;
247  }
248  time_stage = time + timestep / 2.0;
249  }
250  if (nrk == 2) {
251  if (no_substepping) {
252  nsubsteps = 1; dtau = timestep;
253  } else {
254  nsubsteps = substep_ratio; dtau = sub_timestep;
255 
256  // STRT HACK -- this hack can be used to approximate the no-substepping algorithm
257  // nsubsteps = 1; dtau = timestep;
258  // END HACK
259  }
260  time_stage = time + timestep;
261  }
262 
263  // step 1 starts with S_stage = S^n and we always start substepping at the old time
264  // step 2 starts with S_stage = S^* and we always start substepping at the old time
265  // step 3 starts with S_stage = S^** and we always start substepping at the old time
266 
267  slow_rhs_pre(*F_slow, S_old, S_new, time, old_time_stage, time_stage, nrk);
268 
269  amrex::Real inv_fac = 1.0 / static_cast<amrex::Real>(nsubsteps);
270 
271  // ****************************************************
272  // Acoustic substepping
273  // ****************************************************
274  if (!no_substepping)
275  {
276  // *******************************************************************************
277  // Update the fast variables
278  // *******************************************************************************
279  for (int ks = 0; ks < nsubsteps; ++ks)
280  {
281  acoustic_substepping(ks, nsubsteps, nrk, *F_slow, S_old, S_new, *S_sum, dtau, timestep, inv_fac,
282  time + ks*dtau, time + (ks+1) * dtau);
283 
284  } // ks
285 
286  } else {
287  no_substep(*S_sum, S_old, *F_slow, time + nsubsteps*dtau, nsubsteps*dtau, nrk);
288  }
289 
290  // ****************************************************
291  // Evaluate F_slow(S_stage) only for the slow variables
292  // Note that we are using the current stage versions (in S_new) of the slow variables
293  // (because we didn't update the slow variables in the substepping)
294  // but we are using the "new" versions (in S_sum) of the velocities
295  // (because we did update the fast variables in the substepping)
296  // ****************************************************
297  slow_rhs_post(*F_slow, S_old, S_new, *S_sum, time, old_time_stage, time_stage, nrk);
298  } // nrk
299 
300  } else {
301  // RK2 for anelastic integrator
302  for (int nrk = 0; nrk < 2; nrk++)
303  {
304  // Capture the time we got to in the previous RK step
305  old_time_stage = time_stage;
306 
307  if (nrk == 0) { nsubsteps = 1; dtau = timestep; time_stage = time + timestep; }
308  if (nrk == 1) { nsubsteps = 1; dtau = timestep; time_stage = time + timestep; }
309 
310  slow_rhs_pre(*F_slow, S_old, S_new, time, old_time_stage, time_stage, nrk);
311 
312  no_substep(*S_sum, S_old, *F_slow, time + nsubsteps*dtau, nsubsteps*dtau, nrk);
313 
314  // ****************************************************
315  // Evaluate F_slow(S_stage) only for the slow variables
316  // Note that we are using the current stage versions (in S_new) of the slow variables
317  // (because we didn't update the slow variables in the substepping)
318  // but we are using the "new" versions (in S_sum) of the velocities
319  // (because we did update the fast variables in the substepping)
320  // ****************************************************
321  slow_rhs_post(*F_slow, S_old, S_new, *S_sum, time, old_time_stage, time_stage, nrk);
322  } // nrk
323  }
324 
325  // Return timestep
326  return timestep;
327  }
amrex::Real Real
Definition: ERF_ShocInterface.H:19
T * F_slow
Definition: ERF_MRI.H:66
std::function< void(T &, T &, T &, T &, const amrex::Real, const amrex::Real, const amrex::Real, const int)> slow_rhs_post
Definition: ERF_MRI.H:23
int anelastic
Should we use the anelastic integrator.
Definition: ERF_MRI.H:46
std::function< void(T &, T &, T &, const amrex::Real, const amrex::Real, const amrex::Real, const int)> slow_rhs_pre
Definition: ERF_MRI.H:22
amrex::Real timestep
Integrator timestep size (Real)
Definition: ERF_MRI.H:31
int force_stage1_single_substep
Do we follow the recommendation to only perform a single substep in the first RK stage.
Definition: ERF_MRI.H:56
int ncomp_cons
How many components in the cell-centered MultiFab.
Definition: ERF_MRI.H:51
std::function< void(int, int, int, T &, const T &, T &, T &, const amrex::Real, const amrex::Real, const amrex::Real, const amrex::Real, const amrex::Real)> acoustic_substepping
Definition: ERF_MRI.H:26
int get_slow_fast_timestep_ratio()
Definition: ERF_MRI.H:153
std::function< void(T &, T &, T &, amrex::Real, amrex::Real, int)> no_substep
The no_substep function is called when we have no acoustic substepping.
Definition: ERF_MRI.H:61
T * S_sum
Definition: ERF_MRI.H:65
int no_substepping
Should we not do acoustic substepping.
Definition: ERF_MRI.H:41
@ NumTypes
Definition: ERF_IndexDefines.H:162
Definition: ERF_ConsoleIO.cpp:12

Referenced by ERF::advance_dycore().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ get_rhs()

template<class T >
std::function<void(T&, const T&, const amrex::Real, int)> MRISplitIntegrator< T >::get_rhs ( )
inline
164  {
165  return rhs;
166  }
std::function< void(T &, const T &, const amrex::Real, const amrex::Real)> rhs
rhs is the right-hand-side function the integrator will use.
Definition: ERF_MRI.H:21

◆ get_slow_fast_timestep_ratio()

template<class T >
int MRISplitIntegrator< T >::get_slow_fast_timestep_ratio ( )
inline
154  {
156  }
int slow_fast_timestep_ratio
The ratio of slow timestep size / fast timestep size (int)
Definition: ERF_MRI.H:36

Referenced by MRISplitIntegrator< T >::advance().

Here is the caller graph for this function:

◆ initialize()

template<class T >
void MRISplitIntegrator< T >::initialize ( const T &  S_data)
inline
88  {
89  initialize_data(S_data);
90  }
Here is the call graph for this function:

◆ initialize_data()

template<class T >
void MRISplitIntegrator< T >::initialize_data ( const T &  S_data)
inlineprivate
69  {
70  // TODO: We can optimize memory by making the cell-centered part of S_sum
71  // have only 2 components, not ncomp_cons components
72  const bool include_ghost = true;
73  amrex::IntegratorOps<T>::CreateLike(T_store, S_data, include_ghost);
74  S_sum = T_store[0].get();
75  amrex::IntegratorOps<T>::CreateLike(T_store, S_data, include_ghost);
76  F_slow = T_store[1].get();
77  }
amrex::Vector< std::unique_ptr< T > > T_store
Definition: ERF_MRI.H:64

Referenced by MRISplitIntegrator< T >::initialize(), and MRISplitIntegrator< T >::MRISplitIntegrator().

Here is the caller graph for this function:

◆ map_data()

template<class T >
void MRISplitIntegrator< T >::map_data ( std::function< void(T &)>  Map)
inline
330  {
331  for (auto& F : T_store) {
332  Map(*F);
333  }
334  }

◆ operator=() [1/2]

template<class T >
MRISplitIntegrator& MRISplitIntegrator< T >::operator= ( const MRISplitIntegrator< T > &  other)
delete

◆ operator=() [2/2]

template<class T >
MRISplitIntegrator& MRISplitIntegrator< T >::operator= ( MRISplitIntegrator< T > &&  other)
defaultnoexcept

◆ set_acoustic_substepping()

template<class T >
void MRISplitIntegrator< T >::set_acoustic_substepping ( std::function< void(int, int, int, T &, const T &, T &, T &, const amrex::Real, const amrex::Real, const amrex::Real, const amrex::Real, const amrex::Real)>  F)
inline
144  {
146  }

Referenced by ERF::advance_dycore().

Here is the caller graph for this function:

◆ set_no_substep()

template<class T >
void MRISplitIntegrator< T >::set_no_substep ( std::function< void(T &, T &, T &, amrex::Real, amrex::Real, int)>  F)
inline
159  {
160  no_substep = F;
161  }

Referenced by ERF::advance_dycore().

Here is the caller graph for this function:

◆ set_slow_fast_timestep_ratio()

template<class T >
void MRISplitIntegrator< T >::set_slow_fast_timestep_ratio ( const int  timestep_ratio = 1)
inline
149  {
150  slow_fast_timestep_ratio = timestep_ratio;
151  }

Referenced by ERF::advance_dycore().

Here is the caller graph for this function:

◆ set_slow_rhs_post()

template<class T >
void MRISplitIntegrator< T >::set_slow_rhs_post ( std::function< void(T &, T &, T &, T &, const amrex::Real, const amrex::Real, const amrex::Real, const int)>  F)
inline
136  {
137  slow_rhs_post = F;
138  }

Referenced by ERF::advance_dycore().

Here is the caller graph for this function:

◆ set_slow_rhs_pre()

template<class T >
void MRISplitIntegrator< T >::set_slow_rhs_pre ( std::function< void(T &, T &, T &, const amrex::Real, const amrex::Real, const amrex::Real, const int)>  F)
inline
132  {
133  slow_rhs_pre = F;
134  }

Referenced by ERF::advance_dycore().

Here is the caller graph for this function:

◆ setAnelastic()

template<class T >
void MRISplitIntegrator< T >::setAnelastic ( int  _anelastic)
inline
117  {
118  anelastic = _anelastic;
119  }

◆ setForceFirstStageSingleSubstep()

template<class T >
void MRISplitIntegrator< T >::setForceFirstStageSingleSubstep ( int  _force_stage1_single_substep)
inline
127  {
128  force_stage1_single_substep = _force_stage1_single_substep;
129  }

◆ setNcompCons()

template<class T >
void MRISplitIntegrator< T >::setNcompCons ( int  _ncomp_cons)
inline
112  {
113  ncomp_cons = _ncomp_cons;
114  }

◆ setNoSubstepping()

template<class T >
void MRISplitIntegrator< T >::setNoSubstepping ( int  _no_substepping)
inline
122  {
123  no_substepping = _no_substepping;
124  }

Member Data Documentation

◆ acoustic_substepping

template<class T >
std::function<void(int, int, int, T&, const T&, T&, T&, const amrex::Real, const amrex::Real, const amrex::Real, const amrex::Real, const amrex::Real)> MRISplitIntegrator< T >::acoustic_substepping
private

◆ anelastic

template<class T >
int MRISplitIntegrator< T >::anelastic
private

Should we use the anelastic integrator.

Referenced by MRISplitIntegrator< T >::advance(), and MRISplitIntegrator< T >::setAnelastic().

◆ F_slow

template<class T >
T* MRISplitIntegrator< T >::F_slow
private

◆ force_stage1_single_substep

template<class T >
int MRISplitIntegrator< T >::force_stage1_single_substep
private

Do we follow the recommendation to only perform a single substep in the first RK stage.

Referenced by MRISplitIntegrator< T >::advance(), and MRISplitIntegrator< T >::setForceFirstStageSingleSubstep().

◆ ncomp_cons

template<class T >
int MRISplitIntegrator< T >::ncomp_cons
private

How many components in the cell-centered MultiFab.

Referenced by MRISplitIntegrator< T >::advance(), and MRISplitIntegrator< T >::setNcompCons().

◆ no_substep

template<class T >
std::function<void (T&, T&, T&, amrex::Real, amrex::Real, int)> MRISplitIntegrator< T >::no_substep
private

The no_substep function is called when we have no acoustic substepping.

Referenced by MRISplitIntegrator< T >::advance(), and MRISplitIntegrator< T >::set_no_substep().

◆ no_substepping

template<class T >
int MRISplitIntegrator< T >::no_substepping
private

Should we not do acoustic substepping.

Referenced by MRISplitIntegrator< T >::advance(), and MRISplitIntegrator< T >::setNoSubstepping().

◆ rhs

template<class T >
std::function<void(T&, const T&, const amrex::Real, const amrex::Real )> MRISplitIntegrator< T >::rhs
private

rhs is the right-hand-side function the integrator will use.

Referenced by MRISplitIntegrator< T >::get_rhs().

◆ S_sum

template<class T >
T* MRISplitIntegrator< T >::S_sum
private

◆ slow_fast_timestep_ratio

template<class T >
int MRISplitIntegrator< T >::slow_fast_timestep_ratio = 0
private

The ratio of slow timestep size / fast timestep size (int)

Referenced by MRISplitIntegrator< T >::get_slow_fast_timestep_ratio(), and MRISplitIntegrator< T >::set_slow_fast_timestep_ratio().

◆ slow_rhs_post

template<class T >
std::function<void(T&, T&, T&, T&, const amrex::Real, const amrex::Real, const amrex::Real, const int )> MRISplitIntegrator< T >::slow_rhs_post
private

◆ slow_rhs_pre

template<class T >
std::function<void(T&, T&, T&, const amrex::Real, const amrex::Real, const amrex::Real, const int)> MRISplitIntegrator< T >::slow_rhs_pre
private

◆ T_store

template<class T >
amrex::Vector<std::unique_ptr<T> > MRISplitIntegrator< T >::T_store
private

◆ timestep

template<class T >
amrex::Real MRISplitIntegrator< T >::timestep
private

Integrator timestep size (Real)

Referenced by MRISplitIntegrator< T >::advance().


The documentation for this class was generated from the following file: