Changeset 5270 for LMDZ6/trunk/libf/phylmd/read_pstoke0.f90
- Timestamp:
- Oct 24, 2024, 1:55:38 PM (27 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/read_pstoke0.f90
r5268 r5270 22 22 23 23 IMPLICIT NONE 24 25 include "netcdf.inc"26 24 27 25 INTEGER kon, kev, zkon, zkev … … 226 224 ! ID pour les dimensions 227 225 228 status = nf _inq_dimid(ncidp, 'y', yid)229 status = nf _inq_dimid(ncidp, 'x', xid)230 status = nf _inq_dimid(ncidp, 'sig_s', zid)231 status = nf _inq_dimid(ncidp, 'time_counter', tid)226 status = nf90_inq_dimid(ncidp, 'y', yid) 227 status = nf90_inq_dimid(ncidp, 'x', xid) 228 status = nf90_inq_dimid(ncidp, 'sig_s', zid) 229 status = nf90_inq_dimid(ncidp, 'time_counter', tid) 232 230 233 231 ! lecture des dimensions 234 232 235 status = nf _inq_dim(ncidp, yid, namedim, ncjm)236 status = nf _inq_dim(ncidp, xid, namedim, ncim)237 status = nf _inq_dim(ncidp, zid, namedim, nckev)238 status = nf _inq_dim(ncidp, tid, namedim, ncrec)233 status = nf90_inquire_dimension(ncidp, yid, namedim, ncjm) 234 status = nf90_inquire_dimension(ncidp, xid, namedim, ncim) 235 status = nf90_inquire_dimension(ncidp, zid, namedim, nckev) 236 status = nf90_inquire_dimension(ncidp, tid, namedim, ncrec) 239 237 240 238 zrec = ncrec … … 253 251 ! niveaux de pression 254 252 255 status = nf _get_vara_real(ncidp, varidpl, 1, kev, pl)253 status = nf90_get_var(ncidp, varidpl, pl, [1], [kev]) 256 254 257 255 ! lecture de aire et phis
Note: See TracChangeset
for help on using the changeset viewer.