Changeset 5075 for LMDZ6/trunk/tools/make_sso/make_sso_SpherePack.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/make_sso/make_sso_SpherePack.f90 (modified) (1 diff)

LMDZ6/trunk/tools/make_sso/make_sso_SpherePack.f90

@@ -6 +6 @@
 ! Purpose: Project ETOPO file (GMT4 axes conventions) on spherical harmonics.
 !-------------------------------------------------------------------------------
-  USE netcdf
+  USE lmdz_netcdf, ONLY: nf90_noerr,nf90_strerror,nf90_close,nf90_put_var,nf90_enddef,&
+          nf90_put_att,nf90_global,nf90_real,nf90_def_var,nf90_def_dim,nf90_inq_varid,&
+          nf90_nowrite,nf90_inquire_dimension,nf90_inquire_variable,nf90_open
 !  USE sphpack
   IMPLICIT NONE