--- trunk/libf/IOIPSL/histcom.f90	2010/04/01 09:07:28	30
+++ trunk/libf/IOIPSL/histcom.f90	2010/04/01 14:59:19	31
@@ -18,10 +18,6 @@
 
   IMPLICIT NONE
 
-  PRIVATE
-  PUBLIC:: histbeg_totreg, histdef, histhori_regular, histvert, histend, &
-       histclo, histsync
-
 CONTAINS
 
   SUBROUTINE histbeg_totreg(pfilename, plon_1d, plat_1d, par_orix, par_szx, &
@@ -1045,12 +1041,6 @@
 
     iret = nf90_enddef(ncid)
 
-    ! 4.0 Give some informations to the user
-
-    WRITE (str70, '("All variables have been initialized on file:", I3)') &
-         pfileid
-    CALL histerr(1, 'histend', str70, '', ' ')
-
   END SUBROUTINE histend
 
   !**********************************