Changeset 5075 for LMDZ6/trunk/libf/phylmd/iotd_ecrit.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/iotd_ecrit.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/iotd_ecrit.F90

@@ -22 +22 @@
 !=================================================================
  
-      use netcdf, only: nf90_put_var
+      USE lmdz_netcdf, ONLY: nf90_put_var,nf_inq_varid,nf_enddef,nf_redef,nf_sync,nf_noerr,&
+              nf_float,nf_def_var
       implicit none
 
 ! Commons
 
-      INCLUDE "netcdf.inc"
       INCLUDE "iotd.h"
 
@@ -90 +90 @@
 
 !! Quand on tombe sur la premiere variable on ajoute un pas de temps
-        if (nom.eq.firstnom) then
+        if (nom==firstnom) then
         ! We have identified a "first call" (at given date)
 
@@ -114 +114 @@
 !        print*,'IOTD Date ,varid,nid,ntime,date',varid,nid,ntime,date
 
-           if (ierr.ne.NF_NOERR) then
+           if (ierr/=NF_NOERR) then
               write(*,*) "***** PUT_VAR matter in writediagfi_nc"
               write(*,*) "***** with time"
@@ -175 +175 @@
       ierr= NF90_PUT_VAR(nid,varid,zx,corner,edges)
 
-      if (ierr.ne.NF_NOERR) then
+      if (ierr/=NF_NOERR) then
            write(*,*) "***** PUT_VAR problem in writediagfi"
            write(*,*) "***** with ",nom