--- trunk/libf/phylmd/ini_histday.f90	2012/01/30 14:37:26	60
+++ trunk/libf/phylmd/ini_histday.f90	2012/04/20 14:58:43	61
@@ -11,7 +11,10 @@
     use dimens_m, only: iim, jjm, llm
     use temps, only: itau_phy, day_ref, annee_ref
     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 clesphys, only: ecrit_day
     use grid_change, only: gr_phy_write_2d
@@ -39,9 +42,9 @@
        if (nq <= 4) then
           call histdef(nid_day, "Sigma_O3_Royer", &
                "column-density of ozone, in a cell, from Royer", "DU", &
-               pxsize=iim, pysize=jjm+1, phoriid=nhori, pzsize=llm, &
-               par_oriz=1, par_szz=llm, pzid=nvert, popp="ave(X)", &
-               pfreq_opp=dtime, pfreq_wrt=real(ecrit_day))
+               xsize=iim, ysize=jjm+1, horiid=nhori, pzsize=llm, par_oriz=1, &
+               par_szz=llm, pzid=nvert, popp="ave(X)", pfreq_opp=dtime, &
+               pfreq_wrt=real(ecrit_day))
        end if
        CALL histend(nid_day)
     ENDIF