Add debugging output.

Author: nusbaume

src/physics/utils/pio_reader.F90

@@ -326,6 +326,8 @@ subroutine get_netcdf_var_int_1d(this, varname, var, errmsg, errcode, start, cou
       if (do_subset) then
          !If subsetting is requested, then read only the specified
          !subset of the variable:
+         write(*,*) 'var size:', size(var), alloc_dims(:)
+         write(*,*) 'start/count:', start(:), count(:)
          errcode = pio_get_var(pio_file_handle, var_id, start, count, var(:))
       else
          !Otherwise, read the entire variable:

test/unit/fortran/src/pio_reader/test_pio_reader.pf

@@ -1285,7 +1285,7 @@ subroutine test_pio_reader_1d_int_full_subset_read()
 
 
     ! Read 1D integer variable:
-    call reader%get_var("pressure", pressure, errmsg, errcode, start=(/0/), count=(/3/))
+    call reader%get_var("pressure", pressure, errmsg, errcode, start=(/1/), count=(/3/))
 
     ! Check that the variable was read successfully:
     @assertEqual('', errmsg)