copysol.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	copysol (valbig, val, nvar, mitot, mjtot, nghost, midub, mjdub, ngbig)

Function/Subroutine Documentation

copysol()

subroutine copysol	(	dimension(nvar,midub,mjdub)	valbig,
		dimension(nvar,mitot,mjtot)	val,
			nvar,
			mitot,
			mjtot,
			nghost,
			midub,
			mjdub,
			ngbig
	)

Definition at line 6 of file copysol.f.

Referenced by prepbigstep().

c
      implicit double precision (a-h,o-z)

      dimension  valbig(nvar,midub,mjdub), val(nvar,mitot,mjtot)
c
c copy solution into grid with different number ghsot cells
c
       do 10 j = nghost+1, mjtot-nghost
       do 10 i = nghost+1, mitot-nghost
       do 10 ivar = 1, nvar
          valbig(ivar,i-nghost+ngbig,j-nghost+ngbig) = val(ivar,i,j)
 10    continue
c
       return

Here is the caller graph for this function: