Changeset 5270 for LMDZ6/trunk/libf/phylmd/read_pstoke.f90

Timestamp:

Oct 24, 2024, 1:55:38 PM (2 weeks ago)

Author:

abarral

Message:

Replace F77 netcdf library by F90 netcdf library

File:

• LMDZ6/trunk/libf/phylmd/read_pstoke.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/read_pstoke.f90

@@ -23 +23 @@
 
   IMPLICIT NONE
-
-  include "netcdf.inc"
 
   INTEGER klono, klevo, imo, jmo
@@ -226 +224 @@
     ! ID pour les dimensions
 
-    status = nf_inq_dimid(ncidp, 'y', yid)
-    status = nf_inq_dimid(ncidp, 'x', xid)
-    status = nf_inq_dimid(ncidp, 'sig_s', zid)
-    status = nf_inq_dimid(ncidp, 'time_counter', tid)
+    status = nf90_inq_dimid(ncidp, 'y', yid)
+    status = nf90_inq_dimid(ncidp, 'x', xid)
+    status = nf90_inq_dimid(ncidp, 'sig_s', zid)
+    status = nf90_inq_dimid(ncidp, 'time_counter', tid)
 
     ! lecture des dimensions
 
-    status = nf_inq_dim(ncidp, yid, namedim, ncjm)
-    status = nf_inq_dim(ncidp, xid, namedim, ncim)
-    status = nf_inq_dim(ncidp, zid, namedim, ncklevo)
-    status = nf_inq_dim(ncidp, tid, namedim, ncrec)
+    status = nf90_inquire_dimension(ncidp, yid, namedim, ncjm)
+    status = nf90_inquire_dimension(ncidp, xid, namedim, ncim)
+    status = nf90_inquire_dimension(ncidp, zid, namedim, ncklevo)
+    status = nf90_inquire_dimension(ncidp, tid, namedim, ncrec)
 
     zrec = ncrec