Changeset 5071 for LMDZ6/trunk/libf/dyn3dmem

Timestamp:

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

Author:

abarral

Message:

Replace nf_put_var* by nf90_put_var as discussed w/ Lionel

File:

• LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.F90

@@ -10 +10 @@
   use lmdz_netcdf, only: nf90_nowrite, nf90_open, nf90_inq_varid, nf90_close, &
           nf90_inq_dimid, nf90_inquire_dimension, nf_get_vara_rd, nf_inq_dimid, &
-          nf_inq_dimlen, nf_enddef, nf_def_dim, nf_put_var_rd, nf_noerr, nf_close, nf_inq_varid, &
+          nf_inq_dimlen, nf_enddef, nf_def_dim, nf90_put_var, nf_noerr, nf_close, nf_inq_varid, &
           nf_redef, nf_write, nf_unlimited, nf_float, nf_clobber, nf_64bit_offset, nf90_float, &
-          nf_create, nf_def_var, nf_open, nf_put_vara_rd
+          nf_create, nf_def_var, nf_open
   USE parallel_lmdz
   USE pres2lev_mod, only: pres2lev
@@ -2257 +2257 @@
 
 ! 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,zu)
-        ierr = nf_put_var_rd(nid,vid_av,zv)
+        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,zu)
+        ierr = nf90_put_var(nid,vid_av,zv)
         call nf95_put_var(nid, varid_alpha_t, zt)
         call nf95_put_var(nid, varid_alpha_q, zq)
@@ -2355 +2355 @@
 !$OMP MASTER
 
-    ierr = nf_put_vara_rd(nid,varid,start,count,field_glo)
+    ierr = nf90_put_var(nid,varid,field_glo,start,count)
     ierr = NF_CLOSE(nid)