/[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 137 by guez, Wed Apr 29 15:47:56 2015 UTC revision 138 by guez, Fri May 22 23:13:19 2015 UTC
# Line 16  MODULE histbeg_totreg_m Line 16  MODULE histbeg_totreg_m
16    
17    IMPLICIT NONE    IMPLICIT NONE
18    
19      INTEGER:: nb_files = 0
20    
21  CONTAINS  CONTAINS
22    
23    SUBROUTINE histbeg_totreg(filename, lon_1d, lat_1d, orix, szx, oriy, szy, &    SUBROUTINE histbeg_totreg(filename, lon_1d, lat_1d, orix, szx, oriy, szy, &
# Line 31  CONTAINS Line 33  CONTAINS
33      USE ioipslmpp, ONLY: ioipslmpp_file      USE ioipslmpp, ONLY: ioipslmpp_file
34      USE errioipsl, ONLY: histerr      USE errioipsl, ONLY: histerr
35      USE histcom_var, ONLY: assc_file, date0, deltat, full_size, itau0, &      USE histcom_var, ONLY: assc_file, date0, deltat, full_size, itau0, &
36           lock_modname, model_name, nb_files, nb_files_max, nb_hax, nb_tax, &           lock_modname, model_name, nb_files_max, nb_hax, nb_tax, nb_var, &
37           nb_var, nb_zax, ncdf_ids, regular, slab_ori, slab_sz, xid, yid, zoom           nb_zax, ncdf_ids, regular, slab_ori, slab_sz, xid, yid, zoom
38      use histhori_regular_m, only: histhori_regular      use histhori_regular_m, only: histhori_regular
39      USE netcdf, ONLY: nf90_clobber, nf90_global      USE netcdf, ONLY: nf90_clobber, nf90_global
40      use netcdf95, only: nf95_create, nf95_def_dim, nf95_put_att      use netcdf95, only: nf95_create, nf95_def_dim, nf95_put_att
Legend:
Removed from v.137  
changed lines
  Added in v.138
  ViewVC Help
Powered by ViewVC 1.1.21