Changeset 5075 for LMDZ6/trunk/libf/dyn3d_common

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/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90

@@ -14 +14 @@
   USE comconst_mod, ONLY: cpp, kappa, g, omeg, daysec, rad, pi
   USE comvert_mod, ONLY: presnivs, preff, pa
-  use netcdf, only: nf90_def_var, nf90_int, nf90_float, nf90_put_var
+  USE lmdz_netcdf, ONLY: nf90_def_var, nf90_int, nf90_float, nf90_put_var, nf_enddef, &
+      nf_put_att_text,nf_def_dim,nf_64bit_offset,nf_clobber,nf_create
   
   IMPLICIT NONE
@@ -21 +22 @@
   INCLUDE "paramet.h"
   INCLUDE "comgeom.h"
-  INCLUDE "netcdf.inc"
 
 !======================== 
@@ -232 +232 @@
 
 SUBROUTINE handle_err(status)
-  INCLUDE "netcdf.inc"
+  USE lmdz_netcdf, ONLY: nf_strerror
 
   INTEGER status
-  IF (status.NE.nf_noerr) THEN
+  IF (status/=nf_noerr) THEN
      PRINT *,NF_STRERROR(status)
      CALL abort_gcm('grilles_gcm_netcdf','netcdf error',1)