The TELEMAC-MASCARET system  trunk
ad_set_gaia.F
Go to the documentation of this file.
1 ! *************************
2  SUBROUTINE ad_set_gaia
3 ! *************************
4 !
5  &(ivar,adobj)
6 !
7 !***********************************************************************
8 ! GAIA V7P2
9 !***********************************************************************
10 !
12 ! DIFFERENTED VARIBALE.
13 !
14 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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 DIRIVATIVES. 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( QS%R, ADOBJ%R, 1 )
46 ! CASE(2)
47 ! CALL DCO_T1S_SET( QSX%R, ADOBJ%R, 1 )
48 ! CASE(3)
49 ! CALL DCO_T1S_SET( QSY%R, ADOBJ%R, 1 )
50 ! CASE(4)
51 ! CALL DCO_T1S_SET( ESOMT%R, ADOBJ%R, 1 )
52 ! CASE(5)
53 ! CALL DCO_T1S_SET( H%R, ADOBJ%R, 1 )
54 !
55 ! JUST IN CASE T1S IS NOT AVAILABLE, HERE BELOW FOR TESTING
56 !#else
57 ! T%ADR(1)%P%R = ADOBJ%R
58 ! CASE(1)
59 ! QS%R = ADOBJ%R
60 ! CASE(2)
61 ! QSX%R = ADOBJ%R
62 ! CASE(3)
63 ! QSY%R = ADOBJ%R
64 ! CASE(4)
65 ! ESOMT%R = ADOBJ%R
66 ! CASE(5)
67 ! H%R = ADOBJ%R
68 #endif
69  CASE DEFAULT
70  WRITE(lu,*) 'WARNING: UNKNOWN DIFFERENTIATED VARIABLE ',ivar
71  WRITE(lu,*) ' UPDATE EITHER SUBROUTINE AD_SET_GAIA'
72  WRITE(lu,*) ' OR THE NUMBER OF DIFERENTIATED VARIABLES'
73  WRITE(lu,*) ' -- OR ALGORITHMIC DIFFERENTIATION MIGHT NOT BE'
74  WRITE(lu,*) ' CONFIGURED.'
75  END SELECT
76 !
77 !-----------------------------------------------------------------------
78 !
79  RETURN
80  END SUBROUTINE ad_set_gaia
subroutine ad_set_gaia(IVAR, ADOBJ)
Definition: ad_set_gaia.F:7
Definition: bief.f:3