mod_ncll::count_nonsingleton_dim_list Interface Reference

Public Member Functions
integer function	count_ncf_ns_dim_list (LIST)
integer function	count_var_ns_dim_list (LIST)

Detailed Description

Definition at line 325 of file mod_ncll.f90.

Member Function/Subroutine Documentation

count_ncf_ns_dim_list()

integer function mod_ncll::count_nonsingleton_dim_list::count_ncf_ns_dim_list

(

type(ncfile), intent(in)

LIST

)

Definition at line 3049 of file mod_ncll.f90.

    IMPLICIT NONE
    INTEGER                            :: CNT
    TYPE(NCFILE),    INTENT(IN)        :: LIST
    TYPE(NCDIMP)               ,POINTER :: CURRENT, PREVIOUS
    
    previous => list%DIMS
    current  => previous%NEXT
    cnt = 0
    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST

       ! DO NOT COUNT SINGLETON DIMENSIONS
       IF(current%DIM%DIM .GT. 1) cnt = cnt + 1

       previous => previous%NEXT
       current  => current%NEXT
       
    END DO
    

count_var_ns_dim_list()

integer function mod_ncll::count_nonsingleton_dim_list::count_var_ns_dim_list

(

type(ncvar), intent(in)

LIST

)

Definition at line 3072 of file mod_ncll.f90.

    IMPLICIT NONE
    INTEGER                            :: CNT
    TYPE(NCVAR),     INTENT(IN)        :: LIST
    TYPE(NCDIMP)               ,POINTER :: CURRENT, PREVIOUS
    
    previous => list%DIMS
    current  => previous%NEXT
    cnt = 0
    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST

       ! DO NOT COUNT SINGLETON DIMENSIONS
       IF(current%DIM%DIM .GT. 1) cnt = cnt + 1

       previous => previous%NEXT
       current  => current%NEXT

    END DO
    

---

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

• FVCOMg01/mod_ncll.f90