var/da/da_update_bc/da_get_att_cdf.inc

   1 subroutine da_get_att_cdf(file, var, debug)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: TBD
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9 #include "netcdf.inc"
  10
  11    character (len=*),  intent(in) :: file
  12    character (len=*),  intent(in) :: var
  13    logical,            intent(in) :: debug
  14
  15    integer             :: cdfid, status, varid, n, natts
  16    character (len=256) :: att_name
  17
  18    ! if (trace_use) call da_trace_entry("da_get_att_cdf")
  19
  20    status = NF_OPEN(file, NF_NOWRITE, cdfid)
  21
  22    status = NF_inQ_VARID(cdfid, var, varid)
  23
  24    if (status == 0) then
  25       if (debug) write(unit=stdout,fmt=*) ' open netcdf file ', trim(file)
  26    else
  27       write(unit=stdout,fmt=*) ' error openiing netcdf file ', trim(file)
  28       stop
  29    end if
  30
  31    status = NF_inQ_VARNATTS(cdfid, varid, natts)
  32
  33    do n=1, natts
  34       status = NF_inQ_ATTNAME(cdfid, varid, n, att_name)
  35
  36       write(unit=stdout, fmt='(a,i2,2a)') &
  37         'att_name(',n,')=', trim(att_name)
  38    end do
  39
  40    status = NF_close(cdfid)
  41
  42    ! if (trace_use) call da_trace_exit("da_get_att_cdf")
  43
  44 end subroutine da_get_att_cdf
  45
  46