read_scalar_attribute_code.f90

 
  type(Dataset), intent(in) :: dset
  character(len=*), intent(in), optional :: varname
  integer, intent(out), optional :: errcode
  character(len=*), intent(in) :: attname
  integer ncerr, varid, nvar
  logical return_errcode
  ! optional return of errcode
  if(present(errcode)) then
     return_errcode=.true.
     errcode = 0
  else
     return_errcode=.false.
  endif
  ! access attribute name based on variable name
  if(present(varname))then
     nvar = get_nvar(dset,varname)
     varid = dset%variables(nvar)%varid
  else
     varid = nf90_global
  endif
  ncerr = nf90_get_att(dset%ncid, varid, trim(attname), values)
  ! err check
  if (return_errcode) then
     call nccheck(ncerr,halt=.false.)
     errcode=ncerr
     return
  else
     call nccheck(ncerr)
  endif