mod_ncll::assignment(=) Interface Reference

Public Member Functions
subroutine	copy_dim_list (DIMPOUT, DIMPIN)
subroutine	copy_att_list (ATTPOUT, ATTPIN)
subroutine	copy_ftime (FTIME_OUT, FTIME_IN)

Detailed Description

Definition at line 351 of file mod_ncll.f90.

Member Function/Subroutine Documentation

copy_att_list()

subroutine mod_ncll::assignment(=)::copy_att_list	(	type(ncattp), intent(out), target	ATTPOUT,
		type(ncattp), intent(in), target	ATTPIN
	)

Definition at line 1529 of file mod_ncll.f90.

    IMPLICIT NONE
!    TYPE(NCATTP), POINTER, INTENT(IN) :: ATTPIN
!    TYPE(NCATTP), POINTER, INTENT(INOUT) :: ATTPOUT
    TYPE(NCATTP), TARGET, INTENT(IN) :: ATTPIN
    TYPE(NCATTP), TARGET, INTENT(OUT) :: ATTPOUT
    TYPE(NCATT), POINTER              :: ATT
    TYPE(NCATTP),POINTER              :: CURRENT_IN, PREVIOUS_IN
    TYPE(NCATTP),POINTER              :: CURRENT_OUT, PREVIOUS_OUT

    integer status
    
!!$    IF(.not. Associated(ATTPIN)) CALL FATAL_ERROR("THE INPUT ARGUMENT MUST BE&
!!$         & ASSOCIAED FOR COPY_ATT_LIST?")
!!$
!!$    IF(.not. Associated(ATTPOUT)) CALL FATAL_ERROR("THE OUTPUT ARGUMENT MUST BE&
!!$         & ASSOCIAED FOR COPY_ATT_LIST?")

    previous_in => attpin
    current_in => previous_in%NEXT

    previous_out => attpout
    current_out => previous_out%NEXT

    ! I DON'T THINK THAT CURRENT_OUT SERVES ANY PURPOSE HERE?
    ! I DON'T THINK THAT PREVIOUS_IN SERVES ANY PURPOSE HERE?
    
    
    DO
       IF(.NOT. ASSOCIATED(current_in)) THEN
          RETURN ! END OF ATT IN LIST
       END IF

       IF(.NOT. ASSOCIATED(current_in%ATT)) THEN
          CALL fatal_error("COPY_ATT_LIST: FOUND NULL DIM POINTER IN THE LIST")
       END IF
       
       previous_out%NEXT => new_attp()
       previous_out%NEXT%ATT => copy_att(current_in%ATT)
       previous_out%NEXT%NEXT => current_out
       
       ! INCRIMENT THROUGH THE LIST
       previous_out => previous_out%NEXT
       ! DO NOT INCRIMENT  CURRENT_OUT
       
       previous_in => previous_in%NEXT
       current_in  => current_in%NEXT
          
    END DO
    

copy_dim_list()

subroutine mod_ncll::assignment(=)::copy_dim_list	(	type(ncdimp), intent(out), target	DIMPOUT,
		type(ncdimp), intent(in), target	DIMPIN
	)

Definition at line 2213 of file mod_ncll.f90.

    IMPLICIT NONE
!    TYPE(NCDIMP),POINTER,INTENT(INOUT):: DIMPOUT
!    TYPE(NCDIMP), POINTER, INTENT(IN) :: DIMPIN
    TYPE(NCDIMP),TARGET, INTENT(OUT):: DIMPOUT
    TYPE(NCDIMP), TARGET, INTENT(IN) :: DIMPIN
    TYPE(NCDIM), POINTER              :: DIM
    TYPE(NCDIMP),POINTER              :: CURRENT_IN, PREVIOUS_IN
    TYPE(NCDIMP),POINTER              :: CURRENT_OUT, PREVIOUS_OUT

    integer status
    
!!$    IF(.not. Associated(DIMPIN)) CALL FATAL_ERROR("THE INPUT ARGUMENT MUST BE&
!!$         & ASSOCIAED FOR COPY_DIM_LIST?")
!!$
!!$    IF(.not. Associated(DIMPOUT)) CALL FATAL_ERROR("THE OUTPUT ARGUMENT MUST BE&
!!$         & ASSOCIAED FOR COPY_DIM_LIST?")

    previous_in => dimpin
    current_in => previous_in%NEXT

!    DIMPOUT => NEW_DIMP()
    previous_out => dimpout
    current_out => previous_out%NEXT

    ! I DON'T THINK THAT CURRENT_OUT SERVES ANY PURPOSE HERE?
    ! I DON'T THINK THAT PREVIOUS_IN SERVES ANY PURPOSE HERE?
    
    
    DO
       IF(.NOT. ASSOCIATED(current_in)) THEN
          RETURN ! END OF DIM IN LIST
       END IF
       
       IF(.NOT. ASSOCIATED(current_in%DIM)) THEN
          CALL fatal_error("COPY_DIM_LIST: FOUND NULL DIM POINTER IN THE LIST")
       END IF
       
       previous_out%NEXT => new_dimp()
       previous_out%NEXT%DIM => copy_dim(current_in%DIM)
       previous_out%NEXT%NEXT => current_out
       
       ! INCRIMENT THROUGH THE LIST
       previous_out => previous_out%NEXT
       ! DO NOT INCRIMENT  CURRENT_OUT
       
       previous_in => previous_in%NEXT
       current_in  => current_in%NEXT
       
    END DO
    

copy_ftime()

subroutine mod_ncll::assignment(=)::copy_ftime	(	type(ncftime), intent(out)	FTIME_OUT,
		type(ncftime), intent(in)	FTIME_IN
	)

Definition at line 487 of file mod_ncll.f90.

    IMPLICIT NONE
    TYPE(NCFTIME),INTENT(OUT):: FTIME_OUT
    TYPE(NCFTIME),INTENT(IN) :: FTIME_IN
    
    ftime_out%TMTYPE = ftime_in%TMTYPE
    ftime_out%STK_LEN = ftime_in%STK_LEN
    ftime_out%PREV_STKCNT = ftime_in%PREV_STKCNT
    ftime_out%NEXT_STKCNT = ftime_in%NEXT_STKCNT
    ftime_out%MAX_STKCNT = ftime_in%MAX_STKCNT
    ftime_out%PREV_IO = ftime_in%PREV_IO
    ftime_out%NEXT_IO = ftime_in%NEXT_IO
    ftime_out%PREV_WGHT = ftime_in%PREV_WGHT
    ftime_out%NEXT_WGHT = ftime_in%NEXT_WGHT
    ftime_out%INTERVAL = ftime_in%INTERVAL
    ftime_out%TIMEZONE = ftime_in%TIMEZONE

---

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

• FVCOMg01/mod_ncll.f90