--- trunk/libf/phylmd/initphysto.f	2008/08/01 15:24:12	15
+++ trunk/libf/phylmd/initphysto.f	2010/04/01 09:07:28	30
@@ -7,8 +7,8 @@
      .  (infile,
      .  rlon, rlat, tstep,t_ops,t_wrt,nq,fileid)
 
-       USE IOIPSL
-
+      USE calendar
+      use histcom
       use dimens_m
       use paramet_m
       use comconst