| [3331] | 1 | MODULE YOMPHY0 |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | !* |
|---|
| 10 | ! ------------------------------------------------------------------ |
|---|
| 11 | ! CONSTANTES PHYSIQUES REGLABLES PROPRES A L'ATMOSPHERE : |
|---|
| 12 | ! ------------------------------------------------------------------ |
|---|
| 13 | ! A0ML_AU : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE MELANGE. |
|---|
| 14 | ! : PARAMETER FOR THE INTERACTIVE MIXING LENGTH. |
|---|
| 15 | ! A0ML_AT : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE MELANGE. |
|---|
| 16 | ! : PARAMETER FOR THE INTERACTIVE MIXING LENGTH. |
|---|
| 17 | ! A0ML_BU : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE MELANGE. |
|---|
| 18 | ! : PARAMETER FOR THE INTERACTIVE MIXING LENGTH. |
|---|
| 19 | ! A0ML_BT : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE MELANGE. |
|---|
| 20 | ! : PARAMETER FOR THE INTERACTIVE MIXING LENGTH. |
|---|
| 21 | ! ACG : CONSTANTE POUR LE CALCUL DU CONTRE-GRADIENT (ECT). |
|---|
| 22 | ! : PARAMETER FOR THE CONTER-GRADIENT. |
|---|
| 23 | ! ADISE : CONSTANTE DE DISSIPATION PARTIE EXPLICITE (ECT). |
|---|
| 24 | ! : DISSIPATIVE PARAMETER FOR EXPLICIT PART. |
|---|
| 25 | ! ADISI : CONSTANTE DE DISSIPATION PARTIE IMPLICITE (ECT). |
|---|
| 26 | ! : DISSIPATIVE PARAMETER FOR IMPLICIT PART. |
|---|
| 27 | ! AECLS3 : CONSTANTE POUR LE CALCUL DE ECT DANS LA CLS. |
|---|
| 28 | ! : PARAMETER FOR THE TKE CALCULATION IN TH PBL. |
|---|
| 29 | ! AECLS4 : CONSTANTE POUR LE CALCUL DE ECT DANS LA CLS. |
|---|
| 30 | ! : PARAMETER FOR THE TKE CALCULATION IN TH PBL. |
|---|
| 31 | ! AERCS1 : PREMIER COEFF. DE LA FONCTION DE LA COORD. SIGMA |
|---|
| 32 | ! DEFINISSANT PDAER(KLEV). |
|---|
| 33 | ! : FIRST COEFFICIENT IN THE SIGMA COORD.'S FUNCTION |
|---|
| 34 | ! DEFINING PDAER(KLEV). |
|---|
| 35 | ! AERCS3 : DEUXIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA |
|---|
| 36 | ! DEFINISSANT PDAER(KLEV). |
|---|
| 37 | ! : SECOND COEFFICIENT IN THE SIGMA COORD.'S FUNCTION |
|---|
| 38 | ! DEFINING PDAER(KLEV). |
|---|
| 39 | ! AERCS5 : TROISIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA |
|---|
| 40 | ! DEFINISSANT PDAER(KLEV). |
|---|
| 41 | ! : THIRD COEFFICIENT IN THE SIGMA COORD.'S FUNCTION |
|---|
| 42 | ! DEFINING PDAER(KLEV). |
|---|
| 43 | ! AHCLPV : HAUTEUR DE LA COUCHE LIMITE POUR LONGUEUR DE MELANGE |
|---|
| 44 | ! PBL HEIGHT FOR MIXING LENGTH PROFILE COMPUTATION |
|---|
| 45 | ! AKN : CONSTANTE POUR LE CALCUL DES COEFF. D'ECHANGE (ECT) |
|---|
| 46 | ! : PARAMETER FOR THE EXCHANGE COEFF. CALCULATION. |
|---|
| 47 | ! ALD : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE DISSIPATION (ECT) |
|---|
| 48 | ! : PARAMETER FOR THE DISSIPATION LENGTH CALCULATION. |
|---|
| 49 | ! ALMAV : LONGUEUR DE MELANGE ASYMPTOTIQUE POUR LE VENT. |
|---|
| 50 | ! : MOMENTUM EXCHANGE ASYMPTOTIC MIXING LENGTH. |
|---|
| 51 | ! ALPHAE : CONSTANTE POUR LE CALCUL DES COEFF. D'ECHANGE (ECT). |
|---|
| 52 | ! : PARAMETER FOR THE EXCHANGE COEFF. CALCULATION. |
|---|
| 53 | ! ALPHAT : CONSTANTE POUR LE CALCUL DES COEFF. D'ECHANGE (ECT). |
|---|
| 54 | ! : PARAMETER FOR THE EXCHANGE COEFF. CALCULATION. |
|---|
| 55 | ! BEDIFV : COEFFICIENT DE FORME POUR LE PROFIL DE DIF. VERTICALE. |
|---|
| 56 | ! : FORM COEFFICIENT FOR THE VERTICAL DIFFUSION PROFILE. |
|---|
| 57 | ! ECMNP : EPAISSEUR CRITIQUE MINIMUM DU NUAGE PRECIPITANT. |
|---|
| 58 | ! : MINIMUM CRITICAL THICKNESS FOR PRECIPITATING CLOUDS. |
|---|
| 59 | ! ECTMIN : PARAMETRE POUR ECT |
|---|
| 60 | ! : PARAMETER FOR TKE |
|---|
| 61 | ! EDB : DETERMINE CD ET CH AU VOISINAGE DE LA NEUTRALITE. |
|---|
| 62 | ! : DETERMINES CD AND CH NEAR THE NEUTRAL REGIME. |
|---|
| 63 | ! EDC : DETERMINE CD ET CH EN REGIME ASYMPTOTIQUE INSTABLE. |
|---|
| 64 | ! : DETERMINES CD AND CH IN THE ASYMPTOTIC UNST. REGIME. |
|---|
| 65 | ! EDD : DETERMINE CD ET CH EN REGIME ASYMPTOTIQUE STABLE. |
|---|
| 66 | ! : DETERMINES CD AND CH IN THE ASYMPTOTIC STABLE REGIME. |
|---|
| 67 | ! EDK : DETERMINE CD ET CH EN REGIME STABLE. |
|---|
| 68 | ! : DETERMINES CD AND CH IN THE STABLE REGIME. |
|---|
| 69 | ! EPS : DISSIPATION PARTIE IMPLICITE PARTIE EXPLICITE (ECT). |
|---|
| 70 | ! : DISSIPATIVE PARAMETER |
|---|
| 71 | ! ETACUT : PARAMETRE DU SCHEMA DE CONVECTION EN PENTE |
|---|
| 72 | ! : LIMITATION OF VORTICITY IN SHEAR-LINKED CONVECTION SCHEME |
|---|
| 73 | ! EVAP : CONSTANTE D'EVAPORATION DES PRECIPITATIONS. |
|---|
| 74 | ! : PARAMETER FOR THE EVAPORATION OF PRECIPITATIONS. |
|---|
| 75 | ! FONT : CONSTANTE DE FONTE DES PRECIPITATIONS. |
|---|
| 76 | ! : PARAMETER FOR THE MELTING OF PRECIPITATIONS. |
|---|
| 77 | ! GALP : COEFFICIENT DE GALPERING (SCHEMA STAT. DE NUAGE). |
|---|
| 78 | ! : GALPERING COEFFICIENT (STATISTICAL CLOUD SCHEME). |
|---|
| 79 | ! GCISMIN : CISAILLEMENT MINIMAL UTILISE DANS LES CALCULS TURBULENTS. |
|---|
| 80 | ! : MINIMUM VALUE OF SHEAR USED IN TURBULENT COMPUTATIONS. |
|---|
| 81 | ! GCCSV : CHOIX DU CRITERE DE STABILITE VERTICALE. |
|---|
| 82 | ! : VERTICAL STABILITY CRITERIA CHOICE. |
|---|
| 83 | ! GCOMOD : EXPOSANT MODULATION DE LA CONVERGENCE D'HUMIDITE |
|---|
| 84 | ! ET DE LA CONSOMMATION CAPE (CONVECTION PROFONDE) |
|---|
| 85 | ! : EXPONENT USED IN MODULATION OF MOISTURE CONVERGENCE |
|---|
| 86 | ! AND CAPE CONSUMPTION (DEEP CONVECTION) |
|---|
| 87 | ! GCVALFA : COEFFICIENT RELIANT LA FLOTTABILITE NUAGEUSE |
|---|
| 88 | ! AU TAUX D'ENTRAINEMENT. |
|---|
| 89 | ! : COEFFICIENT TO COMPUTE ENTRAINMENT RATE FROM CLOUD BUOYANCY. |
|---|
| 90 | ! GCVADS : COEFFICIENT PERMETTANT DE PASSER D'UN CALCUL D'ADIABATIQUE |
|---|
| 91 | ! SATUREE EN EQUIPRESSION A UN CALCUL EN EQUIGEOPOTENTIEL. |
|---|
| 92 | ! : COEFFICIENT TO SWITCH FROM AN EQUIPRESSURE ADIABAT COMPUTATION |
|---|
| 93 | ! TO AN EQUIGEOPOTENTIAL ONE. |
|---|
| 94 | ! GCVBETA : FRACTION DE LA DIVERGENCE DU FLUX DE MASSE CONVECTIF |
|---|
| 95 | ! ENTRANT DANS LE DETRAINEMENT. |
|---|
| 96 | ! : FRACTION OF CONVECTIVE MASS FLUX DIVERGENCY |
|---|
| 97 | ! USED IN DETRAINMENT COMPUTATIONS. |
|---|
| 98 | ! GCVMLT : COEFFICIENT D'HYSTERESIS DE FONTE/GEL DES PRECIPITATIONS CONVECTIVES. |
|---|
| 99 | ! : PARAMETER FOR THE HYSTERESIS OF CONVECTIVE PRECIPITATIONS MELTING/FREEZING. |
|---|
| 100 | ! GCVNU : ENTRAINEMENT UTILISE POUR LE CALCUL DE LA FRACTION DE FLOTTABILITE. |
|---|
| 101 | ! : ENTRAINMENT RATE TO COMPUTE DILUTE PLUME BUOYANCY. |
|---|
| 102 | ! GCVPSI : COEFFICIENT ADIMENSIONNEL FAISANT |
|---|
| 103 | ! PASSER D'UNE PRISE EN COMPTE LOCALE DES FLUX TURBULENTS (SI 1) |
|---|
| 104 | ! A UNE PRISE EN COMPTE INTEGRALE (SI 0). |
|---|
| 105 | ! : ADIMENSIONAL COEFFICIENT TO GO FROM |
|---|
| 106 | ! A LOCAL USE OF TURBULENT FLUXES (IF 1) |
|---|
| 107 | ! TO AN INTEGRAL ONE (IF 0). |
|---|
| 108 | ! GCVPSIE : PRESSURE EXPONENT IN THE MULTIPLICATION FACTOR OF PQSAT IN |
|---|
| 109 | ! THE NORMALIZATION INTEGRAL OF TURBULENT FLUXES, UNDER LCVLIS |
|---|
| 110 | ! SWITCH (IF 0 => PQSAT IS USED, IF 1 => PQSAT*P**GCVPSIE) |
|---|
| 111 | ! GDDEVA : DOWNDRAFTS: FRACTION DES PRECIPITATIONS EVAPOREES. |
|---|
| 112 | ! : DOWNDRAFTS: PRECIPITATIONS EVAPORATION FRACTION. |
|---|
| 113 | ! GDDSDE : DOWNDRAFTS: EXPOSANT CONTROLANT LES COURANTS DESCENDANTS EN SURFACE. |
|---|
| 114 | ! : DOWNDRAFTS: SURFACE DESCENDING FLOW EXPONENT. |
|---|
| 115 | ! GPBLHK0 : COEFFICIENT KHI0 UTILISE DANS LE CALCUL DE HAUTEUR DE CLA. |
|---|
| 116 | ! : KHI0 COEFFICIENT FOR USE IN THE PBL HEIGHT COMPUTATION. |
|---|
| 117 | ! GPBLHRA : RAPPORT KHI0/KHI1 UTILISE DANS LE CALCUL DE HAUTEUR DE CLA. |
|---|
| 118 | ! : RATIO KHI0/KHI1 FOR USE IN THE PBL HEIGHT COMPUTATION. |
|---|
| 119 | ! GRCVPP : COEFFICIENT DE REDUCTION DE CVPP (ACCOEFK). |
|---|
| 120 | ! : REDUCTION COEFFICIENT FOR SHALLOW-CONVECTION (ACCOEFK). |
|---|
| 121 | ! GRCVPP : COEFFICIENT DE REDUCTION DE CVPP (ACCOEFK). |
|---|
| 122 | ! : REDUCTION COEFFICIENT FOR SHALLOW-CONVECTION (ACCOEFK). |
|---|
| 123 | ! GWDAMP : COEFFICIENT DE RESONANCE POUR LE G.W.D.. |
|---|
| 124 | ! : RESONNANCE COEFFICIENT FOR THE G.W.D.. |
|---|
| 125 | ! GWDBC : INVERSE DE LA HAUTEUR CRITIQUE POUR LE G.W.D.. |
|---|
| 126 | ! : INVERSE CRITICAL HEIGHT FOR THE G.W.D.. |
|---|
| 127 | ! GWDCCO : COEFFICIENT DU G.W.D CONVECTIF.. |
|---|
| 128 | ! : COEFFICIENT FOR THE CONVECTIVE G.W.D.. |
|---|
| 129 | ! GWDCD : COEFFICIENT DE FROTTEMENT POUR LE G.W.D. DE SURFACE. |
|---|
| 130 | ! : DRAG COEFFICIENT FOR FOR THE LOW LEVEL G.W.D.. |
|---|
| 131 | ! GWDLT : COEFFICIENT DE SOULEVEMENT AU SOL POUR LE G.W.D.. |
|---|
| 132 | ! : SURFACE LIFT COEFF. FOR THE G.W.D.. |
|---|
| 133 | ! GWDSE : COEFFICIENT DE FORME DU SOL POUR LE G.W.D.. |
|---|
| 134 | ! : ASPECT RATIO TYPE COEFF. AT THE SURF. FOR THE G.W.D.. |
|---|
| 135 | ! GWDPROF : COEFF DEFINISSANT LA FORME DE LA MONTAGNE POUR LE G.W.D.. |
|---|
| 136 | ! : MOUNTAIN SHAPE COEFF. FOR THE G.W.D.. |
|---|
| 137 | ! GWDVALI : COEFF DEFINISSANT L'ISOLEMENT DES VALLEES POUR LE G.W.D.. |
|---|
| 138 | ! : VALLEYS DECOUPLING COEFF. FOR THE G.W.D.. |
|---|
| 139 | ! HOBST : MULTIPLICATEUR DE L'E. T. REL. POUR OBSTACLE G.W.D.. |
|---|
| 140 | ! : FACTOR FOR THE ST. DEV. OF OROG. FOR G.W.D. "WALL". |
|---|
| 141 | ! HUCOE : PREMIER COEFF. DE LA FONCTION DE LA COORD. SIGMA |
|---|
| 142 | ! DEFINISSANT PHUC(KLEV). |
|---|
| 143 | ! : FIRST COEFFICIENT IN THE SIGMA COORD.'S FUNCTION |
|---|
| 144 | ! DEFINING PHUC(KLEV). |
|---|
| 145 | ! HUCOE2 : COEFF. DE LA FONCTION DE LA COORD. SIGMA |
|---|
| 146 | ! DEFINISSANT PHUC2(KLEV). |
|---|
| 147 | ! : COEFFICIENT IN THE SIGMA COORD.'S FUNCTION |
|---|
| 148 | ! DEFINING PHUC2(KLEV). |
|---|
| 149 | ! HUTIL : DEUXIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA |
|---|
| 150 | ! DEFINISSANT PHUC(KLEV). |
|---|
| 151 | ! : SECOND COEFFICIENT IN THE SIGMA COORD.'S FUNCTION |
|---|
| 152 | ! DEFINING PHUC(KLEV). |
|---|
| 153 | ! HUTIL1 : DEUXIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA |
|---|
| 154 | ! DEFINISSANT NOUVEAU PHUC(KLEV). |
|---|
| 155 | ! : SECOND COEFFICIENT IN THE SIGMA COORD.'S FUNCTION |
|---|
| 156 | ! DEFINING NEW PHUC(KLEV). |
|---|
| 157 | ! HUTIL2 : TROISIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA |
|---|
| 158 | ! DEFINISSANT NOUVEAU PHUC(KLEV). |
|---|
| 159 | ! : THIRD COEFFICIENT IN THE SIGMA COORD.'S FUNCTION |
|---|
| 160 | ! DEFINING NEW PHUC(KLEV). |
|---|
| 161 | ! NPCLO1 : PREMIER EXPOST. DE LA FONCTION DE LA COORD. SIGMA |
|---|
| 162 | ! DEFINISSANT PHUC(KLEV). |
|---|
| 163 | ! : FIRST EXPONENT IN THE SIGMA COORD.'S FUNCTION |
|---|
| 164 | ! DEFINING PHUC(KLEV). |
|---|
| 165 | ! NPCLO2 : DEUXIEME EXPOST. DE LA FONCTION DE LA COORD. SIGMA |
|---|
| 166 | ! DEFINISSANT PHUC(KLEV). |
|---|
| 167 | ! : SECOND EXPONENT IN THE SIGMA COORD.'S FUNCTION |
|---|
| 168 | ! DEFINING PHUC(KLEV). |
|---|
| 169 | ! QSSC : ECART D'ENERGIE STATIQUE SECHE AUTORISE LORS DU CALCUL |
|---|
| 170 | ! DE LA NEBULOSITE PEU PROFONDE. |
|---|
| 171 | ! DRY STATIC ENERGY THRESHOLD FOR SHALLOW CONVECTION COMPUTATIONS. |
|---|
| 172 | ! QSMIN : RAPPORT DE MELANGE MINIMUM POUR LE SCHEMA DE NEBULOSITE STAT. |
|---|
| 173 | ! : MINIMUM MIXING RATIO FOR THE STATISTICAL CLOUD SCHEME |
|---|
| 174 | ! QSNEBC : FACTEUR RELIANT L'EAU CONDENSEE A LA NEBULOSITE CONVECTIVE. |
|---|
| 175 | ! : DEFINING CONVECTIVE CLOUDINESS FROM CONDENSATED WATER. |
|---|
| 176 | ! QSNEBS : FACTEUR RELIANT L'EAU CONDENSEE A LA NEBULOSITE STRATIFORME. |
|---|
| 177 | ! : DEFINING STRATIFORM CLOUDINESS FROM CONDENSATED WATER. |
|---|
| 178 | ! QSSUSC : FACTEUR RELIANT L'EAU CONDENSEE AUX PRECIPITATIONS CONVECTIVES. |
|---|
| 179 | ! : DEFINING CONDENSATED WATER FROM CONVECTIVE PRECIPITATION. |
|---|
| 180 | ! QSSUSS : FACTEUR RELIANT L'EAU CONDENSEE A LA SURSATURATION. |
|---|
| 181 | ! : DEFINING CONDENSATED WATER FROM SUPERSATURATION. |
|---|
| 182 | ! QSSUSV : FACTEUR RELIANT L'EAU CONDENSEE A LA SURSATURATION. |
|---|
| 183 | ! : DEFINING CONDENSATED WATER FROM SUPERSATURATION. |
|---|
| 184 | ! QSUSXC : QL+QI MAXIMUM A L'ECHELLE DU POINT DE GRILLE MODELE, |
|---|
| 185 | ! PARTIE CONVECTION PROFONDE. |
|---|
| 186 | ! : MAXIMUM QL+QI AT THE GRID-POINT SCALE, |
|---|
| 187 | ! DEEP CONVECTION PART. |
|---|
| 188 | ! QSUSXS : QL+QI MAXIMUM A L'ECHELLE DU POINT DE GRILLE MODELE, |
|---|
| 189 | ! PARTIES RESOLUE ET DE CONVECTION PEU PROFONDE. |
|---|
| 190 | ! : MAXIMUM QL+QI AT THE GRID-POINT SCALE, |
|---|
| 191 | ! RESOLVED AND SHALLOW CONVECTION PART. |
|---|
| 192 | ! RPHI0 : REGLAGE DE REFROIDISSEMENT DANS L'INVERSION POUR LE |
|---|
| 193 | ! CALCUL DE STRATUS BAS |
|---|
| 194 | ! TUNING OF THE COOLING INSIDE AN INVERSION FOR COMPUTATION |
|---|
| 195 | ! OF LOW-LEVEL STRATUS CLOUDINESS |
|---|
| 196 | ! RPHIR : REGLAGE DE LA PROFONDEUR D'INVERSION THERMIQUE POUR LE |
|---|
| 197 | ! CALCUL DE STRATUS |
|---|
| 198 | ! TUNING OF THE INVERSION THICKNESS FOR COMPUTATION |
|---|
| 199 | ! OF LOW-LEVEL STRATUS CLOUDINESS |
|---|
| 200 | ! : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR). |
|---|
| 201 | ! QXRAL : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR). |
|---|
| 202 | ! : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR). |
|---|
| 203 | ! QXRDEL : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR). |
|---|
| 204 | ! : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR). |
|---|
| 205 | ! QXRHX : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR). |
|---|
| 206 | ! : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR). |
|---|
| 207 | ! QXRR : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR). |
|---|
| 208 | ! : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR). |
|---|
| 209 | ! QXRTGH : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR). |
|---|
| 210 | ! : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR). |
|---|
| 211 | ! TENTRX : TAUX D'ENTRAINEMENT MAXIMUM DU NUAGE CONVECTIF. |
|---|
| 212 | ! : MAXIMUM CONVECTIVE UPDRAFT'S ENTRAINMENT RATE. |
|---|
| 213 | ! RCIN : MODULATION DANS LE CALCUL DU PROFIL NUAGEUX CONVECTIF |
|---|
| 214 | ! : MODULATION IN THE CONVECTIVE CLOUD PROFILE COMPUTATION |
|---|
| 215 | ! RCVEVAP : FACTEUR DE MODULATION DE L'EVAPORATION CONVECTIVE SOUS-NUAGEUSE |
|---|
| 216 | ! : MODULATION FACTOR FOR CONVECTIVE EVAPORATION |
|---|
| 217 | ! RDTFAC : FACTEUR MULTIPLICATIF DE "RDT" DANS LA FONCTION "FONICE". |
|---|
| 218 | ! : MODULATION FACTOR OF "RDT" IN "FONICE" FUNCTION. |
|---|
| 219 | ! REVGSL : RAPPORT DES VITESSES D'EVAP. DES PRECIP. "GLACE/LIQ.". |
|---|
| 220 | ! : RATIO OF THE SPEED OF EVAP. OF PRECIP. "ICE/WATER". |
|---|
| 221 | ! RICRLM : NOMBRE DE RICHARDSON CRITIQUE POUR LONGUEUR DE MELANGE. |
|---|
| 222 | ! : CRITICAL RICHARDSON NUMBER FOR MIXING LENGTH. |
|---|
| 223 | ! RRGAMMA : EXPOSANT DANS LE CALCUL DE "RAFALE HUMIDE". |
|---|
| 224 | ! EXPONENT IN "MOIST GUSTINESS" COMPUTATION. |
|---|
| 225 | ! RRSCALE : TAUX DE PRECIPITATION CARACTERISTIQUE DANS LE CALCUL DE "RAFALE HUMIDE". |
|---|
| 226 | ! SCALING RAINFALL RATE IN "MOIST GUSTINESS" COMPUTATION. |
|---|
| 227 | ! RTCAPE : TEMPS CARACTERISTIQUE POUR "CONSOMMER" LA CAPE. |
|---|
| 228 | ! CHARACTERISTICS TIME TO DECREASE THE CAPE CLOSURE. |
|---|
| 229 | ! SCO : SEUIL EN DESSOUS DUQUEL LES PRECIPITATIONS CONVECTIVES |
|---|
| 230 | ! NE SONT PAS PRISES EN COMPTE (SCHEMA STATISTIQUE DE NUAGES) |
|---|
| 231 | ! : THRESHOLD FOR THE CONVECTIVE PRECIPITATION (STATISTICAL |
|---|
| 232 | ! CLOUD SCHEME) |
|---|
| 233 | ! SENSL : COEFFICIENT DE SENSIBILITE DE LA LONGUEUR DE MELANGE. |
|---|
| 234 | ! : SENSITIVITY TO MIXING LENGTH (STAT. CLOUD SCHEME). |
|---|
| 235 | ! SNNBCO : VALEUR MINIMALE DE LA NEBULOSITE CONVECTIVE. |
|---|
| 236 | ! : MINIMUM VALUE OF CONVECTIVE CLOUDINESS. |
|---|
| 237 | ! SPNBCO : PENTE "NEBULOSITE CONV./PRECIPITATION CONV.". |
|---|
| 238 | ! : SLOPE "CONV. CLOUDINESS/CONV. PRECIPITATION". |
|---|
| 239 | ! SXNBCO : VALEUR MAXIMALE DE LA NEBULOSITE CONVECTIVE |
|---|
| 240 | ! : MAXIMUM VALUE OF CONVECTIVE CLOUDINESS. |
|---|
| 241 | ! TCA : CONSTANTE D'ACCRETION. |
|---|
| 242 | ! : ACCRETION CONSTANT (STAT. CLOUD SCHEME). |
|---|
| 243 | ! TCT : AUTOCONV. DES GOUTTELETTES NUAGEUSES EN PRECIP.. |
|---|
| 244 | ! : DROPLET SELFCONVERSION (STAT. CLOUD SCHEME). |
|---|
| 245 | ! TCW : CONSTANTE DE LIMITATION DE LA CONVERSION DE L'EAU |
|---|
| 246 | ! LIQUIDE NUAGEUSE EN PRECIPITATIONS. |
|---|
| 247 | ! : LIMITATION OF LIQUID WATER CONVERSION (STAT. CLOUD |
|---|
| 248 | ! SCHEME). |
|---|
| 249 | ! TENTR : TAUX D'ENTRAINEMENT DU NUAGE CONVECTIF. |
|---|
| 250 | ! : CONVECTIVE UPDRAFT'S ENTRAINMENT RATE. |
|---|
| 251 | ! TENTRX : TAUX D'ENTRAINEMENT MAXIMUM DU NUAGE CONVECTIF. |
|---|
| 252 | ! : MAXIMUM CONVECTIVE UPDRAFT'S ENTRAINMENT RATE. |
|---|
| 253 | ! TDDGP : Parametrisation grad p horizontal dans le downdraught |
|---|
| 254 | ! (Kershaw & Gregory) |
|---|
| 255 | ! Downdraught Horizontal Grad p effect coefficient |
|---|
| 256 | ! TUDGP : Parametrisation du grad p horizontal dans l'updraught |
|---|
| 257 | ! (Kershaw & Gregory) |
|---|
| 258 | ! Updraught Horizontal Grad p effect coefficient |
|---|
| 259 | ! TURB : TURBULENCE RESIDUELLE. |
|---|
| 260 | ! : RESIDUAL TURBULENCE (STAT. CLOUD SCHEME). |
|---|
| 261 | ! TVF : VITESSE DE PRECIPITATION DE L'EAU SOLIDE NUAGEUSE. |
|---|
| 262 | ! : SOLID PRECIPITATION SPEED (STAT. CLOUD SCHEME). |
|---|
| 263 | ! TYM(5) : TABLEAU DES COEFFICIENTS DU MODELE DE NIVEAU 2.5 |
|---|
| 264 | ! DE YAMADA ET MELLOR (SCHEMA STATISTIQUE DE NUAGES). |
|---|
| 265 | ! : YAMADA AND MELLOR COEFFICIENTS FOR THE LEVEL 2.5 |
|---|
| 266 | ! SCHEME (STAT. CLOUD SCHEME). |
|---|
| 267 | ! UHDIFV : INVERSE DE L'ECHELLE DE DECROISSANCE VERTIC. DE ALMAV. |
|---|
| 268 | ! : INVERSE SCALE HEIGHT FOR THE DECREASE OF ALMAV. |
|---|
| 269 | ! UNTIER : CONSTANTE POUR LE CALCUL DE ECT DANS LA CLS. |
|---|
| 270 | ! : PARAMETER FOR THE TKE CALCULATION IN TH PBL. |
|---|
| 271 | ! USDMLT : INVERSE DE L'ECHELLE DE FUSION DES PRECIP. CONVEC.. |
|---|
| 272 | ! : INVERSE SCALE OF THE MELTING DEPTH OF CONVEC. PRECIP.. |
|---|
| 273 | ! USUPRC : INVERSE DES PRECIPITATIONS CRITIQUES POUR L'INTERCETION |
|---|
| 274 | ! : INVERSE CRITICAL RAINFALL FOR VEGETATION INTERCEPTION |
|---|
| 275 | ! USURIC : INVERSE DU NOMBRE DE RICHARDSON CRITIQUE |
|---|
| 276 | ! : INVERSE CRITICAL RICHARDSON NUMBER |
|---|
| 277 | ! USURID : INVERSE DU NOMBRE DE RICHARDSON DE TRANSITION POUR LE CALCUL DE L'ORDRE DE CONVERGENCE |
|---|
| 278 | ! DU NOMBRE DE RICHARDSON VERS LE NOMBRE DE RICHARDSON CRITIQUE. |
|---|
| 279 | ! : INVERSE TRANSITION RICHARDSON NUMBER TO COMPUTE THE CONVERGENCE ORDER |
|---|
| 280 | ! OF THE RICHARDSON NUMBER TO THE CRITICAL RICHARDSON NUMBER. |
|---|
| 281 | ! USURICE : EXPOSANT DE L'ALTITUDE INTERVENANT DANS LE CALCUL |
|---|
| 282 | ! DU NOMBRE DE RICHARDSON CRITIQUE. |
|---|
| 283 | ! : HEIGHT EXPONENT IN RICHARDSON NUMBER COMPUTATION. |
|---|
| 284 | ! USURICL : COEFFICIENT MULTIPLICATEUR INTERVENANT DANS LE CALCUL |
|---|
| 285 | ! DU NOMBRE DE RICHARDSON CRITIQUE EN FONCTION DE L'ALTITUDE. |
|---|
| 286 | ! : COEFFICIENT RELATING RICHARDSON NUMBER COMPUTATION TO HEIGHT. |
|---|
| 287 | ! USURID : INVERSE DU NOMBRE DE RICHARDSON DE TRANSITION POUR LE CALCUL DE L'ORDRE DE CONVERGENCE |
|---|
| 288 | ! DU NOMBRE DE RICHARDSON VERS LE NOMBRE DE RICHARDSON CRITIQUE. |
|---|
| 289 | ! : INVERSE TRANSITION RICHARDSON NUMBER TO COMPUTE THE CONVERGENCE ORDER |
|---|
| 290 | ! OF THE RICHARDSON NUMBER TO THE CRITICAL RICHARDSON NUMBER. |
|---|
| 291 | ! USURIDE : EXPOSANT DANS LE CALCUL DU NOMBRE DE RICHARDSON CRITIQUE LOCAL. |
|---|
| 292 | ! EXPONENT IN THE COMPUTATION OF THE LOCAL CRITICAL RICHARDSON NUMBER. |
|---|
| 293 | ! UTILGUST: VITESSE CARACTERISTIQUE DANS LE CALCUL DE "RAFALE HUMIDE". |
|---|
| 294 | ! CHARACTERISTIC SPEED IN "MOIST GUSTINESS" COMPUTATION. |
|---|
| 295 | ! VCHRNK : CONSTANTE DE CHARNOCK. |
|---|
| 296 | ! : CHARNOCK'S CONSTANT. |
|---|
| 297 | ! VKARMN : CONSTANTE DE KARMAN. |
|---|
| 298 | ! : KARMAN'S CONSTANT. |
|---|
| 299 | ! VZ0CM : LONGUEUR DE RUGOSITE (NEUTRE) MINIMALE SUR MER. |
|---|
| 300 | ! : (NEUTRAL) MINIMUM ROUGHNESS LENGTH OVER THE OCEAN. |
|---|
| 301 | ! VZIUSTAR0 : VITESSE DE RUGOSITE INVERSE DE NORMALISATION. |
|---|
| 302 | ! : SCALING INVERSE ROUGHNESS VELOCITY. |
|---|
| 303 | ! XBLM : COEFFICIENT POUR LONGUEUR DE MELANGE. |
|---|
| 304 | ! : COEFFICIENT FOR MIXING LENGTH. |
|---|
| 305 | ! XKLM : COEFFICIENT POUR LONGUEUR DE MELANGE (0<XKLM<1). |
|---|
| 306 | ! : COEFFICIENT FOR MIXING LENGTH (0<XKLM<1). |
|---|
| 307 | ! XMAXLM : HAUTEUR MAXI DE LA CLP (POUR LONGUEUR DE MELANGE). |
|---|
| 308 | ! : MAX HEIGHT OF THE PBL (FOR MIXING LENGTH). |
|---|
| 309 | ! XMINLM : HAUTEUR MINI DE LA CLP (POUR LONGUEUR DE MELANGE). |
|---|
| 310 | ! : MIN HEIGHT OF THE PBL (FOR MIXING LENGTH). |
|---|
| 311 | ! XNBMAX : NEBULOSITE MAXIMUM PAR COUCHE. |
|---|
| 312 | ! : MAXIMUM CLOUDINESS IN A LAYER. |
|---|
| 313 | ! XWSALM : CONSTANTE 1 DU SCHEMA TROEN-MAHRT (POUR LONGUEUR DE MELANGE). |
|---|
| 314 | ! : CONSTANT 1 FOR TROEN-MAHRT SCHEME (FOR MIXING LENGTH). |
|---|
| 315 | ! XWSBLM : CONSTANTE 2 DU SCHEMA TROEN-MAHRT (POUR LONGUEUR DE MELANGE). |
|---|
| 316 | ! : CONSTANT 2 FOR TROEN-MAHRT SCHEME (FOR MIXING LENGTH). |
|---|
| 317 | |
|---|
| 318 | !* Variables pour la microphysique dite de Lopez |
|---|
| 319 | ! ------------------------------------------------------------------ |
|---|
| 320 | ! RAUTEFR : EFFICIENCY FOR AUTOCONVERSION OF WATER->RAIN. |
|---|
| 321 | ! RAUTEFS : EFFICIENCY FOR AUTOCONVERSION OF ICE->SNOW. |
|---|
| 322 | ! RAUTSBET : "BETA" EFFICIENCY PARAMETER FOR AUTOCONV ICE->SNOW. |
|---|
| 323 | ! RHEVAP : MODIFICATION OF RELATIVE HUMIDITY IN EVAPORATION |
|---|
| 324 | ! FORMULATION OF LOPEZ MICROPHYSICS. |
|---|
| 325 | ! RNINTR : INTERCEPT PARAMETER FOR RAIN. |
|---|
| 326 | ! RNINTS : INTERCEPT PARAMETER FOR ICE. |
|---|
| 327 | ! RQLCR : CRITICAL LIQUID WATER CONTENT FOR AUTOCONVERSION OF |
|---|
| 328 | ! STRATIFORM CLOUD WATER. |
|---|
| 329 | ! RQICRMAX : MAXIMUM CRITICAL ICE CONTENT FOR AUTOCONVERSION OF |
|---|
| 330 | ! STRATIFORM ICE. |
|---|
| 331 | ! RQICRMIN : MINIMUM CRITICAL ICE CONTENT FOR AUTOCONVERSION OF |
|---|
| 332 | ! STRATIFORM ICE. |
|---|
| 333 | ! RQLCV : CRITICAL LIQUID WATER CONTENT FOR AUTOCONVERSION OF |
|---|
| 334 | ! CONVECTIVE CLOUD WATER. |
|---|
| 335 | ! RQICVMAX : MAXIMUM CRITICAL ICE CONTENT FOR AUTOCONVERSION OF |
|---|
| 336 | ! CONVECTIVE CLOUD ICE. |
|---|
| 337 | ! RQICVMIN : MINIMUM CRITICAL ICE CONTENT FOR AUTOCONVERSION OF |
|---|
| 338 | ! CONVECTIVE CLOUD ICE. |
|---|
| 339 | ! RQICRT1 : TUNING COEFF FOR AUTOCONVERSION OF STRATIFORM ICE. |
|---|
| 340 | ! RQICRT2 : TUNING COEFF FOR AUTOCONVERSION OF STRATIFORM ICE. |
|---|
| 341 | ! RQICRSN : MULTIPLICATIVE FACTOR OF CRITICAL ICE CONTENT FOR |
|---|
| 342 | ! AUTOCONVERSION OF STRATIFORM ICE OVER SNOW AND SEA ICE. |
|---|
| 343 | ! RQCRNS : TUNING COEFF FOR AUTOCONVERSION NEAR THE SURFACE. |
|---|
| 344 | ! RACCEF : ACCRETION EFFICIENCY. |
|---|
| 345 | ! RAGGEF : AGGREGATION EFFICIENCY. |
|---|
| 346 | ! RRIMEF : RIMING AND AGGREGATION EFFICIENCY. |
|---|
| 347 | ! RHCRIT1 : CRITICAL RELATIVE HUMIDITY FOR SMITH SCHEME (UPPER LEVELS). |
|---|
| 348 | ! RHCRIT2 : CRITICAL RELATIVE HUMIDITY FOR SMITH SCHEME (SURFACE). |
|---|
| 349 | ! RETAMIN : MODEL ETA LEVEL WHERE CRITICAL RELATIVE HUMIDITY IS MINIMUM. |
|---|
| 350 | ! RFACNSM : MULTIPLICATVE FACTOR OF SMITH CLOUDINESS COMPUTATION. |
|---|
| 351 | ! TFVR : VITESSE DE CHUTE DES PRECIPITATIONS LIQUIDES. |
|---|
| 352 | ! TFVS : VITESSE DE CHUTE DES PRECIPITATIONS SOLIDES. |
|---|
| 353 | ! GRHCMOD : MODULATION IN CRITICAL RELATIVE HUMIDITY COMPUTATION. |
|---|
| 354 | ! |
|---|
| 355 | ! Pseudo prognostic TKE scheme |
|---|
| 356 | ! NUPTKE : TUNABLE VALUE FOR PSEUDO TKE SCHEME FOLLOWING |
|---|
| 357 | ! REDELSBERGER, MAHE & CARLOTTI (2001) EQUAL TO |
|---|
| 358 | ! ( C_k * C_{epsilon} )^{1/4} |
|---|
| 359 | ! GAMTKE : GAMMA FUNCTION DEFINING THE PROPORTION BETWEEN |
|---|
| 360 | ! K_n AND K_m TO COMPUTE K_E |
|---|
| 361 | ! RCOLL : COLLECTION PARAMETER |
|---|
| 362 | ! RFALLL : SPEED OF FALL (ACPLUIE_PROG) |
|---|
| 363 | ! Prognostic convection scheme |
|---|
| 364 | ! TUDBU : UPDRAUGHT VIRTUAL MASS PARAMETER |
|---|
| 365 | ! TUDFR : UPDRAUGHT DISSIPATION COEFFICIENT |
|---|
| 366 | ! TDDBU : DOWNDRAUGHT VIRTUAL MASS PARAMETER |
|---|
| 367 | ! TDDFR : DOWNDRAUGHT DISSIPATION COEFFICIENT |
|---|
| 368 | ! GCVACHI : Activity History, absolute minimum draught advected |
|---|
| 369 | ! velocity to declare continued activity whichever be ZKUO |
|---|
| 370 | ! GCVBEE : IMPACT OF ACCELERATION on ENTRAINMENT |
|---|
| 371 | ! GCVEEX : EXPONENT FOR impact of accel on entr |
|---|
| 372 | ! GCVADMW 0 : Advect ABSOLUTE UD VELOCITY*DT |
|---|
| 373 | ! 1 : ADVECT DEPARTURE FROM PVERVEL*DT |
|---|
| 374 | |
|---|
| 375 | ! GCVALMX : MAXIMUM ACCEPTABLE VALUE FOR TOTAL MESH FRACTION |
|---|
| 376 | ! |
|---|
| 377 | ! Ascent properties |
|---|
| 378 | ! ECMNPI : ECMNP for ice, the original ECMNP being kept for liquid. |
|---|
| 379 | ! GFRIC : INVERSE OF CHARACTERISTIC TIME for ICE CONDENSATION in ud. |
|---|
| 380 | ! |
|---|
| 381 | ! Squeezing: |
|---|
| 382 | ! GCVSQDN : threshold value of sigma_d*q_cd*dp |
|---|
| 383 | ! GCVSQDR : fraction of the max to consider for squeezing |
|---|
| 384 | ! GCVSQDCX : maximum acceptable compression (<1) |
|---|
| 385 | ! |
|---|
| 386 | ! Downdraught: |
|---|
| 387 | ! GDDWPF : Influence of rain fall velocity on downdraught |
|---|
| 388 | ! GDDEVF : for acmodo, cfr GDDEVA in accvimp |
|---|
| 389 | ! GDDBETA : DOWNDRAUGHT EXPLICIT DETRAINMENT COEFFICIENT |
|---|
| 390 | ! TENTRD : DOWNDRAUGHT ENTRAINMENT RATE (S^2/M^2) |
|---|
| 391 | ! |
|---|
| 392 | ! Intensive Precipitation: |
|---|
| 393 | ! GRRMINA : MINIMUM REALISTIC PRECIPITATING MESH FRACTION |
|---|
| 394 | ! GRRINTE : MAXIMUM VALUE OF THE PRECIPITATION INTENSIFICATION FACTOR |
|---|
| 395 | ! ------------------------------------------------------------------ |
|---|
| 396 | |
|---|
| 397 | REAL(KIND=JPRB) :: TYM(5) |
|---|
| 398 | INTEGER(KIND=JPIM) :: NPCLO1 |
|---|
| 399 | INTEGER(KIND=JPIM) :: NPCLO2 |
|---|
| 400 | REAL(KIND=JPRB) :: A0ML_AU |
|---|
| 401 | REAL(KIND=JPRB) :: A0ML_AT |
|---|
| 402 | REAL(KIND=JPRB) :: A0ML_BU |
|---|
| 403 | REAL(KIND=JPRB) :: A0ML_BT |
|---|
| 404 | REAL(KIND=JPRB) :: AERCS1 |
|---|
| 405 | REAL(KIND=JPRB) :: AERCS3 |
|---|
| 406 | REAL(KIND=JPRB) :: AERCS5 |
|---|
| 407 | REAL(KIND=JPRB) :: ALMAV |
|---|
| 408 | REAL(KIND=JPRB) :: BEDIFV |
|---|
| 409 | REAL(KIND=JPRB) :: ECMNP |
|---|
| 410 | REAL(KIND=JPRB) :: EDB |
|---|
| 411 | REAL(KIND=JPRB) :: EDC |
|---|
| 412 | REAL(KIND=JPRB) :: EDD |
|---|
| 413 | REAL(KIND=JPRB) :: EVAP |
|---|
| 414 | REAL(KIND=JPRB) :: FONT |
|---|
| 415 | REAL(KIND=JPRB) :: GALP |
|---|
| 416 | REAL(KIND=JPRB) :: GCISMIN |
|---|
| 417 | REAL(KIND=JPRB) :: GCCSV |
|---|
| 418 | REAL(KIND=JPRB) :: GCOMOD |
|---|
| 419 | REAL(KIND=JPRB) :: GCVADS |
|---|
| 420 | REAL(KIND=JPRB) :: GCVBETA |
|---|
| 421 | REAL(KIND=JPRB) :: GDDEVA |
|---|
| 422 | REAL(KIND=JPRB) :: GDDSDE |
|---|
| 423 | REAL(KIND=JPRB) :: GRCVPP |
|---|
| 424 | REAL(KIND=JPRB) :: GWDAMP |
|---|
| 425 | REAL(KIND=JPRB) :: GWDBC |
|---|
| 426 | REAL(KIND=JPRB) :: GWDCCO |
|---|
| 427 | REAL(KIND=JPRB) :: GWDCD |
|---|
| 428 | REAL(KIND=JPRB) :: GWDLT |
|---|
| 429 | REAL(KIND=JPRB) :: GWDSE |
|---|
| 430 | REAL(KIND=JPRB) :: GWDPROF |
|---|
| 431 | REAL(KIND=JPRB) :: GWDVALI |
|---|
| 432 | REAL(KIND=JPRB) :: HOBST |
|---|
| 433 | REAL(KIND=JPRB) :: HUCOE |
|---|
| 434 | REAL(KIND=JPRB) :: HUCOE2 |
|---|
| 435 | REAL(KIND=JPRB) :: HUTIL |
|---|
| 436 | REAL(KIND=JPRB) :: HUTIL1 |
|---|
| 437 | REAL(KIND=JPRB) :: HUTIL2 |
|---|
| 438 | REAL(KIND=JPRB) :: QSMIN |
|---|
| 439 | REAL(KIND=JPRB) :: QSNEBC |
|---|
| 440 | REAL(KIND=JPRB) :: QSNEBS |
|---|
| 441 | REAL(KIND=JPRB) :: QSSUSC |
|---|
| 442 | REAL(KIND=JPRB) :: QSSUSS |
|---|
| 443 | REAL(KIND=JPRB) :: QSSUSV |
|---|
| 444 | REAL(KIND=JPRB) :: QSUSXC |
|---|
| 445 | REAL(KIND=JPRB) :: QSUSXS |
|---|
| 446 | REAL(KIND=JPRB) :: RPHI0 |
|---|
| 447 | REAL(KIND=JPRB) :: RPHIR |
|---|
| 448 | REAL(KIND=JPRB) :: QXRAL |
|---|
| 449 | REAL(KIND=JPRB) :: QXRDEL |
|---|
| 450 | REAL(KIND=JPRB) :: QXRHX |
|---|
| 451 | REAL(KIND=JPRB) :: QXRR |
|---|
| 452 | REAL(KIND=JPRB) :: QXRTGH |
|---|
| 453 | REAL(KIND=JPRB) :: RCIN |
|---|
| 454 | REAL(KIND=JPRB) :: RCVEVAP |
|---|
| 455 | REAL(KIND=JPRB) :: RDTFAC |
|---|
| 456 | REAL(KIND=JPRB) :: REVGSL |
|---|
| 457 | REAL(KIND=JPRB) :: RTCAPE |
|---|
| 458 | REAL(KIND=JPRB) :: SCO |
|---|
| 459 | REAL(KIND=JPRB) :: SENSL |
|---|
| 460 | REAL(KIND=JPRB) :: SNNBCO |
|---|
| 461 | REAL(KIND=JPRB) :: SPNBCO |
|---|
| 462 | REAL(KIND=JPRB) :: SXNBCO |
|---|
| 463 | REAL(KIND=JPRB) :: TCA |
|---|
| 464 | REAL(KIND=JPRB) :: TCT |
|---|
| 465 | REAL(KIND=JPRB) :: TCW |
|---|
| 466 | REAL(KIND=JPRB) :: TENTR |
|---|
| 467 | REAL(KIND=JPRB) :: TENTRX |
|---|
| 468 | REAL(KIND=JPRB) :: TUDGP |
|---|
| 469 | REAL(KIND=JPRB) :: TDDGP |
|---|
| 470 | REAL(KIND=JPRB) :: TURB |
|---|
| 471 | REAL(KIND=JPRB) :: TVF |
|---|
| 472 | REAL(KIND=JPRB) :: UHDIFV |
|---|
| 473 | REAL(KIND=JPRB) :: USDMLT |
|---|
| 474 | REAL(KIND=JPRB) :: USUPRC |
|---|
| 475 | REAL(KIND=JPRB) :: USURIC |
|---|
| 476 | REAL(KIND=JPRB) :: VCHRNK |
|---|
| 477 | REAL(KIND=JPRB) :: VKARMN |
|---|
| 478 | REAL(KIND=JPRB) :: VZ0CM |
|---|
| 479 | REAL(KIND=JPRB) :: VZIUSTAR0 |
|---|
| 480 | REAL(KIND=JPRB) :: XNBMAX |
|---|
| 481 | REAL(KIND=JPRB) :: AECLS3 |
|---|
| 482 | REAL(KIND=JPRB) :: AECLS4 |
|---|
| 483 | REAL(KIND=JPRB) :: ACG |
|---|
| 484 | REAL(KIND=JPRB) :: ALD |
|---|
| 485 | REAL(KIND=JPRB) :: AKN |
|---|
| 486 | REAL(KIND=JPRB) :: ALPHAT |
|---|
| 487 | REAL(KIND=JPRB) :: ALPHAE |
|---|
| 488 | REAL(KIND=JPRB) :: EPS |
|---|
| 489 | REAL(KIND=JPRB) :: ETACUT |
|---|
| 490 | REAL(KIND=JPRB) :: ADISI |
|---|
| 491 | REAL(KIND=JPRB) :: ADISE |
|---|
| 492 | REAL(KIND=JPRB) :: ECTMIN |
|---|
| 493 | REAL(KIND=JPRB) :: UNTIER |
|---|
| 494 | REAL(KIND=JPRB) :: AHCLPV |
|---|
| 495 | REAL(KIND=JPRB) :: RICRLM |
|---|
| 496 | REAL(KIND=JPRB) :: XBLM |
|---|
| 497 | REAL(KIND=JPRB) :: XMINLM |
|---|
| 498 | REAL(KIND=JPRB) :: XMAXLM |
|---|
| 499 | REAL(KIND=JPRB) :: XWSALM |
|---|
| 500 | REAL(KIND=JPRB) :: XWSBLM |
|---|
| 501 | REAL(KIND=JPRB) :: GCVALFA |
|---|
| 502 | REAL(KIND=JPRB) :: GCVPSI |
|---|
| 503 | REAL(KIND=JPRB) :: GCVPSIE |
|---|
| 504 | REAL(KIND=JPRB) :: USURICE |
|---|
| 505 | REAL(KIND=JPRB) :: USURICL |
|---|
| 506 | REAL(KIND=JPRB) :: QSSC |
|---|
| 507 | REAL(KIND=JPRB) :: USURID |
|---|
| 508 | REAL(KIND=JPRB) :: GCVNU |
|---|
| 509 | REAL(KIND=JPRB) :: USURIDE |
|---|
| 510 | REAL(KIND=JPRB) :: GCVMLT |
|---|
| 511 | REAL(KIND=JPRB) :: UTILGUST |
|---|
| 512 | REAL(KIND=JPRB) :: RRGAMMA |
|---|
| 513 | REAL(KIND=JPRB) :: RRSCALE |
|---|
| 514 | REAL(KIND=JPRB) :: GPBLHK0 |
|---|
| 515 | REAL(KIND=JPRB) :: GPBLHRA |
|---|
| 516 | |
|---|
| 517 | REAL(KIND=JPRB) :: ACBRPHIM |
|---|
| 518 | REAL(KIND=JPRB) :: AGREKE |
|---|
| 519 | REAL(KIND=JPRB) :: ALMAVE |
|---|
| 520 | REAL(KIND=JPRB) :: ARSCH |
|---|
| 521 | REAL(KIND=JPRB) :: ARSCQ |
|---|
| 522 | REAL(KIND=JPRB) :: ARSC1 |
|---|
| 523 | REAL(KIND=JPRB) :: ARSB2 |
|---|
| 524 | REAL(KIND=JPRB) :: RICRET |
|---|
| 525 | REAL(KIND=JPRB) :: STTBMIN |
|---|
| 526 | REAL(KIND=JPRB) :: UCWSTAR |
|---|
| 527 | REAL(KIND=JPRB) :: UDECT |
|---|
| 528 | REAL(KIND=JPRB) :: UPRETMIN |
|---|
| 529 | REAL(KIND=JPRB) :: UPRETMAX |
|---|
| 530 | REAL(KIND=JPRB) :: USHEARM |
|---|
| 531 | |
|---|
| 532 | !* Variables pour la microphysique dite de Lopez |
|---|
| 533 | REAL(KIND=JPRB) :: RAUTEFR |
|---|
| 534 | REAL(KIND=JPRB) :: RAUTEFS |
|---|
| 535 | REAL(KIND=JPRB) :: RAUTSBET |
|---|
| 536 | REAL(KIND=JPRB) :: RHEVAP |
|---|
| 537 | REAL(KIND=JPRB) :: RNINTR |
|---|
| 538 | REAL(KIND=JPRB) :: RNINTS |
|---|
| 539 | REAL(KIND=JPRB) :: RQLCR |
|---|
| 540 | REAL(KIND=JPRB) :: RQICRMAX |
|---|
| 541 | REAL(KIND=JPRB) :: RQICRMIN |
|---|
| 542 | REAL(KIND=JPRB) :: RQLCV |
|---|
| 543 | REAL(KIND=JPRB) :: RQICVMAX |
|---|
| 544 | REAL(KIND=JPRB) :: RQICVMIN |
|---|
| 545 | REAL(KIND=JPRB) :: RQICRT1 |
|---|
| 546 | REAL(KIND=JPRB) :: RQICRT2 |
|---|
| 547 | REAL(KIND=JPRB) :: RQICRSN |
|---|
| 548 | REAL(KIND=JPRB) :: RQCRNS |
|---|
| 549 | REAL(KIND=JPRB) :: RACCEF |
|---|
| 550 | REAL(KIND=JPRB) :: RAGGEF |
|---|
| 551 | REAL(KIND=JPRB) :: RRIMEF |
|---|
| 552 | REAL(KIND=JPRB) :: RHCRIT1 |
|---|
| 553 | REAL(KIND=JPRB) :: RHCRIT2 |
|---|
| 554 | REAL(KIND=JPRB) :: RETAMIN |
|---|
| 555 | REAL(KIND=JPRB) :: RFACNSM |
|---|
| 556 | REAL(KIND=JPRB) :: TFVR |
|---|
| 557 | REAL(KIND=JPRB) :: TFVS |
|---|
| 558 | REAL(KIND=JPRB) :: GRHCMOD |
|---|
| 559 | REAL(KIND=JPRB) :: NUPTKE |
|---|
| 560 | REAL(KIND=JPRB) :: GAMTKE |
|---|
| 561 | REAL(KIND=JPRB) :: RCOLL |
|---|
| 562 | REAL(KIND=JPRB) :: RFALLL |
|---|
| 563 | !* Variables pour la convection pronostique |
|---|
| 564 | REAL (KIND=JPRB) :: TUDBU, TDDBU |
|---|
| 565 | REAL (KIND=JPRB) :: TUDFR, TDDFR |
|---|
| 566 | REAL (KIND=JPRB) :: GCVALMX |
|---|
| 567 | REAL (KIND=JPRB) :: GCVACHI |
|---|
| 568 | REAL (KIND=JPRB) :: GCVADMW |
|---|
| 569 | REAL (KIND=JPRB) :: GCVBEE,GCVEEX |
|---|
| 570 | REAL (KIND=JPRB) :: ECMNPI |
|---|
| 571 | REAL (KIND=JPRB) :: GFRIC |
|---|
| 572 | REAL (KIND=JPRB) :: GCVSQDN, GCVSQDR, GCVSQDCX |
|---|
| 573 | REAL (KIND=JPRB) :: GRRINTE, GRRMINA |
|---|
| 574 | ! Downdraught: |
|---|
| 575 | REAL (KIND=JPRB) :: GDDBETA, GDDWPF,GDDEVF |
|---|
| 576 | REAL (KIND=JPRB) :: TENTRD |
|---|
| 577 | |
|---|
| 578 | !* |
|---|
| 579 | ! ------------------------------------------------------------------ |
|---|
| 580 | ! CONSTANTES PHYSIQUES REGLABLES PROPRES A L'ATMOSPHERE |
|---|
| 581 | ! DANS LA PHYSIQUE SIMPLIFIEE SEULEMENT: |
|---|
| 582 | ! ------------------------------------------------------------------ |
|---|
| 583 | ! RNEGAT : first Pisvejc's constant in ACQWLSR and TL/AD |
|---|
| 584 | ! RNLCURV : second Pisvejc's constant in ACQWLSR and TL/AD |
|---|
| 585 | REAL(KIND=JPRB) :: RNEGAT |
|---|
| 586 | REAL(KIND=JPRB) :: RNLCURV |
|---|
| 587 | ! EDK : NOUVEAU PARAMETRE POUR LES FONCTIONS DE LOUIS EN CAS STABLE. |
|---|
| 588 | ! XKLM : PARAMETRE POUR L UTILSATION DE HCLP POUR LE CALCUL DE L. |
|---|
| 589 | REAL(KIND=JPRB) :: EDK |
|---|
| 590 | REAL(KIND=JPRB) :: XKLM |
|---|
| 591 | ! PARAMETRE POUR LE TKE AVEC LPBLE (Top-entrainment). |
|---|
| 592 | REAL(KIND=JPRB) :: AGRE1 |
|---|
| 593 | REAL(KIND=JPRB) :: AGRERICR |
|---|
| 594 | REAL(KIND=JPRB) :: AJBUMIN |
|---|
| 595 | REAL(KIND=JPRB) :: RCOFLM |
|---|
| 596 | |
|---|
| 597 | |
|---|
| 598 | !* |
|---|
| 599 | ! ------------------------------------------------------------------ |
|---|
| 600 | ! PARAMETRES POUR LA PHYSIQUE |
|---|
| 601 | ! ------------------------------------------------------------------ |
|---|
| 602 | |
|---|
| 603 | ! TRENTRV : Taux Relatif d'ENTRainement du Vent. |
|---|
| 604 | ! TRENTRV : RELATIVE WIND'S ENTRAINMENT RATE. |
|---|
| 605 | |
|---|
| 606 | ! TENTRVL : TAUX D'ENTRAINEMENT V. Lorant |
|---|
| 607 | ! TENTRVL : V. Lorant ENTRAINMENT RATE. |
|---|
| 608 | |
|---|
| 609 | !* |
|---|
| 610 | ! ------------------------------------------------------------------ |
|---|
| 611 | ! For old ACCVIMP : |
|---|
| 612 | ! ------------------------------------------------------------------ |
|---|
| 613 | REAL(KIND=JPRB) :: TENTRVL |
|---|
| 614 | REAL(KIND=JPRB) :: TRENTRV |
|---|
| 615 | |
|---|
| 616 | !* |
|---|
| 617 | ! ------------------------------------------------------------------ |
|---|
| 618 | ! For TKE scheme : |
|---|
| 619 | ! ------------------------------------------------------------------ |
|---|
| 620 | REAL(KIND=JPRB) :: UETEPS |
|---|
| 621 | REAL(KIND=JPRB) :: UPRECLP |
|---|
| 622 | REAL(KIND=JPRB) :: ARSC2 |
|---|
| 623 | REAL(KIND=JPRB) :: ARSCT |
|---|
| 624 | |
|---|
| 625 | !* |
|---|
| 626 | ! ------------------------------------------------------------------ |
|---|
| 627 | ! For Grenier (2000) top-PBL entrainment scheme : |
|---|
| 628 | ! ------------------------------------------------------------------ |
|---|
| 629 | REAL(KIND=JPRB) :: AGRE2 |
|---|
| 630 | REAL(KIND=JPRB) :: AGREF |
|---|
| 631 | |
|---|
| 632 | !* |
|---|
| 633 | ! ------------------------------------------------------------------ |
|---|
| 634 | ! For dry conv. adjustment scheme : |
|---|
| 635 | ! ------------------------------------------------------------------ |
|---|
| 636 | REAL(KIND=JPRB) :: AJ1MEPS |
|---|
| 637 | REAL(KIND=JPRB) :: AJ1PEPS |
|---|
| 638 | INTEGER(KIND=JPIM) :: NAJITER |
|---|
| 639 | |
|---|
| 640 | !* |
|---|
| 641 | ! ------------------------------------------------------------------ |
|---|
| 642 | ! For ACCVIMPGY : |
|---|
| 643 | ! ------------------------------------------------------------------ |
|---|
| 644 | ! ALFX : FRACTION D'ASCENDANCE CONVECTIVE MAXIMUM |
|---|
| 645 | ! TCTC : PARAMETRE POUR LE SCHEMA DE PRECIPITATIONS CONVECTIVES |
|---|
| 646 | ! TVFC : PARAMETRE POUR LE SCHEMA DE PRECIPITATIONS CONVECTIVES |
|---|
| 647 | ! GAMAP1 : PARAMETRE DE MASSE VIRTUELLE + 1. |
|---|
| 648 | ! RKDN : COEFFICIENT DE RESISTANCE MINIMUM |
|---|
| 649 | ! VVN : VITESSE VERTICALE MIN POUR L'ENTRAINEMENT TURBULENT. |
|---|
| 650 | ! VVX : VITESSE VERTICALE MAX POUR L'ENTRAINEMENT TURBULENT. |
|---|
| 651 | ! FENTRT : FACTEUR DE L'ENTRAINEMENT TURBULENT POUR NIVEAU DE DETRAINEMENT. |
|---|
| 652 | ! HCMIN : HAUTEUR CONVECTIVE MINIMALE. |
|---|
| 653 | ! FQLIC : FACTEUR DE L'EAU LIQUIDE CONVECTIVE |
|---|
| 654 | ! FNEBC : FACTEUR DE LA NEBULOSITE CONVECTIVE |
|---|
| 655 | ! FEVAPC : FACTEUR D'EVAPAPORATION DES PRECIPITATIONS |
|---|
| 656 | REAL(KIND=JPRB) :: ALFX |
|---|
| 657 | REAL(KIND=JPRB) :: TCTC |
|---|
| 658 | REAL(KIND=JPRB) :: TVFC |
|---|
| 659 | REAL(KIND=JPRB) :: GAMAP1 |
|---|
| 660 | REAL(KIND=JPRB) :: RKDN |
|---|
| 661 | REAL(KIND=JPRB) :: VVN |
|---|
| 662 | REAL(KIND=JPRB) :: VVX |
|---|
| 663 | REAL(KIND=JPRB) :: FENTRT |
|---|
| 664 | REAL(KIND=JPRB) :: HCMIN |
|---|
| 665 | REAL(KIND=JPRB) :: FQLIC |
|---|
| 666 | REAL(KIND=JPRB) :: FNEBC |
|---|
| 667 | REAL(KIND=JPRB) :: FEVAPC |
|---|
| 668 | |
|---|
| 669 | !* |
|---|
| 670 | ! ------------------------------------------------------------------ |
|---|
| 671 | ! For ALARO-0 : |
|---|
| 672 | ! ------------------------------------------------------------------ |
|---|
| 673 | ! |
|---|
| 674 | ! RDPHIC : REFERENCE GEOPOTENTIAL FOR CLOUDINESS ADJUSTMENT. |
|---|
| 675 | ! GWBFAUT : GAIN FOR THE WEGENER BERGERON FINDEISEN PROCESS IN ACAUTO |
|---|
| 676 | ! RWBF1 : FIRST TUNING CONSTANT FOR BERGERON FINDEISEN PROCESS |
|---|
| 677 | ! RWBF2 : SECOND TUNING CONSTANT FOR BERGERON FINDEISEN PROCESS |
|---|
| 678 | ! IN ACPLUIE_PROG |
|---|
| 679 | ! |
|---|
| 680 | ! RAUITN : TEMPERATURE LEVELS FOR RQICRMIN |
|---|
| 681 | ! RAUITX : TEMPERATURE LEVELS FOR RQICRMAX |
|---|
| 682 | ! RAUIUSTE : INVERSE OF CHARACTERISTIC DTEMPER. FOR RAUTEFS |
|---|
| 683 | ! RSMDNEBX : MAX CLOUDINESS VERTICAL INCREMENT ALLOWED |
|---|
| 684 | ! IF MSMDNEB=2 (ACSMI1) |
|---|
| 685 | ! RSMDTX : MAX TEMPERATURE INCREMENT IN 1 TIME STEP |
|---|
| 686 | ! ALLOWED FROM RESOLVED CONDENSATION (ACQMESM) |
|---|
| 687 | ! NSMTPA : NUMBER OF LEVELS BELOW Tt LEVEL FOR LSMTPS SMOOTHING |
|---|
| 688 | ! NSMTPB : NUMBER OF LEVELS ABOVE Tt LEVEL FOR LSMTPS SMOOTHING |
|---|
| 689 | ! |
|---|
| 690 | ! ------------------------------------------------------------------ |
|---|
| 691 | ! |
|---|
| 692 | REAL(KIND=JPRB) :: RDPHIC |
|---|
| 693 | REAL(KIND=JPRB) :: GWBFAUT |
|---|
| 694 | REAL(KIND=JPRB) :: RWBF1 |
|---|
| 695 | REAL(KIND=JPRB) :: RWBF2 |
|---|
| 696 | REAL(KIND=JPRB) :: RAUITN |
|---|
| 697 | REAL(KIND=JPRB) :: RAUITX |
|---|
| 698 | REAL(KIND=JPRB) :: RAUIUSTE |
|---|
| 699 | REAL(KIND=JPRB) :: RSMDNEBX |
|---|
| 700 | REAL(KIND=JPRB) :: RSMDTX |
|---|
| 701 | INTEGER (KIND=JPIM) :: NSMTPA |
|---|
| 702 | INTEGER (KIND=JPIM) :: NSMTPB |
|---|
| 703 | |
|---|
| 704 | REAL(KIND=JPRB),ALLOCATABLE :: RHCRI(:) |
|---|
| 705 | INTEGER (KIND=JPIM) :: NRHCRI |
|---|
| 706 | |
|---|
| 707 | ! ------------------------------------------------------------------ |
|---|
| 708 | !$OMP THREADPRIVATE(a0ml_at,a0ml_au,a0ml_bt,a0ml_bu,acbrphim,acg,adise,adisi,aecls3,aecls4,aercs1,aercs3,aercs5) |
|---|
| 709 | !$OMP THREADPRIVATE(agre1,agre2,agref,agreke,agrericr,ahclpv,aj1meps,aj1peps,ajbumin,akn,ald,alfx,almav,almave) |
|---|
| 710 | !$OMP THREADPRIVATE(alphae,alphat,arsb2,arsc1,arsc2,arsch,arscq,arsct,bedifv,ecmnp,ecmnpi,ectmin,edb,edc,edd,edk) |
|---|
| 711 | !$OMP THREADPRIVATE(eps,etacut,evap,fentrt,fevapc,fnebc,font,fqlic,galp,gamap1,gamtke,gccsv,gcismin,gcomod,gcvachi) |
|---|
| 712 | !$OMP THREADPRIVATE(gcvadmw,gcvads,gcvalfa,gcvalmx,gcvbee,gcvbeta,gcveex,gcvmlt,gcvnu,gcvpsi,gcvpsie,gcvsqdcx) |
|---|
| 713 | !$OMP THREADPRIVATE(gcvsqdn,gcvsqdr,gddbeta,gddeva,gddevf,gddsde,gddwpf,gfric,gpblhk0,gpblhra,grcvpp,grhcmod,grrinte) |
|---|
| 714 | !$OMP THREADPRIVATE(grrmina,gwbfaut,gwdamp,gwdbc,gwdcco,gwdcd,gwdlt,gwdprof,gwdse,gwdvali,hcmin,hobst,hucoe,hucoe2) |
|---|
| 715 | !$OMP THREADPRIVATE(hutil,hutil1,hutil2,najiter,npclo1,npclo2,nrhcri,nsmtpa,nsmtpb,nuptke,qsmin,qsnebc,qsnebs,qssc) |
|---|
| 716 | !$OMP THREADPRIVATE(qssusc,qssuss,qssusv,qsusxc,qsusxs,qxral,qxrdel,qxrhx,qxrr,qxrtgh,raccef,raggef,rauitn,rauitx) |
|---|
| 717 | !$OMP THREADPRIVATE(rauiuste,rautefr,rautefs,rautsbet,rcin,rcoflm,rcoll,rcvevap,rdphic,rdtfac,retamin,revgsl,rfacnsm) |
|---|
| 718 | !$OMP THREADPRIVATE(rfalll,rhcrit1,rhcrit2,rhevap,ricret,ricrlm,rkdn,rnegat,rnintr,rnints,rnlcurv,rphi0,rphir,rqcrns) |
|---|
| 719 | !$OMP THREADPRIVATE(rqicrmax,rqicrmin,rqicrsn,rqicrt1,rqicrt2,rqicvmax,rqicvmin,rqlcr,rqlcv,rrgamma,rrimef,rrscale) |
|---|
| 720 | !$OMP THREADPRIVATE(rsmdnebx,rsmdtx,rtcape,rwbf1,rwbf2,sco,sensl,snnbco,spnbco,sttbmin,sxnbco,tca,tct,tctc,tcw,tddbu) |
|---|
| 721 | !$OMP THREADPRIVATE(tddfr,tddgp,tentr,tentrd,tentrvl,tentrx,tfvr,tfvs,trentrv,tudbu,tudfr,tudgp,turb,tvf,tvfc,tym) |
|---|
| 722 | !$OMP THREADPRIVATE(ucwstar,udect,ueteps,uhdifv,untier,upreclp,upretmax,upretmin,usdmlt,ushearm,usuprc,usuric,usurice) |
|---|
| 723 | !$OMP THREADPRIVATE(usuricl,usurid,usuride,utilgust,vchrnk,vkarmn,vvn,vvx,vz0cm,vziustar0,xblm,xklm,xmaxlm,xminlm) |
|---|
| 724 | !$OMP THREADPRIVATE(xnbmax,xwsalm,xwsblm) |
|---|
| 725 | !$OMP THREADPRIVATE(rhcri) |
|---|
| 726 | END MODULE YOMPHY0 |
|---|
