source: dynamico_lmdz/aquaplanet/LMDZ5/libf/phymar/yoevdfs.F90 @ 4031

Last change on this file since 4031 was 3990, checked in by millour, 8 years ago

An updated LMDZ5 (based on LMDZ rev 2786) to play with.
EM
File size: 2.3 KB
Line 
1MODULE YOEVDFS
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11!*    ** *YOEVDFS* CONTAINS STABILITY FUNCTION TABLES FOR *VDF...*
12!     ------------------------------------------------------------------
13
14INTEGER_M, PARAMETER :: JPRITBL=101
15REAL_B :: RITBL(JPRITBL)
16REAL_B :: ARITBL(JPRITBL)
17REAL_B :: RCHBA
18REAL_B :: RCHBB
19REAL_B :: RCHBC
20REAL_B :: RCHBD
21REAL_B :: RCHB23A
22REAL_B :: RCHBBCD
23REAL_B :: RCHBCD
24REAL_B :: RCHETA
25REAL_B :: RCHETB
26REAL_B :: RCHETC
27REAL_B :: RCHBHDL
28REAL_B :: RCDHALF
29REAL_B :: RCDHPI2
30REAL_B :: RIMAX
31REAL_B :: DRITBL
32REAL_B :: DRI26
33
34!**   ** *YOEDFS* CONTAINS STABILITY FUNCTION TABLES FOR *VDF...*
35
36!     A.C.M. BELJAARS   E.C.M.W.F.       26/03/90.
37
38!      NAME      TYPE        PURPOSE
39!      ----      ----        -------
40
41!     *RCHBA*     REAL       *CONSTANT A IN *HOLTSLAG AND *DEBRUIN
42!                            FUNCTIONS FOR STABLE SITUATIONS
43!     *RCHBB*     REAL       *CONSTANT B IN *HB* FUNCTIONS
44!     *RCHBC*     REAL       *CONSTANT C IN *HB* FUNCTIONS
45!     *RCHBD*     REAL       *CONSTANT D IN *HB* FUNCTIONS
46!     *RCHB23A    REAL       2./3.*A IN *HB* FUNCTIONS
47!     *RCHBBCD    REAL       B*C/D IN *HB* FUNCTIONS
48!     *RCHBCD     REAL       C/D IN *HB* FUNCTIONS
49!     *RCHETA*    REAL       CONSTANT IN THE *HOGSTROM *ELLISON *TURNER
50!                            FUNCTIONS FOR STABLY STRATIFIED TURBULENCE
51!     *RCHETB*    REAL       CONSTANT IN THE *HET* FUNCTIONS     
52!     *RCHETC*    REAL       CONSTANT IN *HET* FUNCTIONS 
53!     *RCHBHDL*   REAL       MAXIM ZNLEV/L FOR STABLE BOUNDARY LAYER 
54!     *RCDHALF    REAL       CONSTANT IN *DYER AND *HICKS FORMULAE
55!                            FOR UNSTABLE SITUATIONS
56!     *RCDHPI2    REAL       PI/2.
57!     *RIMAX*     REAL       *MAXIMIM RICHARDSON NUMBER TABULATED
58!     *DRITBL*    REAL       *INCREMENT OF THE RICHARDSON NUMBER
59!                            BETWEEN TABULATED VALUES.
60!     *DRI26*     REAL       DRITBL**2/6.
61!     *RITBL*     REAL ARRAY *TABULATED ETA-VALUES (Z/L) AS A FUNCTION
62!                            OF THE RICHARDSON NUMBER FOR STABLE CASES.
63!     *ARITBL*    REAL ARRAY *SECOND DERIVATIVES OF TABULATED FUNCTION
64!                            FOR SPLINE INTERPOLATION.
65!     ------------------------------------------------------------------
66END MODULE YOEVDFS
Note: See TracBrowser for help on using the repository browser.