The TELEMAC-MASCARET system  trunk
ad_allvec_artemis.F
Go to the documentation of this file.
1 ! ****************************
2  SUBROUTINE ad_allvec_artemis
3 ! ****************************
4 !
5  &(ivar,adobj)
6 !
7 !***********************************************************************
8 ! ARTEMIS V7P2
9 !***********************************************************************
10 !
11 !brief ASSOCIATE THE PRINOUT ARRAY ADOBJ%R TO THE APPROPRIATE
12 ! DIFFERENTED VARIBALE.
13 !
14 !history S.E.BOURBAN (HRW)
15 !+ 20/06/2016
16 !+ V7P2
17 !+ First version for gradients
18 !
19 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
20 !| IVAR |-->| ONE SPECIFIC DIFERENTIABLE VARIABLE
21 !| ADOBJ |<->| MOST LIKELY ONE OF THE VARSOR%ADR(I_ADVAR)%P
22 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
23 !
24  USE bief
27 !
28  IMPLICIT NONE
29 !
30 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
31 !
32  INTEGER, INTENT(IN) :: IVAR
33  TYPE(bief_obj) , INTENT(INOUT) :: ADOBJ
34 !
35 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
36 !
37  SELECT CASE (ivar)
38 !! COMPAD-DCO BEGIN JR2016
39 !! COMPAD-DCO original code
40 !!#if defined COMPAD_DCO_T1S
41 !! CASE(1)
42 !!!? CALL DCO_T1S_GET( PHIR%R, ADOBJ%R, 1 )
43 !! ADOBJ%R => PHIR%R
44 !! CASE(2)
45 !!!? CALL DCO_T1S_GET( PHII%R, ADOBJ%R, 1 )
46 !! ADOBJ%R => PHII%R
47 !! CASE(3)
48 !!!? CALL DCO_T1S_GET( HHO%R, ADOBJ%R, 1 )
49 !! ADOBJ%R => HHO%R
50 !! CASE(4)
51 !!!? CALL DCO_T1S_GET( PHAS%R, ADOBJ%R, 1 )
52 !! ADOBJ%R => PHAS%R
53 !! CASE(5)
54 !!!? CALL DCO_T1S_GET( H%R, ADOBJ%R, 1 )
55 !! ADOBJ%R => C%R
56 !!#endif
57 !! CASE DEFAULT
58 !! WRITE(LU,*) 'ERROR: UNKNOWN DIFFERENTIATED VARIABLE ',IVAR
59 !! WRITE(LU,*) ' UPDATE EITHER SUBROUTINE AD_ALLVEC_ARTEMIS'
60 !! WRITE(LU,*) ' OR THE NUMBER OF DIFERENTIATED VARIABLES'
61 !! WRITE(LU,*) ' -- OR ALGORITHMIC DIFFERENTIATION MIGHT NOT BE'
62 !! WRITE(LU,*) ' CONFIGURED.'
63 !! CALL PLANTE(1)
64 !! END SELECT
65 !! COMPAD-DCO END JR2016
66 !
67 !-----------------------------------------------------------------------
68 !
69  RETURN
70  END SUBROUTINE ad_allvec_artemis
subroutine ad_allvec_artemis(IVAR, ADOBJ)
Definition: bief.f:3