8 function nf90_open(path, mode, ncid, chunksize)
9 character (len = *),
intent(in ) :: path
10 integer,
intent(in ) :: mode
11 integer,
intent( out) :: ncid
12 integer,
optional,
intent(inout) :: chunksize
15 if(
present(chunksize))
then
16 nf90_open = nf__open(path, mode, chunksize, ncid)
18 nf90_open = nf_open(path, mode, ncid)
20 end function nf90_open
22 function nf90_create(path, cmode, ncid, initialsize, chunksize)
23 character (len = *),
intent(in ) :: path
24 integer,
intent(in ) :: cmode
25 integer,
intent( out) :: ncid
26 integer,
optional,
intent(in ) :: initialsize
27 integer,
optional,
intent(inout) :: chunksize
28 integer :: nf90_create
30 integer :: filesize, chunk
32 if(.not. (
present(initialsize) .or.
present(chunksize)) )
then
33 nf90_create = nf_create(path, cmode, ncid)
36 filesize = 0; chunk = nf90_sizehint_default
37 if(
present(initialsize)) filesize = initialsize
38 if(
present(chunksize )) chunk = chunksize
39 nf90_create = nf__create(path, cmode, filesize, chunk, ncid)
41 if(
present(chunksize )) chunksize = chunk
43 end function nf90_create