--- trunk/libf/phylmd/ini_histhf3d.f90	2012/04/20 14:58:43	61
+++ trunk/libf/phylmd/ini_histhf3d.f90	2012/10/02 15:50:56	67
@@ -20,7 +20,7 @@
     USE histdef_m, ONLY : histdef
     USE histend_m, ONLY : histend
     USE histvert_m, ONLY : histvert
-    use comvert, only: presnivs
+    use disvert_m, only: presnivs
 
     REAL, intent(in):: dtime ! pas temporel de la physique (s)
     integer, intent(out):: nid_hf3d
@@ -49,7 +49,7 @@
          (jjm + 1), itau_phy, zjulian, dtime, nhori, nid_hf3d)
 
     CALL histvert(nid_hf3d, "presnivs", "Vertical levels", "mb", &
-         llm, presnivs/100., nvert)
+         presnivs/100., nvert)
 
     ! Champs 3D: