The TELEMAC-MASCARET system  trunk
spd.f
Go to the documentation of this file.
1 ! *****************************
2  DOUBLE PRECISION FUNCTION spd
3 ! *****************************
4 !
5  &(teta)
6 !
7 !***********************************************************************
8 ! ARTEMIS V7P3 Aug 2017
9 !***********************************************************************
10 !
11 !brief COMPUTES THE ENERGY DENSITY BASED ON GODA.
12 !
13 !reference "RANDOM SEA AND DESIGN OF MARITIME STRUCTURES",
14 !+ UNIVERSITY OF TOKYO PRESS - 1985
15 !
16 !code
17 !+ SPD(TETA) = COS( (TETA)/2 )**(2*EXPO)
18 !+
19 !+
20 !+ WHERE TETA IS THE WAVE PROPAGATION ANGLE
21 !+ (THE MAIN PROPAGATION DIRECTION IS TETA=0)
22 !+ EXPO IS AN EXPONENT SPECIFIED BY THE USER
23 !
24 !history F. LEPEINTRE (LNH)
25 !+ 01/06/1993
26 !+ V2P0
27 !+
28 !
29 !history D. AELBRECHT (LNH)
30 !+ 04/06/1999
31 !+ V5P1
32 !+
33 !
34 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
35 !+ 13/07/2010
36 !+ V6P0
37 !+ Translation of French comments within the FORTRAN sources into
38 !+ English comments
39 !
40 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
41 !+ 21/08/2010
42 !+ V6P0
43 !+ Creation of DOXYGEN tags for automated documentation and
44 !+ cross-referencing of the FORTRAN sources
45 !
46 !history N.DURAND (HRW)
47 !+ August 2017
48 !+ V7P3
49 !+ DEGRAD now defined in DECLARATIONS_ARTEMIS
50 !
51 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
52 !| TETA |-->| ANGLE FOR CONSIDERED WAVE PROPAGATION
53 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
54 !
55  USE interface_artemis, ex_spd => spd
57  USE declarations_artemis, ONLY: expo, degrad
58  IMPLICIT NONE
59 !
60  DOUBLE PRECISION TETA
61 !
62  INTRINSIC cos
63 !
64 !-----------------------------------------------------------------------
65 !
66 ! EXPO=10.
67  spd = cos( teta*degrad / 2.d0 )**(2*expo)
68 !
69 !-----------------------------------------------------------------------
70 !
71  RETURN
72  END
double precision function spd(TETA)
Definition: spd.f:7