3 integer,
intent( in) :: ncid, varid
4 integer (kind = OneByteInt),
intent( in) :: values
5 integer,
dimension(:),
optional,
intent( in) :: start
6 integer :: nf90_put_var_OneByteInt
8 integer,
dimension(nf90_max_var_dims) :: localIndex
13 if(
present(start)) localindex(:
size(start)) = start(:)
20 integer,
intent( in) :: ncid, varid
21 integer (kind = TwoByteInt),
intent( in) :: values
22 integer,
dimension(:),
optional,
intent( in) :: start
23 integer :: nf90_put_var_TwoByteInt
25 integer,
dimension(nf90_max_var_dims) :: localIndex
30 if(
present(start)) localindex(:
size(start)) = start(:)
37 integer,
intent( in) :: ncid, varid
38 integer (kind = FourByteInt),
intent( in) :: values
39 integer,
dimension(:),
optional,
intent( in) :: start
40 integer :: nf90_put_var_FourByteInt
42 integer,
dimension(nf90_max_var_dims) :: localIndex
47 if(
present(start)) localindex(:
size(start)) = start(:)
49 nf90_put_var_fourbyteint =
nf_put_var1_int(ncid, varid, localindex, int(values))
54 integer,
intent( in) :: ncid, varid
55 real (kind = FourByteReal),
intent( in) :: values
56 integer,
dimension(:),
optional,
intent( in) :: start
57 integer :: nf90_put_var_FourByteReal
59 integer,
dimension(nf90_max_var_dims) :: localIndex
64 if(
present(start)) localindex(:
size(start)) = start(:)
66 nf90_put_var_fourbytereal =
nf_put_var1_real(ncid, varid, localindex, values)
71 integer,
intent( in) :: ncid, varid
72 real (kind = EightByteReal),
intent( in) :: values
73 integer,
dimension(:),
optional,
intent( in) :: start
74 integer :: nf90_put_var_EightByteReal
76 integer,
dimension(nf90_max_var_dims) :: localIndex
81 if(
present(start)) localindex(:
size(start)) = start(:)
88 integer,
intent( in) :: ncid, varid
89 integer (kind = OneByteInt),
intent(out) :: values
90 integer,
dimension(:),
optional,
intent( in) :: start
91 integer :: nf90_get_var_OneByteInt
93 integer,
dimension(nf90_max_var_dims) :: localIndex
98 if(
present(start)) localindex(:
size(start)) = start(:)
105 integer,
intent( in) :: ncid, varid
106 integer (kind = TwoByteInt),
intent(out) :: values
107 integer,
dimension(:),
optional,
intent( in) :: start
108 integer :: nf90_get_var_TwoByteInt
110 integer,
dimension(nf90_max_var_dims) :: localIndex
115 if(
present(start)) localindex(:
size(start)) = start(:)
122 integer,
intent( in) :: ncid, varid
123 integer (kind = FourByteInt),
intent(out) :: values
124 integer,
dimension(:),
optional,
intent( in) :: start
125 integer :: nf90_get_var_FourByteInt
127 integer,
dimension(nf90_max_var_dims) :: localIndex
129 integer :: defaultInteger
133 if(
present(start)) localindex(:
size(start)) = start(:)
135 nf90_get_var_fourbyteint =
nf_get_var1_int(ncid, varid, localindex, defaultinteger)
136 values = defaultinteger
141 integer,
intent( in) :: ncid, varid
142 real (kind = FourByteReal),
intent(out) :: values
143 integer,
dimension(:),
optional,
intent( in) :: start
144 integer :: nf90_get_var_FourByteReal
146 integer,
dimension(nf90_max_var_dims) :: localIndex
151 if(
present(start)) localindex(:
size(start)) = start(:)
153 nf90_get_var_fourbytereal =
nf_get_var1_real(ncid, varid, localindex, values)
158 integer,
intent( in) :: ncid, varid
159 real (kind = EightByteReal),
intent(out) :: values
160 integer,
dimension(:),
optional,
intent( in) :: start
161 integer :: nf90_get_var_EightByteReal
163 integer,
dimension(nf90_max_var_dims) :: localIndex
168 if(
present(start)) localindex(:
size(start)) = start(:)
176 integer,
intent( in) :: ncid, varid
177 integer (kind = OneByteInt),
dimension(:), &
178 intent( in) :: values
179 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
180 integer :: nf90_put_var_1D_OneByteInt
182 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
183 integer :: numDims, counter
186 numdims =
size(shape(values))
188 localcount(:numdims ) = shape(values)
189 localcount(numdims+1:) = 1
191 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
193 if(
present(start)) localstart(:
size(start) ) = start(:)
194 if(
present(count)) localcount(:
size(count) ) = count(:)
195 if(
present(stride)) localstride(:
size(stride)) = stride(:)
196 if(
present(map))
then 197 localmap(:
size(map)) = map(:)
198 nf90_put_var_1d_onebyteint = &
199 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
200 else if(
present(stride))
then 201 nf90_put_var_1d_onebyteint = &
204 nf90_put_var_1d_onebyteint = &
211 integer,
intent( in) :: ncid, varid
212 integer (kind = OneByteInt),
dimension(:, :), &
213 intent( in) :: values
214 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
215 integer :: nf90_put_var_2D_OneByteInt
217 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
218 integer :: numDims, counter
221 numdims =
size(shape(values))
223 localcount(:numdims ) = shape(values)
224 localcount(numdims+1:) = 1
226 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
228 if(
present(start)) localstart(:
size(start) ) = start(:)
229 if(
present(count)) localcount(:
size(count) ) = count(:)
230 if(
present(stride)) localstride(:
size(stride)) = stride(:)
231 if(
present(map))
then 232 localmap(:
size(map)) = map(:)
233 nf90_put_var_2d_onebyteint = &
234 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
235 else if(
present(stride))
then 236 nf90_put_var_2d_onebyteint = &
239 nf90_put_var_2d_onebyteint = &
246 integer,
intent( in) :: ncid, varid
247 integer (kind = OneByteInt),
dimension(:, :, :), &
248 intent( in) :: values
249 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
250 integer :: nf90_put_var_3D_OneByteInt
252 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
253 integer :: numDims, counter
256 numdims =
size(shape(values))
258 localcount(:numdims ) = shape(values)
259 localcount(numdims+1:) = 1
261 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
263 if(
present(start)) localstart(:
size(start) ) = start(:)
264 if(
present(count)) localcount(:
size(count) ) = count(:)
265 if(
present(stride)) localstride(:
size(stride)) = stride(:)
266 if(
present(map))
then 267 localmap(:
size(map)) = map(:)
268 nf90_put_var_3d_onebyteint = &
269 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
270 else if(
present(stride))
then 271 nf90_put_var_3d_onebyteint = &
274 nf90_put_var_3d_onebyteint = &
281 integer,
intent( in) :: ncid, varid
282 integer (kind = OneByteInt),
dimension(:, :, :, :), &
283 intent( in) :: values
284 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
285 integer :: nf90_put_var_4D_OneByteInt
287 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
288 integer :: numDims, counter
291 numdims =
size(shape(values))
293 localcount(:numdims ) = shape(values)
294 localcount(numdims+1:) = 1
296 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
298 if(
present(start)) localstart(:
size(start) ) = start(:)
299 if(
present(count)) localcount(:
size(count) ) = count(:)
300 if(
present(stride)) localstride(:
size(stride)) = stride(:)
301 if(
present(map))
then 302 localmap(:
size(map)) = map(:)
303 nf90_put_var_4d_onebyteint = &
304 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
305 else if(
present(stride))
then 306 nf90_put_var_4d_onebyteint = &
309 nf90_put_var_4d_onebyteint = &
316 integer,
intent( in) :: ncid, varid
317 integer (kind = OneByteInt),
dimension(:, :, :, :, :), &
318 intent( in) :: values
319 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
320 integer :: nf90_put_var_5D_OneByteInt
322 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
323 integer :: numDims, counter
326 numdims =
size(shape(values))
328 localcount(:numdims ) = shape(values)
329 localcount(numdims+1:) = 1
331 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
333 if(
present(start)) localstart(:
size(start) ) = start(:)
334 if(
present(count)) localcount(:
size(count) ) = count(:)
335 if(
present(stride)) localstride(:
size(stride)) = stride(:)
336 if(
present(map))
then 337 localmap(:
size(map)) = map(:)
338 nf90_put_var_5d_onebyteint = &
339 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
340 else if(
present(stride))
then 341 nf90_put_var_5d_onebyteint = &
344 nf90_put_var_5d_onebyteint = &
351 integer,
intent( in) :: ncid, varid
352 integer (kind = OneByteInt),
dimension(:, :, :, :, :, :), &
353 intent( in) :: values
354 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
355 integer :: nf90_put_var_6D_OneByteInt
357 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
358 integer :: numDims, counter
361 numdims =
size(shape(values))
363 localcount(:numdims ) = shape(values)
364 localcount(numdims+1:) = 1
366 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
368 if(
present(start)) localstart(:
size(start) ) = start(:)
369 if(
present(count)) localcount(:
size(count) ) = count(:)
370 if(
present(stride)) localstride(:
size(stride)) = stride(:)
371 if(
present(map))
then 372 localmap(:
size(map)) = map(:)
373 nf90_put_var_6d_onebyteint = &
374 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
375 else if(
present(stride))
then 376 nf90_put_var_6d_onebyteint = &
379 nf90_put_var_6d_onebyteint = &
386 integer,
intent( in) :: ncid, varid
387 integer (kind = OneByteInt),
dimension(:, :, :, :, :, :, :), &
388 intent( in) :: values
389 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
390 integer :: nf90_put_var_7D_OneByteInt
392 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
393 integer :: numDims, counter
396 numdims =
size(shape(values))
398 localcount(:numdims ) = shape(values)
399 localcount(numdims+1:) = 1
401 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
403 if(
present(start)) localstart(:
size(start) ) = start(:)
404 if(
present(count)) localcount(:
size(count) ) = count(:)
405 if(
present(stride)) localstride(:
size(stride)) = stride(:)
406 if(
present(map))
then 407 localmap(:
size(map)) = map(:)
408 nf90_put_var_7d_onebyteint = &
409 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
410 else if(
present(stride))
then 411 nf90_put_var_7d_onebyteint = &
414 nf90_put_var_7d_onebyteint = &
421 integer,
intent( in) :: ncid, varid
422 integer (kind = TwoByteInt),
dimension(:), &
423 intent( in) :: values
424 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
425 integer :: nf90_put_var_1D_TwoByteInt
427 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
428 integer :: numDims, counter
431 numdims =
size(shape(values))
433 localcount(:numdims ) = shape(values)
434 localcount(numdims+1:) = 1
436 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
438 if(
present(start)) localstart(:
size(start) ) = start(:)
439 if(
present(count)) localcount(:
size(count) ) = count(:)
440 if(
present(stride)) localstride(:
size(stride)) = stride(:)
441 if(
present(map))
then 442 localmap(:
size(map)) = map(:)
443 nf90_put_var_1d_twobyteint = &
444 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
445 else if(
present(stride))
then 446 nf90_put_var_1d_twobyteint = &
449 nf90_put_var_1d_twobyteint = &
456 integer,
intent( in) :: ncid, varid
457 integer (kind = TwoByteInt),
dimension(:, :), &
458 intent( in) :: values
459 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
460 integer :: nf90_put_var_2D_TwoByteInt
462 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
463 integer :: numDims, counter
466 numdims =
size(shape(values))
468 localcount(:numdims ) = shape(values)
469 localcount(numdims+1:) = 1
471 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
473 if(
present(start)) localstart(:
size(start) ) = start(:)
474 if(
present(count)) localcount(:
size(count) ) = count(:)
475 if(
present(stride)) localstride(:
size(stride)) = stride(:)
476 if(
present(map))
then 477 localmap(:
size(map)) = map(:)
478 nf90_put_var_2d_twobyteint = &
479 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
480 else if(
present(stride))
then 481 nf90_put_var_2d_twobyteint = &
484 nf90_put_var_2d_twobyteint = &
491 integer,
intent( in) :: ncid, varid
492 integer (kind = TwoByteInt),
dimension(:, :, :), &
493 intent( in) :: values
494 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
495 integer :: nf90_put_var_3D_TwoByteInt
497 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
498 integer :: numDims, counter
501 numdims =
size(shape(values))
503 localcount(:numdims ) = shape(values)
504 localcount(numdims+1:) = 1
506 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
508 if(
present(start)) localstart(:
size(start) ) = start(:)
509 if(
present(count)) localcount(:
size(count) ) = count(:)
510 if(
present(stride)) localstride(:
size(stride)) = stride(:)
511 if(
present(map))
then 512 localmap(:
size(map)) = map(:)
513 nf90_put_var_3d_twobyteint = &
514 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
515 else if(
present(stride))
then 516 nf90_put_var_3d_twobyteint = &
519 nf90_put_var_3d_twobyteint = &
526 integer,
intent( in) :: ncid, varid
527 integer (kind = TwoByteInt),
dimension(:, :, :, :), &
528 intent( in) :: values
529 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
530 integer :: nf90_put_var_4D_TwoByteInt
532 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
533 integer :: numDims, counter
536 numdims =
size(shape(values))
538 localcount(:numdims ) = shape(values)
539 localcount(numdims+1:) = 1
541 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
543 if(
present(start)) localstart(:
size(start) ) = start(:)
544 if(
present(count)) localcount(:
size(count) ) = count(:)
545 if(
present(stride)) localstride(:
size(stride)) = stride(:)
546 if(
present(map))
then 547 localmap(:
size(map)) = map(:)
548 nf90_put_var_4d_twobyteint = &
549 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
550 else if(
present(stride))
then 551 nf90_put_var_4d_twobyteint = &
554 nf90_put_var_4d_twobyteint = &
561 integer,
intent( in) :: ncid, varid
562 integer (kind = TwoByteInt),
dimension(:, :, :, :, :), &
563 intent( in) :: values
564 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
565 integer :: nf90_put_var_5D_TwoByteInt
567 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
568 integer :: numDims, counter
571 numdims =
size(shape(values))
573 localcount(:numdims ) = shape(values)
574 localcount(numdims+1:) = 1
576 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
578 if(
present(start)) localstart(:
size(start) ) = start(:)
579 if(
present(count)) localcount(:
size(count) ) = count(:)
580 if(
present(stride)) localstride(:
size(stride)) = stride(:)
581 if(
present(map))
then 582 localmap(:
size(map)) = map(:)
583 nf90_put_var_5d_twobyteint = &
584 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
585 else if(
present(stride))
then 586 nf90_put_var_5d_twobyteint = &
589 nf90_put_var_5d_twobyteint = &
596 integer,
intent( in) :: ncid, varid
597 integer (kind = TwoByteInt),
dimension(:, :, :, :, :, :), &
598 intent( in) :: values
599 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
600 integer :: nf90_put_var_6D_TwoByteInt
602 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
603 integer :: numDims, counter
606 numdims =
size(shape(values))
608 localcount(:numdims ) = shape(values)
609 localcount(numdims+1:) = 1
611 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
613 if(
present(start)) localstart(:
size(start) ) = start(:)
614 if(
present(count)) localcount(:
size(count) ) = count(:)
615 if(
present(stride)) localstride(:
size(stride)) = stride(:)
616 if(
present(map))
then 617 localmap(:
size(map)) = map(:)
618 nf90_put_var_6d_twobyteint = &
619 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
620 else if(
present(stride))
then 621 nf90_put_var_6d_twobyteint = &
624 nf90_put_var_6d_twobyteint = &
631 integer,
intent( in) :: ncid, varid
632 integer (kind = TwoByteInt),
dimension(:, :, :, :, :, :, :), &
633 intent( in) :: values
634 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
635 integer :: nf90_put_var_7D_TwoByteInt
637 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
638 integer :: numDims, counter
641 numdims =
size(shape(values))
643 localcount(:numdims ) = shape(values)
644 localcount(numdims+1:) = 1
646 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
648 if(
present(start)) localstart(:
size(start) ) = start(:)
649 if(
present(count)) localcount(:
size(count) ) = count(:)
650 if(
present(stride)) localstride(:
size(stride)) = stride(:)
651 if(
present(map))
then 652 localmap(:
size(map)) = map(:)
653 nf90_put_var_7d_twobyteint = &
654 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
655 else if(
present(stride))
then 656 nf90_put_var_7d_twobyteint = &
659 nf90_put_var_7d_twobyteint = &
666 integer,
intent( in) :: ncid, varid
667 integer (kind = FourByteInt),
dimension(:), &
668 intent( in) :: values
669 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
670 integer :: nf90_put_var_1D_FourByteInt
672 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
673 integer :: numDims, counter
676 numdims =
size(shape(values))
678 localcount(:numdims ) = shape(values)
679 localcount(numdims+1:) = 1
681 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
683 if(
present(start)) localstart(:
size(start) ) = start(:)
684 if(
present(count)) localcount(:
size(count) ) = count(:)
685 if(
present(stride)) localstride(:
size(stride)) = stride(:)
686 if(
present(map))
then 687 localmap(:
size(map)) = map(:)
688 nf90_put_var_1d_fourbyteint = &
689 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
690 else if(
present(stride))
then 691 nf90_put_var_1d_fourbyteint = &
692 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
694 nf90_put_var_1d_fourbyteint = &
701 integer,
intent( in) :: ncid, varid
702 integer (kind = FourByteInt),
dimension(:, :), &
703 intent( in) :: values
704 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
705 integer :: nf90_put_var_2D_FourByteInt
707 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
708 integer :: numDims, counter
711 numdims =
size(shape(values))
713 localcount(:numdims ) = shape(values)
714 localcount(numdims+1:) = 1
716 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
718 if(
present(start)) localstart(:
size(start) ) = start(:)
719 if(
present(count)) localcount(:
size(count) ) = count(:)
720 if(
present(stride)) localstride(:
size(stride)) = stride(:)
721 if(
present(map))
then 722 localmap(:
size(map)) = map(:)
723 nf90_put_var_2d_fourbyteint = &
724 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
725 else if(
present(stride))
then 726 nf90_put_var_2d_fourbyteint = &
727 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
729 nf90_put_var_2d_fourbyteint = &
736 integer,
intent( in) :: ncid, varid
737 integer (kind = FourByteInt),
dimension(:, :, :), &
738 intent( in) :: values
739 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
740 integer :: nf90_put_var_3D_FourByteInt
742 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
743 integer :: numDims, counter
746 numdims =
size(shape(values))
748 localcount(:numdims ) = shape(values)
749 localcount(numdims+1:) = 1
751 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
753 if(
present(start)) localstart(:
size(start) ) = start(:)
754 if(
present(count)) localcount(:
size(count) ) = count(:)
755 if(
present(stride)) localstride(:
size(stride)) = stride(:)
756 if(
present(map))
then 757 localmap(:
size(map)) = map(:)
758 nf90_put_var_3d_fourbyteint = &
759 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
760 else if(
present(stride))
then 761 nf90_put_var_3d_fourbyteint = &
762 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
764 nf90_put_var_3d_fourbyteint = &
771 integer,
intent( in) :: ncid, varid
772 integer (kind = FourByteInt),
dimension(:, :, :, :), &
773 intent( in) :: values
774 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
775 integer :: nf90_put_var_4D_FourByteInt
777 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
778 integer :: numDims, counter
781 numdims =
size(shape(values))
783 localcount(:numdims ) = shape(values)
784 localcount(numdims+1:) = 1
786 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
788 if(
present(start)) localstart(:
size(start) ) = start(:)
789 if(
present(count)) localcount(:
size(count) ) = count(:)
790 if(
present(stride)) localstride(:
size(stride)) = stride(:)
791 if(
present(map))
then 792 localmap(:
size(map)) = map(:)
793 nf90_put_var_4d_fourbyteint = &
794 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
795 else if(
present(stride))
then 796 nf90_put_var_4d_fourbyteint = &
797 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
799 nf90_put_var_4d_fourbyteint = &
806 integer,
intent( in) :: ncid, varid
807 integer (kind = FourByteInt),
dimension(:, :, :, :, :), &
808 intent( in) :: values
809 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
810 integer :: nf90_put_var_5D_FourByteInt
812 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
813 integer :: numDims, counter
816 numdims =
size(shape(values))
818 localcount(:numdims ) = shape(values)
819 localcount(numdims+1:) = 1
821 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
823 if(
present(start)) localstart(:
size(start) ) = start(:)
824 if(
present(count)) localcount(:
size(count) ) = count(:)
825 if(
present(stride)) localstride(:
size(stride)) = stride(:)
826 if(
present(map))
then 827 localmap(:
size(map)) = map(:)
828 nf90_put_var_5d_fourbyteint = &
829 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
830 else if(
present(stride))
then 831 nf90_put_var_5d_fourbyteint = &
832 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
834 nf90_put_var_5d_fourbyteint = &
841 integer,
intent( in) :: ncid, varid
842 integer (kind = FourByteInt),
dimension(:, :, :, :, :, :), &
843 intent( in) :: values
844 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
845 integer :: nf90_put_var_6D_FourByteInt
847 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
848 integer :: numDims, counter
851 numdims =
size(shape(values))
853 localcount(:numdims ) = shape(values)
854 localcount(numdims+1:) = 1
856 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
858 if(
present(start)) localstart(:
size(start) ) = start(:)
859 if(
present(count)) localcount(:
size(count) ) = count(:)
860 if(
present(stride)) localstride(:
size(stride)) = stride(:)
861 if(
present(map))
then 862 localmap(:
size(map)) = map(:)
863 nf90_put_var_6d_fourbyteint = &
864 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
865 else if(
present(stride))
then 866 nf90_put_var_6d_fourbyteint = &
867 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
869 nf90_put_var_6d_fourbyteint = &
876 integer,
intent( in) :: ncid, varid
877 integer (kind = FourByteInt),
dimension(:, :, :, :, :, :, :), &
878 intent( in) :: values
879 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
880 integer :: nf90_put_var_7D_FourByteInt
882 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
883 integer :: numDims, counter
886 numdims =
size(shape(values))
888 localcount(:numdims ) = shape(values)
889 localcount(numdims+1:) = 1
891 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
893 if(
present(start)) localstart(:
size(start) ) = start(:)
894 if(
present(count)) localcount(:
size(count) ) = count(:)
895 if(
present(stride)) localstride(:
size(stride)) = stride(:)
896 if(
present(map))
then 897 localmap(:
size(map)) = map(:)
898 nf90_put_var_7d_fourbyteint = &
899 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
900 else if(
present(stride))
then 901 nf90_put_var_7d_fourbyteint = &
902 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
904 nf90_put_var_7d_fourbyteint = &
911 integer,
intent( in) :: ncid, varid
912 real (kind = FourByteReal),
dimension(:), &
913 intent( in) :: values
914 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
915 integer :: nf90_put_var_1D_FourByteReal
917 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
918 integer :: numDims, counter
921 numdims =
size(shape(values))
923 localcount(:numdims ) = shape(values)
924 localcount(numdims+1:) = 1
926 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
928 if(
present(start)) localstart(:
size(start) ) = start(:)
929 if(
present(count)) localcount(:
size(count) ) = count(:)
930 if(
present(stride)) localstride(:
size(stride)) = stride(:)
931 if(
present(map))
then 932 localmap(:
size(map)) = map(:)
933 nf90_put_var_1d_fourbytereal = &
934 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
935 else if(
present(stride))
then 936 nf90_put_var_1d_fourbytereal = &
939 nf90_put_var_1d_fourbytereal = &
946 integer,
intent( in) :: ncid, varid
947 real (kind = FourByteReal),
dimension(:, :), &
948 intent( in) :: values
949 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
950 integer :: nf90_put_var_2D_FourByteReal
952 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
953 integer :: numDims, counter
956 numdims =
size(shape(values))
958 localcount(:numdims ) = shape(values)
959 localcount(numdims+1:) = 1
961 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
963 if(
present(start)) localstart(:
size(start) ) = start(:)
964 if(
present(count)) localcount(:
size(count) ) = count(:)
965 if(
present(stride)) localstride(:
size(stride)) = stride(:)
966 if(
present(map))
then 967 localmap(:
size(map)) = map(:)
968 nf90_put_var_2d_fourbytereal = &
969 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
970 else if(
present(stride))
then 971 nf90_put_var_2d_fourbytereal = &
974 nf90_put_var_2d_fourbytereal = &
981 integer,
intent( in) :: ncid, varid
982 real (kind = FourByteReal),
dimension(:, :, :), &
983 intent( in) :: values
984 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
985 integer :: nf90_put_var_3D_FourByteReal
987 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
988 integer :: numDims, counter
991 numdims =
size(shape(values))
993 localcount(:numdims ) = shape(values)
994 localcount(numdims+1:) = 1
996 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
998 if(
present(start)) localstart(:
size(start) ) = start(:)
999 if(
present(count)) localcount(:
size(count) ) = count(:)
1000 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1001 if(
present(map))
then 1002 localmap(:
size(map)) = map(:)
1003 nf90_put_var_3d_fourbytereal = &
1004 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1005 else if(
present(stride))
then 1006 nf90_put_var_3d_fourbytereal = &
1009 nf90_put_var_3d_fourbytereal = &
1016 integer,
intent( in) :: ncid, varid
1017 real (kind = FourByteReal),
dimension(:, :, :, :), &
1018 intent( in) :: values
1019 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1020 integer :: nf90_put_var_4D_FourByteReal
1022 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1023 integer :: numDims, counter
1026 numdims =
size(shape(values))
1028 localcount(:numdims ) = shape(values)
1029 localcount(numdims+1:) = 1
1031 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1033 if(
present(start)) localstart(:
size(start) ) = start(:)
1034 if(
present(count)) localcount(:
size(count) ) = count(:)
1035 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1036 if(
present(map))
then 1037 localmap(:
size(map)) = map(:)
1038 nf90_put_var_4d_fourbytereal = &
1039 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1040 else if(
present(stride))
then 1041 nf90_put_var_4d_fourbytereal = &
1044 nf90_put_var_4d_fourbytereal = &
1051 integer,
intent( in) :: ncid, varid
1052 real (kind = FourByteReal),
dimension(:, :, :, :, :), &
1053 intent( in) :: values
1054 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1055 integer :: nf90_put_var_5D_FourByteReal
1057 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1058 integer :: numDims, counter
1061 numdims =
size(shape(values))
1063 localcount(:numdims ) = shape(values)
1064 localcount(numdims+1:) = 1
1066 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1068 if(
present(start)) localstart(:
size(start) ) = start(:)
1069 if(
present(count)) localcount(:
size(count) ) = count(:)
1070 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1071 if(
present(map))
then 1072 localmap(:
size(map)) = map(:)
1073 nf90_put_var_5d_fourbytereal = &
1074 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1075 else if(
present(stride))
then 1076 nf90_put_var_5d_fourbytereal = &
1079 nf90_put_var_5d_fourbytereal = &
1086 integer,
intent( in) :: ncid, varid
1087 real (kind = FourByteReal),
dimension(:, :, :, :, :, :), &
1088 intent( in) :: values
1089 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1090 integer :: nf90_put_var_6D_FourByteReal
1092 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1093 integer :: numDims, counter
1096 numdims =
size(shape(values))
1098 localcount(:numdims ) = shape(values)
1099 localcount(numdims+1:) = 1
1101 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1103 if(
present(start)) localstart(:
size(start) ) = start(:)
1104 if(
present(count)) localcount(:
size(count) ) = count(:)
1105 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1106 if(
present(map))
then 1107 localmap(:
size(map)) = map(:)
1108 nf90_put_var_6d_fourbytereal = &
1109 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1110 else if(
present(stride))
then 1111 nf90_put_var_6d_fourbytereal = &
1114 nf90_put_var_6d_fourbytereal = &
1121 integer,
intent( in) :: ncid, varid
1122 real (kind = FourByteReal),
dimension(:, :, :, :, :, :, :), &
1123 intent( in) :: values
1124 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1125 integer :: nf90_put_var_7D_FourByteReal
1127 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1128 integer :: numDims, counter
1131 numdims =
size(shape(values))
1133 localcount(:numdims ) = shape(values)
1134 localcount(numdims+1:) = 1
1136 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1138 if(
present(start)) localstart(:
size(start) ) = start(:)
1139 if(
present(count)) localcount(:
size(count) ) = count(:)
1140 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1141 if(
present(map))
then 1142 localmap(:
size(map)) = map(:)
1143 nf90_put_var_7d_fourbytereal = &
1144 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1145 else if(
present(stride))
then 1146 nf90_put_var_7d_fourbytereal = &
1149 nf90_put_var_7d_fourbytereal = &
1156 integer,
intent( in) :: ncid, varid
1157 real (kind = EightByteReal),
dimension(:), &
1158 intent( in) :: values
1159 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1160 integer :: nf90_put_var_1D_EightByteReal
1162 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1163 integer :: numDims, counter
1166 numdims =
size(shape(values))
1168 localcount(:numdims ) = shape(values)
1169 localcount(numdims+1:) = 1
1171 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1173 if(
present(start)) localstart(:
size(start) ) = start(:)
1174 if(
present(count)) localcount(:
size(count) ) = count(:)
1175 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1176 if(
present(map))
then 1177 localmap(:
size(map)) = map(:)
1178 nf90_put_var_1d_eightbytereal = &
1179 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1180 else if(
present(stride))
then 1181 nf90_put_var_1d_eightbytereal = &
1184 nf90_put_var_1d_eightbytereal = &
1191 integer,
intent( in) :: ncid, varid
1192 real (kind = EightByteReal),
dimension(:, :), &
1193 intent( in) :: values
1194 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1195 integer :: nf90_put_var_2D_EightByteReal
1197 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1198 integer :: numDims, counter
1201 numdims =
size(shape(values))
1203 localcount(:numdims ) = shape(values)
1204 localcount(numdims+1:) = 1
1206 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1208 if(
present(start)) localstart(:
size(start) ) = start(:)
1209 if(
present(count)) localcount(:
size(count) ) = count(:)
1210 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1211 if(
present(map))
then 1212 localmap(:
size(map)) = map(:)
1213 nf90_put_var_2d_eightbytereal = &
1214 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1215 else if(
present(stride))
then 1216 nf90_put_var_2d_eightbytereal = &
1219 nf90_put_var_2d_eightbytereal = &
1226 integer,
intent( in) :: ncid, varid
1227 real (kind = EightByteReal),
dimension(:, :, :), &
1228 intent( in) :: values
1229 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1230 integer :: nf90_put_var_3D_EightByteReal
1232 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1233 integer :: numDims, counter
1236 numdims =
size(shape(values))
1238 localcount(:numdims ) = shape(values)
1239 localcount(numdims+1:) = 1
1241 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1243 if(
present(start)) localstart(:
size(start) ) = start(:)
1244 if(
present(count)) localcount(:
size(count) ) = count(:)
1245 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1246 if(
present(map))
then 1247 localmap(:
size(map)) = map(:)
1248 nf90_put_var_3d_eightbytereal = &
1249 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1250 else if(
present(stride))
then 1251 nf90_put_var_3d_eightbytereal = &
1254 nf90_put_var_3d_eightbytereal = &
1261 integer,
intent( in) :: ncid, varid
1262 real (kind = EightByteReal),
dimension(:, :, :, :), &
1263 intent( in) :: values
1264 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1265 integer :: nf90_put_var_4D_EightByteReal
1267 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1268 integer :: numDims, counter
1271 numdims =
size(shape(values))
1273 localcount(:numdims ) = shape(values)
1274 localcount(numdims+1:) = 1
1276 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1278 if(
present(start)) localstart(:
size(start) ) = start(:)
1279 if(
present(count)) localcount(:
size(count) ) = count(:)
1280 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1281 if(
present(map))
then 1282 localmap(:
size(map)) = map(:)
1283 nf90_put_var_4d_eightbytereal = &
1284 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1285 else if(
present(stride))
then 1286 nf90_put_var_4d_eightbytereal = &
1289 nf90_put_var_4d_eightbytereal = &
1296 integer,
intent( in) :: ncid, varid
1297 real (kind = EightByteReal),
dimension(:, :, :, :, :), &
1298 intent( in) :: values
1299 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1300 integer :: nf90_put_var_5D_EightByteReal
1302 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1303 integer :: numDims, counter
1306 numdims =
size(shape(values))
1308 localcount(:numdims ) = shape(values)
1309 localcount(numdims+1:) = 1
1311 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1313 if(
present(start)) localstart(:
size(start) ) = start(:)
1314 if(
present(count)) localcount(:
size(count) ) = count(:)
1315 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1316 if(
present(map))
then 1317 localmap(:
size(map)) = map(:)
1318 nf90_put_var_5d_eightbytereal = &
1319 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1320 else if(
present(stride))
then 1321 nf90_put_var_5d_eightbytereal = &
1324 nf90_put_var_5d_eightbytereal = &
1331 integer,
intent( in) :: ncid, varid
1332 real (kind = EightByteReal),
dimension(:, :, :, :, :, :), &
1333 intent( in) :: values
1334 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1335 integer :: nf90_put_var_6D_EightByteReal
1337 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1338 integer :: numDims, counter
1341 numdims =
size(shape(values))
1343 localcount(:numdims ) = shape(values)
1344 localcount(numdims+1:) = 1
1346 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1348 if(
present(start)) localstart(:
size(start) ) = start(:)
1349 if(
present(count)) localcount(:
size(count) ) = count(:)
1350 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1351 if(
present(map))
then 1352 localmap(:
size(map)) = map(:)
1353 nf90_put_var_6d_eightbytereal = &
1354 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1355 else if(
present(stride))
then 1356 nf90_put_var_6d_eightbytereal = &
1359 nf90_put_var_6d_eightbytereal = &
1366 integer,
intent( in) :: ncid, varid
1367 real (kind = EightByteReal),
dimension(:, :, :, :, :, :, :), &
1368 intent( in) :: values
1369 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1370 integer :: nf90_put_var_7D_EightByteReal
1372 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1373 integer :: numDims, counter
1376 numdims =
size(shape(values))
1378 localcount(:numdims ) = shape(values)
1379 localcount(numdims+1:) = 1
1381 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1383 if(
present(start)) localstart(:
size(start) ) = start(:)
1384 if(
present(count)) localcount(:
size(count) ) = count(:)
1385 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1386 if(
present(map))
then 1387 localmap(:
size(map)) = map(:)
1388 nf90_put_var_7d_eightbytereal = &
1389 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1390 else if(
present(stride))
then 1391 nf90_put_var_7d_eightbytereal = &
1394 nf90_put_var_7d_eightbytereal = &
1401 integer,
intent( in) :: ncid, varid
1402 integer (kind = OneByteInt),
dimension(:), &
1403 intent(out) :: values
1404 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1405 integer :: nf90_get_var_1D_OneByteInt
1407 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1408 integer :: numDims, counter
1411 numdims =
size(shape(values))
1413 localcount(:numdims ) = shape(values)
1414 localcount(numdims+1:) = 1
1416 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1418 if(
present(start)) localstart(:
size(start) ) = start(:)
1419 if(
present(count)) localcount(:
size(count) ) = count(:)
1420 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1421 if(
present(map))
then 1422 localmap(:
size(map)) = map(:)
1423 nf90_get_var_1d_onebyteint = &
1424 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1425 else if(
present(stride))
then 1426 nf90_get_var_1d_onebyteint = &
1429 nf90_get_var_1d_onebyteint = &
1436 integer,
intent( in) :: ncid, varid
1437 integer (kind = OneByteInt),
dimension(:, :), &
1438 intent(out) :: values
1439 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1440 integer :: nf90_get_var_2D_OneByteInt
1442 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1443 integer :: numDims, counter
1446 numdims =
size(shape(values))
1448 localcount(:numdims ) = shape(values)
1449 localcount(numdims+1:) = 1
1451 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1453 if(
present(start)) localstart(:
size(start) ) = start(:)
1454 if(
present(count)) localcount(:
size(count) ) = count(:)
1455 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1456 if(
present(map))
then 1457 localmap(:
size(map)) = map(:)
1458 nf90_get_var_2d_onebyteint = &
1459 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1460 else if(
present(stride))
then 1461 nf90_get_var_2d_onebyteint = &
1464 nf90_get_var_2d_onebyteint = &
1471 integer,
intent( in) :: ncid, varid
1472 integer (kind = OneByteInt),
dimension(:, :, :), &
1473 intent(out) :: values
1474 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1475 integer :: nf90_get_var_3D_OneByteInt
1477 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1478 integer :: numDims, counter
1481 numdims =
size(shape(values))
1483 localcount(:numdims ) = shape(values)
1484 localcount(numdims+1:) = 1
1486 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1488 if(
present(start)) localstart(:
size(start) ) = start(:)
1489 if(
present(count)) localcount(:
size(count) ) = count(:)
1490 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1491 if(
present(map))
then 1492 localmap(:
size(map)) = map(:)
1493 nf90_get_var_3d_onebyteint = &
1494 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1495 else if(
present(stride))
then 1496 nf90_get_var_3d_onebyteint = &
1499 nf90_get_var_3d_onebyteint = &
1506 integer,
intent( in) :: ncid, varid
1507 integer (kind = OneByteInt),
dimension(:, :, :, :), &
1508 intent(out) :: values
1509 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1510 integer :: nf90_get_var_4D_OneByteInt
1512 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1513 integer :: numDims, counter
1516 numdims =
size(shape(values))
1518 localcount(:numdims ) = shape(values)
1519 localcount(numdims+1:) = 1
1521 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1523 if(
present(start)) localstart(:
size(start) ) = start(:)
1524 if(
present(count)) localcount(:
size(count) ) = count(:)
1525 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1526 if(
present(map))
then 1527 localmap(:
size(map)) = map(:)
1528 nf90_get_var_4d_onebyteint = &
1529 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1530 else if(
present(stride))
then 1531 nf90_get_var_4d_onebyteint = &
1534 nf90_get_var_4d_onebyteint = &
1541 integer,
intent( in) :: ncid, varid
1542 integer (kind = OneByteInt),
dimension(:, :, :, :, :), &
1543 intent(out) :: values
1544 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1545 integer :: nf90_get_var_5D_OneByteInt
1547 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1548 integer :: numDims, counter
1551 numdims =
size(shape(values))
1553 localcount(:numdims ) = shape(values)
1554 localcount(numdims+1:) = 1
1556 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1558 if(
present(start)) localstart(:
size(start) ) = start(:)
1559 if(
present(count)) localcount(:
size(count) ) = count(:)
1560 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1561 if(
present(map))
then 1562 localmap(:
size(map)) = map(:)
1563 nf90_get_var_5d_onebyteint = &
1564 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1565 else if(
present(stride))
then 1566 nf90_get_var_5d_onebyteint = &
1569 nf90_get_var_5d_onebyteint = &
1576 integer,
intent( in) :: ncid, varid
1577 integer (kind = OneByteInt),
dimension(:, :, :, :, :, :), &
1578 intent(out) :: values
1579 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1580 integer :: nf90_get_var_6D_OneByteInt
1582 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1583 integer :: numDims, counter
1586 numdims =
size(shape(values))
1588 localcount(:numdims ) = shape(values)
1589 localcount(numdims+1:) = 1
1591 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1593 if(
present(start)) localstart(:
size(start) ) = start(:)
1594 if(
present(count)) localcount(:
size(count) ) = count(:)
1595 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1596 if(
present(map))
then 1597 localmap(:
size(map)) = map(:)
1598 nf90_get_var_6d_onebyteint = &
1599 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1600 else if(
present(stride))
then 1601 nf90_get_var_6d_onebyteint = &
1604 nf90_get_var_6d_onebyteint = &
1611 integer,
intent( in) :: ncid, varid
1612 integer (kind = OneByteInt),
dimension(:, :, :, :, :, :, :), &
1613 intent(out) :: values
1614 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1615 integer :: nf90_get_var_7D_OneByteInt
1617 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1618 integer :: numDims, counter
1621 numdims =
size(shape(values))
1623 localcount(:numdims ) = shape(values)
1624 localcount(numdims+1:) = 1
1626 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1628 if(
present(start)) localstart(:
size(start) ) = start(:)
1629 if(
present(count)) localcount(:
size(count) ) = count(:)
1630 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1631 if(
present(map))
then 1632 localmap(:
size(map)) = map(:)
1633 nf90_get_var_7d_onebyteint = &
1634 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1635 else if(
present(stride))
then 1636 nf90_get_var_7d_onebyteint = &
1639 nf90_get_var_7d_onebyteint = &
1646 integer,
intent( in) :: ncid, varid
1647 integer (kind = TwoByteInt),
dimension(:), &
1648 intent(out) :: values
1649 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1650 integer :: nf90_get_var_1D_TwoByteInt
1652 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1653 integer :: numDims, counter
1656 numdims =
size(shape(values))
1658 localcount(:numdims ) = shape(values)
1659 localcount(numdims+1:) = 1
1661 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1663 if(
present(start)) localstart(:
size(start) ) = start(:)
1664 if(
present(count)) localcount(:
size(count) ) = count(:)
1665 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1666 if(
present(map))
then 1667 localmap(:
size(map)) = map(:)
1668 nf90_get_var_1d_twobyteint = &
1669 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1670 else if(
present(stride))
then 1671 nf90_get_var_1d_twobyteint = &
1674 nf90_get_var_1d_twobyteint = &
1681 integer,
intent( in) :: ncid, varid
1682 integer (kind = TwoByteInt),
dimension(:, :), &
1683 intent(out) :: values
1684 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1685 integer :: nf90_get_var_2D_TwoByteInt
1687 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1688 integer :: numDims, counter
1691 numdims =
size(shape(values))
1693 localcount(:numdims ) = shape(values)
1694 localcount(numdims+1:) = 1
1696 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1698 if(
present(start)) localstart(:
size(start) ) = start(:)
1699 if(
present(count)) localcount(:
size(count) ) = count(:)
1700 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1701 if(
present(map))
then 1702 localmap(:
size(map)) = map(:)
1703 nf90_get_var_2d_twobyteint = &
1704 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1705 else if(
present(stride))
then 1706 nf90_get_var_2d_twobyteint = &
1709 nf90_get_var_2d_twobyteint = &
1716 integer,
intent( in) :: ncid, varid
1717 integer (kind = TwoByteInt),
dimension(:, :, :), &
1718 intent(out) :: values
1719 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1720 integer :: nf90_get_var_3D_TwoByteInt
1722 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1723 integer :: numDims, counter
1726 numdims =
size(shape(values))
1728 localcount(:numdims ) = shape(values)
1729 localcount(numdims+1:) = 1
1731 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1733 if(
present(start)) localstart(:
size(start) ) = start(:)
1734 if(
present(count)) localcount(:
size(count) ) = count(:)
1735 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1736 if(
present(map))
then 1737 localmap(:
size(map)) = map(:)
1738 nf90_get_var_3d_twobyteint = &
1739 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1740 else if(
present(stride))
then 1741 nf90_get_var_3d_twobyteint = &
1744 nf90_get_var_3d_twobyteint = &
1751 integer,
intent( in) :: ncid, varid
1752 integer (kind = TwoByteInt),
dimension(:, :, :, :), &
1753 intent(out) :: values
1754 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1755 integer :: nf90_get_var_4D_TwoByteInt
1757 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1758 integer :: numDims, counter
1761 numdims =
size(shape(values))
1763 localcount(:numdims ) = shape(values)
1764 localcount(numdims+1:) = 1
1766 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1768 if(
present(start)) localstart(:
size(start) ) = start(:)
1769 if(
present(count)) localcount(:
size(count) ) = count(:)
1770 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1771 if(
present(map))
then 1772 localmap(:
size(map)) = map(:)
1773 nf90_get_var_4d_twobyteint = &
1774 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1775 else if(
present(stride))
then 1776 nf90_get_var_4d_twobyteint = &
1779 nf90_get_var_4d_twobyteint = &
1786 integer,
intent( in) :: ncid, varid
1787 integer (kind = TwoByteInt),
dimension(:, :, :, :, :), &
1788 intent(out) :: values
1789 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1790 integer :: nf90_get_var_5D_TwoByteInt
1792 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1793 integer :: numDims, counter
1796 numdims =
size(shape(values))
1798 localcount(:numdims ) = shape(values)
1799 localcount(numdims+1:) = 1
1801 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1803 if(
present(start)) localstart(:
size(start) ) = start(:)
1804 if(
present(count)) localcount(:
size(count) ) = count(:)
1805 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1806 if(
present(map))
then 1807 localmap(:
size(map)) = map(:)
1808 nf90_get_var_5d_twobyteint = &
1809 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1810 else if(
present(stride))
then 1811 nf90_get_var_5d_twobyteint = &
1814 nf90_get_var_5d_twobyteint = &
1821 integer,
intent( in) :: ncid, varid
1822 integer (kind = TwoByteInt),
dimension(:, :, :, :, :, :), &
1823 intent(out) :: values
1824 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1825 integer :: nf90_get_var_6D_TwoByteInt
1827 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1828 integer :: numDims, counter
1831 numdims =
size(shape(values))
1833 localcount(:numdims ) = shape(values)
1834 localcount(numdims+1:) = 1
1836 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1838 if(
present(start)) localstart(:
size(start) ) = start(:)
1839 if(
present(count)) localcount(:
size(count) ) = count(:)
1840 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1841 if(
present(map))
then 1842 localmap(:
size(map)) = map(:)
1843 nf90_get_var_6d_twobyteint = &
1844 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1845 else if(
present(stride))
then 1846 nf90_get_var_6d_twobyteint = &
1849 nf90_get_var_6d_twobyteint = &
1856 integer,
intent( in) :: ncid, varid
1857 integer (kind = TwoByteInt),
dimension(:, :, :, :, :, :, :), &
1858 intent(out) :: values
1859 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1860 integer :: nf90_get_var_7D_TwoByteInt
1862 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1863 integer :: numDims, counter
1866 numdims =
size(shape(values))
1868 localcount(:numdims ) = shape(values)
1869 localcount(numdims+1:) = 1
1871 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1873 if(
present(start)) localstart(:
size(start) ) = start(:)
1874 if(
present(count)) localcount(:
size(count) ) = count(:)
1875 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1876 if(
present(map))
then 1877 localmap(:
size(map)) = map(:)
1878 nf90_get_var_7d_twobyteint = &
1879 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1880 else if(
present(stride))
then 1881 nf90_get_var_7d_twobyteint = &
1884 nf90_get_var_7d_twobyteint = &
1891 integer,
intent( in) :: ncid, varid
1892 integer (kind = FourByteInt),
dimension(:), &
1893 intent(out) :: values
1894 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1895 integer :: nf90_get_var_1D_FourByteInt
1897 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1898 integer :: numDims, counter
1899 integer,
dimension(size(values)) :: defaultIntArray
1902 numdims =
size(shape(values))
1904 localcount(:numdims ) = shape(values)
1905 localcount(numdims+1:) = 1
1907 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1909 if(
present(start)) localstart(:
size(start) ) = start(:)
1910 if(
present(count)) localcount(:
size(count) ) = count(:)
1911 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1912 if(
present(map))
then 1913 localmap(:
size(map)) = map(:)
1914 nf90_get_var_1d_fourbyteint = &
1915 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
1916 else if(
present(stride))
then 1917 nf90_get_var_1d_fourbyteint = &
1918 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
1920 nf90_get_var_1d_fourbyteint = &
1923 values(:) = reshape(defaultintarray(:), shape(values))
1928 integer,
intent( in) :: ncid, varid
1929 integer (kind = FourByteInt),
dimension(:, :), &
1930 intent(out) :: values
1931 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1932 integer :: nf90_get_var_2D_FourByteInt
1934 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1935 integer :: numDims, counter
1936 integer,
dimension(size(values)) :: defaultIntArray
1939 numdims =
size(shape(values))
1941 localcount(:numdims ) = shape(values)
1942 localcount(numdims+1:) = 1
1944 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1946 if(
present(start)) localstart(:
size(start) ) = start(:)
1947 if(
present(count)) localcount(:
size(count) ) = count(:)
1948 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1949 if(
present(map))
then 1950 localmap(:
size(map)) = map(:)
1951 nf90_get_var_2d_fourbyteint = &
1952 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
1953 else if(
present(stride))
then 1954 nf90_get_var_2d_fourbyteint = &
1955 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
1957 nf90_get_var_2d_fourbyteint = &
1960 values(:, :) = reshape(defaultintarray(:), shape(values))
1965 integer,
intent( in) :: ncid, varid
1966 integer (kind = FourByteInt),
dimension(:, :, :), &
1967 intent(out) :: values
1968 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
1969 integer :: nf90_get_var_3D_FourByteInt
1971 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
1972 integer :: numDims, counter
1973 integer,
dimension(size(values)) :: defaultIntArray
1976 numdims =
size(shape(values))
1978 localcount(:numdims ) = shape(values)
1979 localcount(numdims+1:) = 1
1981 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
1983 if(
present(start)) localstart(:
size(start) ) = start(:)
1984 if(
present(count)) localcount(:
size(count) ) = count(:)
1985 if(
present(stride)) localstride(:
size(stride)) = stride(:)
1986 if(
present(map))
then 1987 localmap(:
size(map)) = map(:)
1988 nf90_get_var_3d_fourbyteint = &
1989 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
1990 else if(
present(stride))
then 1991 nf90_get_var_3d_fourbyteint = &
1992 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
1994 nf90_get_var_3d_fourbyteint = &
1997 values(:, :, :) = reshape(defaultintarray(:), shape(values))
2002 integer,
intent( in) :: ncid, varid
2003 integer (kind = FourByteInt),
dimension(:, :, :, :), &
2004 intent(out) :: values
2005 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2006 integer :: nf90_get_var_4D_FourByteInt
2008 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2009 integer :: numDims, counter
2010 integer,
dimension(size(values)) :: defaultIntArray
2013 numdims =
size(shape(values))
2015 localcount(:numdims ) = shape(values)
2016 localcount(numdims+1:) = 1
2018 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2020 if(
present(start)) localstart(:
size(start) ) = start(:)
2021 if(
present(count)) localcount(:
size(count) ) = count(:)
2022 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2023 if(
present(map))
then 2024 localmap(:
size(map)) = map(:)
2025 nf90_get_var_4d_fourbyteint = &
2026 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
2027 else if(
present(stride))
then 2028 nf90_get_var_4d_fourbyteint = &
2029 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
2031 nf90_get_var_4d_fourbyteint = &
2034 values(:, :, :, :) = reshape(defaultintarray(:), shape(values))
2039 integer,
intent( in) :: ncid, varid
2040 integer (kind = FourByteInt),
dimension(:, :, :, :, :), &
2041 intent(out) :: values
2042 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2043 integer :: nf90_get_var_5D_FourByteInt
2045 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2046 integer :: numDims, counter
2047 integer,
dimension(size(values)) :: defaultIntArray
2050 numdims =
size(shape(values))
2052 localcount(:numdims ) = shape(values)
2053 localcount(numdims+1:) = 1
2055 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2057 if(
present(start)) localstart(:
size(start) ) = start(:)
2058 if(
present(count)) localcount(:
size(count) ) = count(:)
2059 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2060 if(
present(map))
then 2061 localmap(:
size(map)) = map(:)
2062 nf90_get_var_5d_fourbyteint = &
2063 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
2064 else if(
present(stride))
then 2065 nf90_get_var_5d_fourbyteint = &
2066 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
2068 nf90_get_var_5d_fourbyteint = &
2071 values(:, :, :, :, :) = reshape(defaultintarray(:), shape(values))
2076 integer,
intent( in) :: ncid, varid
2077 integer (kind = FourByteInt),
dimension(:, :, :, :, :, :), &
2078 intent(out) :: values
2079 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2080 integer :: nf90_get_var_6D_FourByteInt
2082 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2083 integer :: numDims, counter
2084 integer,
dimension(size(values)) :: defaultIntArray
2087 numdims =
size(shape(values))
2089 localcount(:numdims ) = shape(values)
2090 localcount(numdims+1:) = 1
2092 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2094 if(
present(start)) localstart(:
size(start) ) = start(:)
2095 if(
present(count)) localcount(:
size(count) ) = count(:)
2096 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2097 if(
present(map))
then 2098 localmap(:
size(map)) = map(:)
2099 nf90_get_var_6d_fourbyteint = &
2100 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
2101 else if(
present(stride))
then 2102 nf90_get_var_6d_fourbyteint = &
2103 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
2105 nf90_get_var_6d_fourbyteint = &
2108 values(:, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
2113 integer,
intent( in) :: ncid, varid
2114 integer (kind = FourByteInt),
dimension(:, :, :, :, :, :, :), &
2115 intent(out) :: values
2116 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2117 integer :: nf90_get_var_7D_FourByteInt
2119 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2120 integer :: numDims, counter
2121 integer,
dimension(size(values)) :: defaultIntArray
2124 numdims =
size(shape(values))
2126 localcount(:numdims ) = shape(values)
2127 localcount(numdims+1:) = 1
2129 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2131 if(
present(start)) localstart(:
size(start) ) = start(:)
2132 if(
present(count)) localcount(:
size(count) ) = count(:)
2133 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2134 if(
present(map))
then 2135 localmap(:
size(map)) = map(:)
2136 nf90_get_var_7d_fourbyteint = &
2137 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
2138 else if(
present(stride))
then 2139 nf90_get_var_7d_fourbyteint = &
2140 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
2142 nf90_get_var_7d_fourbyteint = &
2145 values(:, :, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
2150 integer,
intent( in) :: ncid, varid
2151 real (kind = FourByteReal),
dimension(:), &
2152 intent(out) :: values
2153 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2154 integer :: nf90_get_var_1D_FourByteReal
2156 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2157 integer :: numDims, counter
2160 numdims =
size(shape(values))
2162 localcount(:numdims ) = shape(values)
2163 localcount(numdims+1:) = 1
2165 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2167 if(
present(start)) localstart(:
size(start) ) = start(:)
2168 if(
present(count)) localcount(:
size(count) ) = count(:)
2169 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2170 if(
present(map))
then 2171 localmap(:
size(map)) = map(:)
2172 nf90_get_var_1d_fourbytereal = &
2173 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2174 else if(
present(stride))
then 2175 nf90_get_var_1d_fourbytereal = &
2178 nf90_get_var_1d_fourbytereal = &
2185 integer,
intent( in) :: ncid, varid
2186 real (kind = FourByteReal),
dimension(:, :), &
2187 intent(out) :: values
2188 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2189 integer :: nf90_get_var_2D_FourByteReal
2191 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2192 integer :: numDims, counter
2195 numdims =
size(shape(values))
2197 localcount(:numdims ) = shape(values)
2198 localcount(numdims+1:) = 1
2200 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2202 if(
present(start)) localstart(:
size(start) ) = start(:)
2203 if(
present(count)) localcount(:
size(count) ) = count(:)
2204 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2205 if(
present(map))
then 2206 localmap(:
size(map)) = map(:)
2207 nf90_get_var_2d_fourbytereal = &
2208 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2209 else if(
present(stride))
then 2210 nf90_get_var_2d_fourbytereal = &
2213 nf90_get_var_2d_fourbytereal = &
2220 integer,
intent( in) :: ncid, varid
2221 real (kind = FourByteReal),
dimension(:, :, :), &
2222 intent(out) :: values
2223 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2224 integer :: nf90_get_var_3D_FourByteReal
2226 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2227 integer :: numDims, counter
2230 numdims =
size(shape(values))
2232 localcount(:numdims ) = shape(values)
2233 localcount(numdims+1:) = 1
2235 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2237 if(
present(start)) localstart(:
size(start) ) = start(:)
2238 if(
present(count)) localcount(:
size(count) ) = count(:)
2239 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2240 if(
present(map))
then 2241 localmap(:
size(map)) = map(:)
2242 nf90_get_var_3d_fourbytereal = &
2243 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2244 else if(
present(stride))
then 2245 nf90_get_var_3d_fourbytereal = &
2248 nf90_get_var_3d_fourbytereal = &
2255 integer,
intent( in) :: ncid, varid
2256 real (kind = FourByteReal),
dimension(:, :, :, :), &
2257 intent(out) :: values
2258 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2259 integer :: nf90_get_var_4D_FourByteReal
2261 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2262 integer :: numDims, counter
2265 numdims =
size(shape(values))
2267 localcount(:numdims ) = shape(values)
2268 localcount(numdims+1:) = 1
2270 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2272 if(
present(start)) localstart(:
size(start) ) = start(:)
2273 if(
present(count)) localcount(:
size(count) ) = count(:)
2274 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2275 if(
present(map))
then 2276 localmap(:
size(map)) = map(:)
2277 nf90_get_var_4d_fourbytereal = &
2278 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2279 else if(
present(stride))
then 2280 nf90_get_var_4d_fourbytereal = &
2283 nf90_get_var_4d_fourbytereal = &
2290 integer,
intent( in) :: ncid, varid
2291 real (kind = FourByteReal),
dimension(:, :, :, :, :), &
2292 intent(out) :: values
2293 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2294 integer :: nf90_get_var_5D_FourByteReal
2296 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2297 integer :: numDims, counter
2300 numdims =
size(shape(values))
2302 localcount(:numdims ) = shape(values)
2303 localcount(numdims+1:) = 1
2305 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2307 if(
present(start)) localstart(:
size(start) ) = start(:)
2308 if(
present(count)) localcount(:
size(count) ) = count(:)
2309 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2310 if(
present(map))
then 2311 localmap(:
size(map)) = map(:)
2312 nf90_get_var_5d_fourbytereal = &
2313 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2314 else if(
present(stride))
then 2315 nf90_get_var_5d_fourbytereal = &
2318 nf90_get_var_5d_fourbytereal = &
2325 integer,
intent( in) :: ncid, varid
2326 real (kind = FourByteReal),
dimension(:, :, :, :, :, :), &
2327 intent(out) :: values
2328 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2329 integer :: nf90_get_var_6D_FourByteReal
2331 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2332 integer :: numDims, counter
2335 numdims =
size(shape(values))
2337 localcount(:numdims ) = shape(values)
2338 localcount(numdims+1:) = 1
2340 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2342 if(
present(start)) localstart(:
size(start) ) = start(:)
2343 if(
present(count)) localcount(:
size(count) ) = count(:)
2344 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2345 if(
present(map))
then 2346 localmap(:
size(map)) = map(:)
2347 nf90_get_var_6d_fourbytereal = &
2348 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2349 else if(
present(stride))
then 2350 nf90_get_var_6d_fourbytereal = &
2353 nf90_get_var_6d_fourbytereal = &
2360 integer,
intent( in) :: ncid, varid
2361 real (kind = FourByteReal),
dimension(:, :, :, :, :, :, :), &
2362 intent(out) :: values
2363 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2364 integer :: nf90_get_var_7D_FourByteReal
2366 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2367 integer :: numDims, counter
2370 numdims =
size(shape(values))
2372 localcount(:numdims ) = shape(values)
2373 localcount(numdims+1:) = 1
2375 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2377 if(
present(start)) localstart(:
size(start) ) = start(:)
2378 if(
present(count)) localcount(:
size(count) ) = count(:)
2379 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2380 if(
present(map))
then 2381 localmap(:
size(map)) = map(:)
2382 nf90_get_var_7d_fourbytereal = &
2383 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2384 else if(
present(stride))
then 2385 nf90_get_var_7d_fourbytereal = &
2388 nf90_get_var_7d_fourbytereal = &
2395 integer,
intent( in) :: ncid, varid
2396 real (kind = EightByteReal),
dimension(:), &
2397 intent(out) :: values
2398 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2399 integer :: nf90_get_var_1D_EightByteReal
2401 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2402 integer :: numDims, counter
2405 numdims =
size(shape(values))
2407 localcount(:numdims ) = shape(values)
2408 localcount(numdims+1:) = 1
2410 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2412 if(
present(start)) localstart(:
size(start) ) = start(:)
2413 if(
present(count)) localcount(:
size(count) ) = count(:)
2414 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2415 if(
present(map))
then 2416 localmap(:
size(map)) = map(:)
2417 nf90_get_var_1d_eightbytereal = &
2418 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2419 else if(
present(stride))
then 2420 nf90_get_var_1d_eightbytereal = &
2423 nf90_get_var_1d_eightbytereal = &
2430 integer,
intent( in) :: ncid, varid
2431 real (kind = EightByteReal),
dimension(:, :), &
2432 intent(out) :: values
2433 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2434 integer :: nf90_get_var_2D_EightByteReal
2436 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2437 integer :: numDims, counter
2440 numdims =
size(shape(values))
2442 localcount(:numdims ) = shape(values)
2443 localcount(numdims+1:) = 1
2445 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2447 if(
present(start)) localstart(:
size(start) ) = start(:)
2448 if(
present(count)) localcount(:
size(count) ) = count(:)
2449 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2450 if(
present(map))
then 2451 localmap(:
size(map)) = map(:)
2452 nf90_get_var_2d_eightbytereal = &
2453 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2454 else if(
present(stride))
then 2455 nf90_get_var_2d_eightbytereal = &
2458 nf90_get_var_2d_eightbytereal = &
2465 integer,
intent( in) :: ncid, varid
2466 real (kind = EightByteReal),
dimension(:, :, :), &
2467 intent(out) :: values
2468 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2469 integer :: nf90_get_var_3D_EightByteReal
2471 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2472 integer :: numDims, counter
2475 numdims =
size(shape(values))
2477 localcount(:numdims ) = shape(values)
2478 localcount(numdims+1:) = 1
2480 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2482 if(
present(start)) localstart(:
size(start) ) = start(:)
2483 if(
present(count)) localcount(:
size(count) ) = count(:)
2484 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2485 if(
present(map))
then 2486 localmap(:
size(map)) = map(:)
2487 nf90_get_var_3d_eightbytereal = &
2488 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2489 else if(
present(stride))
then 2490 nf90_get_var_3d_eightbytereal = &
2493 nf90_get_var_3d_eightbytereal = &
2500 integer,
intent( in) :: ncid, varid
2501 real (kind = EightByteReal),
dimension(:, :, :, :), &
2502 intent(out) :: values
2503 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2504 integer :: nf90_get_var_4D_EightByteReal
2506 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2507 integer :: numDims, counter
2510 numdims =
size(shape(values))
2512 localcount(:numdims ) = shape(values)
2513 localcount(numdims+1:) = 1
2515 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2517 if(
present(start)) localstart(:
size(start) ) = start(:)
2518 if(
present(count)) localcount(:
size(count) ) = count(:)
2519 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2520 if(
present(map))
then 2521 localmap(:
size(map)) = map(:)
2522 nf90_get_var_4d_eightbytereal = &
2523 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2524 else if(
present(stride))
then 2525 nf90_get_var_4d_eightbytereal = &
2528 nf90_get_var_4d_eightbytereal = &
2535 integer,
intent( in) :: ncid, varid
2536 real (kind = EightByteReal),
dimension(:, :, :, :, :), &
2537 intent(out) :: values
2538 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2539 integer :: nf90_get_var_5D_EightByteReal
2541 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2542 integer :: numDims, counter
2545 numdims =
size(shape(values))
2547 localcount(:numdims ) = shape(values)
2548 localcount(numdims+1:) = 1
2550 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2552 if(
present(start)) localstart(:
size(start) ) = start(:)
2553 if(
present(count)) localcount(:
size(count) ) = count(:)
2554 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2555 if(
present(map))
then 2556 localmap(:
size(map)) = map(:)
2557 nf90_get_var_5d_eightbytereal = &
2558 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2559 else if(
present(stride))
then 2560 nf90_get_var_5d_eightbytereal = &
2563 nf90_get_var_5d_eightbytereal = &
2570 integer,
intent( in) :: ncid, varid
2571 real (kind = EightByteReal),
dimension(:, :, :, :, :, :), &
2572 intent(out) :: values
2573 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2574 integer :: nf90_get_var_6D_EightByteReal
2576 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2577 integer :: numDims, counter
2580 numdims =
size(shape(values))
2582 localcount(:numdims ) = shape(values)
2583 localcount(numdims+1:) = 1
2585 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2587 if(
present(start)) localstart(:
size(start) ) = start(:)
2588 if(
present(count)) localcount(:
size(count) ) = count(:)
2589 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2590 if(
present(map))
then 2591 localmap(:
size(map)) = map(:)
2592 nf90_get_var_6d_eightbytereal = &
2593 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2594 else if(
present(stride))
then 2595 nf90_get_var_6d_eightbytereal = &
2598 nf90_get_var_6d_eightbytereal = &
2605 integer,
intent( in) :: ncid, varid
2606 real (kind = EightByteReal),
dimension(:, :, :, :, :, :, :), &
2607 intent(out) :: values
2608 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
2609 integer :: nf90_get_var_7D_EightByteReal
2611 integer,
dimension(nf90_max_var_dims) :: localStart, localCount, localStride, localMap
2612 integer :: numDims, counter
2615 numdims =
size(shape(values))
2617 localcount(:numdims ) = shape(values)
2618 localcount(numdims+1:) = 1
2620 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
2622 if(
present(start)) localstart(:
size(start) ) = start(:)
2623 if(
present(count)) localcount(:
size(count) ) = count(:)
2624 if(
present(stride)) localstride(:
size(stride)) = stride(:)
2625 if(
present(map))
then 2626 localmap(:
size(map)) = map(:)
2627 nf90_get_var_7d_eightbytereal = &
2628 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2629 else if(
present(stride))
then 2630 nf90_get_var_7d_eightbytereal = &
2633 nf90_get_var_7d_eightbytereal = &
integer function nf90_put_var_twobyteint(ncid, varid, values, start)
integer function nf90_get_var_5d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_3d_fourbyteint(ncid, varid, values, start, count, stride, map)
function nf_put_vars_double(ncid, varid, start, counts, strides, dvals)
integer function nf90_get_var_4d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_4d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_7d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf_get_var1_double(ncid, varid, ndex, dval)
integer function nf90_get_var_fourbytereal(ncid, varid, values, start)
function nf_get_vars_int1(ncid, varid, start, counts, strides, i1vals)
integer function nf_put_varm_int2(ncid, varid, start, counts, strides, maps, i2vals)
integer function nf90_get_var_7d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_6d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_6d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_2d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_5d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_7d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_6d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_6d_fourbyteint(ncid, varid, values, start, count, stride, map)
function nf_get_vars_real(ncid, varid, start, counts, strides, rvals)
integer function nf90_get_var_6d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_varm_int1(ncid, varid, start, counts, strides, maps, i1vals)
integer function nf_put_var1_int2(ncid, varid, ndex, ival)
integer function nf90_get_var_onebyteint(ncid, varid, values, start)
integer function nf_put_var1_double(ncid, varid, ndex, dval)
integer function nf_put_vara_int2(ncid, varid, start, counts, i2vals)
integer function nf90_put_var_2d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf_get_varm_real(ncid, varid, start, counts, strides, maps, rvals)
function nf_put_vars_int(ncid, varid, start, counts, strides, ivals)
integer function nf90_put_var_4d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_4d_fourbytereal(ncid, varid, values, start, count, stride, map)
function nf_put_vars_real(ncid, varid, start, counts, strides, rvals)
integer function nf90_put_var_1d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_3d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf_put_varm_int1(ncid, varid, start, counts, strides, maps, i1vals)
integer function nf90_put_var_7d_eightbytereal(ncid, varid, values, start, count, stride, map)
function nf_get_vars_double(ncid, varid, start, counts, strides, dvals)
integer function nf90_get_var_7d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_fourbyteint(ncid, varid, values, start)
integer function nf_put_vara_int(ncid, varid, start, counts, ivals)
integer function nf90_get_var_5d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf_put_var1_int1(ncid, varid, ndex, ival)
function nf_put_vars_int2(ncid, varid, start, counts, strides, i2vals)
integer function nf90_get_var_1d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_7d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_4d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_2d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_onebyteint(ncid, varid, values, start)
integer function nf90_put_var_7d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_6d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_3d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_1d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_1d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_6d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_1d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_1d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_vara_int1(ncid, varid, start, counts, i1vals)
integer function nf90_put_var_6d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_2d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_twobyteint(ncid, varid, values, start)
integer function nf_get_var1_int(ncid, varid, ndex, ival)
function nf_get_vara_double(ncid, varid, start, counts, dvals)
integer function nf90_put_var_2d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_var1_int(ncid, varid, ndex, ival)
integer function nf90_put_var_eightbytereal(ncid, varid, values, start)
integer function nf_get_vara_int1(ncid, varid, start, counts, i1vals)
integer function nf_get_vara_int2(ncid, varid, start, counts, i2vals)
integer function nf90_put_var_2d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_4d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_5d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_1d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_fourbyteint(ncid, varid, values, start)
integer function nf90_put_var_5d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_var1_real(ncid, varid, ndex, rval)
integer function nf_get_var1_int2(ncid, varid, ndex, ival)
integer function nf90_get_var_5d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_1d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_5d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_6d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_4d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_5d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_7d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_7d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_2d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_varm_int(ncid, varid, start, counts, strides, maps, ivals)
integer function nf90_get_var_eightbytereal(ncid, varid, values, start)
integer function nf90_put_var_1d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_2d_twobyteint(ncid, varid, values, start, count, stride, map)
function nf_get_vars_int(ncid, varid, start, counts, strides, ivals)
integer function nf_put_varm_double(ncid, varid, start, counts, strides, maps, dvals)
integer function nf_get_var1_int1(ncid, varid, ndex, ival)
integer function nf_get_var1_real(ncid, varid, ndex, rval)
integer function nf90_get_var_4d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_3d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_6d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_5d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_1d_eightbytereal(ncid, varid, values, start, count, stride, map)
function nf_put_vara_double(ncid, varid, start, counts, dvals)
integer function nf90_get_var_7d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_vara_real(ncid, varid, start, counts, rvals)
integer function nf_put_vara_real(ncid, varid, start, counts, rvals)
integer function nf90_put_var_4d_fourbytereal(ncid, varid, values, start, count, stride, map)
integer function nf_get_varm_int2(ncid, varid, start, counts, strides, maps, i2vals)
integer function nf_put_varm_real(ncid, varid, start, counts, strides, maps, rvals)
integer function nf90_put_var_fourbytereal(ncid, varid, values, start)
integer function nf90_get_var_2d_onebyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_5d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_3d_eightbytereal(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_4d_fourbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_vara_int(ncid, varid, start, counts, ivals)
function nf_get_vars_int2(ncid, varid, start, counts, strides, i2vals)
integer function nf90_get_var_2d_twobyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_varm_int(ncid, varid, start, counts, strides, maps, ivals)
function nf_put_vars_int1(ncid, varid, start, counts, strides, i1vals)
integer function nf_get_varm_double(ncid, varid, start, counts, strides, maps, dvals)