mod_ncll::delete_dim_list Interface Reference

Public Member Functions
subroutine	delete_ncf_dimp_list (LIST)
subroutine	delete_var_dimp_list (LIST)

Detailed Description

Definition at line 290 of file mod_ncll.f90.

Member Function/Subroutine Documentation

delete_ncf_dimp_list()

subroutine mod_ncll::delete_dim_list::delete_ncf_dimp_list

(

type(ncfile), intent(inout)

LIST

)

Definition at line 2396 of file mod_ncll.f90.

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

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

    END DO
    

delete_var_dimp_list()

subroutine mod_ncll::delete_dim_list::delete_var_dimp_list

(

type(ncvar), intent(inout)

LIST

)

Definition at line 2506 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCVAR),                   INTENT(INOUT):: LIST
    TYPE(NCDIMP)                        ,POINTER :: CURRENT, PREVIOUS
    
    previous => list%DIMS
    current  => previous%NEXT

    DO
       IF(.NOT. ASSOCIATED(current)) RETURN !END OF LIST
       
       previous%NEXT => current%NEXT
       IF(.NOT. ASSOCIATED(current%DIM))THEN 
!          CALL PRINT_VAR(LIST)
          CALL fatal_error("VARIABLE HAS UNASSOCIATED DIMENSION IN LIST?")
       END IF

       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, IT
          ! BELONGS TO A FILE
       END IF
       
       DEALLOCATE(current)
       current => previous%NEXT

    END DO

---

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

• FVCOMg01/mod_ncll.f90