--- trunk/libf/bibio/initfluxsto.f	2010/03/25 14:29:07	27
+++ 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
@@ -48,7 +48,8 @@
 C   Arguments
 C
       integer*4 itau
-      real tstep, t_ops, t_wrt
+      real, intent(in):: tstep
+      real t_ops, t_wrt
       integer fileid, filevid,filedid
       integer nq,ndex(1)
       real nivd(1)