Changeset 5099 for LMDZ6/branches/Amaury_dev/tools/netcdf95/Datasets/nf95_find_coord.f90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/tools/netcdf95/Datasets/nf95_find_coord.f90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/tools/netcdf95/Datasets/nf95_find_coord.f90

@@ -15 +15 @@
     ! attribute "std_name".
 
-    use netcdf, only: NF90_MAX_NAME, NF90_NOERR
+    use netcdf, only: NF90_MAX_NAME, nf90_noerr
     use nf95_get_att_m, only: nf95_get_att
     use nf95_inq_varid_m, only: nf95_inq_varid
@@ -80 +80 @@
        call nf95_inquire_dimension(ncid, dimid_local, name_local)
        call nf95_inq_varid(ncid, name_local, varid_local, ncerr)
-       if (ncerr == NF90_NOERR) then
+       if (ncerr == nf90_noerr) then
           call nf95_inquire_variable(ncid, varid_local, dimids=dimids)
           if (size(dimids) == 1) then
@@ -86 +86 @@
                 ! We have found a coordinate
                 call nf95_get_att(ncid, varid_local, "units", values, ncerr)
-                if (ncerr == NF90_NOERR)then
+                if (ncerr == nf90_noerr)then
                    if (exact) then
                       found = any(values == units)