var/da/da_update_bc/da_get_gl_att_int_cdf.inc

   1 subroutine da_get_gl_att_int_cdf(file, att_name, value, debug, return_code)
   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)  :: att_name
  13    logical,            intent(in)  :: debug
  14    integer,            intent(out) :: value
  15    integer, optional,  intent(out) :: return_code
  16
  17    integer :: cdfid, rcode
  18
  19    ! if (trace_use_dull) call da_trace_entry("da_get_gl_att_int_cdf")
  20
  21    cdfid = ncopn(file, NCNOWRIT, rcode)
  22
  23    if (rcode == 0) then
  24      if (debug) write(unit=stdout,fmt=*) ' open netcdf file ', trim(file)
  25    else
  26      write(unit=stdout,fmt=*) ' error openiing netcdf file ', trim(file)
  27      stop
  28    end if
  29
  30    rcode = NF_GET_ATT_inT(cdfid, nf_global, att_name, value)
  31
  32    if ( present(return_code) ) then
  33       return_code = rcode
  34    end if
  35
  36    call ncclos(cdfid,rcode)
  37
  38    if (debug) write(unit=stdout,fmt=*) ' global attribute ',att_name,' is ',value
  39
  40    ! if (trace_use_dull) call da_trace_exit("da_get_gl_att_int_cdf")
  41
  42 end subroutine da_get_gl_att_int_cdf
  43
  44