The TELEMAC-MASCARET system  trunk
ad_get_gaia.F
Go to the documentation of this file.
1 ! *************************
2  SUBROUTINE ad_get_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 ! SELECT CASE (IVAR)
33 ! UST TESTING IO OF DIFFERENTIATED VARIABLES
34 !
35 ! THIS IS JUST AN EXAMPLE, TO HELP USERS LINKING ADVAR WITH THEIR
36 ! OWN DIRIVATIVES. 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( QS%R, ADOBJ%R, 1 )
42 ! CASE(2)
43 ! CALL DCO_T1S_GET( QSX%R, ADOBJ%R, 1 )
44 ! CASE(3)
45 ! CALL DCO_T1S_GET( QSY%R, ADOBJ%R, 1 )
46 ! CASE(4)
47 ! CALL DCO_T1S_GET( ESOMT%R, ADOBJ%R, 1 )
48 ! CASE(5)
49 ! CALL DCO_T1S_GET( H%R, ADOBJ%R, 1 )
50 !
51 ! JUST IN CASE T1S IS NOT AVAILABLE, HERE BELOW FOR TESTING
52 ! WITHOUT DIFFERENTIATED VARIABLES.
53 !
54 !#else
55 ! CASE(1)
56 ! ADOBJ%R = QS%R
57 ! CASE(2)
58 ! ADOBJ%R = QSX%R
59 ! CASE(3)
60 ! ADOBJ%R = QSY%R
61 ! CASE(4)
62 ! ADOBJ%R = ESOMT%R
63 ! CASE(5)
64 ! ADOBJ%R = H%R
65 #endif
66 ! CASE DEFAULT
67 ! IF(LNG.EQ.1) THEN
68 ! WRITE(LU,*) 'ATTENTION : IDENTIFIANT DERIVEE INCONNU ',IVAR
69 ! WRITE(LU,*) ' LA ROUTINE AD_GET_GAIA OU LE NOMBRE DE'
70 ! WRITE(LU,*) ' VARIABLES DERIVEES SONT A METTRE A JOUR'
71 ! WRITE(LU,*) ' -- OU BIEN LA CONFIGURATION NE S''APPLIQUE PAS'
72 ! WRITE(LU,*) ' A LA DIFFERENTIATION ALGORITHMIQUE.'
73 ! ELSEIF(LNG.EQ.2) THEN
74 ! WRITE(LU,*) 'WARNING: UNKNOWN DIFFERENTIATED VARIABLE ',IVAR
75 ! WRITE(LU,*) ' UPDATE EITHER SUBROUTINE AD_GET_GAIA'
76 ! WRITE(LU,*) ' OR THE NUMBER OF DIFERENTIATED VARIABLES'
77 ! WRITE(LU,*) ' -- OR ALGORITHMIC DIFFERENTIATION MIGHT NOT BE'
78 ! WRITE(LU,*) ' CONFIGURED.'
79 ! ENDIF
80 ! END SELECT
81 !
82 !-----------------------------------------------------------------------
83 !
84  RETURN
85  END SUBROUTINE ad_get_gaia
subroutine ad_get_gaia(IVAR, ADOBJ)
Definition: ad_get_gaia.F:7
Definition: bief.f:3