The TELEMAC-MASCARET system  trunk
ad_set_khione.F
Go to the documentation of this file.
1 ! ************************
2  SUBROUTINE ad_set_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  INTEGER :: IPOIN
33 !
34 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
35 !
36  SELECT CASE (ivar)
37 ! JUST TESTING IO OF DIFFERENTIATED VARIABLES
38 !
39 ! THIS IS JUST AN EXAMPLE, TO HELP USERS LINKING ADVAR WITH THEIR
40 ! OWN DERIVATIVES. HERE, ADVAR(1), (2) AND (3) ARE THE
41 ! DIFFERENTIATED VARIABLES OF TRACER(1), U AND V RESPECTIVELY.
42 !
43 #if defined COMPAD_DCO_T1S
44 ! CASE(1)
45 ! CALL DCO_T1S_SET( T%ADR(1)%P%R, ADOBJ%R, 1 )
46 ! CASE(2)
47 ! CALL DCO_T1S_SET( U%R, ADOBJ%R, 1 )
48 ! CASE(3)
49 ! CALL DCO_T1S_SET( V%R, ADOBJ%R, 1 )
50 !
51 ! JUST IN CASE T1S IS NOT AVAILABLE, HERE BELOW FOR TESTING
52 !#else
53 ! CASE(1)
54 ! T%ADR(1)%P%R = ADOBJ%R
55 ! CASE(2)
56 ! U%R = ADOBJ%R
57 ! CASE(3)
58 ! V%R = ADOBJ%R
59 #endif
60  CASE DEFAULT
61  WRITE(lu,*) 'WARNING: UNKNOWN DIFFERENTIATED VARIABLE ',ivar
62  WRITE(lu,*) ' UPDATE EITHER SUBROUTINE AD_SET_KHIONE'
63  WRITE(lu,*) ' OR THE NUMBER OF DIFFERENTIATED VARIABLES'
64  WRITE(lu,*) ' -- OR ALGORITHMIC DIFFERENTIATION MIGHT NOT BE'
65  WRITE(lu,*) ' CONFIGURED.'
66  END SELECT
67 !
68 !-----------------------------------------------------------------------
69 !
70  RETURN
71  END SUBROUTINE ad_set_khione
subroutine ad_set_khione(IVAR, ADOBJ)
Definition: ad_set_khione.F:7
Definition: bief.f:3