| 1 | MODULE YOMPHY2 |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | !* |
|---|
| 10 | ! ------------------------------------------------------------------ |
|---|
| 11 | ! CONSTANTES DEFINISSANT LE CONTEXTE DE L'EXPERIENCE POUR LA |
|---|
| 12 | ! PHYSIQUE : DISCRETISATION TEMPORELLE, STRUCTURE VERTICALE, |
|---|
| 13 | ! SORTIES. |
|---|
| 14 | ! TSPHY : PAS DE TEMPS DE LA PHYSIQUE. |
|---|
| 15 | ! : PHYSICS TIME STEP. |
|---|
| 16 | ! XMUCVPP : FACTEUR DE CVPP POUR "ANTI-FIBRIL.". |
|---|
| 17 | ! : "ANTI-FIBRIL." FACTOR FOR CVPP. |
|---|
| 18 | ! XMULAF : FACTEUR "ANTI-FIBRIL." (1. RECOMMANDE SI ACTIF). |
|---|
| 19 | ! : "ANTI-FIBRIL." FACTOR (1. RECOMMENDED IF ACTIVATED). |
|---|
| 20 | ! XDAMP : DAMPING FACTOR USED IN THE NEW TREATMENT OF |
|---|
| 21 | ! SHALLOW CONVECTION. |
|---|
| 22 | ! IF ZERO => OLD TREATMENT |
|---|
| 23 | ! IF /= 0 => XMUCVPP SHOULD BE ZERO |
|---|
| 24 | ! LMULAF : CONTROL DE l'ANTI-FIBRIL. SUR LA VERTICALE |
|---|
| 25 | ! : CONTROL "ANTI-FIBRIL." ON VERTICAL |
|---|
| 26 | ! HCLP : HAUTEUR MOYENNE DE LA CLP ( EN GENERAL 1500M ). |
|---|
| 27 | ! : MEAN PBL DEPTH ( IN GENERAL 1500M ). |
|---|
| 28 | ! HTCLS : HAUTEUR METEO POUR T ET Q ( EN GENERAL 2M ). |
|---|
| 29 | ! : SCREEN HEIGHT FOR T AND Q ( IN GENERAL 2M ). |
|---|
| 30 | ! HVCLS : HAUTEUR METEO POUR U ET V ( EN GENERAL 10M ). |
|---|
| 31 | ! : MEASURING HEIGHT FOR U AND V (IN GENERAL 10M ). |
|---|
| 32 | |
|---|
| 33 | ! HTSHM : HAUTEUR DE TRANSITION EN "S" NUAGES HAUTS/MOYENS. |
|---|
| 34 | ! : TRANSITION HEIGHT IN "S" COORDINATE H/M CLOUDS. |
|---|
| 35 | ! HTSML : HAUTEUR DE TRANSITION EN "S" NUAGES MOYENS/BAS. |
|---|
| 36 | ! : TRANSITION HEIGHT IN "S" COORDINATE M/L CLOUDS. |
|---|
| 37 | ! NTSHM : INDICE DU NIVEAU DE TRANSITION NUAGES HAUTS/MOYENS. |
|---|
| 38 | ! : TRANSITION LEVEL BETWEEN HIGH/MEDIUM CLOUDS. |
|---|
| 39 | ! NTSML : INDICE DU NIVEAU DE TRANSITION NUAGES MOYENS/BAS. |
|---|
| 40 | ! : TRANSITION LEVEL BETWEEN MEDIUM/LOW CLOUDS. |
|---|
| 41 | ! RIPBLC : VALEUR CRITIQUE DU NOMBRE DE RICHARDSON POUR LE CALCUL DE LA HAUTEUR DE LA CLP |
|---|
| 42 | ! : CRITICAL VALUE OF RICHARDSON'S NUMBER TO COMPUTE THE HEIGHT OF PBL. |
|---|
| 43 | ! LRAFTUR : ACTIVATION DU DIAGNOSTIC DES RAFALES TURBULENTES |
|---|
| 44 | ! ACTIVATE DIAGNOSTIC OF TURBULENT GUSTS |
|---|
| 45 | ! GZ0RAF : Z0 FOIS G UTILISE POUR LE CALCUL DES RAFALES TURBULENTES |
|---|
| 46 | ! Z0 TIMES G USED TO COMPUTE TURBULENT GUSTS |
|---|
| 47 | ! FACRAF : COEFFICIENT DE CALCUL DES RAFALES TURBULENTES |
|---|
| 48 | ! COEFFICIENT FOR THE COMPUTATION OF TURBULENT GUSTS |
|---|
| 49 | |
|---|
| 50 | INTEGER(KIND=JPIM) :: NTSHM |
|---|
| 51 | INTEGER(KIND=JPIM) :: NTSML |
|---|
| 52 | REAL(KIND=JPRB) :: TSPHY |
|---|
| 53 | REAL(KIND=JPRB) :: XMUCVPP |
|---|
| 54 | REAL(KIND=JPRB) :: XMULAF |
|---|
| 55 | REAL(KIND=JPRB) :: XDAMP |
|---|
| 56 | REAL(KIND=JPRB) :: HCLP |
|---|
| 57 | REAL(KIND=JPRB) :: HTCLS |
|---|
| 58 | REAL(KIND=JPRB) :: HVCLS |
|---|
| 59 | REAL(KIND=JPRB) :: HTSHM |
|---|
| 60 | REAL(KIND=JPRB) :: HTSML |
|---|
| 61 | REAL(KIND=JPRB) :: RIPBLC |
|---|
| 62 | REAL(KIND=JPRB) :: GZ0RAF |
|---|
| 63 | REAL(KIND=JPRB) :: FACRAF |
|---|
| 64 | LOGICAL :: LRAFTUR |
|---|
| 65 | LOGICAL :: LMULAF |
|---|
| 66 | ! ------------------------------------------------------------------ |
|---|
| 67 | !$OMP THREADPRIVATE(facraf,gz0raf,hclp,htcls,htshm,htsml,hvcls,lmulaf,lraftur,ntshm,ntsml,ripblc,tsphy) |
|---|
| 68 | !$OMP THREADPRIVATE(xdamp,xmucvpp,xmulaf) |
|---|
| 69 | END MODULE YOMPHY2 |
|---|
