--- trunk/libf/bibio/writehist.f90	2013/02/18 16:33:12	69
+++ trunk/bibio/writehist.f	2014/09/19 17:36:20	115
@@ -34,14 +34,13 @@
 
     REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) 
     REAL teta(ip1jmp1, llm), phi(ip1jmp1, llm) 
-    REAL ps(ip1jmp1), masse(ip1jmp1, llm) 
+    REAL, intent(in):: ps(ip1jmp1), masse(ip1jmp1, llm) 
     REAL q(ip1jmp1, llm, nqmx)
     integer time
 
     ! 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