init_constant.F

Go to the documentation of this file.

!                   ************************
                    SUBROUTINE init_constant
!                   ************************
!
     &(karim_holly_yang,karman,pi)
!
!***********************************************************************
! SISYPHE   V7P1
!***********************************************************************
!
!brief    SETS THE CONSTANTS USED BY SISYPHE.
!
!history  F. HUVELIN
!+        11/01/2004
!+        V5P7
!+
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| KARIM_HOLLY_YAN|-->| KARIM, HOLLY & YANG CONSTANT
!| KARMAN         |-->| VON KARMAN CONSTANT
!| PI             |-->| PI
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      DOUBLE PRECISION, INTENT(INOUT) :: KARIM_HOLLY_YANG
      DOUBLE PRECISION, INTENT(INOUT) :: KARMAN
      DOUBLE PRECISION, INTENT(INOUT) :: PI
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
! KARIM, HOLLY & YANG CONSTANT
! ----------------------------
!
      karim_holly_yang = 0.85d0
!
! VON KARMAN CONSTANT
! -------------------
!
      karman = 0.4d0
!
! PARTHENIADES CONSTANT : EXPRESSED IN M/S
! ---------------------
! THIS VALUE IS NOW GIVEN IN USER_KRONE_PART
!      PARTHENIADES = 2.D-5/XMVS
!
! PI
! --
!
      pi = 4.d0 * atan( 1.d0 )
!
!======================================================================!
!
      RETURN
      END