mod_ncll::delete_file_link Interface Reference

Public Member Functions
subroutine	delete_filep_byname (LIST, NAME, FOUND)
subroutine	delete_filep_byncid (LIST, NCID, FOUND)

Detailed Description

Definition at line 193 of file mod_ncll.f90.

Member Function/Subroutine Documentation

delete_filep_byname()

subroutine mod_ncll::delete_file_link::delete_filep_byname	(	type(ncfilelist), intent(inout)	LIST,
		character(len=*), intent(in)	NAME,
		logical, intent(out)	FOUND
	)

Definition at line 544 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCFILELIST),   INTENT(INOUT) :: LIST
    CHARACTER(LEN=*), INTENT(IN)    :: NAME
    LOGICAL,            INTENT(OUT)   :: FOUND
    TYPE(NCFILEP), pointer            :: CURRENT, PREVIOUS
    
    previous => list%FIRST
    current  => previous%NEXT
    found = .false.

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

    ! IF FOUND DELETE IT
    previous%NEXT => current%NEXT
    CALL kill_file(current%NCF)
    DEALLOCATE(current)
   

delete_filep_byncid()

subroutine mod_ncll::delete_file_link::delete_filep_byncid	(	type(ncfilelist), intent(inout)	LIST,
		integer, intent(in)	NCID,
		logical, intent(out)	FOUND
	)

Definition at line 575 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCFILELIST),   INTENT(INOUT) :: LIST
    INTEGER, INTENT(IN)               :: NCID
    LOGICAL,            INTENT(OUT)   :: FOUND
    TYPE(NCFILEP),pointer             :: CURRENT, PREVIOUS
    
    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
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

    ! IF FOUND DELETE IT
    previous%NEXT => current%NEXT
    CALL kill_file(current%NCF)
    DEALLOCATE(current)
   

---

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

• FVCOMg01/mod_ncll.f90