/[lmdze]/trunk/Sources/IOIPSL/Histcom/histbeg_totreg.f
ViewVC logotype

Diff of /trunk/Sources/IOIPSL/Histcom/histbeg_totreg.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 177 by guez, Fri May 22 23:13:19 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 14  MODULE histbeg_totreg_m Line 14  MODULE histbeg_totreg_m
14    ! constant are equal. In other words we do not need the full 2D    ! constant are equal. In other words we do not need the full 2D
15    ! matrix to describe the grid, just two vectors.    ! matrix to describe the grid, just two vectors.
16    
17      USE histcom_var, only: nb_files_max
18    
19    IMPLICIT NONE    IMPLICIT NONE
20    
21    INTEGER:: nb_files = 0    INTEGER:: nb_files = 0
22      REAL, DIMENSION(nb_files_max), SAVE:: date0, deltat
23      LOGICAL:: regular(nb_files_max) = .TRUE.
24    
25      private nb_files_max
26    
27  CONTAINS  CONTAINS
28    
# Line 30  CONTAINS Line 36  CONTAINS
36      ! setting a zoom. It also gets the global parameters into the      ! setting a zoom. It also gets the global parameters into the
37      ! input-output subsystem.      ! input-output subsystem.
38    
     USE ioipslmpp, ONLY: ioipslmpp_file  
39      USE errioipsl, ONLY: histerr      USE errioipsl, ONLY: histerr
40      USE histcom_var, ONLY: assc_file, date0, deltat, full_size, itau0, &      USE histcom_var, ONLY: assc_file, full_size, itau0, lock_modname, &
41           lock_modname, model_name, nb_files_max, nb_hax, nb_tax, nb_var, &           model_name, nb_hax, nb_tax, nb_var, nb_zax, ncdf_ids, slab_ori, &
42           nb_zax, ncdf_ids, regular, slab_ori, slab_sz, xid, yid, zoom           slab_sz, xid, yid, zoom
43      use histhori_regular_m, only: histhori_regular      use histhori_regular_m, only: histhori_regular
44      USE netcdf, ONLY: nf90_clobber, nf90_global      USE netcdf, ONLY: nf90_clobber, nf90_global
45      use netcdf95, only: nf95_create, nf95_def_dim, nf95_put_att      use netcdf95, only: nf95_create, nf95_def_dim, nf95_put_att
# Line 109  CONTAINS Line 114  CONTAINS
114         file = filename(:lengf)         file = filename(:lengf)
115      END IF      END IF
116    
     ! Add PE number in file name on MPP  
   
     CALL ioipslmpp_file(file)  
   
117      ! Keep track of the name of the files opened      ! Keep track of the name of the files opened
118    
119      lengf = len_trim(file)      lengf = len_trim(file)
Legend:
Removed from v.177  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21