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

Timestamp:

Oct 24, 2024, 1:55:38 PM (27 hours ago)

Author:

abarral

Message:

Replace F77 netcdf library by F90 netcdf library

File:

• LMDZ6/trunk/libf/phylmd/read_pstoke0.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/read_pstoke0.f90

@@ -22 +22 @@
 
   IMPLICIT NONE
-
-  include "netcdf.inc"
 
   INTEGER kon, kev, zkon, zkev
@@ -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, nckev)
-    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, nckev)
+    status = nf90_inquire_dimension(ncidp, tid, namedim, ncrec)
 
     zrec = ncrec
@@ -253 +251 @@
     ! niveaux de pression
 
-    status = nf_get_vara_real(ncidp, varidpl, 1, kev, pl)
+    status = nf90_get_var(ncidp, varidpl, pl, [1], [kev])
 
     ! lecture de aire et phis