mod_ncll::print_dim_list Interface Reference

Public Member Functions
subroutine	print_ncf_dim_list (LIST)
subroutine	print_var_dim_list (LIST)

Detailed Description

Definition at line 330 of file mod_ncll.f90.

Member Function/Subroutine Documentation

print_ncf_dim_list()

subroutine mod_ncll::print_dim_list::print_ncf_dim_list

(

type(ncfile), intent(in)

LIST

)

Definition at line 3440 of file mod_ncll.f90.

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

    previous => list%DIMS
    current  => previous%NEXT

    IF(.NOT. ASSOCIATED(current)) THEN ! EMPTY LIST
       if(dbg_set(dbg_log)) &
            & write(ipt,*)"%%%%%%%%%%% FILE DIMENSION LIST IS EMPTY %%%%%%%%%%%%%"
       RETURN
    ELSE
       if(dbg_set(dbg_log)) then
          write(ipt,*)"%%%%%%% PRINTING FILE DIMENSION LIST %%%%%%%%%"
          write(ipt,*)"%%%%%%% FILE NAME: "//trim(list%FNAME)//" %%%%%%%%%"
       end if
    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 DIMENSION LIST ENTRY #"//chr
       CALL print_dim(current%DIM)

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

print_var_dim_list()

subroutine mod_ncll::print_dim_list::print_var_dim_list

(

type(ncvar), intent(in)

LIST

)

Definition at line 3478 of file mod_ncll.f90.

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

    previous => list%DIMS
    current  => previous%NEXT

    IF(.NOT. ASSOCIATED(current)) THEN ! EMPTY LIST
       if(dbg_set(dbg_log)) &
            & write(ipt,*)"%%%%%%%%%%% VARIABLE DIMENSION LIST IS EMPTY %%%%%%%%%%%%%"
       RETURN
    ELSE
       if(dbg_set(dbg_log)) &
            & write(ipt,*)"%%%%%%% PRINTING VARIABLE: "//trim(list&
            &%VARNAME)//"; DIMENSION 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 DIMENSION LIST ENTRY #"//chr
       CALL print_dim(current%DIM)

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

---

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

• FVCOMg01/mod_ncll.f90