--- trunk/bibio/writehist.f	2014/03/06 15:12:00	83
+++ trunk/bibio/writehist.f	2014/09/19 17:36:20	115
@@ -41,7 +41,6 @@
     ! This routine needs IOIPSL to work
     ! Variables locales
 
-    integer iq, ii, ll
     integer ndexu(ip1jmp1*llm), ndexv(ip1jm*llm), ndex2d(ip1jmp1)
     logical ok_sync
     integer itau_w