Minor bugfix.

CaNS-World · Nov 9, 2024 · de78afb · de78afb
1 parent 40878c5
commit de78afb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/output.f90 b/src/output.f90
@@ -72,7 +72,7 @@ subroutine out1d(fname,ng,lo,hi,idir,l,dl,z_g,dz,p)
     integer , intent(in) :: idir
     real(rp), intent(in), dimension(3) :: l,dl
     real(rp), intent(in), dimension(0:       ) :: z_g
-    real(rp), intent(in), dimension(0:lo(3)-1) :: dz
+    real(rp), intent(in), dimension(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