--- trunk/libf/phylmd/ini_histhf.f90	2010/06/02 11:01:12	34
+++ trunk/phylmd/ini_histhf.f	2014/03/05 14:57:53	82
@@ -12,9 +12,11 @@
     use temps, only: day_ref, annee_ref, itau_phy
     use dimphy, only: klon
     USE calendar, only: ymds2ju
-    use histcom, only: histbeg_totreg, histvert, histend
+    USE histbeg_totreg_m, ONLY : histbeg_totreg
+    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)
@@ -40,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)