--- trunk/libf/phylmd/ini_histday.f90	2012/04/20 14:58:43	61
+++ trunk/libf/phylmd/ini_histday.f90	2012/10/02 15:50:56	67
@@ -18,7 +18,7 @@
     use phyetat0_m, only: rlon, rlat
     use clesphys, only: ecrit_day
     use grid_change, only: gr_phy_write_2d
-    use comvert, only: presnivs
+    use disvert_m, only: presnivs
 
     REAL, intent(in):: dtime ! pas temporel de la physique (s)
     logical, intent(in):: ok_journe
@@ -38,12 +38,12 @@
        CALL histbeg_totreg("histday", rlon(2: iim+1), zx_lat(1, :), 1, iim, &
             1, jjm + 1, itau_phy, zjulian, dtime, nhori, nid_day)
        CALL histvert(nid_day, "presnivs", "Vertical levels", "mb", &
-            llm, presnivs/100., nvert)
+            presnivs/100., nvert)
        if (nq <= 4) then
           call histdef(nid_day, "Sigma_O3_Royer", &
                "column-density of ozone, in a cell, from Royer", "DU", &
-               xsize=iim, ysize=jjm+1, horiid=nhori, pzsize=llm, par_oriz=1, &
-               par_szz=llm, pzid=nvert, popp="ave(X)", pfreq_opp=dtime, &
+               xsize=iim, ysize=jjm+1, horiid=nhori, pzsize=llm, oriz=1, &
+               szz=llm, zid=nvert, opp="ave(X)", pfreq_opp=dtime, &
                pfreq_wrt=real(ecrit_day))
        end if
        CALL histend(nid_day)