--- trunk/libf/phylmd/ini_histins.f90	2010/06/02 11:01:12	34
+++ trunk/libf/phylmd/ini_histins.f90	2012/10/02 15:50:56	67
@@ -14,9 +14,12 @@
     use clesphys, only: ecrit_ins
     use indicesol, only: nbsrf, clnsurf
     USE calendar, only: ymds2ju
-    use histcom, only: histbeg_totreg, histvert, histend, histdef
+    USE histbeg_totreg_m, ONLY : histbeg_totreg
+    USE histdef_m, ONLY : histdef
+    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
 
     REAL, intent(in):: dtime ! pas temporel de la physique (s)
     logical, intent(in):: ok_instan
@@ -46,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, &