5 integer,
intent( in) :: ncid
6 character (len = *),
intent( in) :: name
7 integer,
intent( in) :: xtype
8 integer,
intent(out) :: varid
9 integer :: nf90_def_var_Scalar
12 integer,
dimension(1) :: dimids
14 nf90_def_var_scalar =
nf_def_var(ncid, name, xtype, 0, dimids, varid)
18 integer,
intent( in) :: ncid
19 character (len = *),
intent( in) :: name
20 integer,
intent( in) :: xtype
21 integer,
intent( in) :: dimids
22 integer,
intent(out) :: varid
23 integer :: nf90_def_var_oneDim
25 integer,
dimension(1) :: dimidsA
27 nf90_def_var_onedim =
nf_def_var(ncid, name, xtype, 1, dimidsa, varid)
31 integer,
intent( in) :: ncid
32 character (len = *),
intent( in) :: name
33 integer,
intent( in) :: xtype
34 integer,
dimension(:),
intent( in) :: dimids
35 integer,
intent(out) :: varid
36 integer :: nf90_def_var_ManyDims
38 nf90_def_var_manydims =
nf_def_var(ncid, name, xtype,
size(dimids), dimids, varid)
42 integer,
intent( in) :: ncid
43 character (len = *),
intent( in) :: name
44 integer,
intent(out) :: varid
45 integer :: nf90_inq_varid
51 integer,
intent( in) :: ncid, varid
52 character (len = *),
optional,
intent(out) :: name
53 integer,
optional,
intent(out) :: xtype, ndims
54 integer,
dimension(:),
optional,
intent(out) :: dimids
55 integer,
optional,
intent(out) :: nAtts
56 integer :: nf90_inquire_variable
59 character (len = nf90_max_name) :: varName
60 integer :: externalType, numDimensions
61 integer,
dimension(nf90_max_var_dims) :: dimensionIDs
62 integer :: numAttributes
64 nf90_inquire_variable =
nf_inq_var(ncid, varid, varname, externaltype, &
65 numdimensions, dimensionids, numattributes)
66 if (nf90_inquire_variable == nf90_noerr)
then 67 if(
present(name)) name = trim(varname)
68 if(
present(xtype)) xtype = externaltype
69 if(
present(ndims)) ndims = numdimensions
70 if(
present(dimids))
then 71 if (
size(dimids) .ge. numdimensions)
then 72 dimids(:numdimensions) = dimensionids(:numdimensions)
74 nf90_inquire_variable = nf90_einval
77 if(
present(natts)) natts = numattributes
82 integer,
intent( in) :: ncid, varid
83 character (len = *),
intent( in) :: newname
84 integer :: nf90_rename_var
integer function nf_inq_var(ncid, varid, name, xtype, ndims, dimids, natts)
integer function nf90_def_var_manydims(ncid, name, xtype, dimids, varid, contiguous, chunksizes, deflate_level, shuffle, fletcher32, endianness, cache_size, cache_nelems, cache_preemption)
integer function nf90_rename_var(ncid, varid, newname)
integer function nf_rename_var(ncid, varid, name)
integer function nf90_inq_varid(ncid, name, varid)
integer function nf90_inquire_variable(ncid, varid, name, xtype, ndims, dimids, nAtts, contiguous, chunksizes, deflate_level, shuffle, fletcher32, endianness, cache_size, cache_nelems, cache_preemption)
integer function nf_def_var(ncid, name, xtype, nvdims, vdims, varid)
integer function nf90_def_var_scalar(ncid, name, xtype, varid)
integer function nf_inq_varid(ncid, name, varid)
integer function nf90_def_var_onedim(ncid, name, xtype, dimids, varid, contiguous, chunksizes, deflate_level, shuffle, fletcher32, endianness, cache_size, cache_nelems, cache_preemption)