--- trunk/libf/phylmd/ini_histhf.f90	2012/04/20 14:58:43	61
+++ trunk/libf/phylmd/ini_histhf.f90	2012/10/02 15:50:56	67
@@ -16,7 +16,7 @@
     USE histend_m, ONLY : histend
     USE histvert_m, ONLY : histvert
     use phyetat0_m, only: rlon, rlat
-    use comvert, only: presnivs
+    use disvert_m, only: presnivs
     use ini_histhf3d_m, only: ini_histhf3d
 
     REAL, intent(in):: dtime ! pas temporel de la physique (s)
@@ -42,8 +42,8 @@
     CALL histbeg_totreg("histhf", zx_lon(:, 1), zx_lat(1, :), 1, iim, 1, &
          (jjm + 1), itau_phy, zjulian, dtime, nhori, nid_hf)
 
-    CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", &
-         llm, presnivs/100., nvert)
+    CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", presnivs/100., &
+         nvert)
 
     call ini_histhf3d(dtime, nid_hf3d)
     CALL histend(nid_hf)