5 integer,
intent( in) :: ncid
6 character (len = *),
intent( in) :: name
7 integer,
intent(in) :: xtype
8 integer,
intent(out) :: varid
9 integer :: nf90_def_var_Scalar
12 integer,
dimension(1) :: dimids
17 nf90_def_var_scalar =
nf_def_var(ncid, name, xtype, 0, dimids, varid)
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
34 integer :: nf90_def_var_oneDim
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 46 nf90_def_var_onedim = nf90_einval
50 if (
present(
contiguous))
then 51 if (.not.
contiguous .and. .not.
present(chunksizes))
then 52 nf90_def_var_onedim = nf90_einval
59 nf90_def_var_onedim =
nf_def_var(ncid, name, xtype, 1, dimidsa, varid)
60 if (nf90_def_var_onedim .ne. nf90_noerr)
return 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 83 if (nf90_def_var_onedim .ne. nf90_noerr)
return 86 if (
present(deflate_level))
then 87 if (deflate_level .gt. 0)
then 88 if (
present(shuffle))
then 94 if (nf90_def_var_onedim .ne. nf90_noerr)
return 100 if (
present(fletcher32))
then 103 if (nf90_def_var_onedim .ne. nf90_noerr)
return 108 if (
present(endianness))
then 110 if (nf90_def_var_onedim .ne. nf90_noerr)
return 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)
123 if (nf90_def_var_onedim .ne. nf90_noerr)
return 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
142 integer :: nf90_def_var_ManyDims
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 152 nf90_def_var_manydims = nf90_einval
156 if (
present(
contiguous))
then 157 if (.not.
contiguous .and. .not.
present(chunksizes))
then 158 nf90_def_var_manydims = nf90_einval
164 if (
present(chunksizes))
then 165 if (
size(chunksizes) .ne.
size(dimids))
then 166 nf90_def_var_manydims = nf90_einval
172 nf90_def_var_manydims =
nf_def_var(ncid, name, xtype,
size(dimids), dimids, varid)
173 if (nf90_def_var_manydims .ne. nf90_noerr)
return 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 198 if (nf90_def_var_manydims .ne. nf90_noerr)
return 201 if (
present(deflate_level))
then 202 if (deflate_level .gt. 0)
then 203 if (
present(shuffle))
then 214 if (nf90_def_var_manydims .ne. nf90_noerr)
return 217 if (
present(fletcher32))
then 222 if (nf90_def_var_manydims .ne. nf90_noerr)
return 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)
239 if (nf90_def_var_manydims .ne. nf90_noerr)
return 245 integer,
intent(in) :: ncid
246 character (len = *),
intent( in) :: name
247 integer,
intent(out) :: varid
248 integer :: nf90_inq_varid
251 if (nf90_inq_varid .ne. nf90_noerr)
return 256 integer,
intent(in) :: ncid, varid, size, nelems, preemption
257 integer :: nf90_set_var_chunk_cache
260 size, nelems, preemption)
261 if (nf90_set_var_chunk_cache .ne. nf90_noerr)
return 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
279 integer :: nf90_inquire_variable
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
292 nf90_inquire_variable =
nf_inq_var(ncid, varid, varname, externaltype, &
293 numdimensions, dimensionids, numattributes)
294 if (nf90_inquire_variable .ne. nf90_noerr)
return 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)
304 nf90_inquire_variable = nf90_einval
307 if (
present(natts)) natts = numattributes
310 if (
present(chunksizes) .or.
present(
contiguous))
then 312 if (nf90_inquire_variable .ne. nf90_noerr)
return 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 324 if (nf90_inquire_variable .ne. nf90_noerr)
return 325 fletcher32 = fletcher321 .gt. 0
329 if (
present(deflate_level) .or.
present(shuffle))
then 330 nf90_inquire_variable =
nf_inq_var_deflate(ncid, varid, shuffle1, deflate1, deflate_level1)
331 if (nf90_inquire_variable .ne. nf90_noerr)
return 332 if (
present(deflate_level)) deflate_level = deflate_level1
333 if (
present(shuffle)) shuffle = shuffle1 .ne. 0
337 if (
present(endianness))
then 339 if (nf90_inquire_variable .ne. nf90_noerr)
return 343 if (
present(cache_size) .or.
present(cache_nelems) .or.
present(cache_preemption))
then 345 size1, nelems1, preemption1)
346 if (nf90_inquire_variable .ne. nf90_noerr)
return 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
356 integer :: nf90_rename_var
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)