--- trunk/IOIPSL/histwrite.f90	2013/11/15 18:45:49	76
+++ trunk/Sources/IOIPSL/histwrite.f	2015/05/22 23:13:19	138
@@ -2,6 +2,16 @@
 
   ! From histcom.f90, version 2.1 2004/04/21 09:27:10
 
+  USE errioipsl, ONLY: histerr
+  use histbeg_totreg_m, ONLY: nb_files
+  USE histcom_var, ONLY: datasz_in, datasz_max, date0, deltat, &
+       freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, &
+       last_wrt_chk, missing_val, nbopp, scal, scsize, sopps, topp
+  use histvar_seq_m, only: histvar_seq
+  use histwrite_real_m, only: histwrite_real
+  use isittime_m, only: isittime
+  USE mathop_m, ONLY: mathop
+
   implicit none
 
   INTERFACE histwrite
@@ -31,22 +41,13 @@
      MODULE PROCEDURE histwrite_r1d, histwrite_r2d, histwrite_r3d
   END INTERFACE histwrite
 
-  PRIVATE histwrite_r1d, histwrite_r2d, histwrite_r3d
+  PRIVATE
+  public histwrite
 
 CONTAINS
 
   SUBROUTINE histwrite_r1d(fileid, varname, itau, pdata)
 
-    USE errioipsl, ONLY: histerr
-    use calendar, only: isittime
-    USE mathop_m, ONLY: mathop
-    USE histcom_var, ONLY: datasz_in, datasz_max, date0, deltat, &
-         freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, &
-         last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, &
-         topp
-    use histvar_seq_m, only: histvar_seq
-    use histwrite_real_m, only: histwrite_real
-
     INTEGER, INTENT(IN):: fileid, itau
     CHARACTER(LEN=*), INTENT(IN):: varname
     REAL, INTENT(IN):: pdata(:)
@@ -177,16 +178,6 @@
 
   SUBROUTINE histwrite_r2d (fileid, varname, itau, pdata)
 
-    use calendar, only: isittime
-    USE errioipsl, ONLY: histerr
-    USE mathop_m, ONLY: mathop
-    USE histcom_var, ONLY: datasz_in, datasz_max, date0, deltat, &
-         freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, &
-         last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, &
-         topp
-    use histvar_seq_m, only: histvar_seq
-    use histwrite_real_m, only: histwrite_real
-
     INTEGER, INTENT(IN):: fileid, itau
     REAL, INTENT(IN):: pdata(:, :)
     CHARACTER(LEN=*), INTENT(IN):: varname
@@ -320,16 +311,6 @@
 
   SUBROUTINE histwrite_r3d (fileid, varname, itau, pdata)
 
-    use calendar, only: isittime
-    USE errioipsl, ONLY: histerr
-    USE mathop_m, ONLY: mathop
-    USE histcom_var, ONLY: datasz_in, datasz_max, date0, deltat, &
-         freq_opp, freq_wrt, fuchnbout, last_opp, last_opp_chk, last_wrt, &
-         last_wrt_chk, missing_val, nbopp, nb_files, scal, scsize, sopps, &
-         topp
-    use histvar_seq_m, only: histvar_seq
-    use histwrite_real_m, only: histwrite_real
-
     INTEGER, INTENT(IN):: fileid, itau
     REAL, DIMENSION(:, :, :), INTENT(IN):: pdata
     CHARACTER(LEN=*), INTENT(IN):: varname