1 program testeightbyteget
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) )
24 call check(nf90_enddef(ncfileid))
26 lats(:) = (/ (counter, counter = 1, numlats) /)
29 call check(nf90_close(ncfileid))
33 call check(nf90_open(path = trim(filename), mode = nf90_nowrite, ncid = ncfileid))
34 call check(nf90_inq_varid(ncfileid,
"lat", varid))
37 call check(nf90_close(ncfileid))
42 subroutine check(status)
43 integer,
intent ( in) :: status
45 if(status /= nf90_noerr)
then 46 print *, trim(nf90_strerror(status))
49 end program testeightbyteget