mod_ncll::insert_dim_link Interface Reference

Public Member Functions
subroutine	insert_ncf_dimp_bydim (LIST, DIM, FOUND)
subroutine	insert_var_dimp_bydim (LIST, DIM, FOUND)

Detailed Description

Definition at line 296 of file mod_ncll.f90.

Member Function/Subroutine Documentation

insert_ncf_dimp_bydim()

subroutine mod_ncll::insert_dim_link::insert_ncf_dimp_bydim	(	type(ncfile), intent(inout)	LIST,
		type(ncdim), pointer	DIM,
		logical, intent(out)	FOUND
	)

Definition at line 2554 of file mod_ncll.f90.

    ! IF FOUND DO NOT INSERT DUPLICATE, RETURN FOUND
    ! INSERT UNLIMDIM AT THE END OF THE LIST
    ! INSERT NONE UNLIMDIM IN THE ORDER ADDED  
    IMPLICIT NONE
    TYPE(NCDIM), POINTER              :: DIM
    LOGICAL,             INTENT(OUT)  :: FOUND
    TYPE(NCFILE),        INTENT(INOUT):: LIST
    TYPE(NCDIMP),POINTER              :: CURRENT, PREVIOUS
    INTEGER CNT
    IF(.NOT.ASSOCIATED(dim))&
         & CALL fatal_error("INSERT_NCF_DIMP_BYDIM: DIM NOT ASSOCIATED!")

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

!!$    IF (DIM%UNLIMITED) THEN ! ADD AT END OF LIST!
    ! DO NOT MAKE DUPLICATE ENTRIES IN THE LIST
    DO
       IF(.NOT. ASSOCIATED(current)) EXIT !END OF LIST, ADD DIM
       
       IF( dim%DIMNAME == current%DIM%DIMNAME) THEN
          ! PROTECT AGAINST USER ERROR - MISMATCHED DIMENSIONS!
          IF(dim%DIM .NE. current%DIM%DIM) &
               & CALL fatal_error("ATEMPTED TO ADD DIMENSION NAMED:"//trim(dim%DIMNAME),&
               & "BUT THAT DIMENSION NAME ALREADY EXISTS WITH A DIFFERENT SIZE")
          
          ! PROTECT AGAINST USER ERROR - MISMATCHED UNLIMITED DIMENSIONS!
          IF(dim%UNLIMITED .AND. .NOT. current%DIM%UNLIMITED)&
               & CALL fatal_error("ATEMPTED TO ADD DIMENSION NAMED:&
               &"//trim(dim%DIMNAME)//"; AS UNLIMITED",&
               & "BUT THAT DIMENSION NAME ALREADY EXISTS AS NOT UNLIMITED")

          IF(.NOT. dim%UNLIMITED .AND. current%DIM%UNLIMITED)&
               & CALL fatal_error("ATEMPTED TO ADD DIMENSION NAMED:&
               &"//trim(dim%DIMNAME)//"; AS NOT UNLIMITED",&
               & "BUT THAT DIMENSION NAME ALREADY EXISTS AS UNLIMITED")
          
          found = .true.
          RETURN ! DIMENSION ALREADY EXISTS
       ELSE IF(dim%UNLIMITED .AND. current%DIM%UNLIMITED) THEN 
          CALL fatal_error("ATTEMPT TO PUT A SECOND UNLIMITED DIMENSIO&
               &N IN THE FILE OBJECT","DIMENSION NAME: "//trim(dim%DIMNAME))
       ELSE
          previous => previous%NEXT
          current  => current%NEXT
          cnt = cnt +1
       END IF
    END DO
    ! NOT FOUND - ADD NEW DIM TO END OF LIST
    
    previous%NEXT => new_dimp()
    previous%NEXT%DIM => dim
    previous%NEXT%NEXT => current
    
    dim%DIMID = cnt ! SET THE DIMID OF THE NEW DIMENSION

    IF(dim%UNLIMITED) list%UNLIMDIMID = dim%DIMID
    
!!$ ELSE ! NOT AN UNLIMITED DIMENSION - ADD BEFORE ANY UNLIMITED DIMENSION
!!$    ! DO NOT MAKE DUPLICATE ENTRIES IN THE LIST
!!$    DO
!!$          IF(.NOT. ASSOCIATED(CURRENT)) EXIT !END OF LIST, ADD DIM TO END OF LIST
!!$          
!!$          IF( DIM%DIMNAME == CURRENT%DIM%DIMNAME) THEN
!!$             ! PROTECT AGAINST USER ERROR - MISMATCHED DIMENSIONS!
!!$             IF(DIM%DIM .NE. CURRENT%DIM%DIM) &
!!$                  & CALL FATAL_ERROR("ATEMPTED TO ADD DIMENSION NAMED:"//TRIM(DIM%DIMNAME),&
!!$                  & "BUT THAT DIMENSION NAME ALREADY EXISTS WITH A DIFFERENT SIZE")
!!$
!!$             ! PROTECT AGAINST USER ERROR - MISMATCHED UNLIMITED DIMENSIONS!
!!$             IF(CURRENT%DIM%UNLIMITED)&
!!$                  & CALL FATAL_ERROR("ATEMPTED TO ADD DIMENSION NAMED:&
!!$                  &"//TRIM(DIM%DIMNAME)//"; AS NOT UNLIMITED",&
!!$                  & "BUT THAT DIMENSION NAME ALREADY EXISTS AS UNLIMITED")
!!$
!!$             FOUND = .TRUE.
!!$             RETURN ! DIMENSION ALREADY EXISTS
!!$          ELSE IF(CURRENT%DIM%UNLIMITED) THEN ! FOUND THE UNLIMITED DIMENSION
!!$             IF(ASSOCIATED(CURRENT%NEXT)) &
!!$                  & CALL FATAL_ERROR("FOUND EXTRA DIMENSION LINK AFTER&
!!$                  & THE UNLIMITED DIMENSION", "WHILE ADDING NEW DIMENSION: "&
!!$                  &//TRIM(DIM%DIMNAME) )
!!$             
!!$             CURRENT%DIM%DIMID = CNT+1 ! INCRIMENT THE UNLIMITED DIMENSIONS DIMID
!!$             EXIT              ! Add the new dimension
!!$
!!$          ELSE
!!$             PREVIOUS => PREVIOUS%NEXT
!!$             CURRENT  => CURRENT%NEXT
!!$             CNT = CNT+1
!!$          END IF
!!$       END DO
!!$       ! NOT FOUND - INSERT DIM INTO LIST
!!$
!!$       PREVIOUS%NEXT => NEW_DIMP()
!!$       PREVIOUS%NEXT%DIM => DIM
!!$       DIM%DIMID = CNT  ! SET THE DIMID OF THE NEW DIMENSION
!!$
!!$       PREVIOUS%NEXT%NEXT => CURRENT
!!$    END IF

insert_var_dimp_bydim()

subroutine mod_ncll::insert_dim_link::insert_var_dimp_bydim	(	type(ncvar), intent(inout)	LIST,
		type(ncdim), pointer	DIM,
		logical, intent(out)	FOUND
	)

Definition at line 2666 of file mod_ncll.f90.

    ! ALLOW NETCDF TO HAVE DUPLICATE DIMENSIONS IN A VARIABLE
    ! INSERT DIMS IN THE ORDER THEY ARE ADDED
    !
    ! DO NOT TOUCH DIMID - IT IS ONLY SET WHEN THE VARIABLE'S
    ! DIMENSIONS ARE POINTED TO THE FILES DIMENSIONS

    IMPLICIT NONE
    TYPE(NCDIM), POINTER              :: DIM
    LOGICAL,             INTENT(OUT)  :: FOUND
    TYPE(NCVAR),         INTENT(INOUT):: LIST
    TYPE(NCDIMP),POINTER              :: CURRENT, PREVIOUS

    IF(.NOT.ASSOCIATED(dim))&
         & CALL fatal_error("INSERT_NCF_DIMP_BYDIM: DIM NOT ASSOCIATED!")

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

    DO
       IF(.NOT. ASSOCIATED(current)) THEN
          EXIT !END OF LIST, ADD DIM
       ELSE
          
          IF( dim%DIMNAME == current%DIM%DIMNAME) found = .true.
          
          IF(dim%UNLIMITED .AND. current%DIM%UNLIMITED) &
               & CALL fatal_error("ATTEMPT TO PUT A SECOND UNLIMITED DIMENSIO&
               &N IN THE VARIALBE NAME:"//trim(list%VARNAME),&
               & "DIMENSION NAME: "//trim(dim%DIMNAME))

          ! MAKE AN EXCEPTION FOR CHARACTER DATA?!?!
          IF(current%DIM%UNLIMITED .AND. list%XTYPE .NE. nf90_char) &
               & CALL fatal_error("ATTEMPT TO PUT A DIMENSION AFTER THE UNLIMITED DIMENSIO&
               &N IN THE VARIALBE NAME:"//trim(list%VARNAME),&
               & "DIMENSION NAME: "//trim(dim%DIMNAME),"THE USER MUST &
               &ADD DIMENSION IN THE CORRECT ORDER! (UNLIMITEDS GO LAS&
               &T IN FORTRAN ORDER)")


          previous => previous%NEXT
          current  => current%NEXT
       END IF
    END DO
    ! NOT FOUND - ADD NEW DIM TO END OF LIST, EVEN IF IT ALREADY
    ! EXISTS!
    previous%NEXT => new_dimp()
    previous%NEXT%DIM => dim
    previous%NEXT%NEXT => current

---

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

• FVCOMg01/mod_ncll.f90