2 integer,
intent( in) :: ncid, varid
3 integer (kind = EightByteInt),
dimension(:),
intent( in) :: values
4 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
5 integer :: nf90_put_var_1D_EightByteInt
7 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
8 integer :: numDims, counter, format_num
11 numdims =
size(shape(values))
13 localcount(:numdims ) = shape(values)
14 localcount(numdims+1:) = 1
16 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
18 if(
present(start)) localstart(:
size(start) ) = start(:)
19 if(
present(count)) localcount(:
size(count) ) = count(:)
20 if(
present(stride)) localstride(:
size(stride)) = stride(:)
21 nf90_put_var_1d_eightbyteint =
nf_inq_format(ncid, format_num)
22 if (nf90_put_var_1d_eightbyteint .eq. nf90_noerr)
then 23 if (format_num .eq. nf90_format_netcdf4)
then 25 localmap(:
size(map)) = map(:)
26 nf90_put_var_1d_eightbyteint = &
27 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
28 else if(
present(stride))
then 29 nf90_put_var_1d_eightbyteint = &
32 nf90_put_var_1d_eightbyteint = &
37 localmap(:
size(map)) = map(:)
38 nf90_put_var_1d_eightbyteint = &
39 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
40 else if(
present(stride))
then 41 nf90_put_var_1d_eightbyteint = &
42 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
44 nf90_put_var_1d_eightbyteint = &
52 integer,
intent( in) :: ncid, varid
53 integer (kind = EightByteInt),
dimension(:, :), &
55 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
56 integer :: nf90_put_var_2D_EightByteInt
58 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
59 integer :: numDims, counter, format_num
62 numdims =
size(shape(values))
64 localcount(:numdims ) = shape(values)
65 localcount(numdims+1:) = 1
67 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
69 if(
present(start)) localstart(:
size(start) ) = start(:)
70 if(
present(count)) localcount(:
size(count) ) = count(:)
71 if(
present(stride)) localstride(:
size(stride)) = stride(:)
72 nf90_put_var_2d_eightbyteint =
nf_inq_format(ncid, format_num)
73 if (nf90_put_var_2d_eightbyteint .eq. nf90_noerr)
then 74 if (format_num .eq. nf90_format_netcdf4)
then 76 localmap(:
size(map)) = map(:)
77 nf90_put_var_2d_eightbyteint = &
78 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
79 else if(
present(stride))
then 80 nf90_put_var_2d_eightbyteint = &
83 nf90_put_var_2d_eightbyteint = &
88 localmap(:
size(map)) = map(:)
89 nf90_put_var_2d_eightbyteint = &
90 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
91 else if(
present(stride))
then 92 nf90_put_var_2d_eightbyteint = &
93 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
95 nf90_put_var_2d_eightbyteint = &
105 integer,
intent( in) :: ncid, varid
106 integer (kind = EightByteInt),
dimension(:, :, :), &
107 intent( in) :: values
108 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
109 integer :: nf90_put_var_3D_EightByteInt
111 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
112 integer :: numDims, counter, format_num
115 numdims =
size(shape(values))
117 localcount(:numdims ) = shape(values)
118 localcount(numdims+1:) = 1
120 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
122 if(
present(start)) localstart(:
size(start) ) = start(:)
123 if(
present(count)) localcount(:
size(count) ) = count(:)
124 if(
present(stride)) localstride(:
size(stride)) = stride(:)
125 nf90_put_var_3d_eightbyteint =
nf_inq_format(ncid, format_num)
126 if (nf90_put_var_3d_eightbyteint .eq. nf90_noerr)
then 127 if (format_num .eq. nf90_format_netcdf4)
then 128 if(
present(map))
then 129 localmap(:
size(map)) = map(:)
130 nf90_put_var_3d_eightbyteint = &
131 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
132 else if(
present(stride))
then 133 nf90_put_var_3d_eightbyteint = &
136 nf90_put_var_3d_eightbyteint = &
140 if(
present(map))
then 141 localmap(:
size(map)) = map(:)
142 nf90_put_var_3d_eightbyteint = &
143 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
144 else if(
present(stride))
then 145 nf90_put_var_3d_eightbyteint = &
146 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
148 nf90_put_var_3d_eightbyteint = &
157 integer,
intent( in) :: ncid, varid
158 integer (kind = EightByteInt),
dimension(:, :, :, :), &
159 intent( in) :: values
160 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
161 integer :: nf90_put_var_4D_EightByteInt
163 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
164 integer :: numDims, counter, format_num
167 numdims =
size(shape(values))
169 localcount(:numdims ) = shape(values)
170 localcount(numdims+1:) = 1
172 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
174 if(
present(start)) localstart(:
size(start) ) = start(:)
175 if(
present(count)) localcount(:
size(count) ) = count(:)
176 if(
present(stride)) localstride(:
size(stride)) = stride(:)
177 nf90_put_var_4d_eightbyteint =
nf_inq_format(ncid, format_num)
178 if (nf90_put_var_4d_eightbyteint .eq. nf90_noerr)
then 179 if (format_num .eq. nf90_format_netcdf4)
then 180 if(
present(map))
then 181 localmap(:
size(map)) = map(:)
182 nf90_put_var_4d_eightbyteint = &
183 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
184 else if(
present(stride))
then 185 nf90_put_var_4d_eightbyteint = &
188 nf90_put_var_4d_eightbyteint = &
192 if(
present(map))
then 193 localmap(:
size(map)) = map(:)
194 nf90_put_var_4d_eightbyteint = &
195 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
196 else if(
present(stride))
then 197 nf90_put_var_4d_eightbyteint = &
198 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
200 nf90_put_var_4d_eightbyteint = &
209 integer,
intent( in) :: ncid, varid
210 integer (kind = EightByteInt),
dimension(:, :, :, :, :), &
211 intent( in) :: values
212 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
213 integer :: nf90_put_var_5D_EightByteInt
215 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
216 integer :: numDims, counter, format_num
219 numdims =
size(shape(values))
221 localcount(:numdims ) = shape(values)
222 localcount(numdims+1:) = 1
224 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
226 if(
present(start)) localstart(:
size(start) ) = start(:)
227 if(
present(count)) localcount(:
size(count) ) = count(:)
228 if(
present(stride)) localstride(:
size(stride)) = stride(:)
229 nf90_put_var_5d_eightbyteint =
nf_inq_format(ncid, format_num)
230 if (nf90_put_var_5d_eightbyteint .eq. nf90_noerr)
then 231 if (format_num .eq. nf90_format_netcdf4)
then 232 if(
present(map))
then 233 localmap(:
size(map)) = map(:)
234 nf90_put_var_5d_eightbyteint = &
235 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
236 else if(
present(stride))
then 237 nf90_put_var_5d_eightbyteint = &
240 nf90_put_var_5d_eightbyteint = &
244 if(
present(map))
then 245 localmap(:
size(map)) = map(:)
246 nf90_put_var_5d_eightbyteint = &
247 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
248 else if(
present(stride))
then 249 nf90_put_var_5d_eightbyteint = &
250 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
252 nf90_put_var_5d_eightbyteint = &
261 integer,
intent( in) :: ncid, varid
262 integer (kind = EightByteInt),
dimension(:, :, :, :, :, :), &
263 intent( in) :: values
264 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
265 integer :: nf90_put_var_6D_EightByteInt
267 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
268 integer :: numDims, counter, format_num
271 numdims =
size(shape(values))
273 localcount(:numdims ) = shape(values)
274 localcount(numdims+1:) = 1
276 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
278 if(
present(start)) localstart(:
size(start) ) = start(:)
279 if(
present(count)) localcount(:
size(count) ) = count(:)
280 if(
present(stride)) localstride(:
size(stride)) = stride(:)
281 nf90_put_var_6d_eightbyteint =
nf_inq_format(ncid, format_num)
282 if (nf90_put_var_6d_eightbyteint .eq. nf90_noerr)
then 283 if (format_num .eq. nf90_format_netcdf4)
then 284 if(
present(map))
then 285 localmap(:
size(map)) = map(:)
286 nf90_put_var_6d_eightbyteint = &
287 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
288 else if(
present(stride))
then 289 nf90_put_var_6d_eightbyteint = &
292 nf90_put_var_6d_eightbyteint = &
296 if(
present(map))
then 297 localmap(:
size(map)) = map(:)
298 nf90_put_var_6d_eightbyteint = &
299 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
300 else if(
present(stride))
then 301 nf90_put_var_6d_eightbyteint = &
302 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
304 nf90_put_var_6d_eightbyteint = &
313 integer,
intent( in) :: ncid, varid
314 integer (kind = EightByteInt),
dimension(:, :, :, :, :, :, :), &
315 intent( in) :: values
316 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
317 integer :: nf90_put_var_7D_EightByteInt
319 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
320 integer :: numDims, counter, format_num
323 numdims =
size(shape(values))
325 localcount(:numdims ) = shape(values)
326 localcount(numdims+1:) = 1
328 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
330 if(
present(start)) localstart(:
size(start) ) = start(:)
331 if(
present(count)) localcount(:
size(count) ) = count(:)
332 if(
present(stride)) localstride(:
size(stride)) = stride(:)
333 nf90_put_var_7d_eightbyteint =
nf_inq_format(ncid, format_num)
334 if (nf90_put_var_7d_eightbyteint .eq. nf90_noerr)
then 335 if (format_num .eq. nf90_format_netcdf4)
then 336 if(
present(map))
then 337 localmap(:
size(map)) = map(:)
338 nf90_put_var_7d_eightbyteint = &
339 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
340 else if(
present(stride))
then 341 nf90_put_var_7d_eightbyteint = &
344 nf90_put_var_7d_eightbyteint = &
348 if(
present(map))
then 349 localmap(:
size(map)) = map(:)
350 nf90_put_var_7d_eightbyteint = &
351 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
352 else if(
present(stride))
then 353 nf90_put_var_7d_eightbyteint = &
354 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
356 nf90_put_var_7d_eightbyteint = &
365 integer,
intent( in) :: ncid, varid
366 integer (kind = EightByteInt),
dimension(:), &
367 intent(out) :: values
368 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
369 integer :: nf90_get_var_1D_EightByteInt
371 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
372 integer :: numDims, counter, format_num
373 integer,
dimension(size(values)) :: defaultIntArray
374 integer (kind = EightByteInt),
dimension(size(values)) :: defaultInt8Array
377 numdims =
size(shape(values))
379 localcount(:numdims ) = shape(values)
380 localcount(numdims+1:) = 1
382 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
384 if(
present(start)) localstart(:
size(start) ) = start(:)
385 if(
present(count)) localcount(:
size(count) ) = count(:)
386 if(
present(stride)) localstride(:
size(stride)) = stride(:)
387 nf90_get_var_1d_eightbyteint =
nf_inq_format(ncid, format_num)
388 if (nf90_get_var_1d_eightbyteint .eq. nf90_noerr)
then 389 if (format_num .eq. nf90_format_netcdf4)
then 390 if(
present(map))
then 391 localmap(:
size(map)) = map(:)
392 nf90_get_var_1d_eightbyteint = &
393 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
394 else if(
present(stride))
then 395 nf90_get_var_1d_eightbyteint = &
396 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
398 nf90_get_var_1d_eightbyteint = &
401 values(:) = reshape(defaultint8array(:), shape(values))
403 if(
present(map))
then 404 localmap(:
size(map)) = map(:)
405 nf90_get_var_1d_eightbyteint = &
406 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
407 else if(
present(stride))
then 408 nf90_get_var_1d_eightbyteint = &
409 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
411 nf90_get_var_1d_eightbyteint = &
414 values(:) = reshape(defaultintarray(:), shape(values))
421 integer,
intent( in) :: ncid, varid
422 integer (kind = EightByteInt),
dimension(:, :), &
423 intent(out) :: values
424 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
425 integer :: nf90_get_var_2D_EightByteInt
427 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
428 integer :: numDims, counter, format_num
429 integer,
dimension(size(values)) :: defaultIntArray
430 integer (kind = EightByteInt),
dimension(size(values)) :: defaultInt8Array
433 numdims =
size(shape(values))
435 localcount(:numdims ) = shape(values)
436 localcount(numdims+1:) = 1
438 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
440 if(
present(start)) localstart(:
size(start) ) = start(:)
441 if(
present(count)) localcount(:
size(count) ) = count(:)
442 if(
present(stride)) localstride(:
size(stride)) = stride(:)
443 nf90_get_var_2d_eightbyteint =
nf_inq_format(ncid, format_num)
444 if (nf90_get_var_2d_eightbyteint .eq. nf90_noerr)
then 445 if (format_num .eq. nf90_format_netcdf4)
then 446 if(
present(map))
then 447 localmap(:
size(map)) = map(:)
448 nf90_get_var_2d_eightbyteint = &
449 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
450 else if(
present(stride))
then 451 nf90_get_var_2d_eightbyteint = &
452 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
454 nf90_get_var_2d_eightbyteint = &
457 values(:, :) = reshape(defaultint8array(:), shape(values))
459 if(
present(map))
then 460 localmap(:
size(map)) = map(:)
461 nf90_get_var_2d_eightbyteint = &
462 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
463 else if(
present(stride))
then 464 nf90_get_var_2d_eightbyteint = &
465 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
467 nf90_get_var_2d_eightbyteint = &
470 values(:, :) = reshape(defaultintarray(:), shape(values))
477 integer,
intent( in) :: ncid, varid
478 integer (kind = EightByteInt),
dimension(:, :, :), &
479 intent(out) :: values
480 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
481 integer :: nf90_get_var_3D_EightByteInt
483 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
484 integer :: numDims, counter, format_num
485 integer,
dimension(size(values)) :: defaultIntArray
486 integer (kind = EightByteInt),
dimension(size(values)) :: defaultInt8Array
489 numdims =
size(shape(values))
491 localcount(:numdims ) = shape(values)
492 localcount(numdims+1:) = 1
494 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
496 if(
present(start)) localstart(:
size(start) ) = start(:)
497 if(
present(count)) localcount(:
size(count) ) = count(:)
498 if(
present(stride)) localstride(:
size(stride)) = stride(:)
499 nf90_get_var_3d_eightbyteint =
nf_inq_format(ncid, format_num)
500 if (nf90_get_var_3d_eightbyteint .eq. nf90_noerr)
then 501 if (format_num .eq. nf90_format_netcdf4)
then 502 if(
present(map))
then 503 localmap(:
size(map)) = map(:)
504 nf90_get_var_3d_eightbyteint = &
505 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
506 else if(
present(stride))
then 507 nf90_get_var_3d_eightbyteint = &
508 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
510 nf90_get_var_3d_eightbyteint = &
513 values(:, :, :) = reshape(defaultint8array(:), shape(values))
515 if(
present(map))
then 516 localmap(:
size(map)) = map(:)
517 nf90_get_var_3d_eightbyteint = &
518 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
519 else if(
present(stride))
then 520 nf90_get_var_3d_eightbyteint = &
521 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
523 nf90_get_var_3d_eightbyteint = &
526 values(:, :, :) = reshape(defaultintarray(:), shape(values))
533 integer,
intent( in) :: ncid, varid
534 integer (kind = EightByteInt),
dimension(:, :, :, :), &
535 intent(out) :: values
536 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
537 integer :: nf90_get_var_4D_EightByteInt
539 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
540 integer :: numDims, counter, format_num
541 integer,
dimension(size(values)) :: defaultIntArray
542 integer (kind = EightByteInt),
dimension(size(values)) :: defaultInt8Array
545 numdims =
size(shape(values))
547 localcount(:numdims ) = shape(values)
548 localcount(numdims+1:) = 1
550 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
552 if(
present(start)) localstart(:
size(start) ) = start(:)
553 if(
present(count)) localcount(:
size(count) ) = count(:)
554 if(
present(stride)) localstride(:
size(stride)) = stride(:)
555 nf90_get_var_4d_eightbyteint =
nf_inq_format(ncid, format_num)
556 if (nf90_get_var_4d_eightbyteint .eq. nf90_noerr)
then 557 if (format_num .eq. nf90_format_netcdf4)
then 558 if(
present(map))
then 559 localmap(:
size(map)) = map(:)
560 nf90_get_var_4d_eightbyteint = &
561 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
562 else if(
present(stride))
then 563 nf90_get_var_4d_eightbyteint = &
564 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
566 nf90_get_var_4d_eightbyteint = &
569 values(:, :, :, :) = reshape(defaultint8array(:), shape(values))
571 if(
present(map))
then 572 localmap(:
size(map)) = map(:)
573 nf90_get_var_4d_eightbyteint = &
574 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
575 else if(
present(stride))
then 576 nf90_get_var_4d_eightbyteint = &
577 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
579 nf90_get_var_4d_eightbyteint = &
582 values(:, :, :, :) = reshape(defaultintarray(:), shape(values))
589 integer,
intent( in) :: ncid, varid
590 integer (kind = EightByteInt),
dimension(:, :, :, :, :), &
591 intent(out) :: values
592 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
593 integer :: nf90_get_var_5D_EightByteInt
595 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
596 integer :: numDims, counter, format_num
597 integer,
dimension(size(values)) :: defaultIntArray
598 integer (kind = EightByteInt),
dimension(size(values)) :: defaultInt8Array
601 numdims =
size(shape(values))
603 localcount(:numdims ) = shape(values)
604 localcount(numdims+1:) = 1
606 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
608 if(
present(start)) localstart(:
size(start) ) = start(:)
609 if(
present(count)) localcount(:
size(count) ) = count(:)
610 if(
present(stride)) localstride(:
size(stride)) = stride(:)
611 nf90_get_var_5d_eightbyteint =
nf_inq_format(ncid, format_num)
612 if (nf90_get_var_5d_eightbyteint .eq. nf90_noerr)
then 613 if (format_num .eq. nf90_format_netcdf4)
then 614 if(
present(map))
then 615 localmap(:
size(map)) = map(:)
616 nf90_get_var_5d_eightbyteint = &
617 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
618 else if(
present(stride))
then 619 nf90_get_var_5d_eightbyteint = &
620 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
622 nf90_get_var_5d_eightbyteint = &
625 values(:, :, :, :, :) = reshape(defaultint8array(:), shape(values))
627 if(
present(map))
then 628 localmap(:
size(map)) = map(:)
629 nf90_get_var_5d_eightbyteint = &
630 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
631 else if(
present(stride))
then 632 nf90_get_var_5d_eightbyteint = &
633 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
635 nf90_get_var_5d_eightbyteint = &
638 values(:, :, :, :, :) = reshape(defaultintarray(:), shape(values))
645 integer,
intent( in) :: ncid, varid
646 integer (kind = EightByteInt),
dimension(:, :, :, :, :, :), &
647 intent(out) :: values
648 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
649 integer :: nf90_get_var_6D_EightByteInt
651 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
652 integer :: numDims, counter, format_num
653 integer,
dimension(size(values)) :: defaultIntArray
654 integer (kind = EightByteInt),
dimension(size(values)) :: defaultInt8Array
657 numdims =
size(shape(values))
659 localcount(:numdims ) = shape(values)
660 localcount(numdims+1:) = 1
662 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
664 if(
present(start)) localstart(:
size(start) ) = start(:)
665 if(
present(count)) localcount(:
size(count) ) = count(:)
666 if(
present(stride)) localstride(:
size(stride)) = stride(:)
667 nf90_get_var_6d_eightbyteint =
nf_inq_format(ncid, format_num)
668 if (nf90_get_var_6d_eightbyteint .eq. nf90_noerr)
then 669 if (format_num .eq. nf90_format_netcdf4)
then 670 if(
present(map))
then 671 localmap(:
size(map)) = map(:)
672 nf90_get_var_6d_eightbyteint = &
673 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
674 else if(
present(stride))
then 675 nf90_get_var_6d_eightbyteint = &
676 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
678 nf90_get_var_6d_eightbyteint = &
681 values(:, :, :, :, :, :) = reshape(defaultint8array(:), shape(values))
683 if(
present(map))
then 684 localmap(:
size(map)) = map(:)
685 nf90_get_var_6d_eightbyteint = &
686 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
687 else if(
present(stride))
then 688 nf90_get_var_6d_eightbyteint = &
689 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
691 nf90_get_var_6d_eightbyteint = &
694 values(:, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
701 integer,
intent( in) :: ncid, varid
702 integer (kind = EightByteInt),
dimension(:, :, :, :, :, :, :), &
703 intent(out) :: values
704 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
705 integer :: nf90_get_var_7D_EightByteInt
707 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
708 integer :: numDims, counter, format_num
709 integer,
dimension(size(values)) :: defaultIntArray
710 integer (kind = EightByteInt),
dimension(size(values)) :: defaultInt8Array
713 numdims =
size(shape(values))
715 localcount(:numdims ) = shape(values)
716 localcount(numdims+1:) = 1
718 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
720 if(
present(start)) localstart(:
size(start) ) = start(:)
721 if(
present(count)) localcount(:
size(count) ) = count(:)
722 if(
present(stride)) localstride(:
size(stride)) = stride(:)
723 nf90_get_var_7d_eightbyteint =
nf_inq_format(ncid, format_num)
724 if (nf90_get_var_7d_eightbyteint .eq. nf90_noerr)
then 725 if (format_num .eq. nf90_format_netcdf4)
then 726 if(
present(map))
then 727 localmap(:
size(map)) = map(:)
728 nf90_get_var_7d_eightbyteint = &
729 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
730 else if(
present(stride))
then 731 nf90_get_var_7d_eightbyteint = &
732 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
734 nf90_get_var_7d_eightbyteint = &
737 values(:, :, :, :, :, :, :) = reshape(defaultint8array(:), shape(values))
739 if(
present(map))
then 740 localmap(:
size(map)) = map(:)
741 nf90_get_var_7d_eightbyteint = &
742 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
743 else if(
present(stride))
then 744 nf90_get_var_7d_eightbyteint = &
745 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
747 nf90_get_var_7d_eightbyteint = &
750 values(:, :, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
758 integer,
intent( in) :: ncid, varid
759 integer (kind = EightByteInt),
intent( in) :: values
760 integer,
dimension(:),
optional,
intent( in) :: start
761 integer :: nf90_put_var_EightByteInt
763 integer,
dimension(nf90_max_var_dims) :: localIndex
764 integer :: counter, format_num
768 if(
present(start)) localindex(:
size(start)) = start(:)
771 if (nf90_put_var_eightbyteint .eq. nf90_noerr)
then 772 if (format_num .eq. nf90_format_netcdf4)
then 775 nf90_put_var_eightbyteint =
nf_put_var1_int(ncid, varid, localindex, int(values))
782 integer,
intent( in) :: ncid, varid
783 integer (kind = EightByteInt),
intent(out) :: values
784 integer,
dimension(:),
optional,
intent( in) :: start
785 integer :: nf90_get_var_EightByteInt
787 integer,
dimension(nf90_max_var_dims) :: localIndex
788 integer :: counter, format_num
789 integer :: defaultInteger
790 integer (kind = EightByteInt) :: defaultInteger8
794 if(
present(start)) localindex(:
size(start)) = start(:)
797 if (nf90_get_var_eightbyteint .eq. nf90_noerr)
then 798 if (format_num .eq. nf90_format_netcdf4)
then 799 nf90_get_var_eightbyteint =
nf_get_var1_int64(ncid, varid, localindex, defaultinteger8)
800 values = defaultinteger8
802 nf90_get_var_eightbyteint =
nf_get_var1_int(ncid, varid, localindex, defaultinteger)
803 values = defaultinteger
integer function nf_put_var1_int64(ncid, varid, ndex, ival)
integer function nf90_get_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_varm_int64(ncid, varid, start, counts, strides, maps, ivals)
integer function nf90_put_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_var1_int64(ncid, varid, ndex, ival)
integer function nf90_get_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_eightbyteint(ncid, varid, values, start)
integer function nf90_get_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
function nf_put_vars_int(ncid, varid, start, counts, strides, ivals)
integer function nf90_get_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_vara_int(ncid, varid, start, counts, ivals)
integer function nf90_get_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_vara_int64(ncid, varid, start, counts, ivals)
integer function nf_get_var1_int(ncid, varid, ndex, ival)
integer function nf_put_var1_int(ncid, varid, ndex, ival)
integer function nf_put_vars_int64(ncid, varid, start, counts, strides, ivals)
integer function nf_get_vars_int64(ncid, varid, start, counts, strides, ivals)
integer function nf_put_varm_int64(ncid, varid, start, counts, strides, maps, ivals)
integer function nf_get_vara_int64(ncid, varid, start, counts, ivals)
integer function nf_get_varm_int(ncid, varid, start, counts, strides, maps, ivals)
integer function nf_inq_format(ncid, format_type)
integer function nf90_put_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
function nf_get_vars_int(ncid, varid, start, counts, strides, ivals)
integer function nf90_put_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_eightbyteint(ncid, varid, values, start)
integer function nf90_get_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_vara_int(ncid, varid, start, counts, ivals)
integer function nf_put_varm_int(ncid, varid, start, counts, strides, maps, ivals)
integer function nf90_get_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)