Index: LMDZ4/branches/LMDZ4-dev/libf/dyn3d/guide_mod.F90
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/dyn3d/guide_mod.F90	(revision 1186)
+++ LMDZ4/branches/LMDZ4-dev/libf/dyn3d/guide_mod.F90	(revision 1187)
@@ -1033,6 +1033,6 @@
 ! Coordonnee verticale
          if (.not.guide_modele) then
-              varidpl=NCVID(ncidpl,'LEVEL',rcode)
-              IF (rcode.NE.0) varidpl=NCVID(ncidpl,'PRESSURE',rcode)
+              rcode=NF_INQ_VARID(ncidpl,'LEVEL',varidpl)
+              IF (rcode.NE.0) rcode=NF_INQ_VARID(ncidpl,'PRESSURE',varidpl)
               print*,'ncidpl,varidpl',ncidpl,varidpl
          endif
@@ -1216,6 +1216,6 @@
 ! Coordonnee verticale
          if (.not.guide_modele) then
-              varidpl=NCVID(ncidpl,'LEVEL',rcode)
-              IF (rcode.NE.0) varidpl=NCVID(ncidpl,'PRESSURE',rcode)
+              rcode=NF_INQ_VARID(ncidpl,'LEVEL',varidpl)
+              IF (rcode.NE.0) rcode=NF_INQ_VARID(ncidpl,'PRESSURE',varidpl)
               print*,'ncidpl,varidpl',ncidpl,varidpl
          endif
Index: LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/guide_p_mod.F90
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/guide_p_mod.F90	(revision 1186)
+++ LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/guide_p_mod.F90	(revision 1187)
@@ -1112,6 +1112,6 @@
 ! Coordonnee verticale
          if (.not.guide_modele) then
-              varidpl=NCVID(ncidpl,'LEVEL',rcode)
-              IF (rcode.NE.0) varidpl=NCVID(ncidpl,'PRESSURE',rcode)
+              rcode=NF_INQ_VARID(ncidpl,'LEVEL',varidpl)
+              IF (rcode.NE.0) rcode=NF_INQ_VARID(ncidpl,'PRESSURE',varidpl)
               print*,'ncidpl,varidpl',ncidpl,varidpl
          endif
@@ -1296,6 +1296,6 @@
 ! Coordonnee verticale
          if (.not.guide_modele) then
-              varidpl=NCVID(ncidpl,'LEVEL',rcode)
-              IF (rcode.NE.0) varidpl=NCVID(ncidpl,'PRESSURE',rcode)
+              rcode=NF_INQ_VARID(ncidpl,'LEVEL',varidpl)
+              IF (rcode.NE.0) rcode=NF_INQ_VARID(ncidpl,'PRESSURE',varidpl)
               print*,'ncidpl,varidpl',ncidpl,varidpl
          endif