3 integer,
intent( in) :: ncid, varid
4 integer (kind = OneByteInt),
intent( in) :: values
5 integer,
dimension(:),
optional,
intent( in) :: start
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
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
42 integer,
dimension(nf90_max_var_dims) :: localindex
47 if(present(start)) localindex(:
size(start)) = start(:)
54 integer,
intent( in) :: ncid, varid
55 real (kind = FourByteReal),
intent( in) :: values
56 integer,
dimension(:),
optional,
intent( in) :: start
59 integer,
dimension(nf90_max_var_dims) :: localindex
64 if(present(start)) localindex(:
size(start)) = start(:)
71 integer,
intent( in) :: ncid, varid
72 real (kind = EightByteReal),
intent( in) :: values
73 integer,
dimension(:),
optional,
intent( in) :: start
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
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
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
127 integer,
dimension(nf90_max_var_dims) :: localindex
129 integer :: defaultinteger
133 if(present(start)) localindex(:
size(start)) = start(:)
136 values = defaultinteger
141 integer,
intent( in) :: ncid, varid
142 real (kind = FourByteReal),
intent(out) :: values
143 integer,
dimension(:),
optional,
intent( in) :: start
146 integer,
dimension(nf90_max_var_dims) :: localindex
151 if(present(start)) localindex(:
size(start)) = start(:)
158 integer,
intent( in) :: ncid, varid
159 real (kind = EightByteReal),
intent(out) :: values
160 integer,
dimension(:),
optional,
intent( in) :: start
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
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(:)
199 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
200 else if(present(stride))
then
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
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(:)
234 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
235 else if(present(stride))
then
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
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(:)
269 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
270 else if(present(stride))
then
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
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(:)
304 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
305 else if(present(stride))
then
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
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(:)
339 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
340 else if(present(stride))
then
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
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(:)
374 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
375 else if(present(stride))
then
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
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(:)
409 nf_put_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
410 else if(present(stride))
then
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
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(:)
444 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
445 else if(present(stride))
then
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
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(:)
479 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
480 else if(present(stride))
then
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
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(:)
514 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
515 else if(present(stride))
then
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
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(:)
549 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
550 else if(present(stride))
then
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
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(:)
584 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
585 else if(present(stride))
then
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
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(:)
619 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
620 else if(present(stride))
then
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
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(:)
654 nf_put_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
655 else if(present(stride))
then
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
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(:)
689 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
690 else if(present(stride))
then
692 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
724 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
725 else if(present(stride))
then
727 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
759 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
760 else if(present(stride))
then
762 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
794 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
795 else if(present(stride))
then
797 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
829 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
830 else if(present(stride))
then
832 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
864 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
865 else if(present(stride))
then
867 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
899 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
900 else if(present(stride))
then
902 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
934 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
935 else if(present(stride))
then
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
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(:)
969 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
970 else if(present(stride))
then
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
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(:)
1004 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1005 else if(present(stride))
then
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
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(:)
1039 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1040 else if(present(stride))
then
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
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(:)
1074 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1075 else if(present(stride))
then
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
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(:)
1109 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1110 else if(present(stride))
then
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
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(:)
1144 nf_put_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
1145 else if(present(stride))
then
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
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(:)
1179 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1180 else if(present(stride))
then
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
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(:)
1214 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1215 else if(present(stride))
then
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
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(:)
1249 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1250 else if(present(stride))
then
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
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(:)
1284 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1285 else if(present(stride))
then
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
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(:)
1319 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1320 else if(present(stride))
then
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
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(:)
1354 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1355 else if(present(stride))
then
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
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(:)
1389 nf_put_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
1390 else if(present(stride))
then
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
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(:)
1424 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1425 else if(present(stride))
then
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
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(:)
1459 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1460 else if(present(stride))
then
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
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(:)
1494 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1495 else if(present(stride))
then
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
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(:)
1529 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1530 else if(present(stride))
then
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
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(:)
1564 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1565 else if(present(stride))
then
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
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(:)
1599 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1600 else if(present(stride))
then
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
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(:)
1634 nf_get_varm_int1(ncid, varid, localstart, localcount, localstride, localmap, values)
1635 else if(present(stride))
then
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
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(:)
1669 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1670 else if(present(stride))
then
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
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(:)
1704 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1705 else if(present(stride))
then
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
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(:)
1739 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1740 else if(present(stride))
then
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
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(:)
1774 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1775 else if(present(stride))
then
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
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(:)
1809 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1810 else if(present(stride))
then
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
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(:)
1844 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1845 else if(present(stride))
then
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
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(:)
1879 nf_get_varm_int2(ncid, varid, localstart, localcount, localstride, localmap, values)
1880 else if(present(stride))
then
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
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(:)
1915 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
1916 else if(present(stride))
then
1918 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
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
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(:)
1952 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
1953 else if(present(stride))
then
1955 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
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
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(:)
1989 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
1990 else if(present(stride))
then
1992 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
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
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(:)
2026 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
2027 else if(present(stride))
then
2029 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
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
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(:)
2063 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
2064 else if(present(stride))
then
2066 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
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
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(:)
2100 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
2101 else if(present(stride))
then
2103 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
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
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(:)
2137 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
2138 else if(present(stride))
then
2140 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
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
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(:)
2173 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2174 else if(present(stride))
then
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
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(:)
2208 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2209 else if(present(stride))
then
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
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(:)
2243 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2244 else if(present(stride))
then
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
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(:)
2278 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2279 else if(present(stride))
then
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
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(:)
2313 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2314 else if(present(stride))
then
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
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(:)
2348 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2349 else if(present(stride))
then
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
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(:)
2383 nf_get_varm_real(ncid, varid, localstart, localcount, localstride, localmap, values)
2384 else if(present(stride))
then
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
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(:)
2418 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2419 else if(present(stride))
then
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
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(:)
2453 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2454 else if(present(stride))
then
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
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(:)
2488 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2489 else if(present(stride))
then
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
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(:)
2523 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2524 else if(present(stride))
then
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
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(:)
2558 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2559 else if(present(stride))
then
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
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(:)
2593 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2594 else if(present(stride))
then
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
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(:)
2628 nf_get_varm_double(ncid, varid, localstart, localcount, localstride, localmap, values)
2629 else if(present(stride))
then
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)