Changeset 5075 for LMDZ6/trunk/tools/netcdf95/Attributes/nf95_get_missing.F90

Timestamp:

Jul 19, 2024, 10:05:57 AM (4 months ago)

Author:

abarral

Message:

[continued & end] replace netcdf by lmdz_netcdf.F90 wrapper
"use netcdf" is now only used in lmdz_netcdf.F90 (except ecrad and obsolete/)
<include "netcdf.inc"> is now likewise only used in lmdz_netcdf.F90.

systematically specify explicitely <USE lmdz_netcdf, ONLY:> (probably left some missing, to correct later on)

Further replacement of nf_put_* by nf90_put_* (same for _get_)

[minor] replace deprecated boolean operators along the way

File:

• LMDZ6/trunk/tools/netcdf95/Attributes/nf95_get_missing.F90 (modified) (6 diffs)

LMDZ6/trunk/tools/netcdf95/Attributes/nf95_get_missing.F90

@@ -1 +1 @@
 module nf95_get_missing_m
 
-  use netcdf, only: nf90_noerr
+  use lmdz_netcdf, only: nf90_noerr
   use nf95_get_att_m, only: nf95_get_att
 
@@ -18 +18 @@
   subroutine nf95_get_missing_real(ncid, varid, missing)
 
-    use netcdf, only: NF90_FILL_REAL 
+    use lmdz_netcdf, only: NF90_FILL_REAL
     use typesizes, only: FourByteReal
 
@@ -44 +44 @@
   subroutine nf95_get_missing_dble(ncid, varid, missing)
 
-    use netcdf, only: NF90_FILL_double
+    use lmdz_netcdf, only: NF90_FILL_double
     use typesizes, only: EightByteReal
 
@@ -70 +70 @@
   subroutine nf95_get_missing_short_int(ncid, varid, missing)
 
-    use netcdf, only: NF90_FILL_short
+    use lmdz_netcdf, only: NF90_FILL_short
     use typesizes, only: TwoByteInt
 
@@ -96 +96 @@
   subroutine nf95_get_missing_int(ncid, varid, missing)
 
-    use netcdf, only: NF90_FILL_INT
+    use lmdz_netcdf, only: NF90_FILL_INT
 
     integer, intent(in)::  ncid, varid
@@ -121 +121 @@
   subroutine nf95_get_missing_char(ncid, varid, missing)
 
-    use netcdf, only: NF90_FILL_char
+    use lmdz_netcdf, only: NF90_FILL_char
 
     integer, intent(in)::  ncid, varid