--- trunk/libf/IOIPSL/histcom.f90	2010/04/01 09:07:28	30
+++ trunk/libf/IOIPSL/histcom.f90	2011/02/22 13:49:36	40
@@ -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, &
@@ -333,8 +329,8 @@
     ! pzaxid: Returns the ID of the axis.
     !            Note that this is not the netCDF ID !
 
-    USE stringop, ONLY: find_str, strlowercase
-    USE stringop, ONLY: find_str, strlowercase
+    USE find_str_m, ONLY: find_str
+    USE strlowercase_m, ONLY: strlowercase
     USE errioipsl, ONLY: histerr
     USE histcom_var, ONLY: nb_zax, nb_zax_max, ncdf_ids, zax_ids, &
          zax_name, zax_name_length, zax_size
@@ -451,8 +447,8 @@
 
   !**********************************
 
-  SUBROUTINE histdef(pfileid, pvarname, ptitle, punit, pxsize, pysize, phoriid, &
-       pzsize, par_oriz, par_szz, pzid, popp, pfreq_opp, pfreq_wrt)
+  SUBROUTINE histdef(pfileid, pvarname, ptitle, punit, pxsize, pysize, &
+       phoriid, pzsize, par_oriz, par_szz, pzid, popp, pfreq_opp, pfreq_wrt)
 
     ! With this subroutine each variable to be archived on the history
     ! tape should be declared.
@@ -461,7 +457,7 @@
     ! to be performed on the variables, the frequency of this operation
     ! and finaly the frequency of the archiving.
 
-    USE stringop, ONLY: find_str
+    USE find_str_m, ONLY: find_str
     USE mathelp, ONLY: buildop
     USE errioipsl, ONLY: histerr
     USE histcom_var, ONLY: buff_pos, deltat, freq_opp, freq_wrt, fullop, &
@@ -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
 
   !**********************************