GitHub Issue NOAA-EMC/GSI #370: use nf90_inq_varid to set integer add…

…resses for lon and lat variables

util/netcdf_io/interp_inc.fd/driver.f90

@@ -254,6 +254,8 @@ program interp_inc
  error = nf90_inquire_dimension(ncid_in, id_dim, len=lon_in)
  call netcdf_err(error, 'reading lon dimension for file='//trim(infile) )
  allocate(longitude_in(lon_in))
+ error = nf90_inq_varid(ncid_in, 'lon', id_dim)
+ call netcdf_err(error, 'inquiring var lon dimension for file='//trim(infile) )
  error = nf90_get_var(ncid_in, id_dim, longitude_in)
  call netcdf_err(error, 'reading longitude_in for file='//trim(infile) )
 
@@ -265,6 +267,8 @@ program interp_inc
  error = nf90_inquire_dimension(ncid_in, id_dim, len=lat_in)
  call netcdf_err(error, 'reading lat dimension for file='//trim(infile) )
  allocate(latitude_in(lat_in))
+ error = nf90_inq_varid(ncid_in, 'lat', id_dim)
+ call netcdf_err(error, 'inquiring var lat dimension for file='//trim(infile) )
  error = nf90_get_var(ncid_in, id_dim, latitude_in)
  call netcdf_err(error, 'reading latitude_in for file='//trim(infile) )