From 4c284b2348e57da2664e702b5c7169b91576b1ec Mon Sep 17 00:00:00 2001 From: RussTreadon-NOAA Date: Fri, 29 Apr 2022 21:36:35 +0000 Subject: [PATCH] GitHub Issue NOAA-EMC/GSI #370: use nf90_inq_varid to set integer addresses for lon and lat variables --- util/netcdf_io/interp_inc.fd/driver.f90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/util/netcdf_io/interp_inc.fd/driver.f90 b/util/netcdf_io/interp_inc.fd/driver.f90 index 6c146f3d06..52c140408c 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) )