mod_ncll::insert_file_link Interface Reference

Public Member Functions
subroutine	insert_filep_byncf (LIST, NCF, FOUND)

Detailed Description

Definition at line 200 of file mod_ncll.f90.

Member Function/Subroutine Documentation

insert_filep_byncf()

subroutine mod_ncll::insert_file_link::insert_filep_byncf	(	type(ncfilelist), intent(inout)	LIST,
		type(ncfile), pointer	NCF,
		logical, intent(out)	FOUND
	)

Definition at line 703 of file mod_ncll.f90.

    ! ONLY INSERT NEW FILE IF NOT FOUND
    ! ALWAYS INSERT NCFILEP AT THE END OF THE LIST
    IMPLICIT NONE
    TYPE(NCFILE),POINTER              :: NCF
    LOGICAL,            INTENT(OUT)   :: FOUND
    TYPE(NCFILELIST),   INTENT(INOUT) :: LIST
    TYPE(NCFILEP), pointer            :: CURRENT, PREVIOUS
    
    IF(.NOT.ASSOCIATED(ncf))&
         & CALL fatal_error("INSERT_FILEP_BYNCF: NCF NOT ASSOCIATED!")

    previous => list%FIRST
    current  => previous%NEXT
    found = .false.
    ! DO NOT MAKE DUPLICATE ENTRIES IN THE LIST
    DO
       IF(.NOT. ASSOCIATED(current)) EXIT !END OF LIST
       IF( ncf%FNAME == current%NCF%FNAME ) THEN ! FOUND THE FILE LINK
          found = .true.
          RETURN
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO
    ! NOT FOUND - ADD NEW FILE TO END OF LIST

    previous%NEXT => new_filep()
    previous%NEXT%NCF => ncf
    

---

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

• FVCOMg01/mod_ncll.f90