Changeset 5075 for LMDZ6/trunk/libf/phylmd/readaerosolstrato_m.F90

Timestamp:

Jul 19, 2024, 10:05:57 AM (2 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/readaerosolstrato_m.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/readaerosolstrato_m.F90

@@ -24 +24 @@
 
 SUBROUTINE init_readaerosolstrato1
-  USE netcdf
-  USE netcdf95, ONLY: nf95_close, nf95_gw_var, nf95_inq_dimid, & 
+  USE lmdz_netcdf, ONLY: nf90_nowrite
+  USE netcdf95, ONLY: nf95_close, nf95_gw_var, nf95_inq_dimid, &
                       nf95_inq_varid, nf95_open
   USE mod_phys_lmdz_para
@@ -67 +67 @@
   
 SUBROUTINE init_readaerosolstrato2
-  USE netcdf
-  USE netcdf95, ONLY: nf95_close, nf95_gw_var, nf95_inq_dimid, & 
+  USE lmdz_netcdf, ONLY: nf90_nowrite
+  USE netcdf95, ONLY: nf95_close, nf95_gw_var, nf95_inq_dimid, &
                       nf95_inq_varid, nf95_open
   USE mod_phys_lmdz_para