Changeset 4259 for LMDZ6/trunk/libf/phylmd/iotd_ecrit.F90

Timestamp:

Sep 20, 2022, 4:09:50 PM (2 years ago)

Author:

lguez

Message:

Replace nf_put_vara_type by nf90_put_var

The immediate motivation is a bug fix: nf_put_vara_type was called
with scalar instead of array actual arguments for dummy array
arguments start and count. Correcting this, we might as well take the
opportunity to use nf90_put_var, so we no longer need to test
NC_DOUBLE and we have half as many calls.

File:

• LMDZ6/trunk/libf/phylmd/iotd_ecrit.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/iotd_ecrit.F90

@@ -22 +22 @@
 !=================================================================
  
+      use netcdf, only: nf90_put_var
       implicit none
 
@@ -108 +109 @@
 
 
-           ierr= NF_PUT_VARA_REAL(nid,varid,ntime,1,date)
+           ierr= NF90_PUT_VAR(nid,varid,date,[ntime])
 
 !          print*,'date ',date,ierr,nid
@@ -172 +173 @@
 
 
-      ierr= NF_PUT_VARA_REAL(nid,varid,corner,edges,zx)
+      ierr= NF90_PUT_VAR(nid,varid,zx,corner,edges)
 
       if (ierr.ne.NF_NOERR) then