--- trunk/libf/phylmd/clmain.f90	2008/08/05 13:31:32	17
+++ trunk/libf/phylmd/clmain.f90	2010/04/01 09:07:28	30
@@ -85,13 +85,15 @@
 
   !$$$ PB ajout pour soil
 
-  USE ioipsl, ONLY : histbeg_totreg, histdef, histend, histsync, &
-       histwrite, ymds2ju
+  USE histcom, ONLY : histbeg_totreg, histdef, histend, histsync
+  use histwrite_m, only: histwrite
+  use calendar, ONLY : ymds2ju
   USE dimens_m, ONLY : iim, jjm
   USE indicesol, ONLY : epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf
   USE dimphy, ONLY : klev, klon, zmasq
   USE dimsoil, ONLY : nsoilmx
-  USE temps, ONLY : annee_ref, day_ini, itau_phy
+  USE temps, ONLY : annee_ref, itau_phy
+  USE dynetat0_m, ONLY : day_ini
   USE iniprint, ONLY : prt_level
   USE yomcst, ONLY : rd, rg, rkappa
   USE conf_phys_m, ONLY : iflag_pbl