2D AMRCLAW
Functions/Subroutines
src1d.f90 File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine src1d (meqn, mbc, mx1d, q1d, maux, aux1d, t, dt)
 

Function/Subroutine Documentation

◆ src1d()

subroutine src1d ( integer, intent(in)  meqn,
integer, intent(in)  mbc,
integer, intent(in)  mx1d,
real(kind=8), dimension(meqn,mx1d), intent(inout)  q1d,
integer, intent(in)  maux,
real(kind=8), dimension(maux,mx1d), intent(in)  aux1d,
real(kind=8), intent(in)  t,
real(kind=8), intent(in)  dt 
)

Definition at line 2 of file src1d.f90.

Referenced by qad().

2 
3  ! This routine should be a simplified version of src2
4  ! which applies source terms for a 1-d slice of data along the
5  ! edge of a grid. This is called only from qad where the conservative
6  ! fix-up is applied and is used to apply source terms over partial
7  ! time steps to the coarse grid cell values used in solving Riemann
8  ! problems at the interface between coarse and fine grids.
9 
10  ! If the source terms depend only on q, it should be easy to
11  ! adapt src2 to create this routine, just loop over 1:mx1d.
12  ! If the source terms are more complicated, it may not be easy.
13 
14  ! The code may work fine without applying source terms in this
15  ! context, so using this dummy routine might be successful even when
16  ! source terms are present.
17 
18  ! This default version does nothing.
19 
20  implicit none
21  integer, intent(in) :: meqn,mbc,mx1d,maux
22  real(kind=8), intent(in) :: t, dt
23  real(kind=8), intent(in) :: aux1d(maux,mx1d)
24  real(kind=8), intent(inout) :: q1d(meqn,mx1d)
25 
Here is the caller graph for this function: