Remove allowflag from some routines in 1d, 2d where no longer used

Note that src/3d/allowflag.f is still used and at some point this should be fixed to be more like 1d and 2d.
rjleveque · Sep 14, 2023 · dedfc95 · dedfc95
1 parent 177f800
commit dedfc95
Show file tree

Hide file tree

Showing 4 changed files with 0 additions and 53 deletions.
diff --git a/src/1d/flag2refine1.f90 b/src/1d/flag2refine1.f90
@@ -56,9 +56,6 @@ subroutine flag2refine1(mx,mbc,mbuff,meqn,maux,xlower,dx,t,level, &
     ! Flagging
     real(kind=8),intent(inout) :: amrflags(1-mbuff:mx+mbuff)
 
-    logical :: allowflag
-    external allowflag
-
     ! Locals
     integer :: i,m,r
     real(kind=8) :: x_c,x_low,x_hi

diff --git a/src/2d/allowflag.f b/src/2d/allowflag.f
diff --git a/src/2d/flag2refine2.f90 b/src/2d/flag2refine2.f90
@@ -71,9 +71,6 @@ subroutine flag2refine2(mx,my,mbc,mbuff,meqn,maux,xlower,ylower,dx,dy,t,level, &
     ! Flagging
     real(kind=8),intent(inout) :: amrflags(1-mbuff:mx+mbuff,1-mbuff:my+mbuff)
 
-    logical :: allowflag
-    external allowflag
-
     ! Locals
     integer :: i,j,m,r
     real(kind=8) :: x_c,y_c,x_low,y_low,x_hi,y_hi

diff --git a/src/2d/flagregions.f90 b/src/2d/flagregions.f90
@@ -25,9 +25,6 @@ subroutine flagregions(mx,my,mbuff,xlower,ylower,dx,dy,level,t, &
     real(kind=8), intent(in) :: DONTFLAG
     real(kind=8), intent(in) :: DOFLAG
 
-    logical :: allowflag
-    external allowflag
-
     ! Locals
     integer :: i,j,m,minlevel,maxlevel
     real(kind=8) :: x_low,y_low,x_hi,y_hi