allowflag_geo.f.html
Source file:   allowflag_geo.f
Directory:   /home/rjl/git/rjleveque/clawpack-4.x/geoclaw/2d/lib
Converted:   Sun May 15 2011 at 19:15:40   using clawcode2html
This documentation file will not reflect any later changes in the source file.

 
c     =========================================
      logical function allowflag(x,y,t,level)
c     =========================================

c     # Indicate whether the grid point at (x,y,t) at this refinement level
c     # is allowed to be flagged for further refinement.
c
c     # Modified for GeoClaw to check whether the point lies in any of
c     # the various regions specified in the data files.
c
c     # This routine is called from routine flag2refine.
c
c     # If Richardson error estimates are used (if tol>0) then this routine
c     # is also called from errf1.

      use geoclaw_module
      use topo_module
      use dtopo_module

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

      include 'regions.i'
      include 'qinit.i'

c========================================================================


      allowflag=.false.

c      following commented by dlg on 10/9/08.
c      my understanding of maxleveldeep might be differnet
c      still shouldn't be allowed if maxlevel allowed in a region is less
c      than maxleveldeep
c      might want to allow high levels of refinement in some deep regions
c      but not others.
c
c      if (level .lt. maxleveldeep) then
c         # allow refinement to next level in deep water
c          allowflag = .true.
c          go to 900  !# no need to check anything else
c          endif

      do m=1,mtopofiles
     	if (level.lt.maxleveltopo(m)) then
      	  if (x.gt.xlowtopo(m).and.x.lt.xhitopo(m) .and.
     &	      y.gt.ylowtopo(m).and.y.lt.yhitopo(m) .and.
     &	      t.gt.tlowtopo(m).and.t.lt.thitopo(m)) then
     		  allowflag=.true.
                  go to 900  !# no need to check anything else
	  endif
	endif
      enddo

      do m=1,mregions
     	if (level.lt.maxlevelregion(m)) then
      	  if (x.gt.xlowregion(m).and.x.lt.xhiregion(m).and.
     &	      y.gt.ylowregion(m).and.y.lt.yhiregion(m).and.
     &	      t.ge.tlowregion(m).and.t.le.thiregion(m)) then
     		  allowflag=.true.
                  go to 900  !# no need to check anything else
	  endif
	endif
       enddo

      do m=1,num_dtopo
        if (x.gt.xlowdtopo(m).and.x.lt.xhidtopo(m).and.
     &       y.gt.ylowdtopo(m).and.y.lt.yhidtopo(m).and.
     &       t.ge.t0dtopo(m).and.t.le.tfdtopo(m)) then
             if (level.lt.maxleveldtopo(m)) then
                  allowflag=.true.
                  go to 900  !# no need to check anything else
                  endif
        endif
      enddo

      if (t.eq.0.d0 .and. iqinit.gt.0) then
        if (x.gt.xlowqinit.and.x.lt.xhiqinit.and.
     &	    y.gt.ylowqinit.and.y.lt.yhiqinit) then
     		if (level.lt.maxlevelqinit) then
                  allowflag=.true.
                  go to 900  !# no need to check anything else
                  endif
        endif
      endif

  900 continue
      return
      end