The TELEMAC-MASCARET system  trunk
ad_get_khione.F
Go to the documentation of this file.
1 ! ************************
2  SUBROUTINE ad_get_khione
3 ! ************************
4 !
5  &(ivar,adobj)
6 !
7 !***********************************************************************
8 ! KHIONE V7P3
9 !***********************************************************************
10 !
11 !brief ASSOCIATE THE ARRAY ADOBJ%R TO THE APPROPRIATE
12 ! DIFFERENTED VARIBALE.
13 !
14 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
15 !| IVAR |-->| ONE SPECIFIC DIFERENTIABLE VARIABLE
16 !| ADOBJ |<->| MOST LIKELY ONE OF THE VARSOR%ADR(I_ADVAR)%P
17 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
18 !
19  USE bief
22 !
23  IMPLICIT NONE
24 !
25 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
26 !
27  INTEGER, INTENT(IN) :: IVAR
28  TYPE(bief_obj) , INTENT(INOUT) :: ADOBJ
29 !
30 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
31 !
32  SELECT CASE (ivar)
33 ! JUST TESTING IO OF DIFFERENTIATED VARIABLES
34 !
35 ! THIS IS JUST AN EXAMPLE, TO HELP USERS LINKING ADVAR WITH THEIR
36 ! OWN DERIVATIVES. HERE, ADVAR(1), (2) AND (3) ARE THE
37 ! DIFFERENTIATED VARIABLES OF TRACER(1), U AND V RESPECTIVELY.
38 !
39 #if defined COMPAD_DCO_T1S
40 ! CASE(1)
41 ! CALL DCO_T1S_GET( T%ADR(1)%P%R, ADOBJ%R, 1 )
42 ! CASE(2)
43 ! CALL DCO_T1S_GET( U%R, ADOBJ%R, 1 )
44 ! CASE(3)
45 ! CALL DCO_T1S_GET( V%R, ADOBJ%R, 1 )
46 !
47 ! JUST IN CASE T1S IS NOT AVAILABLE, HERE BELOW FOR TESTING
48 ! WITHOUT DIFFERENTIATED VARIABLES.
49 !
50 !#else
51 ! CASE(1)
52 ! ADOBJ%R = T%ADR(1)%P%R
53 ! CASE(2)
54 ! ADOBJ%R = U%R
55 ! CASE(3)
56 ! ADOBJ%R = V%R
57 #endif
58  CASE DEFAULT
59  WRITE(lu,*) 'WARNING: UNKNOWN DIFFERENTIATED VARIABLE ',ivar
60  WRITE(lu,*) ' UPDATE EITHER SUBROUTINE AD_GET_KHIONE'
61  WRITE(lu,*) ' OR THE NUMBER OF DIFFERENTIATED VARIABLES'
62  WRITE(lu,*) ' -- OR ALGORITHMIC DIFFERENTIATION MIGHT NOT BE'
63  WRITE(lu,*) ' CONFIGURED.'
64  END SELECT
65 !
66 !-----------------------------------------------------------------------
67 !
68  RETURN
69  END SUBROUTINE ad_get_khione
subroutine ad_get_khione(IVAR, ADOBJ)
Definition: ad_get_khione.F:7
Definition: bief.f:3