ad_get_khione.F

Go to the documentation of this file.

!                     ************************
                      SUBROUTINE ad_get_khione
!                     ************************
!
     &(ivar,adobj)
!
!***********************************************************************
! KHIONE   V7P3
!***********************************************************************
!
!brief    ASSOCIATE THE ARRAY ADOBJ%R TO THE APPROPRIATE
!         DIFFERENTED VARIBALE.
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| IVAR       |-->| ONE SPECIFIC DIFERENTIABLE VARIABLE
!| ADOBJ      |<->| MOST LIKELY ONE OF THE VARSOR%ADR(I_ADVAR)%P
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE declarations_special
      USE declarations_khione
!
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER, INTENT(IN)             :: IVAR
      TYPE(bief_obj)  , INTENT(INOUT) :: ADOBJ
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      SELECT CASE (ivar)
!     JUST TESTING IO OF DIFFERENTIATED VARIABLES
!
!   THIS IS JUST AN EXAMPLE, TO HELP USERS LINKING ADVAR WITH THEIR
!     OWN DERIVATIVES. HERE, ADVAR(1), (2) AND (3) ARE THE
!     DIFFERENTIATED VARIABLES OF TRACER(1), U AND V RESPECTIVELY.
!
#if defined COMPAD_DCO_T1S
!      CASE(1)
!        CALL DCO_T1S_GET( T%ADR(1)%P%R, ADOBJ%R, 1 )
!      CASE(2)
!        CALL DCO_T1S_GET( U%R, ADOBJ%R, 1 )
!      CASE(3)
!        CALL DCO_T1S_GET( V%R, ADOBJ%R, 1 )
!
!   JUST IN CASE T1S IS NOT AVAILABLE, HERE BELOW FOR TESTING
!     WITHOUT DIFFERENTIATED VARIABLES.
!
!#else
!      CASE(1)
!        ADOBJ%R = T%ADR(1)%P%R
!      CASE(2)
!        ADOBJ%R = U%R
!      CASE(3)
!        ADOBJ%R = V%R
#endif
      CASE DEFAULT
        WRITE(lu,*) 'WARNING: UNKNOWN DIFFERENTIATED VARIABLE ',ivar
        WRITE(lu,*) '  UPDATE EITHER SUBROUTINE AD_GET_KHIONE'
        WRITE(lu,*) '  OR THE NUMBER OF DIFFERENTIATED  VARIABLES'
        WRITE(lu,*) '  -- OR ALGORITHMIC DIFFERENTIATION MIGHT NOT BE'
        WRITE(lu,*) '  CONFIGURED.'
      END SELECT
!
!-----------------------------------------------------------------------
!
      RETURN
      END SUBROUTINE ad_get_khione