2 function nf90_put_var_onebyteint(ncid, varid, values, start)
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(:)
15 nf90_put_var_onebyteint = nf_put_var1_int1(ncid, varid, localindex, values)
16 end function nf90_put_var_onebyteint
19 function nf90_put_var_twobyteint(ncid, varid, values, 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(:)
32 nf90_put_var_twobyteint = nf_put_var1_int2(ncid, varid, localindex, values)
33 end function nf90_put_var_twobyteint
36 function nf90_put_var_fourbyteint(ncid, varid, values, 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))
50 end function nf90_put_var_fourbyteint
53 function nf90_put_var_fourbytereal(ncid, varid, values, start)
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)
67 end function nf90_put_var_fourbytereal
70 function nf90_put_var_eightbytereal(ncid, varid, values, start)
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(:)
83 nf90_put_var_eightbytereal = nf_put_var1_double(ncid, varid, localindex, values)
84 end function nf90_put_var_eightbytereal
87 function nf90_get_var_onebyteint(ncid, varid, values, 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(:)
100 nf90_get_var_onebyteint = nf_get_var1_int1(ncid, varid, localindex, values)
101 end function nf90_get_var_onebyteint
104 function nf90_get_var_twobyteint(ncid, varid, values, 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(:)
117 nf90_get_var_twobyteint = nf_get_var1_int2(ncid, varid, localindex, values)
118 end function nf90_get_var_twobyteint
121 function nf90_get_var_fourbyteint(ncid, varid, values, 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
137 end function nf90_get_var_fourbyteint
140 function nf90_get_var_fourbytereal(ncid, varid, values, start)
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)
154 end function nf90_get_var_fourbytereal
157 function nf90_get_var_eightbytereal(ncid, varid, values, start)
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(:)
170 nf90_get_var_eightbytereal = nf_get_var1_double(ncid, varid, localindex, values)
171 end function nf90_get_var_eightbytereal
175 function nf90_put_var_1d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
202 nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
204 nf90_put_var_1d_onebyteint = &
205 nf_put_vara_int1(ncid, varid, localstart, localcount, values)
207 end function nf90_put_var_1d_onebyteint
210 function nf90_put_var_2d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
237 nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
239 nf90_put_var_2d_onebyteint = &
240 nf_put_vara_int1(ncid, varid, localstart, localcount, values)
242 end function nf90_put_var_2d_onebyteint
245 function nf90_put_var_3d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
272 nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
274 nf90_put_var_3d_onebyteint = &
275 nf_put_vara_int1(ncid, varid, localstart, localcount, values)
277 end function nf90_put_var_3d_onebyteint
280 function nf90_put_var_4d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
307 nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
309 nf90_put_var_4d_onebyteint = &
310 nf_put_vara_int1(ncid, varid, localstart, localcount, values)
312 end function nf90_put_var_4d_onebyteint
315 function nf90_put_var_5d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
342 nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
344 nf90_put_var_5d_onebyteint = &
345 nf_put_vara_int1(ncid, varid, localstart, localcount, values)
347 end function nf90_put_var_5d_onebyteint
350 function nf90_put_var_6d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
377 nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
379 nf90_put_var_6d_onebyteint = &
380 nf_put_vara_int1(ncid, varid, localstart, localcount, values)
382 end function nf90_put_var_6d_onebyteint
385 function nf90_put_var_7d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
412 nf_put_vars_int1(ncid, varid, localstart, localcount, localstride, values)
414 nf90_put_var_7d_onebyteint = &
415 nf_put_vara_int1(ncid, varid, localstart, localcount, values)
417 end function nf90_put_var_7d_onebyteint
420 function nf90_put_var_1d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
447 nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
449 nf90_put_var_1d_twobyteint = &
450 nf_put_vara_int2(ncid, varid, localstart, localcount, values)
452 end function nf90_put_var_1d_twobyteint
455 function nf90_put_var_2d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
482 nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
484 nf90_put_var_2d_twobyteint = &
485 nf_put_vara_int2(ncid, varid, localstart, localcount, values)
487 end function nf90_put_var_2d_twobyteint
490 function nf90_put_var_3d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
517 nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
519 nf90_put_var_3d_twobyteint = &
520 nf_put_vara_int2(ncid, varid, localstart, localcount, values)
522 end function nf90_put_var_3d_twobyteint
525 function nf90_put_var_4d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
552 nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
554 nf90_put_var_4d_twobyteint = &
555 nf_put_vara_int2(ncid, varid, localstart, localcount, values)
557 end function nf90_put_var_4d_twobyteint
560 function nf90_put_var_5d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
587 nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
589 nf90_put_var_5d_twobyteint = &
590 nf_put_vara_int2(ncid, varid, localstart, localcount, values)
592 end function nf90_put_var_5d_twobyteint
595 function nf90_put_var_6d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
622 nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
624 nf90_put_var_6d_twobyteint = &
625 nf_put_vara_int2(ncid, varid, localstart, localcount, values)
627 end function nf90_put_var_6d_twobyteint
630 function nf90_put_var_7d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
657 nf_put_vars_int2(ncid, varid, localstart, localcount, localstride, values)
659 nf90_put_var_7d_twobyteint = &
660 nf_put_vara_int2(ncid, varid, localstart, localcount, values)
662 end function nf90_put_var_7d_twobyteint
665 function nf90_put_var_1d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
695 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
697 end function nf90_put_var_1d_fourbyteint
700 function nf90_put_var_2d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
730 nf_put_vara_int(ncid, varid, localstart, localcount, values)
732 end function nf90_put_var_2d_fourbyteint
735 function nf90_put_var_3d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
765 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
767 end function nf90_put_var_3d_fourbyteint
770 function nf90_put_var_4d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
800 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
802 end function nf90_put_var_4d_fourbyteint
805 function nf90_put_var_5d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
835 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
837 end function nf90_put_var_5d_fourbyteint
840 function nf90_put_var_6d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
870 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
872 end function nf90_put_var_6d_fourbyteint
875 function nf90_put_var_7d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
905 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
907 end function nf90_put_var_7d_fourbyteint
910 function nf90_put_var_1d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
937 nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
939 nf90_put_var_1d_fourbytereal = &
940 nf_put_vara_real(ncid, varid, localstart, localcount, values)
942 end function nf90_put_var_1d_fourbytereal
945 function nf90_put_var_2d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
972 nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
974 nf90_put_var_2d_fourbytereal = &
975 nf_put_vara_real(ncid, varid, localstart, localcount, values)
977 end function nf90_put_var_2d_fourbytereal
980 function nf90_put_var_3d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
1007 nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
1009 nf90_put_var_3d_fourbytereal = &
1010 nf_put_vara_real(ncid, varid, localstart, localcount, values)
1012 end function nf90_put_var_3d_fourbytereal
1015 function nf90_put_var_4d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
1042 nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
1044 nf90_put_var_4d_fourbytereal = &
1045 nf_put_vara_real(ncid, varid, localstart, localcount, values)
1047 end function nf90_put_var_4d_fourbytereal
1050 function nf90_put_var_5d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
1077 nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
1079 nf90_put_var_5d_fourbytereal = &
1080 nf_put_vara_real(ncid, varid, localstart, localcount, values)
1082 end function nf90_put_var_5d_fourbytereal
1085 function nf90_put_var_6d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
1112 nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
1114 nf90_put_var_6d_fourbytereal = &
1115 nf_put_vara_real(ncid, varid, localstart, localcount, values)
1117 end function nf90_put_var_6d_fourbytereal
1120 function nf90_put_var_7d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
1147 nf_put_vars_real(ncid, varid, localstart, localcount, localstride, values)
1149 nf90_put_var_7d_fourbytereal = &
1150 nf_put_vara_real(ncid, varid, localstart, localcount, values)
1152 end function nf90_put_var_7d_fourbytereal
1155 function nf90_put_var_1d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
1182 nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1184 nf90_put_var_1d_eightbytereal = &
1185 nf_put_vara_double(ncid, varid, localstart, localcount, values)
1187 end function nf90_put_var_1d_eightbytereal
1190 function nf90_put_var_2d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
1217 nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1219 nf90_put_var_2d_eightbytereal = &
1220 nf_put_vara_double(ncid, varid, localstart, localcount, values)
1222 end function nf90_put_var_2d_eightbytereal
1225 function nf90_put_var_3d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
1252 nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1254 nf90_put_var_3d_eightbytereal = &
1255 nf_put_vara_double(ncid, varid, localstart, localcount, values)
1257 end function nf90_put_var_3d_eightbytereal
1260 function nf90_put_var_4d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
1287 nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1289 nf90_put_var_4d_eightbytereal = &
1290 nf_put_vara_double(ncid, varid, localstart, localcount, values)
1292 end function nf90_put_var_4d_eightbytereal
1295 function nf90_put_var_5d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
1322 nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1324 nf90_put_var_5d_eightbytereal = &
1325 nf_put_vara_double(ncid, varid, localstart, localcount, values)
1327 end function nf90_put_var_5d_eightbytereal
1330 function nf90_put_var_6d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
1357 nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1359 nf90_put_var_6d_eightbytereal = &
1360 nf_put_vara_double(ncid, varid, localstart, localcount, values)
1362 end function nf90_put_var_6d_eightbytereal
1365 function nf90_put_var_7d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
1392 nf_put_vars_double(ncid, varid, localstart, localcount, localstride, values)
1394 nf90_put_var_7d_eightbytereal = &
1395 nf_put_vara_double(ncid, varid, localstart, localcount, values)
1397 end function nf90_put_var_7d_eightbytereal
1400 function nf90_get_var_1d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
1427 nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1429 nf90_get_var_1d_onebyteint = &
1430 nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1432 end function nf90_get_var_1d_onebyteint
1435 function nf90_get_var_2d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
1462 nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1464 nf90_get_var_2d_onebyteint = &
1465 nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1467 end function nf90_get_var_2d_onebyteint
1470 function nf90_get_var_3d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
1497 nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1499 nf90_get_var_3d_onebyteint = &
1500 nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1502 end function nf90_get_var_3d_onebyteint
1505 function nf90_get_var_4d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
1532 nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1534 nf90_get_var_4d_onebyteint = &
1535 nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1537 end function nf90_get_var_4d_onebyteint
1540 function nf90_get_var_5d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
1567 nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1569 nf90_get_var_5d_onebyteint = &
1570 nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1572 end function nf90_get_var_5d_onebyteint
1575 function nf90_get_var_6d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
1602 nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1604 nf90_get_var_6d_onebyteint = &
1605 nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1607 end function nf90_get_var_6d_onebyteint
1610 function nf90_get_var_7d_onebyteint(ncid, varid, values, start, count, stride, map)
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 = &
1637 nf_get_vars_int1(ncid, varid, localstart, localcount, localstride, values)
1639 nf90_get_var_7d_onebyteint = &
1640 nf_get_vara_int1(ncid, varid, localstart, localcount, values)
1642 end function nf90_get_var_7d_onebyteint
1645 function nf90_get_var_1d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
1672 nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1674 nf90_get_var_1d_twobyteint = &
1675 nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1677 end function nf90_get_var_1d_twobyteint
1680 function nf90_get_var_2d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
1707 nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1709 nf90_get_var_2d_twobyteint = &
1710 nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1712 end function nf90_get_var_2d_twobyteint
1715 function nf90_get_var_3d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
1742 nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1744 nf90_get_var_3d_twobyteint = &
1745 nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1747 end function nf90_get_var_3d_twobyteint
1750 function nf90_get_var_4d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
1777 nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1779 nf90_get_var_4d_twobyteint = &
1780 nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1782 end function nf90_get_var_4d_twobyteint
1785 function nf90_get_var_5d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
1812 nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1814 nf90_get_var_5d_twobyteint = &
1815 nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1817 end function nf90_get_var_5d_twobyteint
1820 function nf90_get_var_6d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
1847 nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1849 nf90_get_var_6d_twobyteint = &
1850 nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1852 end function nf90_get_var_6d_twobyteint
1855 function nf90_get_var_7d_twobyteint(ncid, varid, values, start, count, stride, map)
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 = &
1882 nf_get_vars_int2(ncid, varid, localstart, localcount, localstride, values)
1884 nf90_get_var_7d_twobyteint = &
1885 nf_get_vara_int2(ncid, varid, localstart, localcount, values)
1887 end function nf90_get_var_7d_twobyteint
1890 function nf90_get_var_1d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
1921 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
1923 values(:) = reshape(defaultintarray(:), shape(values))
1924 end function nf90_get_var_1d_fourbyteint
1927 function nf90_get_var_2d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
1958 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
1960 values(:, :) = reshape(defaultintarray(:), shape(values))
1961 end function nf90_get_var_2d_fourbyteint
1964 function nf90_get_var_3d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
1995 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
1997 values(:, :, :) = reshape(defaultintarray(:), shape(values))
1998 end function nf90_get_var_3d_fourbyteint
2001 function nf90_get_var_4d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
2032 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
2034 values(:, :, :, :) = reshape(defaultintarray(:), shape(values))
2035 end function nf90_get_var_4d_fourbyteint
2038 function nf90_get_var_5d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
2069 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
2071 values(:, :, :, :, :) = reshape(defaultintarray(:), shape(values))
2072 end function nf90_get_var_5d_fourbyteint
2075 function nf90_get_var_6d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
2106 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
2108 values(:, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
2109 end function nf90_get_var_6d_fourbyteint
2112 function nf90_get_var_7d_fourbyteint(ncid, varid, values, start, count, stride, map)
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 = &
2143 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
2145 values(:, :, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
2146 end function nf90_get_var_7d_fourbyteint
2149 function nf90_get_var_1d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2176 nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2178 nf90_get_var_1d_fourbytereal = &
2179 nf_get_vara_real(ncid, varid, localstart, localcount, values)
2181 end function nf90_get_var_1d_fourbytereal
2184 function nf90_get_var_2d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2211 nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2213 nf90_get_var_2d_fourbytereal = &
2214 nf_get_vara_real(ncid, varid, localstart, localcount, values)
2216 end function nf90_get_var_2d_fourbytereal
2219 function nf90_get_var_3d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2246 nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2248 nf90_get_var_3d_fourbytereal = &
2249 nf_get_vara_real(ncid, varid, localstart, localcount, values)
2251 end function nf90_get_var_3d_fourbytereal
2254 function nf90_get_var_4d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2281 nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2283 nf90_get_var_4d_fourbytereal = &
2284 nf_get_vara_real(ncid, varid, localstart, localcount, values)
2286 end function nf90_get_var_4d_fourbytereal
2289 function nf90_get_var_5d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2316 nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2318 nf90_get_var_5d_fourbytereal = &
2319 nf_get_vara_real(ncid, varid, localstart, localcount, values)
2321 end function nf90_get_var_5d_fourbytereal
2324 function nf90_get_var_6d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2351 nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2353 nf90_get_var_6d_fourbytereal = &
2354 nf_get_vara_real(ncid, varid, localstart, localcount, values)
2356 end function nf90_get_var_6d_fourbytereal
2359 function nf90_get_var_7d_fourbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2386 nf_get_vars_real(ncid, varid, localstart, localcount, localstride, values)
2388 nf90_get_var_7d_fourbytereal = &
2389 nf_get_vara_real(ncid, varid, localstart, localcount, values)
2391 end function nf90_get_var_7d_fourbytereal
2394 function nf90_get_var_1d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2421 nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2423 nf90_get_var_1d_eightbytereal = &
2424 nf_get_vara_double(ncid, varid, localstart, localcount, values)
2426 end function nf90_get_var_1d_eightbytereal
2429 function nf90_get_var_2d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2456 nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2458 nf90_get_var_2d_eightbytereal = &
2459 nf_get_vara_double(ncid, varid, localstart, localcount, values)
2461 end function nf90_get_var_2d_eightbytereal
2464 function nf90_get_var_3d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2491 nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2493 nf90_get_var_3d_eightbytereal = &
2494 nf_get_vara_double(ncid, varid, localstart, localcount, values)
2496 end function nf90_get_var_3d_eightbytereal
2499 function nf90_get_var_4d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2526 nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2528 nf90_get_var_4d_eightbytereal = &
2529 nf_get_vara_double(ncid, varid, localstart, localcount, values)
2531 end function nf90_get_var_4d_eightbytereal
2534 function nf90_get_var_5d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2561 nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2563 nf90_get_var_5d_eightbytereal = &
2564 nf_get_vara_double(ncid, varid, localstart, localcount, values)
2566 end function nf90_get_var_5d_eightbytereal
2569 function nf90_get_var_6d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2596 nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2598 nf90_get_var_6d_eightbytereal = &
2599 nf_get_vara_double(ncid, varid, localstart, localcount, values)
2601 end function nf90_get_var_6d_eightbytereal
2604 function nf90_get_var_7d_eightbytereal(ncid, varid, values, start, count, stride, map)
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 = &
2631 nf_get_vars_double(ncid, varid, localstart, localcount, localstride, values)
2633 nf90_get_var_7d_eightbytereal = &
2634 nf_get_vara_double(ncid, varid, localstart, localcount, values)
2636 end function nf90_get_var_7d_eightbytereal