--- trunk/libf/phylmd/ini_histhf.f90	2012/09/20 13:00:41	66
+++ trunk/libf/phylmd/ini_histhf.f90	2012/10/02 15:50:56	67
@@ -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)