mod_ncll::find_file Interface Reference

Public Member Functions
type(ncfile) function, pointer	find_file_byname (LIST, NAME, FOUND)
type(ncfile) function, pointer	find_file_byncid (LIST, NCID, FOUND)

Detailed Description

Definition at line 205 of file mod_ncll.f90.

Member Function/Subroutine Documentation

find_file_byname()

type(ncfile) function, pointer mod_ncll::find_file::find_file_byname	(	type(ncfilelist), intent(in)	LIST,
		character(len=*), intent(in)	NAME,
		logical, intent(out)	FOUND
	)

Definition at line 737 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCFILE),POINTER               :: NCF
    TYPE(NCFILELIST),    INTENT(IN)    :: LIST
    CHARACTER(LEN=*),  INTENT(IN)    :: NAME
    LOGICAL,             INTENT(OUT)   :: FOUND
    TYPE(NCFILEP), pointer             :: CURRENT, PREVIOUS
    integer                            :: idx

    previous => list%FIRST
    current  => previous%NEXT
    NULLIFY(ncf)
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       if(.not. associated(current%ncf)) Call fatal_error&
            & ("FIND_FILE: Link in file list has file pointer that is &
            &not associated!")

       idx = index(current%NCF%FNAME,name)

       IF( idx /= 0 ) THEN ! FOUND THE FILE LINK
          ncf => current%NCF
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO
    

find_file_byncid()

type(ncfile) function, pointer mod_ncll::find_file::find_file_byncid	(	type(ncfilelist), intent(in)	LIST,
		integer, intent(in)	NCID,
		logical, intent(out)	FOUND
	)

Definition at line 773 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCFILE),POINTER               :: NCF
    TYPE(NCFILELIST),    INTENT(IN) :: LIST
    INTEGER,             INTENT(IN)    :: NCID
    LOGICAL,             INTENT(OUT)   :: FOUND
    TYPE(NCFILEP), pointer             :: CURRENT, PREVIOUS
    
    NULLIFY(ncf)
    previous => list%FIRST
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       IF( ncid == current%NCF%NCID ) THEN ! FOUND THE FILE LINK
          ncf => current%NCF
          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