6 integer,
intent( in) :: ncid
7 character (len = *),
intent( in) :: name
8 integer,
intent( in) :: len
9 integer,
intent(out) :: dimid
10 integer :: nf90_def_dim
12 nf90_def_dim =
nf_def_dim(ncid, name, len, dimid)
16 integer,
intent( in) :: ncid
17 character (len = *),
intent( in) :: name
18 integer,
intent(out) :: dimid
19 integer :: nf90_inq_dimid
25 integer,
intent( in) :: ncid
26 character (len = *),
intent( in) :: name
27 integer,
intent( in) :: dimid
28 integer :: nf90_rename_dim
34 integer,
intent( in) :: ncid, dimid
35 character (len = *),
optional,
intent(out) :: name
36 integer,
optional,
intent(out) :: len
37 integer :: nf90_inquire_dimension
39 character (len = nf90_max_name) :: dimName
42 nf90_inquire_dimension =
nf_inq_dim(ncid, dimid, dimname, length)
43 if(
present(name)) name = trim(dimname)
44 if(
present(len )) len = length
integer function nf90_inq_dimid(ncid, name, dimid)
integer function nf_inq_dimid(ncid, name, dimid)
integer function nf90_inquire_dimension(ncid, dimid, name, len)
integer function nf_rename_dim(ncid, dimid, name)
integer function nf90_def_dim(ncid, name, len, dimid)
integer function nf_def_dim(ncid, name, dlen, dimid)
integer function nf90_rename_dim(ncid, dimid, name)
integer function nf_inq_dim(ncid, dimid, name, dlen)