mod_ncll::print_att_list Interface Reference

Public Member Functions
subroutine	print_ncf_att_list (LIST)
subroutine	print_var_att_list (LIST)

Detailed Description

Definition at line 274 of file mod_ncll.f90.

Member Function/Subroutine Documentation

print_ncf_att_list()

subroutine mod_ncll::print_att_list::print_ncf_att_list

(

type(ncfile), intent(in)

LIST

)

Definition at line 2066 of file mod_ncll.f90.

    IMPLICIT NONE
    type(NCFILE), intent(IN)           :: LIST
    TYPE(NCATTP)               ,POINTER :: CURRENT, PREVIOUS
    INTEGER                            :: CNT
    Character(len=4)                   :: chr

    previous => list%ATTS
    current  => previous%NEXT

    IF(.NOT. ASSOCIATED(current)) THEN ! EMPTY LIST
       if(dbg_set(dbg_log)) &
            & write(ipt,*)"%%%%%%%%%%% FILE ATTRIBUTE LIST IS EMPTY %%%%%%%%%%%%%"
       RETURN
    ELSE
       if(dbg_set(dbg_log)) &
            & write(ipt,*)"%%%%%%% PRINTING GLOBAL ATTRIBUTE LIST %%%%%%%%%"
    END IF
    
    cnt = 0
    DO
       IF(.NOT. ASSOCIATED(current)) EXIT !END OF LIST
       cnt = cnt + 1
       write(chr,'(I4.4)')cnt
       if(dbg_set(dbg_log)) &
            & write(ipt,*)"! PRINTING ATTRIBUTE LIST ENTRY #"//chr
       CALL print_att(current%ATT)

       previous => previous%NEXT
       current  => current%NEXT
    END DO
    if(dbg_set(dbg_log)) &
         & write(ipt,*)"%%%%%%%%%%% END OF ATTRIBUTE LIST %%%%%%%%%%%%%"

print_var_att_list()

subroutine mod_ncll::print_att_list::print_var_att_list

(

type(ncvar), intent(in)

LIST

)

Definition at line 2102 of file mod_ncll.f90.

    IMPLICIT NONE
    type(NCVAR), intent(IN)            :: LIST
    TYPE(NCATTP)               ,POINTER :: CURRENT, PREVIOUS
    INTEGER                            :: CNT
    Character(len=4)                   :: chr

    previous => list%ATTS
    current  => previous%NEXT

    IF(.NOT. ASSOCIATED(current)) THEN ! EMPTY LIST
       if(dbg_set(dbg_log)) &
            & write(ipt,*)"%%%%%%%% VAIABLE ATTRIBUTE LIST IS EMPTY %%%%%%%%%%"
       RETURN
    ELSE
       if(dbg_set(dbg_log)) &
            & write(ipt,*)"%%%%%%% PRINTING VARIALBE: "//trim(list%VARNAME)//"&
            &; ATTRIBUTE LIST %%%%%%%%"
    END IF
    
    cnt = 0
    DO
       IF(.NOT. ASSOCIATED(current)) EXIT !END OF LIST
       cnt = cnt + 1
       write(chr,'(I4.4)')cnt
       if(dbg_set(dbg_log)) &
            & write(ipt,*)"! PRINTING ATTRIBUTE LIST ENTRY #"//chr
       CALL print_att(current%ATT)

       previous => previous%NEXT
       current  => current%NEXT
    END DO
    if(dbg_set(dbg_log)) &
         & write(ipt,*)"%%%%%%%%%%% END OF ATTRIBUTE LIST %%%%%%%%%%%%%"

---

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

• FVCOMg01/mod_ncll.f90