| [2089] | 1 | MODULE YOEVDFS |
|---|
| 2 | |
|---|
| 3 | |
|---|
| 4 | #include "tsmbkind.h" |
|---|
| 5 | |
|---|
| 6 | IMPLICIT NONE |
|---|
| 7 | |
|---|
| 8 | SAVE |
|---|
| 9 | |
|---|
| 10 | ! ------------------------------------------------------------------ |
|---|
| 11 | !* ** *YOEVDFS* CONTAINS STABILITY FUNCTION TABLES FOR *VDF...* |
|---|
| 12 | ! ------------------------------------------------------------------ |
|---|
| 13 | |
|---|
| 14 | INTEGER_M, PARAMETER :: JPRITBL=101 |
|---|
| 15 | REAL_B :: RITBL(JPRITBL) |
|---|
| 16 | REAL_B :: ARITBL(JPRITBL) |
|---|
| 17 | REAL_B :: RCHBA |
|---|
| 18 | REAL_B :: RCHBB |
|---|
| 19 | REAL_B :: RCHBC |
|---|
| 20 | REAL_B :: RCHBD |
|---|
| 21 | REAL_B :: RCHB23A |
|---|
| 22 | REAL_B :: RCHBBCD |
|---|
| 23 | REAL_B :: RCHBCD |
|---|
| 24 | REAL_B :: RCHETA |
|---|
| 25 | REAL_B :: RCHETB |
|---|
| 26 | REAL_B :: RCHETC |
|---|
| 27 | REAL_B :: RCHBHDL |
|---|
| 28 | REAL_B :: RCDHALF |
|---|
| 29 | REAL_B :: RCDHPI2 |
|---|
| 30 | REAL_B :: RIMAX |
|---|
| 31 | REAL_B :: DRITBL |
|---|
| 32 | REAL_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 | ! ------------------------------------------------------------------ |
|---|
| 66 | END MODULE YOEVDFS |
|---|
