The TELEMAC-MASCARET system  trunk
ad_get_sisyphe.F
Go to the documentation of this file.
1 ! *************************
2  SUBROUTINE ad_get_sisyphe
3 ! *************************
4 !
5  &(ivar,adobj)
6 !
7 !***********************************************************************
8 ! SISYPHE V7P2
9 !***********************************************************************
10 !
11 !brief ASSOCIATE THE 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 differentiated variables
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 ! JUST TESTING IO OF DIFFERENTIATED VARIABLES
39 !
40 ! THIS IS JUST AN EXAMPLE, TO HELP USERS LINKING ADVAR WITH THEIR
41 ! OWN DIRIVATIVES. HERE, ADVAR(1), (2) and (3) ARE THE
42 ! DIFFERENTIATED VARIABLES OF TRACER(1), U AND V RESPECTIVELY.
43 !
44 #if defined COMPAD_DCO_T1S
45 ! CASE(1)
46 ! CALL DCO_T1S_GET( QS%R, ADOBJ%R, 1 )
47 ! CASE(2)
48 ! CALL DCO_T1S_GET( QSX%R, ADOBJ%R, 1 )
49 ! CASE(3)
50 ! CALL DCO_T1S_GET( QSY%R, ADOBJ%R, 1 )
51 ! CASE(4)
52 ! CALL DCO_T1S_GET( ESOMT%R, ADOBJ%R, 1 )
53 ! CASE(5)
54 ! CALL DCO_T1S_GET( H%R, ADOBJ%R, 1 )
55 !
56 ! JUST IN CASE T1S IS NOT AVAILABLE, HERE BELOW FOR TESTING
57 ! WITHOUT DIFFERENTIATED VARIABLES.
58 !
59 !#else
60 ! CASE(1)
61 ! ADOBJ%R = QS%R
62 ! CASE(2)
63 ! ADOBJ%R = QSX%R
64 ! CASE(3)
65 ! ADOBJ%R = QSY%R
66 ! CASE(4)
67 ! ADOBJ%R = ESOMT%R
68 ! CASE(5)
69 ! ADOBJ%R = H%R
70 #endif
71 ! CASE DEFAULT
72 ! WRITE(LU,*) 'WARNING: UNKNOWN DIFFERENTIATED VARIABLE ',IVAR
73 ! WRITE(LU,*) ' UPDATE EITHER SUBROUTINE AD_GET_SISYPHE'
74 ! WRITE(LU,*) ' OR THE NUMBER OF DIFERENTIATED VARIABLES'
75 ! WRITE(LU,*) ' -- OR ALGORITHMIC DIFFERENTIATION MIGHT NOT BE'
76 ! WRITE(LU,*) ' CONFIGURED.'
77 ! END SELECT
78 !
79 !-----------------------------------------------------------------------
80 !
81  RETURN
82  END SUBROUTINE ad_get_sisyphe
subroutine ad_get_sisyphe(IVAR, ADOBJ)
Definition: ad_get_sisyphe.F:7
Definition: bief.f:3