mod_ncll::insert_var_link Interface Reference

Public Member Functions
subroutine	insert_varp_byvar (LIST, VAR, FOUND)

Detailed Description

Definition at line 224 of file mod_ncll.f90.

Member Function/Subroutine Documentation

insert_varp_byvar()

subroutine mod_ncll::insert_var_link::insert_varp_byvar	(	type(ncfile), intent(inout)	LIST,
		type(ncvar), pointer	VAR,
		logical, intent(out)	FOUND
	)

Definition at line 1212 of file mod_ncll.f90.

    ! IF FOUND DO NOT INSERT DUPLICATE, RETURN FOUND
    ! ALWAYS INSERT NCVARP AT THE END OF THE LIST
    IMPLICIT NONE
    TYPE(NCVAR),POINTER                         :: VAR
    LOGICAL,                       INTENT(OUT)  :: FOUND
    TYPE(NCFILE),                  INTENT(INOUT):: LIST
    TYPE(NCVARP),POINTER                        :: CURRENT, PREVIOUS
    INTEGER CNT

    IF(.NOT.ASSOCIATED(var))&
         & CALL fatal_error("INSERT_VARP_BYVAR: VAR NOT ASSOCIATED!")

    previous => list%VARS
    current  => previous%NEXT
    found = .false.
    cnt = 1
    ! DO NOT MAKE DUPLICATE ENTRIES IN THE LIST
    DO
       IF(.NOT. ASSOCIATED(current)) EXIT !END OF LIST
       IF( var%VARNAME == current%VAR%VARNAME ) THEN ! FOUND THE FILE LINK
          found = .true.
          RETURN
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
          cnt = cnt + 1
       END IF
    END DO
    ! NOT FOUND - ADD NEW FILE TO END OF LIST
    previous%NEXT => new_varp()
    previous%NEXT%VAR => var
    var%VARID = cnt

---

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

• FVCOMg01/mod_ncll.f90