Merge branch 'development' of github.com:AMReX-Astro/Castro into deve…

…lopment
AMReX-Astro · Aug 2, 2019 · 5915097 · 5915097
2 parents 01f41f2 + 3ad0a33
commit 5915097
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 150 deletions.
diff --git a/Exec/science/flame/bc_fill_nd.F90 b/Exec/science/flame/bc_fill_nd.F90
diff --git a/Source/hydro/fourth_order.F90 b/Source/hydro/fourth_order.F90
@@ -222,7 +222,8 @@ subroutine states(idir, &
                 ! reset the left state at domlo(1) if needed -- it is outside the domain
 
                 if (physbc_lo(1) == Outflow) then
-                   al(domlo(1),j,k,:) = ar(domlo(1),j,k,:)
+                   !al(domlo(1),j,k,:) = ar(domlo(1),j,k,:)
+                   continue
 
                 else if (physbc_lo(1) == Symmetry) then
                    al(domlo(1),j,k,:) = ar(domlo(1),j,k,:)
@@ -249,7 +250,8 @@ subroutine states(idir, &
              do j = lo(2)-dg(2), hi(2)+dg(2)
 
                 if (physbc_hi(1) == Outflow) then
-                   ar(domhi(1)+1,j,k,:) = al(domhi(1)+1,j,k,:)
+                   !ar(domhi(1)+1,j,k,:) = al(domhi(1)+1,j,k,:)
+                   continue
 
                 else if (physbc_hi(1) == Symmetry) then
                    ar(domhi(1)+1,j,k,:) = al(domhi(1)+1,j,k,:)
@@ -431,7 +433,8 @@ subroutine states(idir, &
              do i = lo(1)-1, hi(1)+1
 
                 if (physbc_lo(2) == Outflow) then
-                   al(i,domlo(2),k,:) = ar(i,domlo(2),k,:)
+                   !al(i,domlo(2),k,:) = ar(i,domlo(2),k,:)
+                   continue
 
                 else if (physbc_lo(2) == Symmetry) then
                    al(i,domlo(2),k,:) = ar(i,domlo(2),k,:)
@@ -458,7 +461,8 @@ subroutine states(idir, &
              do i = lo(1)-1, hi(1)+1
 
                 if (physbc_hi(2) == Outflow) then
-                   ar(i,domhi(2)+1,k,:) = al(i,domhi(2)+1,k,:)
+                   !ar(i,domhi(2)+1,k,:) = al(i,domhi(2)+1,k,:)
+                   continue
 
                 else if (physbc_hi(2) == Symmetry) then
                    ar(i,domhi(2)+1,k,:) = al(i,domhi(2)+1,k,:)
@@ -642,7 +646,8 @@ subroutine states(idir, &
              do i = lo(1)-1, hi(1)+1
 
                 if (physbc_lo(3) == Outflow) then
-                   al(i,j,domlo(3),:) = ar(i,j,domlo(3),:)
+                   !al(i,j,domlo(3),:) = ar(i,j,domlo(3),:)
+                   continue
 
                 else if (physbc_lo(3) == Symmetry) then
                    al(i,j,domlo(3),:) = ar(i,j,domlo(3),:)
@@ -669,7 +674,8 @@ subroutine states(idir, &
              do i = lo(1)-1, hi(1)+1
 
                 if (physbc_hi(3) == Outflow) then
-                   ar(i,j,domhi(3)+1,:) = al(i,j,domhi(3)+1,:)
+                   !ar(i,j,domhi(3)+1,:) = al(i,j,domhi(3)+1,:)
+                   continue
 
                 else if (physbc_hi(3) == Symmetry) then
                    ar(i,j,domhi(3)+1,:) = al(i,j,domhi(3)+1,:)