coarseGridFlagSet.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	coarsegridflagset (iflags, ixlo, ixhi, jxlo, jxhi, ilo_coarse, ihi_coarse, jlo_coarse, jhi_coarse, mbuff)
	Flag a whole subregion from (ixlo,ixhi) to (jxlo, jxhi) with integer. More...

Function/Subroutine Documentation

coarsegridflagset()

subroutine coarsegridflagset	(	integer*1, dimension(ilo_coarse-mbuff:ihi_coarse+mbuff, jlo_coarse-mbuff:jhi_coarse+mbuff)	iflags,
			ixlo,
			ixhi,
			jxlo,
			jxhi,
			ilo_coarse,
			ihi_coarse,
			jlo_coarse,
			jhi_coarse,
			mbuff
	)

Flag a whole subregion from (ixlo,ixhi) to (jxlo, jxhi) with integer.

1. The subregion is inside a grid described by (ilo_coarse, jlo_coarse) and (ihi_coarse, jhi_coarse)

Definition at line 11 of file coarseGridFlagSet.f.

Referenced by setdomflags().

                                     
       integer*1 iflags(ilo_coarse-mbuff:ihi_coarse+mbuff,
     .                  jlo_coarse-mbuff:jhi_coarse+mbuff)

c
c whole point of this routine is to index using the integer cords, not the
c  way its dimensioned and indexed in the calling routine setdomflags
c
       do 25 j = jxlo,jxhi         
       do 25 i = ixlo,ixhi         
          iflags(i,j) = 1
 25    continue

       return

Here is the caller graph for this function: