--- trunk/phylmd/initphysto.f	2014/03/05 14:57:53	82
+++ trunk/phylmd/initphysto.f	2014/09/04 10:05:52	104
@@ -25,7 +25,6 @@
 
   !   L. Fairhead, 03/99
 
-  USE calendar
   USE histbeg_totreg_m, ONLY : histbeg_totreg
   USE histdef_m, ONLY : histdef
   USE histend_m, ONLY : histend
@@ -40,8 +39,8 @@
   USE comgeom
   USE serre
   USE temps
-  USE ener
   USE nr_util, ONLY : pi
+  USE ymds2ju_m
 
   IMPLICIT NONE