source: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomphy0.F90 @ 5159

Last change on this file since 5159 was 5159, checked in by abarral, 5 months ago

Put dimensions.h and paramet.h into modules
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 34.5 KB
Line 
1MODULE YOMPHY0
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
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
397REAL(KIND=JPRB) :: TYM(5)
398INTEGER(KIND=JPIM) :: NPCLO1
399INTEGER(KIND=JPIM) :: NPCLO2
400REAL(KIND=JPRB) :: A0ML_AU
401REAL(KIND=JPRB) :: A0ML_AT
402REAL(KIND=JPRB) :: A0ML_BU
403REAL(KIND=JPRB) :: A0ML_BT
404REAL(KIND=JPRB) :: AERCS1
405REAL(KIND=JPRB) :: AERCS3
406REAL(KIND=JPRB) :: AERCS5
407REAL(KIND=JPRB) :: ALMAV
408REAL(KIND=JPRB) :: BEDIFV
409REAL(KIND=JPRB) :: ECMNP
410REAL(KIND=JPRB) :: EDB
411REAL(KIND=JPRB) :: EDC
412REAL(KIND=JPRB) :: EDD
413REAL(KIND=JPRB) :: EVAP
414REAL(KIND=JPRB) :: FONT
415REAL(KIND=JPRB) :: GALP
416REAL(KIND=JPRB) :: GCISMIN
417REAL(KIND=JPRB) :: GCCSV
418REAL(KIND=JPRB) :: GCOMOD
419REAL(KIND=JPRB) :: GCVADS
420REAL(KIND=JPRB) :: GCVBETA
421REAL(KIND=JPRB) :: GDDEVA
422REAL(KIND=JPRB) :: GDDSDE
423REAL(KIND=JPRB) :: GRCVPP
424REAL(KIND=JPRB) :: GWDAMP
425REAL(KIND=JPRB) :: GWDBC
426REAL(KIND=JPRB) :: GWDCCO
427REAL(KIND=JPRB) :: GWDCD
428REAL(KIND=JPRB) :: GWDLT
429REAL(KIND=JPRB) :: GWDSE
430REAL(KIND=JPRB) :: GWDPROF
431REAL(KIND=JPRB) :: GWDVALI
432REAL(KIND=JPRB) :: HOBST
433REAL(KIND=JPRB) :: HUCOE
434REAL(KIND=JPRB) :: HUCOE2
435REAL(KIND=JPRB) :: HUTIL
436REAL(KIND=JPRB) :: HUTIL1
437REAL(KIND=JPRB) :: HUTIL2
438REAL(KIND=JPRB) :: QSMIN
439REAL(KIND=JPRB) :: QSNEBC
440REAL(KIND=JPRB) :: QSNEBS
441REAL(KIND=JPRB) :: QSSUSC
442REAL(KIND=JPRB) :: QSSUSS
443REAL(KIND=JPRB) :: QSSUSV
444REAL(KIND=JPRB) :: QSUSXC
445REAL(KIND=JPRB) :: QSUSXS
446REAL(KIND=JPRB) :: RPHI0
447REAL(KIND=JPRB) :: RPHIR
448REAL(KIND=JPRB) :: QXRAL
449REAL(KIND=JPRB) :: QXRDEL
450REAL(KIND=JPRB) :: QXRHX
451REAL(KIND=JPRB) :: QXRR
452REAL(KIND=JPRB) :: QXRTGH
453REAL(KIND=JPRB) :: RCIN
454REAL(KIND=JPRB) :: RCVEVAP
455REAL(KIND=JPRB) :: RDTFAC
456REAL(KIND=JPRB) :: REVGSL
457REAL(KIND=JPRB) :: RTCAPE
458REAL(KIND=JPRB) :: SCO
459REAL(KIND=JPRB) :: SENSL
460REAL(KIND=JPRB) :: SNNBCO
461REAL(KIND=JPRB) :: SPNBCO
462REAL(KIND=JPRB) :: SXNBCO
463REAL(KIND=JPRB) :: TCA
464REAL(KIND=JPRB) :: TCT
465REAL(KIND=JPRB) :: TCW
466REAL(KIND=JPRB) :: TENTR
467REAL(KIND=JPRB) :: TENTRX
468REAL(KIND=JPRB) :: TUDGP
469REAL(KIND=JPRB) :: TDDGP
470REAL(KIND=JPRB) :: TURB
471REAL(KIND=JPRB) :: TVF
472REAL(KIND=JPRB) :: UHDIFV
473REAL(KIND=JPRB) :: USDMLT
474REAL(KIND=JPRB) :: USUPRC
475REAL(KIND=JPRB) :: USURIC
476REAL(KIND=JPRB) :: VCHRNK
477REAL(KIND=JPRB) :: VKARMN
478REAL(KIND=JPRB) :: VZ0CM
479REAL(KIND=JPRB) :: VZIUSTAR0
480REAL(KIND=JPRB) :: XNBMAX
481REAL(KIND=JPRB) :: AECLS3
482REAL(KIND=JPRB) :: AECLS4
483REAL(KIND=JPRB) :: ACG
484REAL(KIND=JPRB) :: ALD
485REAL(KIND=JPRB) :: AKN
486REAL(KIND=JPRB) :: ALPHAT
487REAL(KIND=JPRB) :: ALPHAE
488REAL(KIND=JPRB) :: EPS
489REAL(KIND=JPRB) :: ETACUT
490REAL(KIND=JPRB) :: ADISI
491REAL(KIND=JPRB) :: ADISE
492REAL(KIND=JPRB) :: ECTMIN
493REAL(KIND=JPRB) :: UNTIER
494REAL(KIND=JPRB) :: AHCLPV
495REAL(KIND=JPRB) :: RICRLM
496REAL(KIND=JPRB) :: XBLM
497REAL(KIND=JPRB) :: XMINLM
498REAL(KIND=JPRB) :: XMAXLM
499REAL(KIND=JPRB) :: XWSALM
500REAL(KIND=JPRB) :: XWSBLM
501REAL(KIND=JPRB) :: GCVALFA
502REAL(KIND=JPRB) :: GCVPSI
503REAL(KIND=JPRB) :: GCVPSIE
504REAL(KIND=JPRB) :: USURICE
505REAL(KIND=JPRB) :: USURICL
506REAL(KIND=JPRB) :: QSSC
507REAL(KIND=JPRB) :: USURID
508REAL(KIND=JPRB) :: GCVNU
509REAL(KIND=JPRB) :: USURIDE
510REAL(KIND=JPRB) :: GCVMLT
511REAL(KIND=JPRB) :: UTILGUST
512REAL(KIND=JPRB) :: RRGAMMA
513REAL(KIND=JPRB) :: RRSCALE
514REAL(KIND=JPRB) :: GPBLHK0
515REAL(KIND=JPRB) :: GPBLHRA
516
517REAL(KIND=JPRB) :: ACBRPHIM
518REAL(KIND=JPRB) :: AGREKE
519REAL(KIND=JPRB) :: ALMAVE
520REAL(KIND=JPRB) :: ARSCH
521REAL(KIND=JPRB) :: ARSCQ
522REAL(KIND=JPRB) :: ARSC1
523REAL(KIND=JPRB) :: ARSB2
524REAL(KIND=JPRB) :: RICRET
525REAL(KIND=JPRB) :: STTBMIN
526REAL(KIND=JPRB) :: UCWSTAR
527REAL(KIND=JPRB) :: UDECT
528REAL(KIND=JPRB) :: UPRETMIN
529REAL(KIND=JPRB) :: UPRETMAX
530REAL(KIND=JPRB) :: USHEARM
531
532!*   Variables pour la microphysique dite de Lopez
533REAL(KIND=JPRB) :: RAUTEFR
534REAL(KIND=JPRB) :: RAUTEFS
535REAL(KIND=JPRB) :: RAUTSBET
536REAL(KIND=JPRB) :: RHEVAP
537REAL(KIND=JPRB) :: RNINTR 
538REAL(KIND=JPRB) :: RNINTS 
539REAL(KIND=JPRB) :: RQLCR
540REAL(KIND=JPRB) :: RQICRMAX
541REAL(KIND=JPRB) :: RQICRMIN
542REAL(KIND=JPRB) :: RQLCV
543REAL(KIND=JPRB) :: RQICVMAX
544REAL(KIND=JPRB) :: RQICVMIN
545REAL(KIND=JPRB) :: RQICRT1
546REAL(KIND=JPRB) :: RQICRT2
547REAL(KIND=JPRB) :: RQICRSN
548REAL(KIND=JPRB) :: RQCRNS
549REAL(KIND=JPRB) :: RACCEF 
550REAL(KIND=JPRB) :: RAGGEF
551REAL(KIND=JPRB) :: RRIMEF 
552REAL(KIND=JPRB) :: RHCRIT1
553REAL(KIND=JPRB) :: RHCRIT2
554REAL(KIND=JPRB) :: RETAMIN
555REAL(KIND=JPRB) :: RFACNSM
556REAL(KIND=JPRB) :: TFVR
557REAL(KIND=JPRB) :: TFVS
558REAL(KIND=JPRB) :: GRHCMOD
559REAL(KIND=JPRB) :: NUPTKE
560REAL(KIND=JPRB) :: GAMTKE
561REAL(KIND=JPRB) :: RCOLL
562REAL(KIND=JPRB) :: RFALLL
563!*   Variables pour la convection pronostique
564REAL (KIND=JPRB) :: TUDBU, TDDBU
565REAL (KIND=JPRB) :: TUDFR, TDDFR
566REAL (KIND=JPRB) :: GCVALMX
567REAL (KIND=JPRB) :: GCVACHI
568REAL (KIND=JPRB) :: GCVADMW
569REAL (KIND=JPRB) :: GCVBEE,GCVEEX
570REAL (KIND=JPRB) :: ECMNPI
571REAL (KIND=JPRB) :: GFRIC
572REAL (KIND=JPRB) :: GCVSQDN, GCVSQDR, GCVSQDCX
573REAL (KIND=JPRB) :: GRRINTE, GRRMINA
574! Downdraught:
575REAL (KIND=JPRB) :: GDDBETA, GDDWPF,GDDEVF
576REAL (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
585REAL(KIND=JPRB) :: RNEGAT
586REAL(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.
589REAL(KIND=JPRB) :: EDK
590REAL(KIND=JPRB) :: XKLM
591!     PARAMETRE POUR LE TKE AVEC LPBLE (Top-entrainment).
592REAL(KIND=JPRB) :: AGRE1
593REAL(KIND=JPRB) :: AGRERICR
594REAL(KIND=JPRB) :: AJBUMIN
595REAL(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!     ------------------------------------------------------------------
613REAL(KIND=JPRB) :: TENTRVL
614REAL(KIND=JPRB) :: TRENTRV
615
616!*
617!     ------------------------------------------------------------------
618!     For TKE scheme :
619!     ------------------------------------------------------------------
620REAL(KIND=JPRB) :: UETEPS
621REAL(KIND=JPRB) :: UPRECLP
622REAL(KIND=JPRB) :: ARSC2
623REAL(KIND=JPRB) :: ARSCT
624
625!*
626!     ------------------------------------------------------------------
627!     For Grenier (2000) top-PBL entrainment scheme :
628!     ------------------------------------------------------------------
629REAL(KIND=JPRB) :: AGRE2
630REAL(KIND=JPRB) :: AGREF
631
632!*
633!     ------------------------------------------------------------------
634!     For dry conv. adjustment scheme :
635!     ------------------------------------------------------------------
636REAL(KIND=JPRB)    :: AJ1MEPS
637REAL(KIND=JPRB)    :: AJ1PEPS
638INTEGER(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
656REAL(KIND=JPRB)    :: ALFX
657REAL(KIND=JPRB)    :: TCTC
658REAL(KIND=JPRB)    :: TVFC
659REAL(KIND=JPRB)    :: GAMAP1
660REAL(KIND=JPRB)    :: RKDN
661REAL(KIND=JPRB)    :: VVN
662REAL(KIND=JPRB)    :: VVX
663REAL(KIND=JPRB)    :: FENTRT
664REAL(KIND=JPRB)    :: HCMIN
665REAL(KIND=JPRB)    :: FQLIC
666REAL(KIND=JPRB)    :: FNEBC
667REAL(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
692REAL(KIND=JPRB) :: RDPHIC
693REAL(KIND=JPRB) :: GWBFAUT
694REAL(KIND=JPRB) :: RWBF1
695REAL(KIND=JPRB) :: RWBF2
696REAL(KIND=JPRB) :: RAUITN
697REAL(KIND=JPRB) :: RAUITX
698REAL(KIND=JPRB) :: RAUIUSTE
699REAL(KIND=JPRB) :: RSMDNEBX
700REAL(KIND=JPRB) :: RSMDTX
701INTEGER (KIND=JPIM) :: NSMTPA
702INTEGER (KIND=JPIM) :: NSMTPB
703
704REAL(KIND=JPRB),ALLOCATABLE :: RHCRI(:)
705INTEGER (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)
726END MODULE YOMPHY0
Note: See TracBrowser for help on using the repository browser.