init_constant.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\init_constant.f
00002 !
00043                      SUBROUTINE INIT_CONSTANT
00044 !                    ************************
00045 !
00046      &(KARIM_HOLLY_YANG,KARMAN,PI)
00047 !
00048 !***********************************************************************
00049 ! SISYPHE   V6P1                                   21/07/2011
00050 !***********************************************************************
00051 !
00052 !
00053 !
00054 !
00055 !
00056 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00057 !| KARIM_HOLLY_YAN|-->| KARIM, HOLLY & YANG CONSTANT
00058 !| KARMAN         |-->| VON KARMAN CONSTANT
00059 !| PI             |-->| PI
00060 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00061 !
00062       IMPLICIT NONE
00063       INTEGER LNG,LU
00064       COMMON/INFO/LNG,LU
00065 !
00066 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00067 !
00068       DOUBLE PRECISION, INTENT(INOUT) :: KARIM_HOLLY_YANG
00069       DOUBLE PRECISION, INTENT(INOUT) :: KARMAN
00070       DOUBLE PRECISION, INTENT(INOUT) :: PI
00071 !
00072 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00073 !
00074 !
00075 ! KARIM, HOLLY & YANG CONSTANT
00076 ! ----------------------------
00077 !
00078       KARIM_HOLLY_YANG = 0.85D0
00079 !
00080 ! VON KARMAN CONSTANT
00081 ! -------------------
00082 !
00083       KARMAN = 0.4D0
00084 !
00085 ! PARTHENIADES CONSTANT : EXPRESSED IN M/S
00086 ! ---------------------
00087 ! THIS VALUE IS NOW GIVEN IN USER_KRONE_PART
00088 !      PARTHENIADES = 2.D-5/XMVS
00089 !
00090 ! PI
00091 ! --
00092 !
00093       PI =ACOS(-1.D0)
00094 !
00095 !======================================================================!
00096 !
00097       RETURN
00098       END SUBROUTINE

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