--- trunk/Sources/IOIPSL/Histcom/histclo.f	2015/05/06 15:51:03	137
+++ trunk/Sources/IOIPSL/Histcom/histclo.f	2015/05/22 23:13:19	138
@@ -11,7 +11,8 @@
     ! all opened files.
 
     USE errioipsl, ONLY: histerr
-    USE histcom_var, ONLY: nb_files, ncdf_ids
+    use histbeg_totreg_m, ONLY: nb_files
+    USE histcom_var, ONLY: ncdf_ids
     USE netcdf, ONLY: nf90_close, nf90_noerr
 
     INTEGER, INTENT (IN), OPTIONAL:: fid ! file id