mod_ncll::find_att Interface Reference

Public Member Functions
type(ncatt) function, pointer	find_ncf_att_byname (LIST, NAME, FOUND)
type(ncatt) function, pointer	find_ncf_att_byattid (LIST, ATTID, FOUND)
type(ncatt) function, pointer	find_var_att_byname (LIST, NAME, FOUND)
type(ncatt) function, pointer	find_var_att_byattid (LIST, ATTID, FOUND)

Detailed Description

Definition at line 262 of file mod_ncll.f90.

Member Function/Subroutine Documentation

find_ncf_att_byattid()

type(ncatt) function, pointer mod_ncll::find_att::find_ncf_att_byattid	(	type(ncfile), intent(in)	LIST,
		integer, intent(in)	ATTID,
		logical, intent(out)	FOUND
	)

Definition at line 1941 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCATT), POINTER               :: ATT
    INTEGER,              INTENT(IN)   :: ATTID
    TYPE(NCFILE),         INTENT(IN):: LIST
    LOGICAL,              INTENT(OUT)  :: FOUND
    TYPE(NCATTP)               ,POINTER :: CURRENT, PREVIOUS
    
    NULLIFY(att)
    previous => list%ATTS
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       IF( attid == current%ATT%ATTID ) THEN ! FOUND THE FILE LINK
          att => current%ATT
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

find_ncf_att_byname()

type(ncatt) function, pointer mod_ncll::find_att::find_ncf_att_byname	(	type(ncfile), intent(in)	LIST,
		character(len=*), intent(in)	NAME,
		logical, intent(out)	FOUND
	)

Definition at line 1912 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCATT), POINTER               :: ATT
    TYPE(NCFILE),         INTENT(IN):: LIST
    CHARACTER(LEN=*),INTENT(IN)    :: NAME
    LOGICAL,              INTENT(OUT)  :: FOUND
    TYPE(NCATTP)               ,POINTER :: CURRENT, PREVIOUS
    
    NULLIFY(att)
    previous => list%ATTS
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       IF( trim(name) == trim(current%ATT%ATTNAME) ) THEN ! FOUND THE FILE LINK
          att => current%ATT
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

find_var_att_byattid()

type(ncatt) function, pointer mod_ncll::find_att::find_var_att_byattid	(	type(ncvar), intent(in)	LIST,
		integer, intent(in)	ATTID,
		logical, intent(out)	FOUND
	)

Definition at line 1999 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCATT), POINTER               :: ATT
    INTEGER,              INTENT(IN)   :: ATTID
    TYPE(NCVAR),          INTENT(IN):: LIST
    LOGICAL,              INTENT(OUT)  :: FOUND
    TYPE(NCATTP)               ,POINTER :: CURRENT, PREVIOUS
    
    NULLIFY(att)
    previous => list%ATTS
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       IF( attid == current%ATT%ATTID ) THEN ! FOUND THE FILE LINK
          att => current%ATT
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

find_var_att_byname()

type(ncatt) function, pointer mod_ncll::find_att::find_var_att_byname	(	type(ncvar), intent(in)	LIST,
		character(len=*), intent(in)	NAME,
		logical, intent(out)	FOUND
	)

Definition at line 1970 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCATT), POINTER               :: ATT
    TYPE(NCVAR),         INTENT(IN) :: LIST
    CHARACTER(LEN=*),INTENT(IN)    :: NAME
    LOGICAL,             INTENT(OUT)   :: FOUND
    TYPE(NCATTP)               ,POINTER :: CURRENT, PREVIOUS
    
    NULLIFY(att)
    previous => list%ATTS
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       IF( trim(name) == trim(current%ATT%ATTNAME) ) THEN ! FOUND THE FILE LINK
          att => current%ATT
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

---

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

• FVCOMg01/mod_ncll.f90