1 |
module histend_m |
module histend_m |
2 |
|
|
3 |
|
use histcom_var, only: nb_files_max, nb_var_max |
4 |
|
|
5 |
implicit none |
implicit none |
6 |
|
|
7 |
|
INTEGER, SAVE:: ncvar_ids(nb_files_max, nb_var_max) |
8 |
|
private nb_files_max, nb_var_max |
9 |
|
|
10 |
contains |
contains |
11 |
|
|
12 |
SUBROUTINE histend(fileid) |
SUBROUTINE histend(fileid) |
15 |
! axes in the NetCDF file and puts it into write mode. |
! axes in the NetCDF file and puts it into write mode. |
16 |
|
|
17 |
USE errioipsl, ONLY: histerr |
USE errioipsl, ONLY: histerr |
18 |
USE histcom_var, ONLY: date0, freq_opp, freq_wrt, fullop, & |
use histbeg_totreg_m, ONLY: date0, regular |
19 |
missing_val, name, nb_tax, nb_var, ncdf_ids, ncvar_ids, regular, & |
USE histcom_var, ONLY: freq_opp, freq_wrt, fullop, missing_val, name, & |
20 |
tax_name, tdimid, tid, title, topp, unit_name, var_axid, var_zaxid, & |
nb_tax, nb_var, ncdf_ids, tax_name, tdimid, tid, title, topp, & |
21 |
xid, yid, zax_ids, zax_name |
unit_name, var_axid, var_zaxid, xid, yid, zax_ids, zax_name |
22 |
USE ioget_calendar_m, ONLY: ioget_calendar_str |
USE ioget_calendar_m, ONLY: ioget_calendar_str |
|
USE ioipslmpp, ONLY: ioipslmpp_addatt |
|
23 |
USE ju2ymds_m, ONLY: ju2ymds |
USE ju2ymds_m, ONLY: ju2ymds |
24 |
USE netcdf, ONLY: nf90_float, nf90_unlimited |
USE netcdf, ONLY: nf90_float, nf90_unlimited |
25 |
use netcdf95, only: nf95_def_dim, nf95_def_var, nf95_put_att, nf95_enddef |
use netcdf95, only: nf95_def_dim, nf95_def_var, nf95_put_att, nf95_enddef |
188 |
END IF |
END IF |
189 |
END DO |
END DO |
190 |
|
|
|
! Add MPP attributes |
|
|
CALL ioipslmpp_addatt(ncid) |
|
|
|
|
191 |
! 3.0 Put the netcdf file into write mode |
! 3.0 Put the netcdf file into write mode |
192 |
call nf95_enddef(ncid) |
call nf95_enddef(ncid) |
193 |
|
|