--- trunk/IOIPSL/Histcom/histclo.f90	2014/02/05 17:51:07	78
+++ trunk/IOIPSL/Histcom/histclo.f90	2014/02/28 17:52:47	79
@@ -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