mod_ncll::delete_att_link Interface Reference

Public Member Functions
subroutine	delete_ncf_attp_byname (LIST, NAME, FOUND)
subroutine	delete_ncf_attp_byattid (LIST, ATTID, FOUND)
subroutine	delete_var_attp_byname (LIST, NAME, FOUND)
subroutine	delete_var_attp_byattid (LIST, ATTID, FOUND)

Detailed Description

Definition at line 242 of file mod_ncll.f90.

Member Function/Subroutine Documentation

delete_ncf_attp_byattid()

subroutine mod_ncll::delete_att_link::delete_ncf_attp_byattid	(	type(ncfile), intent(inout)	LIST,
		integer, intent(in)	ATTID,
		logical, intent(out)	FOUND
	)

Definition at line 1615 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCFILE),                  INTENT(INOUT):: LIST
    INTEGER,                       INTENT(IN)   :: ATTID
    LOGICAL,                       INTENT(OUT)  :: FOUND
    TYPE(NCATTP)                        ,POINTER :: CURRENT, PREVIOUS
    
    previous => list%ATTS
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       IF( attid == current%ATT%ATTID ) 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_att(current%ATT)
    DEALLOCATE(current)
   

delete_ncf_attp_byname()

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

Definition at line 1584 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCFILE),                  INTENT(INOUT):: LIST
    CHARACTER(LEN=*),INTENT(IN)   :: NAME
    LOGICAL,                       INTENT(OUT)  :: FOUND
    TYPE(NCATTP)                        ,POINTER :: CURRENT, PREVIOUS
    
    previous => list%ATTS
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       IF( name == current%ATT%ATTNAME ) 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_att(current%ATT)
    DEALLOCATE(current)
   

delete_var_attp_byattid()

subroutine mod_ncll::delete_att_link::delete_var_attp_byattid	(	type(ncvar), intent(inout)	LIST,
		integer, intent(in)	ATTID,
		logical, intent(out)	FOUND
	)

Definition at line 1699 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCVAR),                   INTENT(INOUT):: LIST
    INTEGER,                       INTENT(IN)   :: ATTID
    LOGICAL,                       INTENT(OUT)  :: FOUND
    TYPE(NCATTP), POINTER                       :: CURRENT, PREVIOUS
    
    previous => list%ATTS
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       IF( attid == current%ATT%ATTID ) 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_att(current%ATT)
    DEALLOCATE(current)
   

delete_var_attp_byname()

subroutine mod_ncll::delete_att_link::delete_var_attp_byname	(	type(ncvar), intent(inout)	LIST,
		character(len=*), intent(in)	NAME,
		logical, intent(out)	FOUND
	)

Definition at line 1667 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCVAR),                   INTENT(INOUT):: LIST
!    CHARACTER(LEN=NF90_MAX_NAME+1),INTENT(IN)   :: NAME
    CHARACTER(LEN=*),INTENT(IN)   :: NAME
    LOGICAL,                       INTENT(OUT)  :: FOUND
    TYPE(NCATTP)                        ,POINTER :: CURRENT, PREVIOUS
    
    previous => list%ATTS
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       IF( name == current%ATT%ATTNAME ) 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_att(current%ATT)
    DEALLOCATE(current)
   

---

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

• FVCOMg01/mod_ncll.f90