Changeset 5100 for LMDZ6/branches/Amaury_dev/libf/phylmd/regr_pr_time_av_m.F90

Timestamp:

Jul 23, 2024, 7:00:20 AM (8 weeks ago)

Author:

abarral

Message:

Remove CPP_1D key. It was used once in a single file to wrap a whole internal module -> can't even compile if key is enabled.
(lint) Set NF90_* to lowercase

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/regr_pr_time_av_m.F90 (modified) (4 diffs)

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

@@ -113 +113 @@
 !-------------------------------------------------------------------------------
   USE dimphy,         ONLY: klon
-  USE netcdf95,       ONLY: NF95_INQ_VARID, NF95_INQUIRE_VARIABLE, &
-                            NF95_INQ_DIMID, NF95_INQUIRE_DIMENSION, nf95_get_var
+  USE netcdf95,       ONLY: nf95_inq_varid, NF95_INQUIRE_VARIABLE, &
+                            nf95_inq_dimid, nf95_inquire_dimension, nf95_get_var
   USE netcdf,         ONLY: NF90_INQ_VARID, nf90_noerr
   USE assert_m,       ONLY: assert
@@ -213 +213 @@
       lPrTfile=lAdjTro.AND.NF90_INQ_VARID(fID,"tropopause_air_pressure",vID)==nf90_noerr
       lO3Tfile=lAdjTro.AND.NF90_INQ_VARID(fID,"tro3_at_tropopause"     ,vID)==nf90_noerr
-      CALL NF95_INQ_DIMID(fID,"time",vID)
-      CALL NF95_INQUIRE_DIMENSION(fID,vID,nclen=ntim_in)
+      CALL nf95_inq_dimid(fID,"time",vID)
+      CALL nf95_inquire_dimension(fID,vID,nclen=ntim_in)
       linterp=PRESENT(time_in).AND.ntim_in==14
       ALLOCATE(v1(nlon,nlat,nlev_in,n_var))
@@ -480 +480 @@
   CHARACTER(LEN=*), INTENT(IN)    :: var
 !-------------------------------------------------------------------------------
-  CALL NF95_INQ_VARID(fID, TRIM(var), vID)
+  CALL nf95_inq_varid(fID, TRIM(var), vID)
   CALL NF95_INQUIRE_VARIABLE(fID, vID, ndims=n_dim)
   IF(n_dim==2) call NF95_GET_VAR(fID,vID,v(1,:), start=[  1,irec])
@@ -511 +511 @@
 !-------------------------------------------------------------------------------
   DO i=1,SIZE(nam)
-    CALL NF95_INQ_VARID(fID, TRIM(nam(i)), vID)
+    CALL nf95_inq_varid(fID, TRIM(nam(i)), vID)
     CALL NF95_INQUIRE_VARIABLE(fID, vID, ndims=n_dim)
     IF(n_dim==3) call NF95_GET_VAR(fID,vID,v(1,:,:,i), start=[  1,1,irec])