--- trunk/IOIPSL/Histcom/histclo.f90	2013/11/15 18:45:49	76
+++ trunk/IOIPSL/Histcom/histclo.f	2014/03/05 14:57:53	82
@@ -17,7 +17,7 @@
     INTEGER, INTENT (IN), OPTIONAL:: fid ! file id
 
     ! Variables local to the procedure:
-    INTEGER ifile, ncid, iret, iv, ncvarid
+    INTEGER ifile, ncid, iret
     INTEGER start_loop, end_loop
     CHARACTER(len=70) str70