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, & |
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 |