| [3331] | 1 | MODULE YOEPHLI |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! ------------------------------------------------------------------ |
|---|
| 10 | !* ** *YOEPHLI* CONTAINS CONSTANTS FOR THE LINEARIZED PHYSICS |
|---|
| 11 | ! ------------------------------------------------------------------ |
|---|
| 12 | |
|---|
| 13 | LOGICAL :: LPHYLIN |
|---|
| 14 | LOGICAL :: LENOPERT |
|---|
| 15 | LOGICAL :: LEPPCFLS |
|---|
| 16 | LOGICAL :: LRAISANEN |
|---|
| 17 | |
|---|
| 18 | REAL(KIND=JPRB) :: RLPTRC |
|---|
| 19 | REAL(KIND=JPRB) :: RLPAL1 |
|---|
| 20 | REAL(KIND=JPRB) :: RLPAL2 |
|---|
| 21 | REAL(KIND=JPRB) :: RLPBB |
|---|
| 22 | REAL(KIND=JPRB) :: RLPCC |
|---|
| 23 | REAL(KIND=JPRB) :: RLPDD |
|---|
| 24 | REAL(KIND=JPRB) :: RLPMIXL |
|---|
| 25 | REAL(KIND=JPRB) :: RLPBETA |
|---|
| 26 | REAL(KIND=JPRB) :: RLPDRAG |
|---|
| 27 | REAL(KIND=JPRB) :: RLPEVAP |
|---|
| 28 | REAL(KIND=JPRB) :: RLPP00 |
|---|
| 29 | |
|---|
| 30 | !* *YOEPHLI* CONTAINS CONSTANTS NEEDED BY |
|---|
| 31 | ! THE LINEARIZED PHYSICS |
|---|
| 32 | |
|---|
| 33 | ! J.F. MAHFOUF E.C.M.W.F. 23/06/96 |
|---|
| 34 | |
|---|
| 35 | ! NAME TYPE DESCRIPTION |
|---|
| 36 | ! ---- ---- ----------- |
|---|
| 37 | |
|---|
| 38 | ! *RLPTRC* REAL CRITICAL TEMPERATURE FOR MIXED PHASE PROPERTIES |
|---|
| 39 | ! OF WATER |
|---|
| 40 | ! *RLPAL1* REAL SMOOTHING COEFFICIENT |
|---|
| 41 | ! *RLPAL2* REAL SMOOTHING COEFFICIENT |
|---|
| 42 | ! *RLPBB* REAL CONSTANT FROM THE LOUIS ET AL. FORMULATION |
|---|
| 43 | ! *RLPCC* REAL CONSTANT FROM THE LOUIS ET AL. FORMULATION |
|---|
| 44 | ! *RLPDD* REAL CONSTANT FROM THE LOUIS ET AL. FORMULATION |
|---|
| 45 | ! *RLPMIXL* REAL PSEUDO DEPTH OF THE PLANETARY BOUNDARY LAYER |
|---|
| 46 | ! *RLPBETA* REAL REDUCTION FACTOR OF THE ASYMPTOTIC MIXING LENGTH |
|---|
| 47 | ! *RLPDRAG* REAL COEFFICIENT FOR THE ESTIMATION OF SURFACE DRAG |
|---|
| 48 | ! *RLPEVAP* REAL FRACTION OF POSSIBLE RAINFALL EVAPORATION |
|---|
| 49 | ! *RLPP00* REAL PRESSURE ABOVE WHICH RADIATION IS NOT APPLIED |
|---|
| 50 | ! *LPHYLIN* LOGICAL TRUE WHEN LINEARIZED PHYSICS IS ACTIVATED |
|---|
| 51 | ! *LENOPERT LOGICAL TRUE WHEN NO PERTURBATION IS REQUIRED |
|---|
| 52 | ! FOR SURFACE ARRAYS |
|---|
| 53 | ! *LEPPCFLS LOGICAL TRUE WHEN POST-PROCESSING OF SURFACE FIELDS |
|---|
| 54 | ! REQUIRED |
|---|
| 55 | ! *LRAISANEN LOGICAL TRUE WHEN RAISANEN OVERLAP SCHEME IS |
|---|
| 56 | ! ACTIVATED |
|---|
| 57 | ! ------------------------------------------------------------------ |
|---|
| 58 | |
|---|
| 59 | !$OMP THREADPRIVATE(lenopert,leppcfls,lphylin,lraisanen,rlpal1,rlpal2,rlpbb) |
|---|
| 60 | !$OMP THREADPRIVATE(rlpbeta,rlpcc,rlpdd,rlpdrag,rlpevap,rlpmixl,rlpp00,rlptrc) |
|---|
| 61 | |
|---|
| 62 | END MODULE YOEPHLI |
|---|
