mod_ncll::delete_att_list Interface Reference

Public Member Functions
subroutine	delete_ncf_attp_list (LIST)
subroutine	delete_var_attp_list (LIST)

Detailed Description

Definition at line 249 of file mod_ncll.f90.

Member Function/Subroutine Documentation

delete_ncf_attp_list()

subroutine mod_ncll::delete_att_list::delete_ncf_attp_list

(

type(ncfile), intent(inout)

LIST

)

Definition at line 1646 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCFILE),                  INTENT(INOUT):: LIST
    TYPE(NCATTP)                        ,POINTER :: CURRENT, PREVIOUS
    
    previous => list%ATTS
    current  => previous%NEXT
    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST

       ! IF FOUND DELETE IT
       previous%NEXT => current%NEXT
       CALL kill_att(current%ATT)
       DEALLOCATE(current)
       current => previous%NEXT

    END DO
   

delete_var_attp_list()

subroutine mod_ncll::delete_att_list::delete_var_attp_list

(

type(ncvar), intent(inout)

LIST

)

Definition at line 1730 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCVAR), INTENT(INOUT):: LIST
    TYPE(NCATTP),POINTER      :: CURRENT, PREVIOUS
    
    previous => list%ATTS
    current  => previous%NEXT

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       previous%NEXT => current%NEXT
       CALL kill_att(current%ATT)
       DEALLOCATE(current)
       current => previous%NEXT

    END DO

---

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

• FVCOMg01/mod_ncll.f90