10 character(len = 80) :: nf90_inq_libvers
16 integer,
intent( in) :: ncerr
17 character(len = 80) :: nf90_strerror
26 integer,
intent( in) :: ncid
27 integer,
intent(out) :: pe
28 integer :: nf90_inq_base_pe
34 integer,
intent( in) :: ncid, pe
35 integer :: nf90_set_base_pe
40 function nf90_create_mp(path, cmode, initalsz, basepe, chunksizehint, ncid)
41 character (len = *),
intent( in) :: path
42 integer,
intent( in) :: cmode, initalsz, basepe, chunksizehint
43 integer,
intent(out) :: ncid
44 integer :: nf90_create_mp
46 nf90_create_mp =
nf__create_mp(path, cmode, initalsz, basepe, chunksizehint, ncid)
49 function nf90_open_mp(path, mode, basepe, chunksizeint, ncid)
50 character (len = *),
intent( in) :: path
51 integer,
intent( in) :: mode, basepe, chunksizeint
52 integer,
intent(out) :: ncid
53 integer :: nf90_open_mp
55 nf90_open_mp =
nf__open_mp(path, mode, basepe, chunksizeint, ncid)
59 integer,
intent( in) :: ncid, fillmode
60 integer,
intent(out) :: old_mode
61 integer :: nf90_set_fill
63 nf90_set_fill =
nf_set_fill(ncid, fillmode, old_mode)
67 integer,
intent( in) :: ncid
73 function nf90_enddef(ncid, h_minfree, v_align, v_minfree, r_align)
74 integer,
intent( in) :: ncid
75 integer,
optional,
intent( in) :: h_minfree, v_align, v_minfree, r_align
76 integer :: nf90_enddef
78 integer :: hMinFree, VAlign, VMinFree, RAlign
80 if(.not. any( (/
present(h_minfree),
present(v_align), &
81 present(v_minfree),
present(r_align) /) ) )
then 85 hminfree = 0; vminfree = 0
86 valign = 4; ralign = 4
87 if(
present(h_minfree)) hminfree = h_minfree
88 if(
present(v_align )) valign = v_align
89 if(
present(v_minfree)) vminfree = v_minfree
90 if(
present(r_align )) ralign = r_align
91 nf90_enddef =
nf__enddef(ncid, hminfree, valign, vminfree, ralign)
96 integer,
intent( in) :: ncid
103 integer,
intent( in) :: ncid
104 integer :: nf90_abort
110 integer,
intent( in) :: ncid
111 integer :: nf90_close
117 character(len = *),
intent( in) :: name
118 integer :: nf90_delete
126 function nf90_inquire(ncid, nDimensions, nVariables, nAttributes, unlimitedDimId, formatNum)
127 integer,
intent( in) :: ncid
128 integer,
optional,
intent(out) :: nDimensions, nVariables, nAttributes, unlimitedDimId, formatNum
129 integer :: nf90_inquire
131 integer :: nDims, nVars, nGAtts, unlimDimId, frmt
133 nf90_inquire =
nf_inq(ncid, ndims, nvars, ngatts, unlimdimid)
134 if(
present(ndimensions)) ndimensions = ndims
135 if(
present(nvariables)) nvariables = nvars
136 if(
present(nattributes)) nattributes = ngatts
137 if(
present(unlimiteddimid)) unlimiteddimid = unlimdimid
138 if(
present(formatnum))
then 146 integer,
intent(in) :: ncid
147 integer,
intent(inout) :: pathlen
148 character(len = *),
intent(inout) :: path
150 integer :: nf90_inq_path
integer function nf_inq_base_pe(ncid, pe)
integer function nf90_set_fill(ncid, fillmode, old_mode)
integer function nf90_delete(name)
integer function nf90_create_mp(path, cmode, initalsz, basepe, chunksizehint, ncid)
integer function nf90_inq_base_pe(ncid, pe)
integer function nf90_abort(ncid)
integer function nf_abort(ncid)
integer function nf90_inquire(ncid, nDimensions, nVariables, nAttributes, unlimitedDimId, formatNum)
integer function nf90_inq_path(ncid, pathlen, path)
integer function nf90_enddef(ncid, h_minfree, v_align, v_minfree, r_align)
function nf__enddef(ncid, h_minfree, v_align, v_minfree, r_align)
integer function nf_inq(ncid, ndims, nvars, ngatts, unlimdimid)
integer function nf_close(ncid)
integer function nf_sync(ncid)
integer function nf90_set_base_pe(ncid, pe)
integer function nf_inq_path(ncid, pathlen, path)
character(len=80) function nf90_inq_libvers()
integer function nf_inq_format(ncid, format_type)
integer function nf_set_fill(ncid, fillmode, old_mode)
character(len=80) function nf_strerror(ncerr)
character(len=80) function nf_inq_libvers()
integer function nf_redef(ncid)
integer function nf__open_mp(path, mode, basepe, chunksizehintp, ncid)
integer function nf90_redef(ncid)
character(len=80) function nf90_strerror(ncerr)
integer function nf_enddef(ncid)
integer function nf_set_base_pe(ncid, pe)
integer function nf90_sync(ncid)
function nf__create_mp(path, cmode, initialsz, basepe, chunksizehintp, ncid)
integer function nf90_open_mp(path, mode, basepe, chunksizeint, ncid)
integer function nf90_close(ncid)
integer function nf_delete(path)