--- trunk/libf/phylmd/ini_histrac.f90	2010/06/02 11:01:12	34
+++ trunk/phylmd/ini_histrac.f	2014/03/05 14:57:53	82
@@ -4,20 +4,24 @@
 
 contains
 
+
   subroutine ini_histrac(nid_tra, pdtphys, nq_phys, lessivage)
 
     ! From phylmd/ini_histrac.h, version 1.10 2006/02/21 08:08:30
 
     use dimens_m, only: iim, jjm, llm
     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 temps, only: annee_ref, day_ref, itau_phy
     use iniadvtrac_m, only: niadv, tnom, ttext
     use dimphy, only: klon
     use clesphys, only: ecrit_tra
     use grid_change, only: gr_phy_write_2d
     use phyetat0_m, only: rlon, rlat
-    use comvert, only: presnivs
+    use disvert_m, only: presnivs
 
     INTEGER, intent(out):: nid_tra
     real, intent(in):: pdtphys  ! pas d'integration pour la physique (s)
@@ -41,8 +45,7 @@
     zx_lat(:, :) = gr_phy_write_2d(rlat)
     CALL histbeg_totreg("histrac", rlon(2:iim+1), zx_lat(1, :), &
          1, iim, 1, jjm+1, itau_phy, zjulian, pdtphys, nhori, nid_tra)
-    CALL histvert(nid_tra, "presnivs", "Vertical levels", "mb", llm, &
-         presnivs, nvert)
+    CALL histvert(nid_tra, "presnivs", "Vertical levels", "mb", presnivs, nvert)
 
     zsto = pdtphys
     zout = pdtphys * REAL(ecrit_tra)