16 |
USE find_str_m, ONLY: find_str |
USE find_str_m, ONLY: find_str |
17 |
USE histcom_var, ONLY: nb_zax, nb_zax_max, ncdf_ids, zax_ids, & |
USE histcom_var, ONLY: nb_zax, nb_zax_max, ncdf_ids, zax_ids, & |
18 |
zax_name, zax_name_length, zax_size |
zax_name, zax_name_length, zax_size |
19 |
USE netcdf, ONLY: nf90_def_dim, nf90_def_var, nf90_enddef, & |
USE netcdf95, ONLY: nf95_def_dim, nf95_def_var, nf95_enddef, & |
20 |
nf90_float, nf90_put_att, nf90_put_var, nf90_redef |
nf95_put_att, nf95_put_var, nf95_redef |
21 |
|
use netcdf, only: nf90_float |
22 |
USE strlowercase_m, ONLY: strlowercase |
USE strlowercase_m, ONLY: strlowercase |
23 |
|
|
24 |
INTEGER, INTENT(IN):: pfileid |
INTEGER, INTENT(IN):: pfileid |
44 |
CHARACTER(len=70):: str70, str71, str72 |
CHARACTER(len=70):: str70, str71, str72 |
45 |
CHARACTER(len=80):: str80 |
CHARACTER(len=80):: str80 |
46 |
CHARACTER(len=20):: direction |
CHARACTER(len=20):: direction |
47 |
INTEGER:: iret, leng, ncid |
INTEGER:: leng, ncid |
48 |
|
|
49 |
!--------------------------------------------------------------------- |
!--------------------------------------------------------------------- |
50 |
|
|
108 |
ncid = ncdf_ids(pfileid) |
ncid = ncdf_ids(pfileid) |
109 |
|
|
110 |
leng = min(len_trim(pzaxname), 20) |
leng = min(len_trim(pzaxname), 20) |
111 |
iret = nf90_def_dim(ncid, pzaxname(1:leng), pzsize, zaxid_tmp) |
call nf95_def_dim(ncid, pzaxname(1:leng), pzsize, zaxid_tmp) |
112 |
iret = nf90_def_var(ncid, pzaxname(1:leng), nf90_float, zaxid_tmp, zdimid) |
call nf95_def_var(ncid, pzaxname(1:leng), nf90_float, zaxid_tmp, zdimid) |
113 |
|
|
114 |
leng = min(len_trim(pzaxunit), 20) |
leng = min(len_trim(pzaxunit), 20) |
115 |
iret = nf90_put_att(ncid, zdimid, 'units', pzaxunit(1:leng)) |
call NF95_PUT_ATT(ncid, zdimid, 'units', pzaxunit(1:leng)) |
116 |
iret = nf90_put_att(ncid, zdimid, 'positive', trim(direction)) |
call NF95_PUT_ATT(ncid, zdimid, 'positive', trim(direction)) |
117 |
|
|
118 |
iret = nf90_put_att(ncid, zdimid, 'valid_min', real(minval( & |
call NF95_PUT_ATT(ncid, zdimid, 'valid_min', real(minval( & |
119 |
pzvalues(1:pzsize)))) |
pzvalues(1:pzsize)))) |
120 |
iret = nf90_put_att(ncid, zdimid, 'valid_max', real(maxval( & |
call NF95_PUT_ATT(ncid, zdimid, 'valid_max', real(maxval( & |
121 |
pzvalues(1:pzsize)))) |
pzvalues(1:pzsize)))) |
122 |
|
|
123 |
leng = min(len_trim(pzaxname), 20) |
leng = min(len_trim(pzaxname), 20) |
124 |
iret = nf90_put_att(ncid, zdimid, 'title', pzaxname(1:leng)) |
call NF95_PUT_ATT(ncid, zdimid, 'title', pzaxname(1:leng)) |
125 |
leng = min(len_trim(pzaxtitle), 80) |
leng = min(len_trim(pzaxtitle), 80) |
126 |
iret = nf90_put_att(ncid, zdimid, 'long_name', pzaxtitle(1:leng)) |
call NF95_PUT_ATT(ncid, zdimid, 'long_name', pzaxtitle(1:leng)) |
127 |
|
|
128 |
iret = nf90_enddef(ncid) |
call nf95_enddef(ncid) |
129 |
|
|
130 |
iret = nf90_put_var(ncid, zdimid, pzvalues(1:pzsize)) |
call nf95_put_var(ncid, zdimid, pzvalues(1:pzsize)) |
131 |
|
|
132 |
iret = nf90_redef(ncid) |
call nf95_redef(ncid) |
133 |
|
|
134 |
! 3.0 add the information to the common |
! 3.0 add the information to the common |
135 |
|
|