--- trunk/libf/phylmd/initphysto.f90	2012/10/02 15:50:56	67
+++ trunk/phylmd/initphysto.f	2014/03/26 18:16:05	92
@@ -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
@@ -42,6 +41,7 @@
   USE temps
   USE ener
   USE nr_util, ONLY : pi
+  USE ymds2ju_m
 
   IMPLICIT NONE