7 integer :: ncFileID, dimId, varId
10 integer,
parameter :: numLats = 10
11 character (len = *),
parameter :: fileName =
"eightByteIntExample.nc" 14 integer(kind = EightByteInt),
dimension(numLats) :: lats
17 call check(
nf90_create(path = trim(filename), cmode = nf90_clobber, ncid = ncfileid))
20 call check(
nf90_def_dim(ncid = ncfileid, name =
"lat", len = numlats, dimid = dimid))
22 call check(
nf90_def_var(ncfileid,
"lat", nf90_int, dimids = dimid, varid = varid) )
26 lats(:) = (/ (counter, counter = 1, numlats) /)
33 call check(
nf90_open(path = trim(filename), mode = nf90_nowrite, ncid = ncfileid))
42 subroutine check(status)
43 integer,
intent ( in) :: status
45 if(status /= nf90_noerr)
then
integer function nf90_enddef(ncid, h_minfree, v_align, v_minfree, r_align)
integer function nf90_create(path, cmode, ncid, initialsize, chunksize)
integer function nf90_inq_varid(ncid, name, varid)
integer function nf90_def_dim(ncid, name, len, dimid)
integer function nf90_open(path, mode, ncid, chunksize)
character(len=80) function nf90_strerror(ncerr)
integer function nf90_close(ncid)