--- trunk/Sources/IOIPSL/Histcom/histbeg_totreg.f	2015/05/22 23:13:19	138
+++ trunk/IOIPSL/Histcom/histbeg_totreg.f90	2019/09/12 21:22:46	335
@@ -14,9 +14,16 @@
   ! constant are equal. In other words we do not need the full 2D
   ! matrix to describe the grid, just two vectors.
 
+  USE histcom_var, only: nb_files_max
+
   IMPLICIT NONE
 
   INTEGER:: nb_files = 0
+  double precision, SAVE:: date0(nb_files_max)
+  REAL, SAVE:: deltat(nb_files_max)
+  LOGICAL:: regular(nb_files_max) = .TRUE.
+
+  private nb_files_max
 
 CONTAINS
 
@@ -30,11 +37,10 @@
     ! setting a zoom. It also gets the global parameters into the
     ! input-output subsystem.
 
-    USE ioipslmpp, ONLY: ioipslmpp_file
     USE errioipsl, ONLY: histerr
-    USE histcom_var, ONLY: assc_file, date0, deltat, full_size, itau0, &
-         lock_modname, model_name, nb_files_max, nb_hax, nb_tax, nb_var, &
-         nb_zax, ncdf_ids, regular, slab_ori, slab_sz, xid, yid, zoom
+    USE histcom_var, ONLY: assc_file, full_size, itau0, lock_modname, &
+         model_name, nb_hax, nb_tax, nb_var, nb_zax, ncdf_ids, slab_ori, &
+         slab_sz, xid, yid, zoom
     use histhori_regular_m, only: histhori_regular
     USE netcdf, ONLY: nf90_clobber, nf90_global
     use netcdf95, only: nf95_create, nf95_def_dim, nf95_put_att
@@ -55,11 +61,11 @@
     INTEGER, INTENT(IN):: szy ! size of the slab of data in Y
 
     INTEGER, INTENT(IN):: pitau0 ! time step at which the history tape starts
-    REAL, INTENT(IN):: pdate0 ! the Julian date at which the itau was equal to 0
+    double precision, INTENT(IN):: pdate0 ! the Julian date at which the itau was equal to 0
     REAL, INTENT(IN):: pdeltat ! time step of the counter itau, in seconds
 
-    INTEGER, INTENT(OUT):: fileid ! ID of the netcdf file
     INTEGER, INTENT(OUT):: horiid ! ID of the horizontal grid
+    INTEGER, INTENT(OUT):: fileid ! ID of the netcdf file
 
     ! Variables local to the procedure:
     REAL, DIMENSION(size(lon_1d), size(lat_1d)):: lon, lat
@@ -109,10 +115,6 @@
        file = filename(:lengf)
     END IF
 
-    ! Add PE number in file name on MPP
-
-    CALL ioipslmpp_file(file)
-
     ! Keep track of the name of the files opened
 
     lengf = len_trim(file)