mod_nctools::nc_get_att Interface Reference

Public Member Functions
type(ncatt) function, pointer	nc_get_vatt (VAR, attid)
type(ncatt) function, pointer	nc_get_gatt (NCF, attid)

Detailed Description

Definition at line 59 of file mod_nctools.f90.

Member Function/Subroutine Documentation

nc_get_gatt()

type(ncatt) function, pointer mod_nctools::nc_get_att::nc_get_gatt	(	type(ncfile), intent(in)	NCF,
		integer, intent(in)	attid
	)

Definition at line 847 of file mod_nctools.f90.

  implicit none
  TYPE(NCFILE), INTENT(IN) :: NCF
  TYPE(NCATT),  pointer    :: ATT
  integer,      intent(in) :: attid
  integer                  :: status
  CHARACTER(LEN=120)       :: errmsg
  CHARACTER(LEN=NF90_MAX_NAME+1)   :: NAME

  if(dbg_set(dbg_sbr)) &
       & write(ipt,*) "START NC_GET_GATT"

  status=nf90_inq_attname(ncf%NCID,nf90_global,attid,name)
  errmsg="Can not get a file's global attribute name: "//trim(ncf%FNAME)
  call handle_ncerr(status,errmsg)

  att => new_att()
  att%attname=trim(name)
  att%attID=attid
  
  status = nf90_inquire_attribute &
       & (ncf%NCID,nf90_global,trim(att%ATTNAME),att%XTYPE,att%LEN)

  call read_att_type(ncf%NCID,nf90_global,att)

  if(dbg_set(dbg_sbr)) &
       & write(ipt,*) "END NC_GET_GATT"

nc_get_vatt()

type(ncatt) function, pointer mod_nctools::nc_get_att::nc_get_vatt	(	type(ncvar), intent(in)	VAR,
		integer, intent(in)	attid
	)

Definition at line 877 of file mod_nctools.f90.

  implicit none
  TYPE(NCVAR),  INTENT(IN) :: VAR
  TYPE(NCATT),  pointer    :: ATT
  integer,      intent(in) :: attid
  integer                  :: status
  CHARACTER(LEN=120)       :: errmsg
  CHARACTER(LEN=NF90_MAX_NAME+1) :: NAME

  if(dbg_set(dbg_sbr)) &
       & write(ipt,*) "START NC_GET_VATT"

  status=nf90_inq_attname(var%NCID,var%VARID,attid,name)
  errmsg="Can not get variable attribute name: "//trim(var%VARNAME)
  call handle_ncerr(status,errmsg)

  att => new_att()
  att%attname=trim(name)
  att%attID=attid

  status = nf90_inquire_attribute &
       & (var%NCID,var%VARID,trim(att%ATTNAME),att%XTYPE,att%LEN)

  call read_att_type(var%NCID,var%VARID,att)

  if(dbg_set(dbg_sbr)) &
       & write(ipt,*) "END NC_GET_VATT"

---

The documentation for this interface was generated from the following file:

• FVCOMg01/mod_nctools.f90