mod_ncll::insert_att_link Interface Reference

Public Member Functions
subroutine	insert_ncf_attp_byatt (LIST, ATT, FOUND)
subroutine	insert_var_attp_byatt (LIST, ATT, FOUND)

Detailed Description

Definition at line 255 of file mod_ncll.f90.

Member Function/Subroutine Documentation

insert_ncf_attp_byatt()

subroutine mod_ncll::insert_att_link::insert_ncf_attp_byatt	(	type(ncfile), intent(inout)	LIST,
		type(ncatt), pointer	ATT,
		logical, intent(out)	FOUND
	)

Definition at line 1802 of file mod_ncll.f90.

    ! IF FOUND DO NOT INSERT DUPLICATE, RETURN FOUND
    ! ALWAYS INSERT NCVARP AT THE END OF THE LIST
    IMPLICIT NONE
    TYPE(NCATT), POINTER                        :: ATT
    LOGICAL,                       INTENT(OUT)  :: FOUND
    TYPE(NCFILE),                  INTENT(INOUT):: LIST
    TYPE(NCATTP),POINTER                        :: CURRENT, PREVIOUS
    INTEGER CNT
    IF(.NOT.ASSOCIATED(att))&
         & CALL fatal_error("INSERT_NCF_ATTP_BYATT: ATT NOT ASSOCIATED!")

    previous => list%ATTS
    current  => previous%NEXT
    found = .false.
    cnt= 1

    ! DO NOT MAKE DUPLICATE ENTRIES IN THE LIST
    DO
       IF(.NOT. ASSOCIATED(current)) EXIT !END OF LIST
       IF( att%ATTNAME == current%ATT%ATTNAME ) THEN ! FOUND THE FILE LINK
          found = .true.
          RETURN
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
          cnt = cnt + 1
       END IF
    END DO
    ! NOT FOUND - ADD NEW FILE TO END OF LIST
     
    previous%NEXT => new_attp()
    previous%NEXT%ATT => att
    att%ATTID = cnt ! SET THE ATTID 

    previous%NEXT%NEXT => current
    

insert_var_attp_byatt()

subroutine mod_ncll::insert_att_link::insert_var_attp_byatt	(	type(ncvar), intent(inout)	LIST,
		type(ncatt), pointer	ATT,
		logical, intent(out)	FOUND
	)

Definition at line 1875 of file mod_ncll.f90.

    ! IF FOUND DO NOT INSERT DUPLICATE, RETURN FOUND
    ! ALWAYS INSERT NCVARP AT THE END OF THE LIST
    IMPLICIT NONE
    TYPE(NCATT),POINTER                         :: ATT
    LOGICAL,                       INTENT(OUT)  :: FOUND
    TYPE(NCVAR),                   INTENT(INOUT):: LIST
    TYPE(NCATTP),POINTER                        :: CURRENT, PREVIOUS
    INTEGER CNT
    IF(.NOT.ASSOCIATED(att))&
         & CALL fatal_error("INSERT_VAR_ATTP_BYATT: ATT NOT ASSOCIATED!")

    previous => list%ATTS
    current  => previous%NEXT
    found = .false.
    cnt = 1
    ! DO NOT MAKE DUPLICATE ENTRIES IN THE LIST
    DO
       IF(.NOT. ASSOCIATED(current)) EXIT !END OF LIST
       IF( att%ATTNAME == current%ATT%ATTNAME ) THEN ! FOUND THE FILE LINK
          found = .true.
          RETURN
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
          cnt = cnt + 1
       END IF
    END DO
    ! NOT FOUND - ADD NEW FILE TO END OF LIST
    previous%NEXT => new_attp()
    previous%NEXT%ATT => att

    att%ATTID = cnt ! SET THE ATTID 

---

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

• FVCOMg01/mod_ncll.f90