mod_ncll::find_var Interface Reference

Public Member Functions
type(ncvar) function, pointer	find_var_byname (LIST, NAME, FOUND)
type(ncvar) function, pointer	find_var_byvarid (LIST, VARID, FOUND)

Detailed Description

Definition at line 229 of file mod_ncll.f90.

Member Function/Subroutine Documentation

find_var_byname()

type(ncvar) function, pointer mod_ncll::find_var::find_var_byname	(	type(ncfile), intent(in)	LIST,
		character(len=*), intent(in)	NAME,
		logical, intent(out)	FOUND
	)

Definition at line 1249 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCVAR), POINTER                :: VAR
    TYPE(NCFILE),         INTENT(IN) :: LIST
    CHARACTER(LEN=*),INTENT(IN)    :: NAME
    LOGICAL,              INTENT(OUT)   :: FOUND
    TYPE(NCVARP)                ,POINTER :: CURRENT, PREVIOUS
    
    NULLIFY(var)
    previous => list%VARS
    current  => previous%NEXT
    found = .false.

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

find_var_byvarid()

type(ncvar) function, pointer mod_ncll::find_var::find_var_byvarid	(	type(ncfile), intent(in)	LIST,
		integer, intent(in)	VARID,
		logical, intent(out)	FOUND
	)

Definition at line 1278 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCVAR), POINTER                :: VAR
    TYPE(NCFILE),         INTENT(IN) :: LIST
    INTEGER,              INTENT(IN)    :: VARID
    LOGICAL,              INTENT(OUT)   :: FOUND
    TYPE(NCVARP)                ,POINTER :: CURRENT, PREVIOUS
    
    NULLIFY(var)
    previous => list%VARS
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       IF( varid == current%VAR%VARID ) THEN ! FOUND THE FILE LINK
          var => current%VAR
          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