ad_allvec_artemis.F

Go to the documentation of this file.

!                   ****************************
                    SUBROUTINE ad_allvec_artemis
!                   ****************************
!
     &(ivar,adobj)
!
!***********************************************************************
! ARTEMIS   V7P2
!***********************************************************************
!
!brief    ASSOCIATE THE PRINOUT ARRAY ADOBJ%R TO THE APPROPRIATE
!         DIFFERENTED VARIBALE.
!
!history  S.E.BOURBAN (HRW)
!+        20/06/2016
!+        V7P2
!+   First version for gradients
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| IVAR       |-->| ONE SPECIFIC DIFERENTIABLE VARIABLE
!| ADOBJ      |<->| MOST LIKELY ONE OF THE VARSOR%ADR(I_ADVAR)%P
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE declarations_special
      USE declarations_artemis
!
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER, INTENT(IN)             :: IVAR
      TYPE(bief_obj)  , INTENT(INOUT) :: ADOBJ
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      SELECT CASE (ivar)
!! COMPAD-DCO  BEGIN  JR2016
!! COMPAD-DCO  original code
!!#if defined COMPAD_DCO_T1S
!!      CASE(1)
!!!?        CALL DCO_T1S_GET( PHIR%R, ADOBJ%R, 1 )
!!        ADOBJ%R => PHIR%R
!!      CASE(2)
!!!?        CALL DCO_T1S_GET( PHII%R, ADOBJ%R, 1 )
!!        ADOBJ%R => PHII%R
!!      CASE(3)
!!!?        CALL DCO_T1S_GET( HHO%R, ADOBJ%R, 1 )
!!        ADOBJ%R => HHO%R
!!      CASE(4)
!!!?        CALL DCO_T1S_GET( PHAS%R, ADOBJ%R, 1 )
!!        ADOBJ%R => PHAS%R
!!      CASE(5)
!!!?        CALL DCO_T1S_GET( H%R, ADOBJ%R, 1 )
!!        ADOBJ%R => C%R
!!#endif
!!      CASE DEFAULT
!!        WRITE(LU,*) 'ERROR: UNKNOWN DIFFERENTIATED VARIABLE ',IVAR
!!        WRITE(LU,*) '  UPDATE EITHER SUBROUTINE AD_ALLVEC_ARTEMIS'
!!        WRITE(LU,*) '  OR THE NUMBER OF DIFERENTIATED  VARIABLES'
!!        WRITE(LU,*) '  -- OR ALGORITHMIC DIFFERENTIATION MIGHT NOT BE'
!!        WRITE(LU,*) '  CONFIGURED.'
!!        CALL PLANTE(1)
!!      END SELECT
!! COMPAD-DCO  END    JR2016
!
!-----------------------------------------------------------------------
!
      RETURN
      END SUBROUTINE ad_allvec_artemis