anaven.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\anaven.f
00002 !
00065                      SUBROUTINE ANAVEN
00066 !                    *****************
00067 !
00068      &(UV,VV,X,Y,NPOIN2,AT,DDC,VX_CTE,VY_CTE)
00069 !
00070 !***********************************************************************
00071 ! TOMAWAC   V6P3                                   08/06/2011
00072 !***********************************************************************
00073 !
00074 !
00075 !
00076 !
00077 !
00078 !
00079 !
00080 !
00081 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00082 !| AT             |-->| COMPUTATION TIME
00083 !| DDC            |-->| DATE OF COMPUTATION BEGINNING
00084 !| NPOIN2         |-->| NUMBER OF POINTS IN 2D
00085 !| UV             |<--| WIND VELOCITY ALONG X AT THE MESH POINTS
00086 !| VV             |<--| WIND VELOCITY ALONG Y AT THE MESH POINTS
00087 !| VX_CTE         |-->| WIND ALONG X (CONSTANT VALUE IN STEERING FILE)
00088 !| VY_CTE         |-->| WIND ALONG Y (CONSTANT VALUE IN STEERING FILE)
00089 !| X              |-->| ABSCISSAE OF POINTS IN THE MESH
00090 !| Y              |-->| ORDINATES OF POINTS IN THE MESH
00091 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00092 !
00093       IMPLICIT NONE
00094 !
00095 !     WHEN COUPLING WITH TELEMAC-2D, THIS WILL ALLOW A COPY OF WIND
00096 !     IN TELEMAC-2D
00097 !
00098 !     USE DECLARATIONS_TELEMAC2D, ONLY : WINDX,WINDY
00099 !
00100       INTEGER LNG,LU
00101       COMMON/INFO/ LNG,LU
00102 !
00103 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00104 !
00105       INTEGER  NPOIN2
00106       DOUBLE PRECISION AT    , DDC   , VX_CTE, VY_CTE
00107       DOUBLE PRECISION X (NPOIN2)    , Y (NPOIN2)
00108       DOUBLE PRECISION UV(NPOIN2)    , VV(NPOIN2)
00109 !
00110 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00111 !
00112       INTEGER  IP
00113 !
00114 !     STANDARD CASE (CONSTANT VALUES IN THE STEERING FILE)
00115 !
00116       DO IP=1,NPOIN2
00117         UV(IP)=VX_CTE
00118         VV(IP)=VY_CTE
00119       ENDDO
00120 !
00121 !     EXAMPLE IF COUPLING WITH TELEMAC-2D
00122 !     READING TOMAWAC WIND IN TELEMAC-2D SHOULD BE POSSIBLE ALSO
00123 !
00124 !     DO IP=1,NPOIN2
00125 !       UV(IP)=WINDX%R(IP)
00126 !       VV(IP)=WINDY%R(IP)
00127 !     ENDDO
00128 !
00129 !-----------------------------------------------------------------------
00130 !
00131       RETURN
00132       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0