Changeset 5071 for LMDZ6/trunk/libf/dyn3d

Timestamp:

Jul 18, 2024, 3:07:22 PM (6 months ago)

Author:

abarral

Message:

Replace nf_put_var* by nf90_put_var as discussed w/ Lionel

File:

• LMDZ6/trunk/libf/dyn3d/guide_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dyn3d/guide_mod.F90

@@ -12 +12 @@
   USE Write_Field
   USE lmdz_netcdf, ONLY: nf90_nowrite, nf90_open, nf90_inq_varid, nf90_close, &
-          nf90_inq_dimid, nf90_inquire_dimension, nf_put_var_rd, nf90_float, nf90_def_var, &
+          nf90_inq_dimid, nf90_inquire_dimension, nf90_float, nf90_def_var, &
           nf_create, nf_def_dim, nf_open, nf_unlimited, nf_write, nf_enddef, nf_redef, &
-          nf_close, nf_inq_varid, nf_put_vara_rd, nf90_get_var, nf90_noerr, nf_clobber, &
-          nf_64bit_offset, nf_inq_dimid, nf_inq_dimlen
+          nf_close, nf_inq_varid, nf90_get_var, nf90_noerr, nf_clobber, &
+          nf_64bit_offset, nf_inq_dimid, nf_inq_dimlen, nf90_put_var
   USE pres2lev_mod, ONLY: pres2lev
 
@@ -1707 +1707 @@
 
 ! Enregistrement des variables dimensions
-        ierr = nf_put_var_rd(nid,vid_lonu,rlonu*180./pi)
-        ierr = nf_put_var_rd(nid,vid_lonv,rlonv*180./pi)
-        ierr = nf_put_var_rd(nid,vid_latu,rlatu*180./pi)
-        ierr = nf_put_var_rd(nid,vid_latv,rlatv*180./pi)
-        ierr = nf_put_var_rd(nid,vid_lev,presnivs)
-        ierr = nf_put_var_rd(nid,vid_cu,cu)
-        ierr = nf_put_var_rd(nid,vid_cv,cv)
-        ierr = nf_put_var_rd(nid,vid_au,alpha_u)
-        ierr = nf_put_var_rd(nid,vid_av,alpha_v)
+        ierr = nf90_put_var(nid,vid_lonu,rlonu*180./pi)
+        ierr = nf90_put_var(nid,vid_lonv,rlonv*180./pi)
+        ierr = nf90_put_var(nid,vid_latu,rlatu*180./pi)
+        ierr = nf90_put_var(nid,vid_latv,rlatv*180./pi)
+        ierr = nf90_put_var(nid,vid_lev,presnivs)
+        ierr = nf90_put_var(nid,vid_cu,cu)
+        ierr = nf90_put_var(nid,vid_cv,cv)
+        ierr = nf90_put_var(nid,vid_au,alpha_u)
+        ierr = nf90_put_var(nid,vid_av,alpha_v)
         call nf95_put_var(nid, varid_alpha_t, alpha_t)
         call nf95_put_var(nid, varid_alpha_q, alpha_q)
@@ -1789 +1789 @@
     END SELECT
 
-    ierr = nf_put_vara_rd(nid,varid,start,count,field2)
+    ierr = nf90_put_var(nid,varid,field2,start,count)
     ierr = NF_CLOSE(nid)