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().

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

Here is the caller graph for this function: