9 |
! This subroutine ends the declaration of variables, sets the time |
! This subroutine ends the declaration of variables, sets the time |
10 |
! axes in the NetCDF file and puts it into write mode. |
! axes in the NetCDF file and puts it into write mode. |
11 |
|
|
|
USE ioipslmpp, ONLY: ioipslmpp_addatt |
|
12 |
USE errioipsl, ONLY: histerr |
USE errioipsl, ONLY: histerr |
13 |
USE histcom_var, ONLY: date0, freq_opp, freq_wrt, fullop, & |
USE histcom_var, ONLY: date0, freq_opp, freq_wrt, fullop, & |
14 |
missing_val, name, nb_tax, nb_var, ncdf_ids, ncvar_ids, regular, & |
missing_val, name, nb_tax, nb_var, ncdf_ids, ncvar_ids, regular, & |
15 |
tax_name, tdimid, tid, title, topp, unit_name, var_axid, var_zaxid, & |
tax_name, tdimid, tid, title, topp, unit_name, var_axid, var_zaxid, & |
16 |
xid, yid, zax_ids, zax_name |
xid, yid, zax_ids, zax_name |
17 |
USE ioget_calendar_m, ONLY: ioget_calendar |
USE ioget_calendar_m, ONLY: ioget_calendar |
18 |
USE calendar, ONLY: ju2ymds |
USE ioipslmpp, ONLY: ioipslmpp_addatt |
19 |
|
USE ju2ymds_m, ONLY: ju2ymds |
20 |
USE netcdf, ONLY: nf90_float, nf90_unlimited |
USE netcdf, ONLY: nf90_float, nf90_unlimited |
21 |
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 |
22 |
|
|