--- trunk/libf/bibio/initfluxsto.f	2010/03/30 10:44:42	29
+++ trunk/libf/bibio/initfluxsto.f	2010/04/01 09:07:28	30
@@ -5,8 +5,6 @@
      .  (tstep,t_ops,t_wrt,nq,
      .                    fileid,filevid,filedid)
 
-       USE IOIPSL
-
 C
 C   Routine d'initialisation des ecritures des fichiers histoires LMDZ
 C   au format IOIPSL
@@ -34,6 +32,8 @@
 C =====================================================================
 C
 C   Declarations
+       USE calendar
+       use histcom
        use dimens_m
       use paramet_m
       use comconst