NetCDF-Fortran  4.4.4
testEightByteGet.f90
Go to the documentation of this file.
2  use typesizes
3  use netcdf
4  implicit none
5 
6  ! netcdf related variables
7  integer :: ncFileID, dimId, varId
8 
9  ! Local variables
10  integer, parameter :: numLats = 10
11  character (len = *), parameter :: fileName = "eightByteIntExample.nc"
12  integer :: counter
13  !integer(kind = FourByteInt), dimension(numLats) :: lats
14  integer(kind = EightByteInt), dimension(numLats) :: lats
15 
16 ! -----
17  call check(nf90_create(path = trim(filename), cmode = nf90_clobber, ncid = ncfileid))
18 
19  ! Define the dimensions
20  call check(nf90_def_dim(ncid = ncfileid, name = "lat", len = numlats, dimid = dimid))
21  ! Define the variable
22  call check(nf90_def_var(ncfileid, "lat", nf90_int, dimids = dimid, varid = varid) )
23  ! Leave define mode
24  call check(nf90_enddef(ncfileid))
25  ! Write the variable
26  lats(:) = (/ (counter, counter = 1, numlats) /)
27  print *, lats
28  call check(nf90_put_var(ncfileid, varid, lats ))
29  call check(nf90_close(ncfileid))
30 
31  ! Now read it back in...
32  lats(:) = 0
33  call check(nf90_open(path = trim(filename), mode = nf90_nowrite, ncid = ncfileid))
34  call check(nf90_inq_varid(ncfileid, "lat", varid))
35  call check(nf90_get_var(ncfileid, varid, lats))
36  print *, lats
37  call check(nf90_close(ncfileid))
38 
39 contains
40  ! Internal subroutine - checks error status after each netcdf, prints out text message each time
41  ! an error code is returned.
42  subroutine check(status)
43  integer, intent ( in) :: status
44 
45  if(status /= nf90_noerr) then
46  print *, trim(nf90_strerror(status))
47  end if
48  end subroutine check
49 end program testeightbyteget
program testeightbyteget
subroutine check(status)
integer function nf90_enddef(ncid, h_minfree, v_align, v_minfree, r_align)
Definition: netcdf_file.f90:74
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)
Definition: netcdf_dims.f90:6
integer function nf90_open(path, mode, ncid, chunksize)
Definition: netcdf3_file.f90:9
character(len=80) function nf90_strerror(ncerr)
Definition: netcdf_file.f90:16
integer function nf90_close(ncid)

Return to the Main Unidata NetCDF page.
Generated on Fri Oct 27 2017 08:12:17 for NetCDF-Fortran. NetCDF is a Unidata library.