mod_ncll::find_unlimited Interface Reference

Public Member Functions
type(ncdim) function, pointer	find_ncf_dim_unlimited (LIST, FOUND)
type(ncdim) function, pointer	find_var_dim_unlimited (LIST, FOUND)

Detailed Description

Definition at line 310 of file mod_ncll.f90.

Member Function/Subroutine Documentation

find_ncf_dim_unlimited()

type(ncdim) function, pointer mod_ncll::find_unlimited::find_ncf_dim_unlimited	(	type(ncfile), intent(in)	LIST,
		logical, intent(out)	FOUND
	)

Definition at line 2778 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCDIM), POINTER               :: DIM
    TYPE(NCFILE),         INTENT(IN):: LIST
    LOGICAL,              INTENT(OUT)  :: FOUND
    TYPE(NCDIMP)               ,POINTER :: CURRENT, PREVIOUS
    
    NULLIFY(dim)
    previous => list%DIMS
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       IF(current%DIM%UNLIMITED ) THEN ! FOUND THE DIM LINK
          dim => current%DIM
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

find_var_dim_unlimited()

type(ncdim) function, pointer mod_ncll::find_unlimited::find_var_dim_unlimited	(	type(ncvar), intent(in)	LIST,
		logical, intent(out)	FOUND
	)

Definition at line 2889 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCDIM), POINTER               :: DIM
    TYPE(NCVAR),          INTENT(IN)   :: LIST
    LOGICAL,              INTENT(OUT)  :: FOUND
    TYPE(NCDIMP)               ,POINTER :: CURRENT, PREVIOUS
    
    NULLIFY(dim)
    previous => list%DIMS
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       IF(current%DIM%UNLIMITED ) THEN ! FOUND THE DIM LINK
          dim => current%DIM
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

---

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

• FVCOMg01/mod_ncll.f90