qinit.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	qinit (meqn, mbc, mx, my, xlower, ylower, dx, dy, q, maux, aux)

Function/Subroutine Documentation

qinit()

subroutine qinit	(	integer, intent(in)	meqn,
		integer, intent(in)	mbc,
		integer, intent(in)	mx,
		integer, intent(in)	my,
		real(kind=8), intent(in)	xlower,
		real(kind=8), intent(in)	ylower,
		real(kind=8), intent(in)	dx,
		real(kind=8), intent(in)	dy,
		real(kind=8), dimension(meqn,1-mbc:mx+mbc,1-mbc:my+mbc), intent(inout)	q,
		integer, intent(in)	maux,
		real(kind=8), dimension(maux,1-mbc:mx+mbc,1-mbc:my+mbc), intent(in)	aux
	)

Parameters

[in]	meqn	Set initial conditions for the q array.
[in]	mbc	Set initial conditions for the q array.
[in]	mx	Set initial conditions for the q array.
[in]	my	Set initial conditions for the q array.
[in]	maux	Set initial conditions for the q array.

Definition at line 3 of file qinit.f90.

Referenced by ginit().

    ! This default version prints an error message since it should
    ! not be used directly.  Copy this to an application directory and
    ! loop over all grid cells to set values of q(1:meqn, 1:mx, 1:my).

    implicit none
    
    integer, intent(in) :: meqn,mbc,mx,my,maux
    real(kind=8), intent(in) :: xlower,ylower,dx,dy
    real(kind=8), intent(in) :: aux(maux,1-mbc:mx+mbc,1-mbc:my+mbc)
    real(kind=8), intent(inout) :: q(meqn,1-mbc:mx+mbc,1-mbc:my+mbc)

    write(6,*) '*** Error -- you must set initial conditions'
    stop

Here is the caller graph for this function: