mod_ncll::delete_dim_link Interface Reference

Public Member Functions
subroutine	delete_ncf_dimp_byname (LIST, NAME, FOUND)
subroutine	delete_ncf_dimp_bydimid (LIST, DIMID, FOUND)
subroutine	delete_var_dimp_byname (LIST, NAME, FOUND)
subroutine	delete_var_dimp_bydimid (LIST, DIMID, FOUND)

Detailed Description

Definition at line 283 of file mod_ncll.f90.

Member Function/Subroutine Documentation

delete_ncf_dimp_bydimid()

subroutine mod_ncll::delete_dim_link::delete_ncf_dimp_bydimid	(	type(ncfile), intent(inout)	LIST,
		integer, intent(in)	DIMID,
		logical, intent(out)	FOUND
	)

Definition at line 2348 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCFILE),                  INTENT(INOUT):: LIST
    INTEGER,                       INTENT(IN)   :: DIMID
    LOGICAL,                       INTENT(OUT)  :: FOUND
    LOGICAL                                     :: F1
    TYPE(NCDIMP)                        ,POINTER :: CURRENT, PREVIOUS
    TYPE(NCVARP)                        ,POINTER :: CURRENT_VAR
    
    current_var => list%VARS%NEXT    
    DO 
       IF(.NOT. ASSOCIATED(current_var)) RETURN !END OF LIST

       IF(.NOT. ASSOCIATED(current_var%VAR)) THEN
          CALL fatal_error("DELETE_NCF_DIMP_BYDIMID: NULL VAR POINTER IN FILE LIST?")
       END IF

      CALL delete_dim_link(current_var%VAR,dimid,f1)

      current_var => current_var%NEXT
   END DO



    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 FILE LINK
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

    ! IF FOUND DELETE IT
    previous%NEXT => current%NEXT
    CALL kill_dim(current%DIM)
    DEALLOCATE(current)
   

delete_ncf_dimp_byname()

subroutine mod_ncll::delete_dim_link::delete_ncf_dimp_byname	(	type(ncfile), intent(inout)	LIST,
		character(len=*), intent(in)	NAME,
		logical, intent(out)	FOUND
	)

Definition at line 2301 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCFILE),                  INTENT(INOUT):: LIST
    CHARACTER(LEN=*),INTENT(IN)   :: NAME
    LOGICAL,                       INTENT(OUT)  :: FOUND
    LOGICAL                                     :: F1
    TYPE(NCDIMP)                        ,POINTER :: CURRENT, PREVIOUS
    TYPE(NCVARP)                        ,POINTER :: CURRENT_VAR
    
    current_var => list%VARS%NEXT    
    DO 
       IF(.NOT. ASSOCIATED(current_var)) RETURN !END OF LIST

       IF(.NOT. ASSOCIATED(current_var%VAR)) THEN
          CALL fatal_error("DELETE_NCF_DIMP_BYNAME: NULL VAR POINTER IN FILE LIST?")
       END IF

      CALL delete_dim_link(current_var%VAR,name,f1)

      current_var => current_var%NEXT
   END DO


    previous => list%DIMS
    current  => previous%NEXT
    found = .false.

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

    ! IF FOUND DELETE IT
    previous%NEXT => current%NEXT
    CALL kill_dim(current%DIM)
    DEALLOCATE(current)
   

delete_var_dimp_bydimid()

subroutine mod_ncll::delete_dim_link::delete_var_dimp_bydimid	(	type(ncvar), intent(inout)	LIST,
		integer, intent(in)	DIMID,
		logical, intent(out)	FOUND
	)

Definition at line 2464 of file mod_ncll.f90.

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

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST

       IF(.NOT. ASSOCIATED(current%DIM))THEN 
          !       CALL PRINT_VAR(LIST)
          CALL fatal_error("DELETE_VAR_DIMP_BYDIMID: VARIABLE HAS UNASSOCIATED DIMENSION IN LIST?")
       END IF
    
       IF( dimid == current%DIM%DIMID ) THEN ! FOUND THE FILE LINK
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

    ! IF FOUND DELETE IT
    previous%NEXT => current%NEXT

    IF(current%DIM%DIMID==-1) THEN
       call kill_dim(current%DIM) ! IT BELONGS TO THE VAR ONLY, NOT PART
       ! OF A FILE
    ELSE
       NULLIFY(current%DIM) ! DO NOT DEALLOCATE POINTER TO ACTUAL
       ! DIMENSION, IT BELONGS TO A FILE
    END IF
    DEALLOCATE(current)

delete_var_dimp_byname()

subroutine mod_ncll::delete_dim_link::delete_var_dimp_byname	(	type(ncvar), intent(inout)	LIST,
		character(len=*), intent(in)	NAME,
		logical, intent(out)	FOUND
	)

Definition at line 2417 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCVAR),                   INTENT(INOUT):: LIST
    CHARACTER(LEN=*),INTENT(IN)   :: NAME
    LOGICAL,                       INTENT(OUT)  :: FOUND
    TYPE(NCDIMP)                        ,POINTER :: CURRENT, PREVIOUS
    
    previous => list%DIMS
    current  => previous%NEXT
    found = .false.

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST

       IF(.NOT. ASSOCIATED(current%DIM))THEN 
          !       CALL PRINT_VAR(LIST)
          CALL fatal_error("DELETE_VAR_DIMP_BYNAME: VARIABLE HAS UNASSOCIATED DIMENSION IN LIST?")
       END IF
       
       IF( name == current%DIM%DIMNAME ) THEN ! FOUND THE FILE LINK
          found = .true.
          EXIT
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO

    ! IF FOUND DELETE IT
    previous%NEXT => current%NEXT

    IF(current%DIM%DIMID==-1) THEN
       call kill_dim(current%DIM) ! IT BELONGS TO THE VAR ONLY, NOT PART
       ! OF A FILE
    ELSE
       NULLIFY(current%DIM) ! DO NOT DEALLOCATE POINTER TO ACTUAL
       ! DIMENSION, IT BELONGS TO A FILE
    END IF

    DEALLOCATE(current)
   

---

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

• FVCOMg01/mod_ncll.f90