Changeset 5075 for LMDZ6/trunk/libf/phylmd/Dust/condsurfs.F

Timestamp:

Jul 19, 2024, 10:05:57 AM (3 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/libf/phylmd/Dust/condsurfs.F (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/Dust/condsurfs.F

@@ -4 +4 @@
      .                     lmt_dmsbio, lmt_h2sbio, lmt_dms, lmt_dmsconc)
        USE dimphy
+       USE lmdz_netcdf, ONLY:nf_close,nf_noerr,nf_inq_varid,nf_open,nf_nowrite,nf90_get_var
       IMPLICIT none
 c
@@ -10 +11 @@
 c
       INCLUDE "dimensions.h"
-      INCLUDE "netcdf.inc"
 c
       REAL lmt_so2h(klon), lmt_so2b(klon), lmt_so2bb(klon)