The TELEMAC-MASCARET system  trunk
init_constant_gaia.F
Go to the documentation of this file.
1 ! ************************
2  SUBROUTINE init_constant_gaia
3 ! ************************
4 !
5  &(karim_holly_yang,karman,pi)
6 !
7 !***********************************************************************
8 ! GAIA
9 !***********************************************************************
10 !
12 !
13 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
17 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
18 !
20  IMPLICIT NONE
21 !
22 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
23 !
24  DOUBLE PRECISION, INTENT(INOUT) :: KARIM_HOLLY_YANG
25  DOUBLE PRECISION, INTENT(INOUT) :: KARMAN
26  DOUBLE PRECISION, INTENT(INOUT) :: PI
27 !
28 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
29 !
30 ! KARIM, HOLLY & YANG CONSTANT
31 ! ----------------------------
32 !
33  karim_holly_yang = 0.85d0
34 !
35 ! VON KARMAN CONSTANT
36 ! -------------------
37 !
38  karman = 0.4d0
39 !
40 ! PARTHENIADES CONSTANT : EXPRESSED IN M/S
41 ! ---------------------
42 ! THIS VALUE IS NOW GIVEN IN USER_KRONE_PART
43 ! PARTHENIADES = 2.D-5/XMVS
44 !
45 ! PI
46 ! --
47 !
48  pi = 4.d0 * atan( 1.d0 )
49 !
50 !======================================================================!
51 !
52  RETURN
53  END
subroutine init_constant_gaia(KARIM_HOLLY_YANG, KARMAN, PI)