mod_ncll::delete_var_link Interface Reference

Public Member Functions
subroutine	delete_varp_byname (LIST, NAME, FOUND)
subroutine	delete_varp_byvarid (LIST, VARID, FOUND)

Detailed Description

Definition at line 217 of file mod_ncll.f90.

Member Function/Subroutine Documentation

delete_varp_byname()

subroutine mod_ncll::delete_var_link::delete_varp_byname	(	type(ncfile), intent(inout)	LIST,
		character(len=*), intent(in)	NAME,
		logical, intent(out)	FOUND
	)

Definition at line 1074 of file mod_ncll.f90.

    IMPLICIT NONE
    ! NCFILE IS ALWAYS THE HEAD FOR A VAR LINK LIST
    TYPE(NCFILE),                  INTENT(INOUT):: LIST
    CHARACTER(LEN=*),INTENT(IN)                 :: NAME
    LOGICAL,                       INTENT(OUT)  :: FOUND
    TYPE(NCVARP), pointer                       :: CURRENT, PREVIOUS
    
    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
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

    ! IF FOUND DELETE IT
    previous%NEXT => current%NEXT
    CALL kill_var(current%VAR)
    DEALLOCATE(current)
   

delete_varp_byvarid()

subroutine mod_ncll::delete_var_link::delete_varp_byvarid	(	type(ncfile), intent(inout)	LIST,
		integer, intent(in)	VARID,
		logical, intent(out)	FOUND
	)

Definition at line 1106 of file mod_ncll.f90.

    IMPLICIT NONE
    ! NCFILE IS ALWAYS THE HEAD FOR A VAR LINK LIST
    TYPE(NCFILE),                  INTENT(INOUT):: LIST
    INTEGER,                       INTENT(IN)   :: VARID
    LOGICAL,                       INTENT(OUT)  :: FOUND
    TYPE(NCVARP), pointer                       :: CURRENT, PREVIOUS
    
    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
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

    ! IF FOUND DELETE IT
    previous%NEXT => current%NEXT
    CALL kill_var(current%VAR)
    DEALLOCATE(current)
   

---

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

• FVCOMg01/mod_ncll.f90