The TELEMAC-MASCARET system  trunk
borh.f
Go to the documentation of this file.
1 ! ***************
2  SUBROUTINE borh
3 ! ***************
4 !
5 !
6 !***********************************************************************
7 ! ARTEMIS V7P3 Aug 2017
8 !***********************************************************************
9 !
10 !brief DEPRECATED TO BE REPLACED BY USER_BORH KEPT FOR RETRO
11 !+ COMPATIBILITY
12 !
13 !history J-M HERVOUET (LNH)
14 !+
15 !+
16 !+ LINKED TO BIEF 5.0
17 !
18 !history D. AELBRECHT (LNH)
19 !+ 21/08/2000
20 !+ V5P1
21 !+
22 !
23 !history C. DENIS (SINETICS)
24 !+ 18/03/2010
25 !+ V6P0
26 !+
27 !
28 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
29 !+ 13/07/2010
30 !+ V6P0
31 !+ Translation of French comments within the FORTRAN sources into
32 !+ English comments
33 !
34 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
35 !+ 21/08/2010
36 !+ V6P0
37 !+ Creation of DOXYGEN tags for automated documentation and
38 !+ cross-referencing of the FORTRAN sources
39 !
40 !history N.DURAND (HRW)
41 !+ November 2016
42 !+ V7P2
43 !+ BORH void for general use now that wave / boundary parameters
44 !+ can be read from cli file, and that TETAB is assigned before
45 !+ call to BORH for all cases (uni or multidirectional waves)
46 !+ The subroutine can still be used for advanced definition of
47 !+ boundaries or if the user chooses not to use the cli file, but
48 !+ does nothing by default
49 !
50 !history N.DURAND (HRW)
51 !+ August 2017
52 !+ V7P3
53 !+ PI now defined in DECLARATIONS_ARTEMIS
54 !
55 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
56 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
57 !
58  USE bief
61 !
63  IMPLICIT NONE
64 !
65 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
66 !
67 !
68 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
69 !
70 !
71 !-----------------------------------------------------------------------
72 !
73  ! USER FUNTION
74  CALL user_borh
75 !
76 !-----------------------------------------------------------------------
77 !
78  RETURN
79  END
subroutine user_borh
Definition: user_borh.f:4
subroutine borh
Definition: borh.f:4
Definition: bief.f:3