source: LMDZ5/trunk/libf/phylmd/rrtm/yomphy.F90 @ 2627

Last change on this file since 2627 was 2010, checked in by Laurent Fairhead, 11 years ago

Modifications pour OpenMP

OpenMP modifications
  • 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: 19.3 KB
RevLine 
[1989]1MODULE YOMPHY
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!*
10!     ------------------------------------------------------------------
11
12!     VARIABLES DE CONTROLE DE LA PHYSIQUE :
13
14! * GROUPE DES CLES GENERALES.
15!        LMPHYS  : CLE GENERALE POUR LES PARAMETRISATIONS METEO-FRANCE.
16!                : GLOBAL SWITCH FOR METEO-FRANCE PACKAGE.
17!        LREASUR : TRUE, ON LIT LES CHAMPS DE SURFACE.
18!                : TRUE, SURFACE FIELDS ARE READ.
19
20! * GROUPE DES CLES NE COMMANDANT PAS L'APPEL AUX ROUTINES AM-----.
21!        LCAPE   : CLE ACTIVANT LA FERMETURE EN CAPE SI LCVRA.
22!                : KEY ACTIVATING THE CAPE CLOSURE IF LCVRA.
23!        LCONDWT : CLE ACTIVANT l'EAU LIQUIDE.
24!                : KEY ACTIVATING LIQUID WATER.
25!        LCVCAS  : CLE ACTIVANT LE CALCUL DES SEGMENTS CONVECTIFS ACTIFS.
26!                : KEY ACTIVATING CONVECTIVE ACTIVE SEGMENTS COMPUTATION.
27!        LSCMF   : CLE ACTIVANT LE CALCUL DE FRACTIONS MAILLE SIGNIFICATIVES 
28!                  KEY ACTIVATING SIGNIFICANT MESH FRACTIONS.
29!        LCVDD   : CLE ACTIVANT LE CALCUL DES DOWNDRAFTS.
30!                : KEY FOR DOWNDRAFT COMPUTATIONS.
31!        LCVLIS  : LORS DU TRAITEMENT PAR LA CONVECTION
32!                  DES FLUX DIFFUSIFS TURBULENTS SECS,
33!                  CLE ACTIVANT LE TRAITEMENT CONSISTANT DE S ET Q.
34!                : KEY TO COMPUTE CONSISTENTLY FOR S AND Q
35!                  CONVECTION AND DRY TURBULENT PROCESSES INTERACTION.
36!        LCVPGY  : CLE ACTIVANT LES CALCULS DE CONVECTION PROFONDE GY.
37!                : KEY ACTIVATING GY CONVECTION CALCULATIONS.
38!        LCVPP   : CLE ACTIVANT LES CALCULS DE CONVECTION PEU PROFONDE.
39!                : KEY ACTIVATING SHALLOW-CONVECTION CALCULATIONS.
40!        LCVPPKF : KEY ACTIVATING THE KFB SCHEME (SHALLOW-CONVECTION).
41!       LDIFCONS : CLE ACTIVANT LA DIFFUSION DES VARIABLES CONSERVATIVES.
42!                : KEY ACTIVATING VERTICAL DIFFUSION ON CONSERVATIVE VARIABLES.
43!        LECT    : CLE ACTIVANT LA DIFFUSION ECT.
44!                : KEY ACTIVATING TKE DIFFUSION.
45!        LPTKE   : CLE ACTIVANT LA DIFFUSION ECT PSEUDO PROGNOSTIQUE.
46!                : KEY ACTIVATING PSEUDO PROGNOSTIC TKE DIFFUSION.
47!        LPBLE   : CLE POUR ENTRAINEMENT AU SOMMET DE COUCHE LIMITE (IF LECT).
48!                  KEY ACTIVATING THE PBL TOP-ENTRAINMENT RATE.
49!        LFPCOR  : CLE POUR UTILISATION DU FLUX DE PRECIP. CONVECTIF LISSE POUR !                  LA NEBUL.
50!                : KEY FOR THE USE OF A SMOOTH FLUX OF CONVECTIVE RAIN FOR THE
51!                  CLOUD COVER.
52!        LHUNEG  : CLE POUR LA CORRECTION DES HUMIDITES NEGATIVES.
53!                : KEY FOR CORRECTION OF NEGATIVE HUMIDITIES.
54!        LNEBNXR : CLE ACTIVANT LE CALCUL DE NEBULOSITE XU/RANDALL.
55!                : KEY FOR USING XU/RANDALL CLOUDINESS FORMULATION.
56!        LHUCN   : CLE ACTIVANT LE NOUVEAU CALCUL D'HUMIDITE CRITIQUE.
57!                : KEY FOR USING NEW FORMULATION OF CRITICAL HUMIDITY.
58!        LQXRTGH : CLE ACTIVANT LE CALCUL DE LA COURBE TANGENT HYPERBOLIQUE
59!                  DE RH DANS LE SCHEMA DE NEBULOSITE XU/RANDALL.
60!                : KEY FOR USING TANGENS HYPERBOLIC FUNCTION OF RH PROFILE
61!                  IN THE XU/RANDALL CLOUDINESS FORMULATION.
62!        LNEIGE  : CLE POUR LA PRISE EN COMPTE DU CYCLE CRYOSCOPIQUE.
63!                : KEY FOR THE CRYOSCOPIC CYCLE (PHYSICS AND THERMODS.).
64!        LRNUMX  : CLE ACTIVANT LE RECOUVREMENT NUAGEUX MAX. EN RAYONMT.
65!                : KEY FOR MAX. OVERLAP OF ADJACENT RADIATIVE CLOUDS.
66!        LCLSATUR: CLE ACTIVANT LA DEPENDANCE SUR LA SATURATION DE LA GLACE
67!                  ET L'EAU LIQUIDE DANS LE NUAGE.
68!                : KEY FOR DEPENDENCY ON IWC/LWC SATURATION.
69!        LVOIGT  : CLE ACTIVANT L'EFFET DE VOIGT DANS ACRANEB
70!                  KEY FOR VOIGT EFFECT IN ACRANEB.
71!        LVFULL  : CLE ACTIVANT LE CALCUL COMPLET D'EFFET VOIGT (PLUS CHER)
72!                  KEY FOR COMPREHENSIVE COMPUTATION OF VOIGT EFFECT
73!        LRRGUST : CLE ACTIVANT L'INFLUENCE DES "RAFALES HUMIDES" DANS LE
74!                : CALCUL DES COEFFICIENTS TURBULENTS.
75!                : KEY ACTIVATING "MOIST GUSTINESS" INFLUENCE IN TURBULENT
76!                : COEFFICIENTS COMPUTATION.
77!        LSRCON  : CLE ACTIVANT LA SOUSTRACTION DES PRECIPITATIONS RESOLUES
78!                  DE LA CONVERGENCE D'HUMIDITE AVANT APPEL DE LA CONVECTION PROFONDE.
79!                : KEY TO SUBSTRACT GRID-SCALE PRECIPITATION FROM MOISTURE CONVERGENCE
80!                  BEFORE PASSING IT TO DEEP CONVECTION.
81!        LSRCONT : CLE ACTIVANT LA SOUSTRACTION DES PRECIPITATIONS RESOLUES
82!                  DE L'ENERGIE EN ENTREE DE LA CONVECTION PROFONDE.
83!                : KEY TO SUBSTRACT GRID-SCALE PRECIPITATION FROM THE ENERGY FLUXES
84!                  IN INPUT TO DEEP CONVECTION.
85!        LSLC    : CLE ACTIVANT LA CONVECTION EN PENTE
86!                : KEY FOR SLANTWISE CONVECTION
87!        LNOIAS  : CLE COUPANT LA CONVECTION POUR DE L INSTABILITE ABSOLUE SECHE.
88!                : STOP CONVECTION IN THE CASE OF DRY ABSOLUT INSTABILITY.
89!        L2PHYS  : CLE ACTIVANT LE DOUBLE APPEL A APLPAR.
90!                : KEY FOR 2 APLPAR CALLS.
91!        LRAYLU  : CLE D'APPEL DU RAYONNEMENT LUNAIRE.
92!                : KEY FOR CALLING THE MOON RADIATION.
93!                  (IN ACRANEB ).
94!        LREWS   : CLE D'APPEL DE L'OPTION ECHANGE AVEC LA SURFACE
95!                : KEY FOR CALLING THE ECHANGE WITH SURFACE OPTION
96!                  (IN ACRANEB)
97!        LRPROX  : CLE D'APPEL DE L'OPTION D'ECHANGE INTER-NIVEAU APPROCHE
98
99!        LRMIX   : ACTIVATION DU CALCUL DE ZMIX (SEE JFG POUR PLUS DE PRECISION)
100!                  EPAISSEUR OPTIQUE QQ PART ENTRE MIN ET MAX (ZMIX=0 OU 1)
101!                  (POUR LES ECHANGES INTER-NIVEAUX)
102
103!        LRSTAB  :  STABILISATION
104
105!        LRAUTOEV: CALCUL EXACT DONC TRES COUTEUX DES ECHANGES INTER-NIVEAUX
106
107!        LRTPP   : SI .T. L'ECHANGE ENTRE COUCHES ADJACENTES TIENT COMPTE DU
108!                  PROFIL CONTINU DE "T"
109!                  IF .T. EXCHANGE TERMS BETWEEN ADJACENT LAYERS USE A
110!                  CONTINUOUS "T" PROFILE
111!        LRTDL   : SI .T. LES CALCULS D'ECHANGE ENTRE COUCHES ADJACENTES
112!                  NE SONT PLUS LINEARISES
113!                  IF .T. EXCHANGE TERMS BETWEEN ADJACENT LAYERS ARE TREATED
114!                  FULLY NONLINEARLY
115!        LRAYPL  : CLE DE RECHERCHE DES PLAGES JOUR/NUIT.
116!                : KEY TO LOOK FOR DAY/NIGHT AREAS.
117!                  (IN ACRANEB ).
118!        LO3ABC  : CLE D'ACTIVATION DES PROFILES D'OZONE CLIMATOLOGIQUES
119!                  KEY TO USE CLIMATOLOGICAL PROFILES FOR OZONE
120!        LGLT    : CLE ACTIVANT L'UTILISATION DU VENT GEOSTROPHIQUE PLUTOT
121!                  QUE LE VENT REEL DANS LE CALCUL DU LIFT
122!                : KEY FOR USING GEOSTROPHIC WIND IN PLACE OF REAL WIND
123!                  IN THE LIFT COMPUTATION
124!        LNEWD   : CLE D'APPEL DE MODIFICATIONS RECENTES DANS LE G.W.D.
125!                : KEY FOR CALLING NEW MODIFICATIONS IN THE G.W.D.
126!        LPROCLD : KEY FOR CALLING PROGNOSTIC CLOUD PARAMETRIZATION
127!        LEVAPP  : KEY FOR ACTIVATING PRECIPITATION EVAPORATION   
128!        LCOLLEC : KEY FOR ACTIVATING COLLECTION OF CLOUD CONDENSATE
129!                  BY PRECIPITATION
130!        LNSMLIS : KEY FOR ACTIVATING SMOOTHING OF SMITH'S CLOUDINESS
131!        LADJCLD : KEY FOR CALLING SMITH'S ADUJSTMENT AFTER DIFFUSION.
132!        LAEROSEA: KEY TO USE SEA AEROSOLS
133!        LAEROLAN: KEY TO USE LAND AEROSOLS
134!        LAEROSOO: KEY TO USE SOOT (?) AEROSOLS
135!        LAERODES: KEY TO USE DESERT AEROSOLS
136!        LAEROVOL: KEY TO USE VOLCANOES AEROSOLS
137!        LAEROSUL: KEY TO USE SULFATES AEROSOLS
138!        LRELAXT : KEY TO USE TEMPERATURE RELAXATION
139!        LRELAXW : KEY TO USE WATER CONTENT RELAXATION
140
141!        LAUTONEB: KEY FOR DOING AUTOCONVERSION BEFORE RADIATION.
142!        LSSD    : KEY ACTIVATING STATISTICAL SEDIMENTATION
143!        LZ0HSREL: CLE ACTIVANT L'UTILISATION DE Z0 THERMIQUE SANS RELIEF
144!                  KEY TO USE THERMAL ROUGHNESS LENGTH WITHOUT OROGRAPHY
145!        L3MT    : CLE ACTIVANT LE SCHEMA 3MT
146!                : KEY FOR THE 3MT SCHEME
147
148! * GROUPE DES CLES COMMANDANT L'APPEL AUX ROUTINES AM-----.
149!       CGMIXLEN : MNEMONIQUE PERMETTANT DE CHOISIR LE TYPE DE CALCUL DE LONGUEUR DE MELANGE.
150!                : MNEMONIC DEFINING THE KIND OF TURBULENT MIXING LENGTH COMPUTATION.
151!        LPRGML  : CLE ACTIVANT LA LONGUEUR PRONOSTIQUE DE MELANGE.
152!                : KEY FOR PROGNOSTIC MIXING LENGTH.
153!        LCVRA   : CLE D'APPEL DE LA CONVECTION PROFONDE.
154!                : KEY FOR CALLING DEEP CONVECTION.
155!                  ( ACCVIMP ).
156!        LCVPRO  : CLE D'APPEL DE LA CONVECTION PRONOSTIQUE.
157!                  KEY FOR CALLING PROGNOSTIC CONVECTION.
158!                  ( ACCVUD  ).
159!        LCDDPRO : CLE D'APPEL DU DOWNDRAFT PRONOSTIQUE.
160!                  KEY FOR CALLING PROGNOSTIC DOWNDRAFT.
161!                  ( ACMODO  ).
162!        LGWD    : CLE D'APPEL DU "GRAVITY WAVE DRAG".
163!                : KEY FOR CALLING THE "GRAVITY WAVE DRAG".
164!                  ( ACDRAG ).
165!        LGWDC   : CLE D'APPEL DU "GRAVITY WAVE DRAG" CONVECTIF.
166!                : KEY FOR CALLING THE CONVECTIVE "GRAVITY WAVE DRAG".
167!                  ( ACDRAC ).
168!        LHMTO   : CLE D'APPEL DES CALCULS AUX HAUTEURS METEO.
169!                : KEY FOR INTERPOLATIONS AT SCREEN AND "WIND" HEIGHTS.
170!                  ( ACHMT ).
171!        LNEBCO  : CLE D'APPEL DE LA NEBULOSITE CONVECTIVE.
172!                : KEY FOR SWITCHING ON THE USE OF CONV. CLOUDINESS.
173!                  ( ACNEBC ).
174!        LNEBN   : CLE D'APPEL DE LA NEBULOSITE "STRA + PREC. CONVECTIVES"
175!                : KEY FOR CALLING THE "STRATIFORM + CONV. PRECIP" CLOUDINESS SCHEME.
176!                  ( ACNEBN ).
177!        LNEBR   : CLE D'APPEL DU SCHEMA STAT. DE GENERATION DES NUAGES.
178!                : KEY FOR CALLING THE STAT. SCHEME FOR CLOUDINESS.
179!                  ( ACNEBR ).
180!        LNEBT   : CLE D'APPEL DE LA NEBULOSITE "CLASSIQUE".
181!                : KEY FOR CALLING THE CLASSICAL CLOUDINESS SCHEME.
182!                  ( ANEBT ).
183!       LND2DIFF : CLE D'APPEL DE LA NEBULOSITE DIAGNOSTIQUE POUR LA DIFFUSION
184!                : KEY FOR CALLING DIAGNOSTIC CLOUDINESS FOR DIFFUSION
185!        LOZONE  : CLE D'APPEL A LA PHYSIQUE DE L'OZONE.
186!                : KEY FOR CALLING THE OZONE'S PHYSICS.
187!                  ( ACOZONE ).
188!        LRAY    : CLE D'APPEL DU RAYONNEMENT EMERAUDE/PERIDOT.
189!                : KEY FOR CALLING THE EMERAUDE/PERIDOT RAD. SCHEME.
190!                  ( ACRANEB ).
191!        LRAYFM  : CLE D'APPEL DU RAYONNEMENT FMR CEPMMT (PHYSIQUE M-F)
192!                : KEY FOR CALLING ECMWF FMR RAD. SCHEME IN M-F PHYSICS
193!                  ( RADINT ).
194!        LRAYFM15: CLE D'APPEL DU RAYONNEMENT FMR CEPMMT (PHYSIQUE M-F)
195!                : KEY FOR CALLING ECMWF FMR RAD. SCHEME IN M-F PHYSICS
196!                : VERSION GELEE - FROZEN VERSION - PhD 96/11 ~CYCLE 15
197!                  ( RADINT15 ).
198!        LRRMES  : CLE D'APPEL AU DRAG MESOSPHERIQUE "NEWTONIEN".
199!                  KEY FOR CALLING THE MESOSPHERIC NEWTONIAN DRAG.
200!                  ( ACDRME ).
201!        LSFHYD  : CLE D'APPEL DU BILAN HYDRIQUE DU SOL "HYPER-SIMPL.".
202!                : KEY FOR HYPER-SIMPLIFIED SOIL HYDROLOGY.
203!                  ( ACDRO ).
204!        LSNV    : CLE D'APPEL DU NOUVEAU SCHEMA DE NEIGE.
205!                : KEY FOR THE NEW SNOW SCHEME.
206!                  ( ACHMT,ACSOL,ACDROV,ACVEG ).
207!        LSOLV   : CLE D'APPEL DE LA NOUVELLE PHYS. DU SOL (VEGET.).
208!                : KEY FOR NOILHAN-PLANTON SOIL AND VEGETATION SCHEME.
209!                  ( ACSOL,ACDROV,ACVEG ).
210!        LFGEL   : CLE D'APPEL DU GEL DE L'EAU DU SOL AVEC ISBA (LSOLV)
211!                : KEY FOR SOIL FREEZING WITH ISBA (LSOLV)
212!                  ( ACSOL, ACDROV)
213!        LVGSN   : CLE POUR COMBINER VEGETATION ET NEIGE
214!                : KEY FOR COMBINING VEGETATION AND SNOW
215!                  ( ACHMT,ACSOL,ACDROV,ACVEG ).
216!        LSTRA   : CLE D'APPEL DES PLUIES STRATIFORMES "CLASSIQUES".
217!                  KEY FOR CLASSICAL STRATIFORM PRECIPITATIONS.
218!                  ( ACPLUIE ).
219!        LSTRAS  : CLE D'APPEL DU SCHEMA DE STAT. DE PRECIPITATION
220!                : KEY FOR CALLING THE STAT. SCHEME FOR PRECIPITATION.
221!                  ( ACPLUIS ).
222!       LSTRAPRO : KEY FOR CALLING ACPLUIE_PROG
223!        LTHERMO : CLE D'APPEL DES CALCULS THERMODYNAMIQUES.
224!                  KEY FOR CALLING MOIST THERMODYNAMIC CALCULATIONS.
225!                  ( ACTQSAT ).
226!        LVDIF   : CLE D'APPEL DE LA DIFFUSION VERTICALE "CLASSIQUE".
227!                  KEY FOR CALLING THE VERTICAL TURBULENT EXCHANGE.
228!                  ( ACHMT,ACCOEFK,ACDIFUS ).
229!        LBLVAR  : KEY FOR CALLING SPECIFIC 2M OBS OPERATOR FROM
230!                  LAST LEVEL (USED FOR VARPACK)
231!        LPBLE   : Top PBL Entrainment
232!       LPHCDPI  : Common dynamisc physics interfase is used if it is TRUE
233!       LPIL     : SELECTION OF LUC's PIL INSTEAD OF ORIGINAL LOPEZ
234!       LPHSPSH  : KEY FOR PSEUDO HISTORIC SURFACE PRECIP SENSIBLE HEAT
235!       LSMNIMBT : NO ICE MELTING BELOW TRIPLE POINT TEMPERATURE (ACQMESM)
236!       LSMROT   : USE ROTSTAYN FOR ICE FRACTION IN ACSMI1/ACQMESM
237!       LSMTPS   : TRIPLE POINT SMOOTHING (ACSMI1)
238!       L1DRHCRI : COMPUTE A SINGLE RHCRIT PROFILE IN LAM
239!       LGWRHCRI : USE GAW IN THE RHCRI PROFILE
240
241
242
243! * GROUPE DES INDICES DE CALCUL.
244!        NBITER : NOMBRE D'ITERATIONS DANS LES BOUCLES DE NEWTON.
245!               : NUMBER OF ITERATIONS IN THE NEWTON LOOPS.
246!        NDPSFI : INDICATEUR BINAIRE : NDPSFI=1 SI LES VARIATIONS DE LA
247!                 MASSE DE L'ATMOSPHERE DUES AU CYCLE HYDROLOGIQUE SONT
248!                 MODELISEES, NDPSFI=0 SINON.
249!               : BINARY INDICATOR : NDPSFI=1 IF THE VARIATION OF THE
250!                 ATMOSPHERIC MASS DUE TO THE HYDROLOGICAL CYCLE HAVE TO
251!                 BE TAKEN INTO ACCOUNT, NDPSFI=0 OTHERWISE.
252!        NPHYREP: REPRODUCTIBILITE DES CALCULS PHYSIQUES EN MODE MULTI-PROCESSEURS:
253!                   1 REPRODUCTIBILITE ASSUREE DANS TOUTE LA PHYSIQUE.
254!                   0 REPRODUCTIBILITE NON ASSUREE.
255!                  -1 REPRODUCTIBILITE ASSUREE PARTOUT SAUF ACCVIMP ET ACCVIMPD.
256!                  -2 REPRODUCTIBILITE ASSUREE PARTOUT SAUF ACDRAG.
257!                  -3 REPRODUCTIBILITE ASSUREE PARTOUT SAUF ACPLUI.
258!                  -4 REPRODUCTIBILITE ASSUREE PARTOUT SAUF ACRANEB.
259!               : REPRODUCTIBILITY OF PHYSICAL COMPUTATIONS IN MULTI-PROCESSORS MODE:
260!                   1 REPRODUCTIBILITY ENSURED IN THE WHOLE PHYSICS.
261!                   0 REPRODUCTIBILITY NOT ENSURED.
262!                  -1 REPRODUCTIBILITY ENSURED EXCEPT IN ACCVIMP ET ACCVIMPD.
263!                  OTHER ITEMS: SEE ABOVE THE FRENCH PART OF THE DOC.!...
264!        NOIR   : ECLIPSE OU NON? (SOLEIL NOIR!)
265!                 NOIR=1 ECLIPSE DU 11.8.1999.
266!                 NOIR=0 PAS D'ECLIPSE.
267!                 NOIR=-999 ECLIPSE TOUS LES JOURS!... (POUR TESTS D'IMPACT).
268
269!   NPHY :  Number indicating the kind of physics, for DDH
270
271!       NSMTBOT : Temperature to use for qsat at the bottom (acsmi1)
272!                     0=interpolate Ts and T_L
273!                     1=use T_L
274!       NSMDNEB : Cloudiness gradient attenuation mode (acsmi1)
275!                     0= no action
276!                     1=smoothing
277!                     2=gradient limitation with RSMDNEBX
278!       NPRAG   : 1 to activate aggregation in ACPREC
279!       NPRAC   : 1 to activate accretion in ACPREC
280!       NPRRI   : 1 to activate riming in ACPREC
281
282! * GROUPE DES CLES COMMANDANT L'APPEL AUX ROUTINES AM-----.
283!       LAJUCV  : CLE D'APPEL DE L'AJUSTEMENT CONVECTIF SEC
284!                  KEY FOR CALLING THE DRY CONVECTIVE ADJUSTMENT.
285!                  ( ACAJUCV ).
286!       LNEBGR  : Schema de Turb/(N,RR)stra de Herve GRENIER  (ACNEBGR)
287!       LNEBGY  : Schema de Turb/(N,RR)stra de J.F. GUEREMY   (ACNEBGY)
288!       LCVRAV3 : Schema de convect. profonde Bougeault-V3 (ACCVIMP_V3)
289!       LBCCOND : Schema de condens. de Bechtold-Chaboureau    (ACCOND)
290
291! * GROUPE DES INDICES DE CALCUL.
292INTEGER(KIND=JPIM) :: NBITER
293INTEGER(KIND=JPIM) :: NDPSFI
294! * GROUPE DES CLES GENERALES.
295LOGICAL :: LMPHYS
296LOGICAL :: LREASUR
297! * GROUPE DES CLES NE COMMANDANT PAS L'APPEL AUX ROUTINES AM-----.
298LOGICAL :: LCAPE
299LOGICAL :: LCONDWT
300LOGICAL :: LCVDD
301LOGICAL :: LCVPGY
302LOGICAL :: LCVPP
303LOGICAL :: LDIFCONS
304LOGICAL :: LHUNEG
305LOGICAL :: LNEIGE
306LOGICAL :: LRNUMX
307LOGICAL :: LCLSATUR
308LOGICAL :: LVOIGT
309LOGICAL :: LVFULL
310LOGICAL :: LSRCON
311LOGICAL :: LSRCONT
312LOGICAL :: LSLC
313LOGICAL :: L2PHYS
314LOGICAL :: LRAYLU
315LOGICAL :: LREWS
316LOGICAL :: LRPROX
317LOGICAL :: LRMIX
318LOGICAL :: LRSTAB
319LOGICAL :: LRAUTOEV
320LOGICAL :: LRTPP
321LOGICAL :: LRTDL
322LOGICAL :: LRAYPL
323LOGICAL :: LRRGUST
324LOGICAL :: LO3ABC
325LOGICAL :: LNEBNXR
326LOGICAL :: LQXRTGH
327LOGICAL :: LHUCN
328LOGICAL :: LFPCOR
329LOGICAL :: LNOIAS
330LOGICAL :: LGLT
331LOGICAL :: LNEWD
332LOGICAL :: LPROCLD
333LOGICAL :: LEVAPP 
334LOGICAL :: LCOLLEC
335LOGICAL :: LADJCLD
336LOGICAL :: L3MT
337LOGICAL :: LAEROSEA
338LOGICAL :: LAEROLAN
339LOGICAL :: LAEROSOO
340LOGICAL :: LAERODES
341LOGICAL :: LAEROVOL
342LOGICAL :: LAEROSUL
343LOGICAL :: LRELAXT
344LOGICAL :: LRELAXW
345LOGICAL :: LAUTONEB
346LOGICAL :: LSSD
347LOGICAL :: LPBLE
348LOGICAL :: LNSMLIS
349LOGICAL :: LBLVAR
350LOGICAL :: LZ0HSREL
351
352! * GROUPE DES CLES COMMANDANT L'APPEL AUX ROUTINES AM-----.
353CHARACTER (LEN = 20) ::  CGMIXLEN
354LOGICAL :: LPRGML
355LOGICAL :: LCVRA
356LOGICAL :: LCVPRO
357LOGICAL :: LCDDPRO
358LOGICAL :: LECT
359LOGICAL :: LPTKE
360LOGICAL :: LGWD
361LOGICAL :: LGWDC
362LOGICAL :: LHMTO
363LOGICAL :: LNEBCO
364LOGICAL :: LNEBN
365LOGICAL :: LNEBR
366LOGICAL :: LNEBT
367LOGICAL :: LND2DIFF
368LOGICAL :: LOZONE
369LOGICAL :: LRAY
370LOGICAL :: LRAYFM
371LOGICAL :: LRAYFM15
372LOGICAL :: LRRMES
373LOGICAL :: LSFHYD
374LOGICAL :: LSNV
375LOGICAL :: LSOLV
376LOGICAL :: LFGEL
377LOGICAL :: LSTRA
378LOGICAL :: LSTRAS
379LOGICAL :: LSTRAPRO
380LOGICAL :: LNEWSTAT
381LOGICAL :: LTHERMO
382LOGICAL :: LVDIF
383LOGICAL :: LFGELS
384LOGICAL :: LCVLIS
385LOGICAL :: LCVCAS
386LOGICAL :: LSCMF
387LOGICAL :: LVGSN
388LOGICAL :: LPHCDPI
389LOGICAL :: LAJUCV
390LOGICAL :: LNEBGR
391LOGICAL :: LNEBGY
392LOGICAL :: LCVRAV3
393LOGICAL :: LBCCOND
394LOGICAL :: LCVPPKF
395LOGICAL :: LECTFL
396INTEGER(KIND=JPIM) :: NPHYREP
397INTEGER(KIND=JPIM) :: NOIR
398LOGICAL :: LPIL
399LOGICAL :: LPHSPSH
400LOGICAL :: LSMNIMBT
401LOGICAL :: LSMROT
402LOGICAL :: LSMTPS
403LOGICAL :: L1DRHCRI
404LOGICAL :: LGWRHCRI
405INTEGER (KIND=JPIM) :: NSMTBOT
406INTEGER (KIND=JPIM) :: NSMDNEB
407INTEGER (KIND=JPIM) :: NPRAG, NPRAC, NPRRI
408INTEGER(KIND=JPIM)  :: NPHY 
409! Values that NPHY can obtain:
410INTEGER(KIND=JPIM), PARAMETER  ::   JPHYEC =   1  ! for ECMWF physics
411INTEGER(KIND=JPIM), PARAMETER  ::   JPHYMF =   2  ! for MF physics
412INTEGER(KIND=JPIM), PARAMETER  ::  JPHYARO =   3  ! for AROME physics
413!     ------------------------------------------------------------------
[2010]414!$OMP THREADPRIVATE(cgmixlen,l1drhcri,l2phys,l3mt,ladjcld,laerodes,laerolan,laerosea,laerosoo,laerosul)
415!$OMP THREADPRIVATE(laerovol,lajucv,lautoneb,lbccond,lblvar,lcape,lcddpro,lclsatur,lcollec,lcondwt,lcvcas)
416!$OMP THREADPRIVATE(lcvdd,lcvlis,lcvpgy,lcvpp,lcvppkf,lcvpro,lcvra,lcvrav3,ldifcons,lect,lectfl,levapp,lfgel)
417!$OMP THREADPRIVATE(lfgels,lfpcor,lglt,lgwd,lgwdc,lgwrhcri,lhmto,lhucn,lhuneg,lmphys,lnd2diff,lnebco,lnebgr)
418!$OMP THREADPRIVATE(lnebgy,lnebn,lnebnxr,lnebr,lnebt,lneige,lnewd,lnewstat,lnoias,lnsmlis,lo3abc,lozone,lpble)
419!$OMP THREADPRIVATE(lphcdpi,lphspsh,lpil,lprgml,lprocld,lptke,lqxrtgh,lrautoev,lray,lrayfm,lrayfm15,lraylu)
420!$OMP THREADPRIVATE(lraypl,lreasur,lrelaxt,lrelaxw,lrews,lrmix,lrnumx,lrprox,lrrgust,lrrmes,lrstab,lrtdl)
421!$OMP THREADPRIVATE(lrtpp,lscmf,lsfhyd,lslc,lsmnimbt,lsmrot,lsmtps,lsnv,lsolv,lsrcon,lsrcont,lssd,lstra)
422!$OMP THREADPRIVATE(lstrapro,lstras,lthermo,lvdif,lvfull,lvgsn,lvoigt,lz0hsrel,nbiter,ndpsfi,noir,nphy)
423!$OMP THREADPRIVATE(nphyrep,nprac,nprag,nprri,nsmdneb,nsmtbot)
[1989]424END MODULE YOMPHY
Note: See TracBrowser for help on using the repository browser.