--- trunk/libf/phylmd/ini_histins.f90	2012/09/20 13:00:41	66
+++ trunk/phylmd/ini_histins.f90	2013/11/15 18:45:49	76
@@ -49,7 +49,7 @@
             jjm + 1, itau_phy, zjulian, dtime, nhori, nid_ins)
        write(*, *)'Inst ', itau_phy, zjulian
        CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb", &
-            llm, presnivs/100., nvert)
+            presnivs/100., nvert)
 
        CALL histdef(nid_ins, "phis", "Surface geop. height", "-", &
             iim, (jjm + 1), nhori, 1, 1, 1, -99, &