coarsen.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	coarsen (valdub, midub, mjdub, valbgc, mi2tot, mj2tot, nvar)

Function/Subroutine Documentation

coarsen()

subroutine coarsen	(	dimension(nvar,midub, mjdub)	valdub,
			midub,
			mjdub,
		dimension(nvar,mi2tot,mj2tot)	valbgc,
			mi2tot,
			mj2tot,
			nvar
	)

coarsen the fine grid data (with double the usual number of ghost cells to prepare coarsened grid for error estimation.

Definition at line 5 of file coarsen.f.

Referenced by prepbigstep().

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

       dimension  valdub(nvar,midub, mjdub)
       dimension  valbgc(nvar,mi2tot,mj2tot)

c :::::::::::::::::::::::: coarsen ::::::::::::::::::::::::::::::::
c :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

       do 10 j = 1, mj2tot

          jfine = 2*(j-1) + 1

          do 10 i = 1, mi2tot
            ifine = 2*(i-1) + 1

            do 10 ivar = 1, nvar
  
             valbgc(ivar,i,j) = (valdub(ivar,ifine,jfine) +
     &                           valdub(ivar,ifine+1,jfine)+
     &                           valdub(ivar,ifine,jfine+1) +
     &                           valdub(ivar,ifine+1,jfine+1))/4.d0
10     continue

       return

Here is the caller graph for this function: