From de78afb6a62c2c0d785d07b7912216806dc1ade8 Mon Sep 17 00:00:00 2001 From: Pedro Costa Date: Sat, 9 Nov 2024 15:09:43 +0100 Subject: [PATCH] Minor bugfix. --- src/output.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/output.f90 b/src/output.f90 index 34c67235..fa4e2998 100644 --- 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