Fixed OOB issue in out1d when averaging along x or y. (#90)

CaNS-World · Aug 29, 2023 · ff9920f · ff9920f
1 parent 6446710
commit ff9920f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/output.f90 b/src/output.f90
@@ -64,7 +64,8 @@ subroutine out1d(fname,ng,lo,hi,idir,l,dl,z_g,dz,p)
     integer , intent(in), dimension(3) :: ng,lo,hi
     integer , intent(in) :: idir
     real(rp), intent(in), dimension(3) :: l,dl
-    real(rp), intent(in), dimension(0:) :: z_g,dz
+    real(rp), intent(in), dimension(0:       ) :: z_g
+    real(rp), intent(in), dimension(0:lo(3)-1) :: dz
     real(rp), intent(in), dimension(lo(1)-1:,lo(2)-1:,lo(3)-1:) :: p
     real(rp), allocatable, dimension(:) :: p1d
     integer :: i,j,k