delfra.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\delfra.f
00002 !
00067                      FUNCTION DELFRA
00068 !                    ***************
00069 !
00070      &( SS    , DEUPI )
00071 !
00072 !***********************************************************************
00073 ! TOMAWAC   V6P1                                   14/06/2011
00074 !***********************************************************************
00075 !
00076 !
00077 !
00078 !
00079 !
00080 !
00081 !
00082 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00083 !| DEUPI          |-->| 2.PI
00084 !| SS             |-->| EXPONENT OF THE DIRECTIONAL SPREADING FUNCTION
00085 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00086 !
00087       IMPLICIT NONE
00088 !
00089 !.....VARIABLES IN ARGUMENT
00090 !     """"""""""""""""""""
00091       DOUBLE PRECISION DELFRA, SS    , DEUPI
00092 !
00093 !.....EXTERNAL FUNCTIONS
00094 !     """"""""""""""""""
00095       DOUBLE PRECISION GAMMLN
00096       EXTERNAL         GAMMLN
00097 !
00098 !
00099       DELFRA=SQRT(DEUPI/2.D0)
00100      &      *EXP(GAMMLN(SS+0.5D0,DEUPI)-GAMMLN(SS+1.D0,DEUPI))
00101 !
00102       RETURN
00103       END

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