The TELEMAC-MASCARET system  trunk
user_anaven.f
Go to the documentation of this file.
1 ! **********************
2  SUBROUTINE user_anaven
3 ! **********************
4 !
5 !
6 !***********************************************************************
7 ! TOMAWAC
8 !***********************************************************************
9 !
10 !brief USER SPECIFIES AN ANALYTICAL WIND
11 !+ (CAN BE VARIABLE IN TIME).
12 !
13 !
14 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
15 !| AT |-->| COMPUTATION TIME
16 !| DDC |-->| DATE OF COMPUTATION BEGINNING
17 !| NPOIN2 |-->| NUMBER OF POINTS IN 2D
18 !| UV |<--| WIND VELOCITY ALONG X AT THE MESH POINTS
19 !| VV |<--| WIND VELOCITY ALONG Y AT THE MESH POINTS
20 !| VX_CTE |-->| WIND ALONG X (CONSTANT VALUE IN STEERING FILE)
21 !| VY_CTE |-->| WIND ALONG Y (CONSTANT VALUE IN STEERING FILE)
22 !| X |-->| ABSCISSAE OF POINTS IN THE MESH
23 !| Y |-->| ORDINATES OF POINTS IN THE MESH
24 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
25 !
27 ! USE DECLARATIONS_TOMAWAC, ONLY : NPOIN2, AT , DDC ,
28 ! & VX_CTE, VY_CTE, X, Y,UV,VV
29 ! USE METEO_TELEMAC, ONLY : WINDX,WINDY
30  USE interface_tomawac, ex_user_anaven => user_anaven
31  IMPLICIT NONE
32 
33 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
34 !
35 !
36 !-----------------------------------------------------------------------
37 !
38 ! EXAMPLE IF COUPLING WITH TELEMAC-2D
39 ! READING TOMAWAC WIND IN TELEMAC-2D SHOULD BE POSSIBLE ALSO
40 !
41 ! DO IP=1,NPOIN2
42 ! UV(IP)=WINDX%R(IP)
43 ! VV(IP)=WINDY%R(IP)
44 ! ENDDO
45 !
46 !-----------------------------------------------------------------------
47 !
48  RETURN
49  END
subroutine user_anaven
Definition: user_anaven.f:4