anchor.diff:              
               var_index = nc_diag_read_id_assert_var(file_ncid, var_name)
               
  -            var_type = ncdr_files(file_ncid)%vars(var_index)%var_type
  +            var_type = ncdr_files(nc_diag_read_get_index_from_ncid(file_ncid))%vars(var_index)%var_type
           end function nc_diag_read_id_get_var_type
           
           function nc_diag_read_noid_get_var_type(var_name) result(var_type)
  
positive.code:             
              do i = 1, var_ndims
                  var_dims(i) = &
                      ncdr_files(file_ncid)%dims( &
                          ncdr_files(file_ncid)%vars(var_index)%var_dim_inds(i) &
                          )%dim_size
              end do
          end function nc_diag_read_id_ret_var_dims
  
negative.code:             
              var_index = nc_diag_read_id_assert_var(file_ncid, var_name)
              
              var_ndims = ncdr_files(nc_diag_read_get_index_from_ncid(file_ncid))%vars(var_index)%var_ndims
          end function nc_diag_read_id_get_var_ndims
          
          function nc_diag_read_noid_get_var_ndims(var_name) result(var_ndims)
  