Skip to content

Commit

Permalink
Merge pull request NOAA-EMC#372 from RussTreadon-NOAA/feature/interp
Browse files Browse the repository at this point in the history
GitHub Issue NOAA-EMC#370: use nf90_inq_varid to set integer addresses for lon and lat variables
  • Loading branch information
MichaelLueken committed May 3, 2022
2 parents 260713e + 4c284b2 commit 6ed2ef2
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions util/netcdf_io/interp_inc.fd/driver.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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) )

Expand All @@ -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) )

Expand Down

0 comments on commit 6ed2ef2

Please sign in to comment.