diff --git a/util/netcdf_io/interp_inc.fd/driver.f90 b/util/netcdf_io/interp_inc.fd/driver.f90 index 6c146f3d..52c14040 100644 --- a/util/netcdf_io/interp_inc.fd/driver.f90 +++ b/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) )