mod_ncll::find_dim Interface Reference

Public Member Functions
type(ncdim) function, pointer	find_ncf_dim_byname (LIST, NAME, FOUND)
type(ncdim) function, pointer	find_ncf_dim_bydimid (LIST, DIMID, FOUND)
type(ncdim) function, pointer	find_var_dim_byname (LIST, NAME, FOUND)
type(ncdim) function, pointer	find_var_dim_bydimid (LIST, DIMID, FOUND)

Detailed Description

Definition at line 303 of file mod_ncll.f90.

Member Function/Subroutine Documentation

find_ncf_dim_bydimid()

type(ncdim) function, pointer mod_ncll::find_dim::find_ncf_dim_bydimid	(	type(ncfile), intent(in)	LIST,
		integer, intent(in)	DIMID,
		logical, intent(out)	FOUND
	)

Definition at line 2749 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCDIM), POINTER               :: DIM
    INTEGER,              INTENT(IN)   :: DIMID
    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( dimid == current%DIM%DIMID ) THEN ! FOUND THE DIM LINK
          dim => current%DIM
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

find_ncf_dim_byname()

type(ncdim) function, pointer mod_ncll::find_dim::find_ncf_dim_byname	(	type(ncfile), intent(in)	LIST,
		character(len=*), intent(in)	NAME,
		logical, intent(out)	FOUND
	)

Definition at line 2720 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCDIM), POINTER               :: DIM
    TYPE(NCFILE),         INTENT(IN)   :: LIST
    CHARACTER(LEN=*),INTENT(IN)    :: NAME
    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( trim(name) == trim(current%DIM%DIMNAME) ) THEN ! FOUND THE FILE LINK
          dim => current%DIM
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

find_var_dim_bydimid()

type(ncdim) function, pointer mod_ncll::find_dim::find_var_dim_bydimid	(	type(ncvar), intent(in)	LIST,
		integer, intent(in)	DIMID,
		logical, intent(out)	FOUND
	)

Definition at line 2860 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCDIM), POINTER               :: DIM
    INTEGER,              INTENT(IN)   :: DIMID
    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( dimid == current%DIM%DIMID ) 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_byname()

type(ncdim) function, pointer mod_ncll::find_dim::find_var_dim_byname	(	type(ncvar), intent(in)	LIST,
		character(len=*), intent(in)	NAME,
		logical, intent(out)	FOUND
	)

Definition at line 2831 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCDIM), POINTER               :: DIM
    TYPE(NCVAR),          INTENT(IN)   :: LIST
    CHARACTER(LEN=*),INTENT(IN)    :: NAME
    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( trim(name) == trim(current%DIM%DIMNAME) ) THEN ! FOUND THE FILE 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