5 integer,
intent( in) :: ncid
6 character (len = *),
intent( in) :: name
7 integer,
intent(in) :: xtype
8 integer,
intent(out) :: varid
12 integer,
dimension(1) :: dimids
21 chunksizes, deflate_level, shuffle, fletcher32, endianness, &
22 cache_size, cache_nelems, cache_preemption)
23 integer,
intent( in) :: ncid
24 character (len = *),
intent( in) :: name
25 integer,
intent(in) :: xtype
26 integer,
intent(in) :: dimids
27 integer,
intent(out) :: varid
28 logical,
optional,
intent(in) :: contiguous
29 integer,
optional,
intent(in) :: chunksizes
30 integer,
optional,
intent(in) :: deflate_level
31 logical,
optional,
intent(in) :: shuffle, fletcher32
32 integer,
optional,
intent(in) :: endianness
33 integer,
optional,
intent(in) :: cache_size, cache_nelems, cache_preemption
36 integer,
dimension(1) :: dimidsa, chunksizes1
37 integer :: size1 = -1, nelems1 = -1, preemption1 = -1
38 integer :: contiguous1
44 if (present(contiguous))
then
45 if (contiguous .and. present(chunksizes))
then
50 if (present(contiguous))
then
51 if (.not. contiguous .and. .not. present(chunksizes))
then
63 if (present(chunksizes) .or. present(contiguous))
then
64 if (present(contiguous))
then
66 contiguous1 = nf90_contiguous
68 contiguous1 = nf90_notcontiguous
71 if (present(chunksizes))
then
73 chunksizes1(1) = chunksizes
77 if (present(contiguous))
then
86 if (present(deflate_level))
then
87 if (deflate_level .gt. 0)
then
88 if (present(shuffle))
then
100 if (present(fletcher32))
then
108 if (present(endianness))
then
114 if (present(cache_size) .or. present(cache_nelems) .or. &
115 present(cache_preemption))
then
117 if (present(cache_size)) size1 = cache_size
118 if (present(cache_nelems)) nelems1 = cache_nelems
119 if (present(cache_preemption)) preemption1 = cache_preemption
122 size1, nelems1, preemption1)
129 chunksizes, deflate_level, shuffle, fletcher32, endianness, cache_size, &
130 cache_nelems, cache_preemption)
131 integer,
intent(in) :: ncid
132 character (len = *),
intent(in) :: name
133 integer,
intent( in) :: xtype
134 integer,
dimension(:),
intent(in) :: dimids
135 integer,
intent(out) :: varid
136 logical,
optional,
intent(in) :: contiguous
137 integer,
optional,
dimension(:),
intent(in) :: chunksizes
138 integer,
optional,
intent(in) :: deflate_level
139 logical,
optional,
intent(in) :: shuffle, fletcher32
140 integer,
optional,
intent(in) :: endianness
141 integer,
optional,
intent(in) :: cache_size, cache_nelems, cache_preemption
145 integer :: contiguous1, d
146 integer :: size1 = -1, nelems1 = -1, preemption1 = -1
147 integer,
dimension(nf90_max_dims) :: chunksizes1
150 if (present(contiguous))
then
151 if (contiguous .and. present(chunksizes))
then
156 if (present(contiguous))
then
157 if (.not. contiguous .and. .not. present(chunksizes))
then
164 if (present(chunksizes))
then
165 if (
size(chunksizes) .ne.
size(dimids))
then
176 if (present(chunksizes) .or. present(contiguous))
then
177 if (present(contiguous))
then
179 contiguous1 = nf90_contiguous
181 contiguous1 = nf90_notcontiguous
184 if (present(chunksizes))
then
186 do d = 1,
size(dimids)
187 chunksizes1(d) = chunksizes(d)
192 if (present(contiguous))
then
201 if (present(deflate_level))
then
202 if (deflate_level .gt. 0)
then
203 if (present(shuffle))
then
217 if (present(fletcher32))
then
225 if (present(endianness))
then
230 if (present(cache_size) .or. present(cache_nelems) .or. &
231 present(cache_preemption))
then
233 if (present(cache_size)) size1 = cache_size
234 if (present(cache_nelems)) nelems1 = cache_nelems
235 if (present(cache_preemption)) preemption1 = cache_preemption
238 size1, nelems1, preemption1)
245 integer,
intent(in) :: ncid
246 character (len = *),
intent( in) :: name
247 integer,
intent(out) :: varid
256 integer,
intent(in) :: ncid, varid, size, nelems, preemption
260 size, nelems, preemption)
266 contiguous, chunksizes, deflate_level, shuffle, fletcher32, endianness, &
267 cache_size, cache_nelems, cache_preemption)
268 integer,
intent(in) :: ncid, varid
269 character (len = *),
optional,
intent(out) :: name
270 integer,
optional,
intent(out) :: xtype, ndims
271 integer,
dimension(:),
optional,
intent(out) :: dimids
272 integer,
optional,
intent(out) :: natts
273 logical,
optional,
intent(out) :: contiguous
274 integer,
optional,
dimension(:),
intent(out) :: chunksizes
275 integer,
optional,
intent(out) :: deflate_level
276 logical,
optional,
intent(out) :: shuffle, fletcher32
277 integer,
optional,
intent(out) :: endianness
278 integer,
optional,
intent(out) :: cache_size, cache_nelems, cache_preemption
282 character (len = nf90_max_name) :: varname =
''
283 integer :: externaltype, numdimensions
284 integer,
dimension(nf90_max_var_dims) :: dimensionids
285 integer :: numattributes
286 integer :: deflate1, deflate_level1, contiguous1, shuffle1, fletcher321
287 integer,
dimension(nf90_max_dims) :: chunksizes1
288 integer :: size1, nelems1, preemption1
293 numdimensions, dimensionids, numattributes)
297 if (present(name)) name = trim(varname)
298 if (present(xtype)) xtype = externaltype
299 if (present(ndims)) ndims = numdimensions
300 if (present(dimids))
then
301 if (
size(dimids) .ge. numdimensions)
then
302 dimids(:numdimensions) = dimensionids(:numdimensions)
307 if (present(natts)) natts = numattributes
310 if (present(chunksizes) .or. present(contiguous))
then
313 if (present(contiguous)) contiguous = contiguous1 .ne. nf90_notcontiguous
314 if (present(chunksizes))
then
315 do d = 1, numdimensions
316 chunksizes(d) = chunksizes1(d)
322 if (present(fletcher32))
then
325 fletcher32 = fletcher321 .gt. 0
329 if (present(deflate_level) .or. present(shuffle))
then
332 if (present(deflate_level)) deflate_level = deflate_level1
333 if (present(shuffle)) shuffle = shuffle1 .ne. 0
337 if (present(endianness))
then
343 if (present(cache_size) .or. present(cache_nelems) .or. present(cache_preemption))
then
345 size1, nelems1, preemption1)
347 if (present(cache_size)) cache_size = size1
348 if (present(cache_nelems)) cache_nelems = nelems1
349 if (present(cache_preemption)) cache_preemption = preemption1
354 integer,
intent( in) :: ncid, varid
355 character (len = *),
intent( in) :: newname
integer function nf_inq_var(ncid, varid, name, xtype, ndims, dimids, natts)
integer function nf_def_var_deflate(ncid, varid, shuffle, deflate, deflate_level)
integer function nf90_def_var_manydims(ncid, name, xtype, dimids, varid, contiguous, chunksizes, deflate_level, shuffle, fletcher32, endianness, cache_size, cache_nelems, cache_preemption)
integer function nf_inq_var_chunking(ncid, varid, contiguous, chunksizes)
integer function nf_inq_var_fletcher32(ncid, varid, fletcher32)
integer function nf90_rename_var(ncid, varid, newname)
integer function nf_rename_var(ncid, varid, name)
integer function nf_def_var_chunking(ncid, varid, contiguous, chunksizes)
integer function nf_inq_var_deflate(ncid, varid, shuffle, deflate, deflate_level)
integer function nf_def_var_fletcher32(ncid, varid, fletcher32)
integer function nf90_inq_varid(ncid, name, varid)
integer function nf90_inquire_variable(ncid, varid, name, xtype, ndims, dimids, nAtts, contiguous, chunksizes, deflate_level, shuffle, fletcher32, endianness, cache_size, cache_nelems, cache_preemption)
integer function nf_def_var_endian(ncid, varid, endiann)
integer function nf_def_var(ncid, name, xtype, nvdims, vdims, varid)
integer function nf90_def_var_scalar(ncid, name, xtype, varid)
integer function nf_set_var_chunk_cache(ncid, varid, chunk_size, nelems, preemption)
integer function nf_inq_varid(ncid, name, varid)
integer function nf90_set_var_chunk_cache(ncid, varid, size, nelems, preemption)
integer function nf_get_var_chunk_cache(ncid, varid, chunk_size, nelems, preemption)
integer function nf_inq_var_endian(ncid, varid, endiann)
integer function nf90_def_var_onedim(ncid, name, xtype, dimids, varid, contiguous, chunksizes, deflate_level, shuffle, fletcher32, endianness, cache_size, cache_nelems, cache_preemption)