anchor.diff:  program test_nc_diag_read
       use nc_diag_read
  +    use netcdf
       
       call nc_diag_read_init("test.nc")
       !call nc_diag_read_init("test_fixed.nc")
  
positive.code:             
              do i = 1, size(var_stor, 2)
                  do j = 1, size(var_stor, 1)
                      if ((j > 1) .AND. (mod(j - 1, 5) == 0)) write (*, "(A)") ""
                      write (*, "(A30)", advance = "no") '"' // var_stor(j, i) // '" '
                  end do
                  write (*, "(A)") ""
                  write (*, "(A)") "== END ROW =="
              end do
              
              write (*, "(A)") ""
  
negative.code:             
              write (*, "(A, I0, A)") " ** Variable (1D): " // var_name // " (Elements: ", size(var_stor), ")"
              
              !do i = 1, size(var_stor)
              !    if ((i > 1) .AND. (mod(i - 1, 5) == 0)) write (*, "(A)") ""
              !    if ((var_stor(i)(1:1) == NF90_FILL_CHAR) .OR. (len(var_stor(i)) == 0)) then
              !        write (*, "(A20)", advance = "no") "(empty) "
              !    else
              !        write (*, "(A20)", advance = "no") '"' // var_stor(i) // '" '
              !    end if
              !end do
              
              do i = 1, size(var_stor)
                  if ((var_stor(i)(1:1) == NF90_FILL_CHAR) .OR. (len(var_stor(i)) == 0)) then
                      write (*, "(A20)") "(empty)"
                  else
                      write (*, "(A20)") '"' // var_stor(i) // '"'
                  end if
              end do
              
              write (*, "(A)") ""
  