prepregstep.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	prepregstep (nvar, naux, lcheck, mptr, nx, ny, mitot, mjtot, valbig, auxbig)

Function/Subroutine Documentation

prepregstep()

subroutine prepregstep	(		nvar,
			naux,
			lcheck,
			mptr,
			nx,
			ny,
			mitot,
			mjtot,
			valbig,
			auxbig
	)

Definition at line 6 of file prepregstep.f.

References amr_module::cornxlo, amr_module::cornylo, amr_module::evol, amr_module::hxposs, amr_module::hyposs, amr_module::nghost, amr_module::possk, amr_module::rnode, stepgrid(), and amr_module::timemult.

Referenced by errest().

       use amr_module
       implicit double precision (a-h,o-z)

       dimension fp(nvar,mitot,mjtot),gp(nvar,mitot,mjtot)
       dimension fm(nvar,mitot,mjtot),gm(nvar,mitot,mjtot)


       hx   = hxposs(lcheck)
       hy   = hyposs(lcheck)
       dt     = possk(lcheck)
       time   = rnode(timemult,mptr)

       xlow   = rnode(cornxlo,mptr) - nghost*hx
       ylow   = rnode(cornylo,mptr) - nghost*hy

c
       call stepgrid(valbig,fm,fp,gm,gp,
     1               mitot,mjtot,nghost,
     2               dt,dtnew,hx,hy,nvar,
     3               xlow,ylow,time,mptr,naux,auxbig)
c
c     update counts for error estimation step
       evol   = evol + nx * ny

       return

Here is the call graph for this function:

Here is the caller graph for this function: