Changeset 5088 for LMDZ6/branches/Amaury_dev/libf/phylmd/grid_noro_m.F90

Timestamp:

Jul 20, 2024, 4:30:31 PM (4 months ago)

Author:

abarral

Message:

Remove all managed netcdf77 usage (excluding external: rrtm, ecrad)
Remove call to netcdf.inc
Replace USE lmdz_netcdf by USE netcdf
Replace lmdz_netcdf.F90 by lmdz_netcdf_format.F90

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/grid_noro_m.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/grid_noro_m.F90

@@ -435 +435 @@
 ! Purpose: Read parameters usually determined with grid_noro from a file.
 !===============================================================================
-  USE lmdz_netcdf, ONLY: NF90_OPEN,  NF90_INQ_DIMID, NF90_INQUIRE_DIMENSION,        &
+  USE netcdf, ONLY: NF90_OPEN,  nf90_inq_dimid, NF90_INQUIRE_DIMENSION,        &
         NF90_NOERR, NF90_CLOSE, NF90_INQ_VARID, NF90_GET_VAR, NF90_STRERROR,   &
         NF90_NOWRITE
@@ -509 +509 @@
   REAL, ALLOCATABLE :: tmp(:)
   INTEGER :: n
-  CALL ncerr(NF90_INQ_DIMID(fid,dimd,did))
+  CALL ncerr(nf90_inq_dimid(fid,dimd,did))
   CALL ncerr(NF90_INQUIRE_DIMENSION(fid,did,len=n)); ALLOCATE(tmp(n))
   CALL ncerr(NF90_INQ_VARID(fid,dimd,did))