From 98704d19f27f6b1491d6431b1258a4e03ad40a22 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Thu, 29 Dec 2022 15:30:06 +0100
Subject: [PATCH] Use NetCDF95 constants
---
Inst_eddies/input_ssh.f90 | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/Inst_eddies/input_ssh.f90 b/Inst_eddies/input_ssh.f90
index b8a76709..9726cef4 100644
--- a/Inst_eddies/input_ssh.f90
+++ b/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", &
--
GitLab