anchor.diff:              file_ncid = ncdr_files(file_ncdr_id)%ncid
               call ncdr_check_ncid(file_ncid)
               
  -            var_index = nc_diag_read_id_assert_var(file_ncid, var_name)
  +            var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
               var_type  = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
               
               call nc_diag_read_assert_var_type(var_type, NF90_CHAR)
  
positive.code:             file_ncid = ncdr_files(file_ncdr_id)%ncid
              call ncdr_check_ncid(file_ncid)
              
              var_index = nc_diag_read_id_assert_var(file_ncid, var_name)
              var_type  = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
                          
              call nc_diag_read_assert_var_type(var_type, NF90_SHORT)
  
negative.code:             file_ncid = ncdr_files(file_ncdr_id)%ncid
              call ncdr_check_ncid(file_ncid)
              
              var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
              var_type  = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
                          
              call nc_diag_read_assert_var_type(var_type, NF90_INT)
  