5 function nf90_def_dim(ncid, name, len, dimid)
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)
13 end function nf90_def_dim
15 function nf90_inq_dimid(ncid, name, dimid)
16 integer,
intent( in) :: ncid
17 character (len = *),
intent( in) :: name
18 integer,
intent(out) :: dimid
19 integer :: nf90_inq_dimid
21 nf90_inq_dimid = nf_inq_dimid(ncid, name, dimid)
22 end function nf90_inq_dimid
24 function nf90_rename_dim(ncid, dimid, name)
25 integer,
intent( in) :: ncid
26 character (len = *),
intent( in) :: name
27 integer,
intent( in) :: dimid
28 integer :: nf90_rename_dim
30 nf90_rename_dim = nf_rename_dim(ncid, dimid, name)
31 end function nf90_rename_dim
33 function nf90_inquire_dimension(ncid, dimid, name, len)
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
45 end function nf90_inquire_dimension