Use NetCDF95 constants

Inst_eddies/input_ssh.f90

@@ -14,9 +14,8 @@ contains
 
     ! Libraries:
     use jumble, only: new_unit, assert, deg_to_rad, twopi
-    use netcdf, only: nf90_nowrite
     use netcdf95, only: nf95_open, nf95_find_coord, nf95_inquire_dimension, &
-         nf95_get_var, nf95_close
+         nf95_get_var, nf95_close, nf95_nowrite
 
     use config_m, only: max_radius_deg
     use get_var_m, only: get_var
@@ -60,7 +59,7 @@ contains
     !----------------------------------------------------------------------
 
     inquire(file = "SHPC/grid_nml.txt", exist = exist)
-    call nf95_open("h.nc", nf90_nowrite, ncid)
+    call nf95_open("h.nc", nf95_nowrite, ncid)
     call nf95_find_coord(ncid, dimid = dimid, varid = varid, &
          std_name = "longitude")
     call new_unit(unit)
@@ -140,7 +139,7 @@ contains
     ! works with an upper limit for valid values.)
     call nf95_close(ncid)
 
-    call nf95_open("uv.nc", nf90_nowrite, ncid)
+    call nf95_open("uv.nc", nf95_nowrite, ncid)
     call get_var(periodic, max_radius(1), u, ncid, nlon, name = "ugos", &
          new_fill_value = ieee_value(0., IEEE_QUIET_NAN))
     call get_var(periodic, max_radius(1), v, ncid, nlon, name = "vgos", &