6 cache_nelems, cache_preemption)
7 character (len = *),
intent(in) :: path
8 integer,
intent(in) :: cmode
9 integer,
intent(in) :: comm
10 integer,
intent(in) :: info
11 integer,
intent(out) :: ncid
12 integer,
optional,
intent(in) :: cache_size, cache_nelems
13 real,
optional,
intent(in) :: cache_preemption
14 integer :: size_in, nelems_in, preemption_in
15 integer :: size_out, nelems_out, preemption_out, ret
21 if (present(cache_size) .or. present(cache_nelems) .or. &
22 present(cache_preemption))
then
24 if (ret .ne. nf90_noerr)
then
28 if (present(cache_size))
then
33 if (present(cache_nelems))
then
34 nelems_out = cache_nelems
36 nelems_out = nelems_in
38 if (present(cache_preemption))
then
39 preemption_out = cache_preemption
41 preemption_out = preemption_in
51 cache_nelems, cache_preemption)
52 character (len = *),
intent(in) :: path
53 integer,
intent(in) :: cmode
54 integer,
intent(in) :: comm
55 integer,
intent(in) :: info
56 integer,
intent(out) :: ncid
57 integer,
optional,
intent(in) :: cache_size, cache_nelems
58 real,
optional,
intent(in) :: cache_preemption
59 integer :: size_in, nelems_in, preemption_in
60 integer :: size_out, nelems_out, preemption_out, ret
66 if (present(cache_size) .or. present(cache_nelems) .or. &
67 present(cache_preemption))
then
69 if (ret .ne. nf90_noerr)
then
73 if (present(cache_size))
then
78 if (present(cache_nelems))
then
79 nelems_out = cache_nelems
81 nelems_out = nelems_in
83 if (present(cache_preemption))
then
84 preemption_out = cache_preemption
86 preemption_out = preemption_in
96 integer,
intent(in) :: ncid
97 integer,
intent(in) :: varid
98 integer,
intent(in) :: access
105 integer,
intent(in) :: ncid
106 character (len = *),
intent(in) :: name
107 integer,
intent(out) :: grp_ncid
114 integer,
intent(in) :: ncid
115 integer,
intent(out) :: numgrps
116 integer,
dimension(:),
intent(out) :: ncids
123 integer,
intent(in) :: ncid
124 integer,
intent(out) :: len
131 integer,
intent(in) :: ncid
132 character (len = *),
intent(in) :: name
133 integer,
intent(out) :: grpid
140 integer,
intent(in) :: ncid
141 character (len = *),
intent(in) :: full_name
142 integer,
intent(out) :: grpid
149 integer,
intent(in) :: ncid
150 integer,
intent(out) :: parent_ncid
157 integer,
intent(in) :: ncid
158 character (len = *),
intent(out) :: name
165 integer,
intent(in) :: ncid
166 integer,
intent(out) :: len
167 character (len = *),
intent(out) :: name
174 integer,
intent(in) :: ncid
175 integer,
intent(out) :: nvars
176 integer,
dimension(:),
intent(out) :: varids
183 integer,
intent(in) :: ncid
184 integer,
intent(out) :: ndims
185 integer,
dimension(:),
intent(out) :: dimids
186 integer,
intent(out) :: include_parents
193 integer,
intent(in) :: ncid
194 integer,
optional,
intent(out) :: ntypes
195 integer,
dimension(:),
optional,
intent(out) :: typeids
203 integer,
intent(in) :: ncid
204 character (len = *),
intent(in) :: name
205 integer,
optional,
intent(out) :: typeid
213 integer,
intent(in) :: parent_ncid
214 character (len = *),
intent(in) :: name
215 integer,
intent(out) :: new_ncid
222 integer,
intent(in) :: grpid
223 character (len = *),
intent(in) :: name
230 integer,
intent(in) :: ncid
231 integer,
intent(in) :: size
232 character (len = *),
intent(in) :: name
233 integer,
intent(out) :: typeid
240 integer,
intent(in) :: ncid
241 integer,
intent(in) :: xtype
242 character (len = *),
intent(in) :: name
243 integer,
intent(in) :: offset
244 integer,
intent(in) :: field_typeid
252 integer,
intent(in) :: ncid
253 integer,
intent(in) :: xtype
254 character (len = *),
intent(in) :: name
255 integer,
intent(in) :: offset
256 integer,
intent(in) :: field_typeid
257 integer,
intent(in) :: ndims
258 integer,
intent(in) :: dim_sizes
262 offset, field_typeid, ndims, dim_sizes)
266 integer,
intent(in) :: ncid
267 integer,
intent(in) :: xtype
268 character (len = *),
intent(out) :: name
269 integer,
intent(out) :: size
276 integer,
intent(in) :: ncid
277 integer,
intent(in) :: xtype
278 character (len = *),
intent(out) :: name
279 integer,
intent(out) :: size
280 integer,
intent(out) :: nfields
287 integer,
intent(in) :: ncid
288 integer,
intent(in) :: xtype
289 character (len = *),
intent(out) :: name
296 integer,
intent(in) :: ncid
297 integer,
intent(in) :: xtype
298 integer,
intent(out) :: size
305 integer,
intent(in) :: ncid
306 integer,
intent(in) :: xtype
307 integer,
intent(out) :: nfields
314 field_typeid, ndims, dim_sizes)
315 integer,
intent(in) :: ncid
316 integer,
intent(in) :: xtype
317 integer,
intent(in) :: fieldid
318 character (len = *),
intent(out) :: name
319 integer,
intent(out) :: offset
320 integer,
intent(out) :: field_typeid
321 integer,
intent(out) :: ndims
322 integer,
intent(out) :: dim_sizes
326 field_typeid, ndims, dim_sizes)
330 integer,
intent(in) :: ncid
331 integer,
intent(in) :: xtype
332 integer,
intent(in) :: fieldid
333 character (len = *),
intent(out) :: name
340 integer,
intent(in) :: ncid
341 integer,
intent(in) :: xtype
342 character (len = *),
intent(in) :: name
343 integer,
intent(out) :: fieldid
350 integer,
intent(in) :: ncid
351 integer,
intent(in) :: xtype
352 integer,
intent(in) :: fieldid
353 integer,
intent(out) :: offset
360 integer,
intent(in) :: ncid
361 integer,
intent(in) :: xtype
362 integer,
intent(in) :: fieldid
363 integer,
intent(out) :: field_typeid
370 integer,
intent(in) :: ncid
371 integer,
intent(in) :: xtype
372 integer,
intent(in) :: fieldid
373 integer,
intent(out) :: ndims
380 integer,
intent(in) :: ncid
381 integer,
intent(in) :: xtype
382 integer,
intent(in) :: fieldid
383 integer,
intent(out) :: dim_sizes
390 integer,
intent(in) :: ncid
391 character (len = *),
intent(in) :: name
392 integer,
intent(in) :: base_typeid
393 integer,
intent(out) :: xtypeid
400 integer,
intent(in) :: ncid
401 integer,
intent(in) :: xtype
402 character (len = *),
intent(out) :: name
403 integer,
intent(out) :: datum_size
404 integer,
intent(out) :: base_nc_type
411 character (len = *),
intent(in) :: vl
418 integer,
intent(in) :: ncid
419 integer,
intent(in) :: base_typeid
420 character (len = *),
intent(in) :: name
421 integer,
intent(out) :: typeid
428 integer,
intent(in) :: ncid
429 integer,
intent(in) :: xtype
430 character (len = *),
intent(out) :: name
431 integer,
intent(out) :: size
432 integer,
intent(out) :: base_typeid
433 integer,
intent(out) :: nfields
434 integer,
intent(out) :: class
441 integer,
intent(in) :: ncid
442 integer,
intent(in) :: xtype
443 character (len = *),
intent(in) :: name
444 integer,
intent(in) :: value
450 function nf90_inq_enum(ncid, xtype, name, base_nc_type, base_size, num_members)
451 integer,
intent(in) :: ncid
452 integer,
intent(in) :: xtype
453 character (len = *),
intent(out) :: name
454 integer,
intent(out) :: base_nc_type
455 integer,
intent(out) :: base_size
456 integer,
intent(out) :: num_members
463 integer,
intent(in) :: ncid
464 integer,
intent(in) :: xtype
465 integer,
intent(in) :: idx
466 character (len = *),
intent(out) :: name
467 integer,
intent(in) :: value
474 integer,
intent(in) :: ncid
475 integer,
intent(in) :: xtype
476 integer,
intent(in) :: value
477 integer,
intent(out) :: idx
484 integer,
intent(in) :: ncid
485 integer,
intent(in) :: size
486 character (len = *),
intent(in) :: name
487 integer,
intent(out) :: xtype
494 integer,
intent(in) :: ncid
495 integer,
intent(in) :: xtype
496 character (len = *),
intent(out) :: name
497 integer,
intent(out) :: size
504 integer,
intent(in) :: ncid
505 integer,
intent(in) :: varid
506 integer,
intent(in) :: contiguous
507 integer,
dimension(:),
intent(in) :: chunksizes
514 integer,
intent(in) :: ncid
515 integer,
intent(in) :: varid
516 integer,
intent(in) :: shuffle
517 integer,
intent(in) :: deflate
518 integer,
intent(in) :: deflate_level
525 integer,
intent(in) :: ncid
526 integer,
intent(in) :: varid
527 integer,
intent(in) :: fletcher32
534 integer,
intent(in) :: ncid
535 integer,
intent(in) :: varid
536 integer,
intent(out) :: contiguous
537 integer,
dimension(:),
intent(out) :: chunksizes
544 integer,
intent(in) :: ncid
545 integer,
intent(in) :: varid
546 integer,
intent(out) :: shuffle
547 integer,
intent(out) :: deflate
548 integer,
intent(out) :: deflate_level
555 integer,
intent(in) :: ncid
556 integer,
intent(in) :: varid
557 integer,
intent(out) :: fletcher32
564 integer,
intent(in) :: ncid
565 integer,
intent(in) :: varid
566 integer,
intent(in) :: endian
573 integer,
intent(in) :: ncid
574 integer,
intent(in) :: varid
575 integer,
intent(out) :: endian
602 integer,
intent(in) :: ncid
603 integer,
intent(in) :: varid
604 integer,
intent(in) :: no_fill
605 integer(kind=OneByteInt),
intent(in) :: fill
612 integer,
intent(in) :: ncid
613 integer,
intent(in) :: varid
614 integer,
intent(in) :: no_fill
615 integer(kind=TwoByteInt),
intent(in) :: fill
622 integer,
intent(in) :: ncid
623 integer,
intent(in) :: varid
624 integer,
intent(in) :: no_fill
625 integer(kind=FourByteInt),
intent(in) :: fill
632 integer,
intent(in) :: ncid
633 integer,
intent(in) :: varid
634 integer,
intent(in) :: no_fill
635 integer(kind=EightByteInt),
intent(in) :: fill
642 integer,
intent(in) :: ncid
643 integer,
intent(in) :: varid
644 integer,
intent(in) :: no_fill
645 real(kind=FourByteReal),
intent(in) :: fill
652 integer,
intent(in) :: ncid
653 integer,
intent(in) :: varid
654 integer,
intent(in) :: no_fill
655 real(kind=EightByteReal),
intent(in) :: fill
662 integer,
intent(in) :: ncid
663 integer,
intent(in) :: varid
664 integer,
intent(inout) :: no_fill
665 integer(kind=OneByteInt),
intent(inout) :: fill
672 integer,
intent(in) :: ncid
673 integer,
intent(in) :: varid
674 integer,
intent(inout) :: no_fill
675 integer(kind=TwoByteInt),
intent(inout) :: fill
682 integer,
intent(in) :: ncid
683 integer,
intent(in) :: varid
684 integer,
intent(inout) :: no_fill
685 integer(kind=FourByteInt),
intent(inout) :: fill
692 integer,
intent(in) :: ncid
693 integer,
intent(in) :: varid
694 integer,
intent(inout) :: no_fill
695 integer(kind=EightByteInt),
intent(inout) :: fill
702 integer,
intent(in) :: ncid
703 integer,
intent(in) :: varid
704 integer,
intent(inout) :: no_fill
705 real(kind=FourByteReal),
intent(inout) :: fill
712 integer,
intent(in) :: ncid
713 integer,
intent(in) :: varid
714 integer,
intent(inout) :: no_fill
715 real(kind=EightByteReal),
intent(inout) :: fill
722 integer,
intent( in) :: ncid, varid
723 character(len = *),
intent( in) :: name
724 integer,
intent( in) :: typeid, length
725 character(len = *),
intent( in) :: values
732 integer,
intent( in) :: ncid, varid
733 character(len = *),
intent( in) :: name
734 integer,
intent( in) :: length
735 character(len = *),
intent( in) :: values
742 integer,
intent( in) :: ncid, varid
743 character (len = *),
intent( in) :: values
744 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
747 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride
751 localcount(1) = len_trim(values); localcount(2:) = 1
754 if(present(start)) localstart(:
size(start) ) = start(:)
755 if(present(count)) localcount(:
size(count) ) = count(:)
756 if(present(stride)) localstride(:
size(stride)) = stride(:)
762 integer,
intent( in) :: ncid, varid
763 character (len = *),
intent(out) :: values
764 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
767 integer,
dimension(nf90_max_var_dims) :: textdimids
768 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride
769 integer :: stringlength
773 localcount(1) = len(values); localcount(2:) = 1
776 if(present(start)) localstart(:
size(start) ) = start(:)
777 if(present(count)) localcount(:
size(count) ) = count(:)
778 if(present(stride)) localstride(:
size(stride)) = stride(:)
integer function nf_inq_grp_ncid(ncid, grp_name, parent_ncid)
integer function nf_inq_compound_fieldoffset(ncid, xtype, fieldid, offset)
integer function nf_inq_ncid(ncid, name, groupid)
integer function nf90_inq_cmp_fielddim_sizes(ncid, xtype, fieldid, dim_sizes)
integer function nf_def_var_deflate(ncid, varid, shuffle, deflate, deflate_level)
integer function nf90_inq_var_fill_twobyteint(ncid, varid, no_fill, fill)
integer function nf90_inq_var_deflate(ncid, varid, shuffle, deflate, deflate_level)
integer function nf90_inq_user_type(ncid, xtype, name, size, base_typeid, nfields, class)
integer function nf90_inq_var_fill_eightbyteint(ncid, varid, no_fill, fill)
integer function nf90_inq_enum(ncid, xtype, name, base_nc_type, base_size, num_members)
integer function nf_inq_var_fill(ncid, varid, no_fill, fill_value)
integer function nf90_inq_var_fill_eightbytereal(ncid, varid, no_fill, fill)
integer function nf90_def_var_fill_eightbyteint(ncid, varid, no_fill, fill)
integer function nf90_inq_dimids(ncid, ndims, dimids, include_parents)
integer function nf_inq_grp_full_ncid(ncid, name, grp_ncid)
integer function nf_inq_compound_field(ncid, xtype, fieldid, name, offset, field_typeid, ndims, dim_sizes)
integer function nf90_inq_typeids(ncid, ntypes, typeids)
integer function nf_def_grp(parent_ncid, name, new_ncid)
integer function nf90_inq_compound_nfields(ncid, xtype, nfields)
integer function nf_inq_grpname_len(ncid, nlen)
integer function nf_inq_compound_fieldndims(ncid, xtype, fieldid, ndims)
integer function nf_rename_grp(grpid, name)
integer function nf90_put_att_any(ncid, varid, name, typeid, length, values)
integer function nf90_def_vlen(ncid, name, base_typeid, xtypeid)
integer function nf90_insert_array_compound(ncid, xtype, name, offset, field_typeid, ndims, dim_sizes)
integer function nf_def_opaque(ncid, isize, name, xtype)
integer function nf90_def_var_fill_fourbytereal(ncid, varid, no_fill, fill)
integer function nf_insert_array_compound(ncid, xtype, name, offset, field_typeid, ndims, dim_sizes)
integer function nf90_inq_grpname_full(ncid, len, name)
integer function nf90_inq_var_fletcher32(ncid, varid, fletcher32)
integer function nf90_inq_var_fill_fourbytereal(ncid, varid, no_fill, fill)
integer function nf90_def_var_endian(ncid, varid, endian)
integer function nf90_inq_ncid(ncid, name, grp_ncid)
integer function nf_inq_compound_fielddim_sizes(ncid, xtype, fieldid, dim_sizes)
integer function nf90_inq_vlen(ncid, xtype, name, datum_size, base_nc_type)
integer function nf_inq_compound_fieldindex(ncid, xtype, name, fieldid)
integer function nf_inq_grpname(ncid, name)
integer function nf_inq_var_chunking(ncid, varid, contiguous, chunksizes)
integer function nf_inq_var_fletcher32(ncid, varid, fletcher32)
integer function nf90_insert_enum(ncid, xtype, name, value)
integer function nf90_inq_var_fill_onebyteint(ncid, varid, no_fill, fill)
integer function nf90_open_par(path, cmode, comm, info, ncid, cache_size, cache_nelems, cache_preemption)
integer function nf_inq_compound_fieldtype(ncid, xtype, fieldid, field_typeid)
integer function nf_inq_grps(ncid, numgrps, ncids)
integer function nf90_inq_compound(ncid, xtype, name, size, nfields)
integer function nf_inq_compound(ncid, xtype, name, isize, nfields)
integer function nf90_free_vlen(vl)
integer function nf90_def_var_chunking(ncid, varid, contiguous, chunksizes)
integer function nf90_def_var_fill_eightbytereal(ncid, varid, no_fill, fill)
integer function nf_inq_typeids(ncid, ntypes, typeids)
integer function nf_inq_compound_name(ncid, xtype, name)
integer function nf_inq_typeid(ncid, name, typeid)
integer function nf90_inq_compound_name(ncid, xtype, name)
integer function nf_inq_vlen(ncid, xtype, name, datum_size, base_type)
integer function nf_def_var_chunking(ncid, varid, contiguous, chunksizes)
integer function nf90_def_var_fill_fourbyteint(ncid, varid, no_fill, fill)
integer function nf_inq_varids(ncid, nvars, varids)
integer function nf90_inq_grpname_len(ncid, len)
integer function nf_inq_compound_size(ncid, xtype, isize)
function nf_get_vars(ncid, varid, start, counts, strides, values)
integer function nf_inq_var_deflate(ncid, varid, shuffle, deflate, deflate_level)
integer function nf_inq_enum(ncid, xtype, name, base_nf_type, base_size, num_members)
integer function nf_def_var_fletcher32(ncid, varid, fletcher32)
integer function nf_def_var_endian(ncid, varid, endiann)
integer function nf90_rename_grp(grpid, name)
integer function nf90_inq_grp_parent(ncid, parent_ncid)
integer function nf90_insert_compound(ncid, xtype, name, offset, field_typeid)
integer function nf90_inq_enum_member(ncid, xtype, idx, name, value)
integer function nf90_get_att_any(ncid, varid, name, length, values)
integer function nf_free_vlen(vl)
integer function nf_def_enum(ncid, base_typeid, name, typeid)
integer function nf90_inq_compound_fieldindex(ncid, xtype, name, fieldid)
integer function nf_inq_compound_fieldname(ncid, xtype, fieldid, name)
integer function nf_insert_enum(ncid, xtype, name, value)
integer function nf_inq_user_type(ncid, xtype, name, isize, base_type, nfields, iclass)
integer function nf90_inq_compound_fieldtype(ncid, xtype, fieldid, field_typeid)
function nf_put_vars(ncid, varid, start, counts, strides, values)
integer function nf90_inq_var_fill_fourbyteint(ncid, varid, no_fill, fill)
integer function nf90_inq_grpname(ncid, name)
integer function nf90_inq_opaque(ncid, xtype, name, size)
integer function nf_inq_type(ncid, xtype, name, isize)
integer function nf_set_chunk_cache(chunk_size, nelems, preemption)
integer function nf90_inq_var_endian(ncid, varid, endian)
integer function nf90_inq_grp_full_ncid(ncid, full_name, grpid)
integer function nf90_def_var_fill_twobyteint(ncid, varid, no_fill, fill)
integer function nf90_inq_grp_ncid(ncid, name, grpid)
integer function nf_inq_enum_ident(ncid, xtype, value, name)
integer function nf90_inq_enum_ident(ncid, xtype, value, idx)
integer function nf90_put_var_any(ncid, varid, values, start, count, stride, map)
integer function nf_inq_grpname_full(ncid, nlen, name)
integer function nf_create_par(path, cmode, comm, info, ncid)
integer function nf90_inq_compound_fieldndims(ncid, xtype, fieldid, ndims)
integer function nf_var_par_access(ncid, varid, iaccess)
integer function nf_insert_compound(ncid, xtype, name, offset, field_typeid)
integer function nf_get_chunk_cache(chunk_size, nelems, preemption)
integer function nf90_def_opaque(ncid, size, name, xtype)
integer function nf_def_var_fill(ncid, varid, no_fill, fill_value)
integer function nf90_inq_varids(ncid, nvars, varids)
integer function nf90_inq_type(ncid, xtype, name, size)
integer function nf90_def_enum(ncid, base_typeid, name, typeid)
integer function nf_inq_grp_parent(ncid, parent_ncid)
integer function nf90_var_par_access(ncid, varid, access)
integer function nf90_create_par(path, cmode, comm, info, ncid, cache_size, cache_nelems, cache_preemption)
integer function nf_get_att(ncid, varid, name, value)
integer function nf90_get_var_any(ncid, varid, values, start, count, stride, map)
integer function nf_open_par(path, mode, comm, info, ncid)
integer function nf90_inq_compound_field(ncid, xtype, fieldid, name, offset, field_typeid, ndims, dim_sizes)
integer function nf90_inq_var_chunking(ncid, varid, contiguous, chunksizes)
integer function nf_inq_compound_nfields(ncid, xtype, nfields)
integer function nf_def_compound(ncid, isize, name, typeid)
integer function nf_def_vlen(ncid, name, base_typeid, xtype)
integer function nf_inq_dimids(ncid, ndims, dimids, parent)
integer function nf90_def_var_fletcher32(ncid, varid, fletcher32)
integer function nf90_def_var_fill_onebyteint(ncid, varid, no_fill, fill)
integer function nf90_inq_grps(ncid, numgrps, ncids)
integer function nf90_inq_typeid(ncid, name, typeid)
integer function nf90_def_compound(ncid, size, name, typeid)
integer function nf90_inq_compound_fieldoffset(ncid, xtype, fieldid, offset)
integer function nf90_def_grp(parent_ncid, name, new_ncid)
integer function nf90_inq_compound_fieldname(ncid, xtype, fieldid, name)
integer function nf_inq_opaque(ncid, xtype, name, isize)
integer function nf90_inq_compound_size(ncid, xtype, size)
integer function nf_put_att(ncid, varid, name, xtype, nlen, value)
integer function nf90_def_var_deflate(ncid, varid, shuffle, deflate, deflate_level)
integer function nf_inq_var_endian(ncid, varid, endiann)
integer function nf_inq_enum_member(ncid, xtype, idx, name, value)