borh.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\artemis\borh.f
00002 !
00079                      SUBROUTINE BORH
00080 !                    ***************
00081 !
00082 !
00083 !***********************************************************************
00084 ! ARTEMIS   V6P1                                   21/08/2010
00085 !***********************************************************************
00086 !
00087 !
00088 !
00089 !
00090 !
00091 !
00092 !
00093 !
00094 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00095 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00096 !
00097       USE BIEF
00098       USE DECLARATIONS_TELEMAC
00099       USE DECLARATIONS_ARTEMIS
00100 !
00101       IMPLICIT NONE
00102       INTEGER LNG,LU
00103       COMMON/INFO/LNG,LU
00104 !
00105       DOUBLE PRECISION PI
00106       PARAMETER( PI = 3.1415926535897932384626433D0)
00107 !
00108       INTRINSIC COS,SIN
00109 !
00110 !-----------------------------------------------------------------------
00111 !
00112 ! BOUNDARY CONDITIONS
00113 ! KLOG : 'SOLID' SEGMENT.
00114 ! KINC : 'INCIDENT WAVE' SEGMENT.
00115 ! KENT : 'ENTRY' SEGMENT.
00116 ! KSORT : 'EXIT' SEGMENT.
00117 !
00118 ! ALL THE ANGLES ARE IN  DEGREES
00119 !                         ------
00120 ! ---------------------------------------
00121 ! INITIALISES THE VARIABLES (DEFAULT)
00122 ! ---------------------------------------
00123 !
00124       TETAB%R(:)=TETAH
00125       TETAP%R(:)=0.D0
00126       ALFAP%R(:)=0.D0
00127       RP%R(:)=0.D0
00128       HB%R(:)=0.D0
00129 !
00130 !-----------------------------------------------------------------------
00131 !
00132       RETURN
00133       END

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