LMDZ
yomphy1.F90
Go to the documentation of this file.
1 MODULE yomphy1
2 
3 USE parkind1 ,ONLY : jpim ,jprb
4 
5 IMPLICIT NONE
6 
7 SAVE
8 
9 !*
10 ! ------------------------------------------------------------------
11 ! CONSTANTES PHYSIQUES REGLABLES INTERVENANT DANS LA DEFINITION DU
12 ! SOL, DE LA NEIGE OU DE LA VEGETATION :
13 ! ALB1 : COEFF. POUR LE SCHEMA (LVGSN).
14 ! : COEFF. FOR THE SNOW SCHEME (LVGSN).
15 ! ALB2 : COEFF. POUR LE SCHEMA (LVGSN).
16 ! : COEFF. FOR THE SNOW SCHEME (LVGSN).
17 ! ALBGLA : ALBEDO BANQUISE (SANS NEIGE).
18 ! : SNOW FREE SEA-ICE ALBEDO.
19 ! ALBMAX : ALBEDO MAXIMUM DE LA NEIGE.
20 ! : MAXIMUM SNOW ALBEDO.
21 ! ALBMER : ALBEDO MER.
22 ! : OPEN SEA ALBEDO.
23 ! ALBMED : ALBEDO MER DIFFUS.
24 ! : OPEN SEA DIFFUSE ALBEDO.
25 ! ALBMIN : ALBEDO MINIMUM DE LA NEIGE.
26 ! : MINIMUM SNOW ALBEDO.
27 ! ALCRIN : ALBEDO DE LA NEIGE.
28 ! : SNOW ALBEDO.
29 ! ALRCN1 : PREMIERE CONSTANTE POUR L'INFLUENCE NEIGEUSE SUR Z0.
30 ! : FIRST CONSTANT FOR THE SNOW'S INFLUENCE ON Z0.
31 ! ALRCN2 : DEUXIEME CONSTANTE POUR L'INFLUENCE NEIGEUSE SUR Z0.
32 ! : SECOND CONSTANT FOR THE SNOW'S INFLUENCE ON Z0.
33 ! EA : EXPOSANT DANS LE SCHEMA SOL-VEGETATION
34 ! : EXPONENT IN THE SOIL-VEGETATION SCHEME
35 ! EC2REF : IDEM
36 ! EMCRIN : EMISSIVITE DE LA NEIGE.
37 ! : SNOW EMISSIVITY.
38 ! EMMGLA : EMISSIVITE DE LA BANQUISE
39 ! : SEA-ICE EMISSIVITY.
40 ! EMMMER : EMISSIVITE DE LA MER
41 ! : OPEN SEA EMISSIVITY.
42 ! EWFC : EXPOSANT DANS LE SCHEMA SOL-VEGETATION
43 ! : EXPONENT IN THE SOIL-VEGETATION SCHEME
44 ! EWWILT : IDEM
45 ! GA : COEFFICIENT DE REGRESSION DANS LE SCHEMA SOL-VEGETATION
46 ! : REGRESSION COEFFICIENT IN THE SOIL-VEGETATION SCHEME
47 ! GC1 : IDEM.
48 ! GC1S1, GC1S2, GC1S3, GC1S4 : COEFFICIENT POUR LE C1 PHASE VAPEUR
49 ! : COEFFICIENT FOR C1 VAPOUR PHASE
50 ! GTSVAP : =0 PTS VARIABLE POUR LE CALCUL DU MAX DE C1. SI < 0 -GTSVAP
51 ! REPRESENTE LA TEMPERATURE CONSTANTE EN DEGRE CELSIUS
52 ! =0 PTS VARIABLE FOR THE COMPUTATION OF THE MAX OF C1. IF
53 ! < 0 -GTSVAP IS CONSTANT TEMPERATURE IN DEGRE
54 ! GC1Y1 : VALEUR DU C1 POUR WS=0 POUR LA PHASE VAPEUR DE C1
55 ! : VALUE OF C1 FOR WS=0 FOR VAPOUR PHASE OF C1
56 ! GVEGMX,GLAIMX,GNEIMX,GWPIMX,GCGEL: COEFF POUR EAU GELEE DU SOL PROFOND.
57 ! GVEGMX,GLAIMX,GNEIMX,GWPIMX,GCGEL: COEFF FOR ICE IN DEEP SOIL.
58 ! GVEGMXS,GLAIMXS,GNEIMXS,GCGELS: COEFF POUR EAU GELEE DE SURFACE.
59 ! GVEGMXS,GLAIMXS,GNEIMXS,GCGELS: COEFF FOR ICE IN THE SUPERFICIAL
60 ! RESERVOIR.
61 ! GC2 : REGRESSION COEFFICIENT IN THE SOIL-VEGETATION SCHEME
62 ! GC2REF : IDEM.
63 ! GC3 : IDEM.
64 ! GCZ0H : IDEM.
65 ! GC31 : COEFFICIENT POUR LE DRAINAGE PROFOND (SOL-VEGETATION)
66 ! : COEFFICIENT FOR THE DEEP SOIL DRAINAGE (SOIL-VEGETATION)
67 ! GC32 : IDEM
68 ! GCONV : FACTEUR DE CHANGEMENT D'UNITE (MASSE VOL. DE L'EAU LIQUIDE)
69 ! GF1 : COEFFICIENT DE LA FONCTION F1 (SOL-VEGETATION).
70 ! : COEFFICIENT FOR THE FUNCTION F1 (SOIL-VEGETATION).
71 ! GF3(18) : COEFFICIENT DE LA FONCTION F3 (SOL-VEGETATION)
72 ! : COEFFICIENT FOR THE FUNCTION F3 (SOIL-VEGETATION)
73 ! GF4(18) : COEFFICIENT DE LA FONCTION F4 (SOL-VEGETATION)
74 ! : COEFFICIENT FOR THE FUNCTION F4 (SOIL-VEGETATION)
75 ! GWFC : COEFFICIENT DE REGRESSION DANS LE SCHEMA SOL-VEGETATION
76 ! : REGRESSION COEFFICIENT IN THE SOIL-VEGETATION SCHEME
77 ! GWWILT : IDEM.
78 ! G1B : IDEM.
79 ! G1CGSAT : IDEM.
80 ! G1C1SAT : IDEM.
81 ! G1P : COEFFICIENT DE REGRESSION DANS LE SCHEMA SOL-VEGETATION
82 ! : REGRESSION COEFFICIENT IN THE SOIL-VEGETATION SCHEME
83 ! G1WSAT : IDEM.
84 ! G2B : IDEM.
85 ! G2CGSAT : IDEM.
86 ! G2C1SAT : IDEM.
87 ! G2P : IDEM.
88 ! G2WSAT : IDEM.
89 ! G3CGSAT : IDEM.
90 ! GSNC1 : IDEM (LSNV).
91 ! GSNC2 : IDEM (LSNV).
92 ! GWLEX : (WL/WLMX)**GWLEX POUR LE CALCUL DU COEF. D'HALSTEAD.
93 ! : (WL/WLMX)**GWLEX FOR THE HALSTEAD COEF.
94 ! GWLMX : COEFFICIENT POUR LE RESERVOIR D'INTERCEPTION MAX.
95 ! : COEFFICIENT FOR INTERCEPTION WATER CONTENT.
96 ! HSOL : INVERSE DE L'INERTIE DU SOL EN SURFACE.
97 ! : INVERSE OF THE SURFACE SOIL INERTIA.
98 ! HSOLIWR : INVERSE DE LA QUANTITE CRITIQUE EN EAU (CALCUL DE HSOL).
99 ! : INVERSE OF CRITICAL SOIL WATER CONTENT (HSOL COMPUTATION).
100 ! HSOLIT0 : INVERSE DE LA LARGEUR CRITIQUE EN TEMPERATURE (CALCUL DE HSOL).
101 ! : INVERSE OF TEMPERATURE CRITICAL DEVIATION (HSOL COMPUTATION).
102 ! NTVGLA : INDICE DE VEGETATION SUR GLACE.
103 ! : VEGETATION INDEX OVER ICE.
104 ! NTVMER : INDICE DE VEGETATION SUR MER.
105 ! : VEGETATION INDEX OVER SEA.
106 ! OMTPRO : 2 PI SUR LA PER. DE RAPP. DE LA TEMPERATURE PROFONDE.
107 ! : 2 PI DIVIDED BY THE TIME CONSTANT OF DEEP TEMPERATURE.
108 ! OMWPRO : 1. SUR LA PER. DE RAPP. DU CONTENU EN EAU PROFOND.
109 ! : 1. DIVIDED BY THE TIME CONSTANT OF DEEP SOIL WATER.
110 ! RC1MAX : VALEUR MAXIMALE DU COEFFICIENT HYDRIQUE G1=C1/RD1
111 ! : MAXIMUM VALUE FOR THE HYDRIC COEFFICIENT G1
112 ! RCTGLA : COEFFICIENT THERMIQUE DE LA GLACE
113 ! : ICE THERMAL COEFFICIENT.
114 ! RCGMAX : COEFFICIENT THERMIQUE DU SOL NU MAXIMUM
115 ! : MAXIMUM THERMAL BARE GROUND COEFFICIENT.
116 ! RCTVEG : COEFFICIENT THERMIQUE DE LA VEGETATION.
117 ! (18) : VEGETATION THERMAL COEFFICIENT.
118 ! RD1 : EPAISSEUR DU RESERVOIR SUPERFICIEL.
119 ! : UPPER RESERVOIR DEPTH.
120 ! RD2GLA : EPAISSEUR DU RESERVOIR BANQUISE.
121 ! : SEA-ICE RESERVOIR DEPTH.
122 ! RD2MER : EPAISSEUR DU RESERVOIR MER.
123 ! : OPEN SEA RESERVOIR DEPTH.
124 ! RGL(18) : VALEUR LIMITE DU RAYONNEMENT GLOBAL DEPENDANT DU TYPE
125 ! DE VEGETATION. RGL INTERVIENT DANS LE CALCUL DE RSTO.
126 ! : VEGETATION RADIATIVE COEFFICIENT LIMITING GLOBAL
127 ! RADIATION. RGL IS USED IN THE COMPUTATION OF RSTO.
128 ! RHOMAX : DENSITE MAXIMUM DE LA NEIGE.
129 ! : MAXIMUM SNOW DENSITY.
130 ! RHOMIN : DENSITE MINIMUM DE LA NEIGE.
131 ! : MINIMUM SNOW DENSITY.
132 ! RLAIMX : LAI MAX POUR LE SCHEMA (LVGSN).
133 ! : LAI MAX FOR THE SNOW SCHEME (LVGSN).
134 ! RLAI : LAI A PARTIR DUQUEL ON REDUIT LA FRACTION DE NEIGE (LVGSN).
135 ! : LAI FROM WHICH THE SNOW FRACTION IS REDUCED (LVGSN).
136 ! RSMAX : RESISTANCE STOMATIQUE MAXIMALE.
137 ! : MAXIMUM STOMATAL RESISTANCE
138 ! RTINER : RAPPORT DES INERTIES THERMIQUES PROFONDEUR/SURFACE.
139 ! : RATIO OF THE DEEP/SURFACE THERMAL INERTIAS.
140 ! RZ0GLA : LONGUEUR RUGOSITE DYNAMIQUE DE LA BANQUISE
141 ! : DYNAMICAL ROUGHNESS LENGTH OF SEA-ICE
142 ! RZ0MER : LONGUEUR RUGOSITE DYNAMIQUE DE LA MER
143 ! : DYNAMICAL ROUGHNESS LENGTH OF SEA
144 ! RZHZ0G : RAPPORT LONGUEUR DE RUGOSITE THERMIQUE SUR LONGUEUR
145 ! RUGOSITE DYNAMIQUE DE LA BANQUISE
146 ! : RATIO OF THERMAL ROUGHNESS LENGTH ON DYNAMICAL
147 ! ROUGHNESS LENGTH OF SEA-ICE
148 ! RZHZ0M : RAPPORT LONGUEUR DE RUGOSITE THERMIQUE SUR LONGUEUR
149 ! RUGOSITE DYNAMIQUE DE LA MER
150 ! : RATIO OF THERMAL ROUGHNESS LENGTH ON DYNAMICAL
151 ! ROUGHNESS LENGTH OF SEA
152 ! SODELX(0:9): DISCRETISATION VERTICALE DU SOL (MAXI 10 COUCHES)
153 ! : SOIL VERTICAL DISCRETIZATION (MAX 10 LAYERS)
154 ! TMERGL : TEMPERATURE DE FONTE DE LA GLACE DE MER.
155 ! : MELTING TEMPERATURE OF FLOATING ICE.
156 ! TOEXP : TAUX DE DECROISSANCE EXPONENTIELLE DE L'ALBEDO ET
157 ! ET DE LA DENSITE DE LA NEIGE EN PERIODE DE FONTE.
158 ! : RATE OF EXPONENTIAL DECREASE IN SNOW ALBEDO AND DENSITY
159 ! DURING SNOW MELT.
160 ! TOLIN : TAUX DE DECROISSANCE LINEAIRE DE L'ALBEDO DE LA NEIGE
161 ! EN PERIODE D'ACCUMULATION.
162 ! : RATE OF LINEAR DECREASE IN SNOW ALBEDO
163 ! DURING SNOW ACCUMULATION.
164 ! TREF4(18): TEMPERATURE SEUIL DE LA FONCTION F4 (SOL-VEGETATION)
165 ! : THRESHOLD TEMPERATURE IN F4 FUNCTION (SOIL-VEGETATION)
166 ! WCRIN : QUANTITE CRITIQUE POUR LA NEIGE MI-COUVRANTE.
167 ! : CRITICAL TRANSITION VALUE FOR SNOW DEPTH (HALF-COVER).
168 ! WCRINC : QUANTITE CRITIQUE POUR LA NEIGE MI-COUVRANTE.
169 ! (CALCULS THERMIQUES)
170 ! : CRITICAL TRANSITION VALUE FOR SNOW DEPTH (HALF-COVER).
171 ! (THERMIC CALCULATIONS)
172 ! WCRING : QUANTITE CRITIQUE POUR LA NEIGE MI-COUVRANTE.
173 ! (CALCULS RADIATIFS ET EVAPORATION)
174 ! : CRITICAL TRANSITION VALUE FOR SNOW DEPTH (HALF-COVER).
175 ! (RADIATIVE CALCULATIONS AND EVAPORATION)
176 ! WNEW : PRECIPITIONS DE NEIGE MINIMUM (MM) POUR RENOUVELER
177 ! L'ALBEDO DE LA NEIGE.
178 ! : MINIMUM SNOWFALL (MM) TO RENEW THE SNOW ALBEDO.
179 ! WPMX : VALEUR MAXIMUN POUR LE CONTENU EN EAU EN PROFONDEUR.
180 ! : MAXIMUM VALUE FOR DEEP SOIL WATER CONTENT.
181 ! WSMX : VALEUR MAXIMUN POUR LE CONTENU EN EAU DE SURFACE.
182 ! : MAXIMUM VALUE FOR SURFACE SOIL WATER CONTENT.
183 ! XCRINR : COEFFICIENT DANS LE FACTEUR ZNR DETERMINANT
184 ! L'INFLUENCE DU RELIEF SOUS-MAILLE
185 ! SUR LES FRACTIONS DE NEIGE
186 ! : COEFFICIENT IN THE FACTOR ZNR DETERMINING
187 ! THE INFLUENCE OF SUBGRID OROGRAPHY
188 ! ON THE SNOW COVER FRACTIONS
189 ! XCRINV : COEFFICIENT DE LA FRACTION PNEIJV DE NEIGE RECOUVRANT
190 ! LA VEGETATION.
191 ! : COEFFICIENT FOR THE FRACTION PNEIJV OF SNOW COVERING
192 ! THE CANOPY.
193 ! LIMC : BORNE SUPERIEURE POUR CT
194 ! : UPPER BOUND FOR CT
195 ! LIMW : CONTROLE DE W/Wwilt POUR CG,C1,C2
196 ! : CHECKING W/Wwilt
197 ! LC1VAP : PHASE VAPEUR POUR LE C1
198 ! : VAPOUR PHASE FOR C1
199 
200 REAL(KIND=JPRB) :: gf3(18)
201 REAL(KIND=JPRB) :: gf4(18)
202 REAL(KIND=JPRB) :: tref4(18)
203 REAL(KIND=JPRB) :: rctveg(18)
204 REAL(KIND=JPRB) :: rgl(18)
205 REAL(KIND=JPRB) :: sodelx(0:9)
206 REAL(KIND=JPRB) :: gcz0h(0:3,4)
207 REAL(KIND=JPRB) :: albgla
208 REAL(KIND=JPRB) :: albmax
209 REAL(KIND=JPRB) :: albmer
210 REAL(KIND=JPRB) :: albmed
211 REAL(KIND=JPRB) :: albmin
212 REAL(KIND=JPRB) :: alcrin
213 REAL(KIND=JPRB) :: alrcn1
214 REAL(KIND=JPRB) :: alrcn2
215 REAL(KIND=JPRB) :: ea
216 REAL(KIND=JPRB) :: ec2ref
217 REAL(KIND=JPRB) :: emcrin
218 REAL(KIND=JPRB) :: emmgla
219 REAL(KIND=JPRB) :: emmmer
220 REAL(KIND=JPRB) :: ewfc
221 REAL(KIND=JPRB) :: ewwilt
222 REAL(KIND=JPRB) :: ga
223 REAL(KIND=JPRB) :: gc1
224 REAL(KIND=JPRB) :: gc1s1
225 REAL(KIND=JPRB) :: gc1s2
226 REAL(KIND=JPRB) :: gc1s3
227 REAL(KIND=JPRB) :: gc1s4
228 REAL(KIND=JPRB) :: gc1y1
229 REAL(KIND=JPRB) :: gtsvap
230 REAL(KIND=JPRB) :: gvegmx
231 REAL(KIND=JPRB) :: glaimx
232 REAL(KIND=JPRB) :: gneimx
233 REAL(KIND=JPRB) :: gwpimx
234 REAL(KIND=JPRB) :: gcgel
235 REAL(KIND=JPRB) :: gc2
236 REAL(KIND=JPRB) :: gc2ref
237 REAL(KIND=JPRB) :: gc3
238 REAL(KIND=JPRB) :: gc31
239 REAL(KIND=JPRB) :: gc32
240 REAL(KIND=JPRB) :: gconv
241 REAL(KIND=JPRB) :: gf1
242 REAL(KIND=JPRB) :: gwfc
243 REAL(KIND=JPRB) :: gwlex
244 REAL(KIND=JPRB) :: gwlmx
245 REAL(KIND=JPRB) :: gwwilt
246 REAL(KIND=JPRB) :: g1b
247 REAL(KIND=JPRB) :: g1cgsat
248 REAL(KIND=JPRB) :: g1c1sat
249 REAL(KIND=JPRB) :: g1p
250 REAL(KIND=JPRB) :: g1wsat
251 REAL(KIND=JPRB) :: g2b
252 REAL(KIND=JPRB) :: g2cgsat
253 REAL(KIND=JPRB) :: g2c1sat
254 REAL(KIND=JPRB) :: g2p
255 REAL(KIND=JPRB) :: g2wsat
256 REAL(KIND=JPRB) :: g3cgsat
257 REAL(KIND=JPRB) :: gsnc1
258 REAL(KIND=JPRB) :: gsnc2
259 REAL(KIND=JPRB) :: hsol
260 REAL(KIND=JPRB) :: hsoliwr
261 REAL(KIND=JPRB) :: hsolit0
262 REAL(KIND=JPRB) :: omtpro
263 REAL(KIND=JPRB) :: omwpro
264 REAL(KIND=JPRB) :: rc1max
265 REAL(KIND=JPRB) :: rctgla
266 REAL(KIND=JPRB) :: rcgmax
267 REAL(KIND=JPRB) :: rd1
268 REAL(KIND=JPRB) :: rd2gla
269 REAL(KIND=JPRB) :: rd2mer
270 REAL(KIND=JPRB) :: rhomax
271 REAL(KIND=JPRB) :: rhomin
272 REAL(KIND=JPRB) :: rsmax
273 REAL(KIND=JPRB) :: rtiner
274 REAL(KIND=JPRB) :: rz0gla
275 REAL(KIND=JPRB) :: rz0mer
276 REAL(KIND=JPRB) :: rzhz0g
277 REAL(KIND=JPRB) :: rzhz0m
278 REAL(KIND=JPRB) :: rzhgla
279 REAL(KIND=JPRB) :: rzhmer
280 REAL(KIND=JPRB) :: tmergl
281 REAL(KIND=JPRB) :: toexp
282 REAL(KIND=JPRB) :: tolin
283 REAL(KIND=JPRB) :: wcrin
284 REAL(KIND=JPRB) :: wcrinc
285 REAL(KIND=JPRB) :: wcring
286 REAL(KIND=JPRB) :: wnew
287 REAL(KIND=JPRB) :: wpmx
288 REAL(KIND=JPRB) :: wsmx
289 REAL(KIND=JPRB) :: xcrinr
290 REAL(KIND=JPRB) :: xcrinv
291 LOGICAL :: limc
292 LOGICAL :: limw
293 LOGICAL :: lc1vap
294 INTEGER(KIND=JPIM) :: ntvgla
295 INTEGER(KIND=JPIM) :: ntvmer
296 REAL(KIND=JPRB) :: gcgels
297 REAL(KIND=JPRB) :: gvegmxs
298 REAL(KIND=JPRB) :: glaimxs
299 REAL(KIND=JPRB) :: gneimxs
300 REAL(KIND=JPRB) :: alb1
301 REAL(KIND=JPRB) :: alb2
302 REAL(KIND=JPRB) :: rlaimx
303 REAL(KIND=JPRB) :: rlai
304 INTEGER(KIND=JPIM) :: nchsp
305 ! ------------------------------------------------------------------
306 !$OMP THREADPRIVATE(alb1,alb2,albgla,albmax,albmed,albmer,albmin,alcrin,alrcn1,alrcn2,ea,ec2ref,emcrin,emmgla)
307 !$OMP THREADPRIVATE(emmmer,ewfc,ewwilt,g1b,g1c1sat,g1cgsat,g1p,g1wsat,g2b,g2c1sat,g2cgsat,g2p,g2wsat,g3cgsat)
308 !$OMP THREADPRIVATE(ga,gc1,gc1s1,gc1s2,gc1s3,gc1s4,gc1y1,gc2,gc2ref,gc3,gc31,gc32,gcgel,gcgels,gconv,gcz0h,gf1)
309 !$OMP THREADPRIVATE(gf3,gf4,glaimx,glaimxs,gneimx,gneimxs,gsnc1,gsnc2,gtsvap,gvegmx,gvegmxs,gwfc,gwlex,gwlmx)
310 !$OMP THREADPRIVATE(gwpimx,gwwilt,hsol,hsolit0,hsoliwr,lc1vap,limc,limw,nchsp,ntvgla,ntvmer,omtpro,omwpro,rc1max)
311 !$OMP THREADPRIVATE(rcgmax,rctgla,rctveg,rd1,rd2gla,rd2mer,rgl,rhomax,rhomin,rlai,rlaimx,rsmax,rtiner,rz0gla)
312 !$OMP THREADPRIVATE(rz0mer,rzhgla,rzhmer,rzhz0g,rzhz0m,sodelx,tmergl,toexp,tolin,tref4,wcrin,wcrinc,wcring)
313 !$OMP THREADPRIVATE(wnew,wpmx,wsmx,xcrinr,xcrinv)
314 END MODULE yomphy1
real(kind=jprb) g2wsat
Definition: yomphy1.F90:255
real(kind=jprb) rhomax
Definition: yomphy1.F90:270
real(kind=jprb) rlai
Definition: yomphy1.F90:303
real(kind=jprb) g1p
Definition: yomphy1.F90:249
real(kind=jprb) rd2gla
Definition: yomphy1.F90:268
real(kind=jprb) rz0gla
Definition: yomphy1.F90:274
real(kind=jprb) tolin
Definition: yomphy1.F90:282
real(kind=jprb) glaimxs
Definition: yomphy1.F90:298
real(kind=jprb) hsolit0
Definition: yomphy1.F90:261
real(kind=jprb), dimension(18) gf3
Definition: yomphy1.F90:200
real(kind=jprb) gwlmx
Definition: yomphy1.F90:244
real(kind=jprb) rlaimx
Definition: yomphy1.F90:302
real(kind=jprb) hsoliwr
Definition: yomphy1.F90:260
real(kind=jprb) emmmer
Definition: yomphy1.F90:219
real(kind=jprb) gc2
Definition: yomphy1.F90:235
real(kind=jprb) gc32
Definition: yomphy1.F90:239
real(kind=jprb) gc1s1
Definition: yomphy1.F90:224
real(kind=jprb) wpmx
Definition: yomphy1.F90:287
real(kind=jprb), dimension(18) tref4
Definition: yomphy1.F90:202
real(kind=jprb) gcgels
Definition: yomphy1.F90:296
real(kind=jprb) g2cgsat
Definition: yomphy1.F90:252
real(kind=jprb) gsnc2
Definition: yomphy1.F90:258
real(kind=jprb) rd2mer
Definition: yomphy1.F90:269
real(kind=jprb) rctgla
Definition: yomphy1.F90:265
real(kind=jprb) gc1y1
Definition: yomphy1.F90:228
integer(kind=jpim) ntvgla
Definition: yomphy1.F90:294
real(kind=jprb) g1cgsat
Definition: yomphy1.F90:247
real(kind=jprb) g2c1sat
Definition: yomphy1.F90:253
real(kind=jprb) gvegmx
Definition: yomphy1.F90:230
real(kind=jprb), dimension(0:9) sodelx
Definition: yomphy1.F90:205
real(kind=jprb) gc3
Definition: yomphy1.F90:237
real(kind=jprb) albmin
Definition: yomphy1.F90:211
real(kind=jprb) alb1
Definition: yomphy1.F90:300
real(kind=jprb) wcring
Definition: yomphy1.F90:285
real(kind=jprb) rzhz0g
Definition: yomphy1.F90:276
real(kind=jprb) gsnc1
Definition: yomphy1.F90:257
real(kind=jprb) albmax
Definition: yomphy1.F90:208
real(kind=jprb) xcrinr
Definition: yomphy1.F90:289
real(kind=jprb) rc1max
Definition: yomphy1.F90:264
logical limc
Definition: yomphy1.F90:291
real(kind=jprb) wcrin
Definition: yomphy1.F90:283
real(kind=jprb) gcgel
Definition: yomphy1.F90:234
real(kind=jprb) rtiner
Definition: yomphy1.F90:273
real(kind=jprb) hsol
Definition: yomphy1.F90:259
real(kind=jprb) g2p
Definition: yomphy1.F90:254
real(kind=jprb) glaimx
Definition: yomphy1.F90:231
logical limw
Definition: yomphy1.F90:292
real(kind=jprb) rhomin
Definition: yomphy1.F90:271
real(kind=jprb) gc1s4
Definition: yomphy1.F90:227
real(kind=jprb) rzhgla
Definition: yomphy1.F90:278
real(kind=jprb) gc31
Definition: yomphy1.F90:238
real(kind=jprb) rz0mer
Definition: yomphy1.F90:275
integer, parameter jprb
Definition: parkind1.F90:31
real(kind=jprb) g2b
Definition: yomphy1.F90:251
real(kind=jprb) albmed
Definition: yomphy1.F90:210
real(kind=jprb) gc2ref
Definition: yomphy1.F90:236
real(kind=jprb) gtsvap
Definition: yomphy1.F90:229
real(kind=jprb) emmgla
Definition: yomphy1.F90:218
real(kind=jprb) gf1
Definition: yomphy1.F90:241
real(kind=jprb) xcrinv
Definition: yomphy1.F90:290
real(kind=jprb) gconv
Definition: yomphy1.F90:240
real(kind=jprb) gc1s2
Definition: yomphy1.F90:225
integer(kind=jpim) nchsp
Definition: yomphy1.F90:304
real(kind=jprb), dimension(18) rctveg
Definition: yomphy1.F90:203
real(kind=jprb) ewwilt
Definition: yomphy1.F90:221
real(kind=jprb) albmer
Definition: yomphy1.F90:209
logical lc1vap
Definition: yomphy1.F90:293
real(kind=jprb) gneimx
Definition: yomphy1.F90:232
real(kind=jprb) wsmx
Definition: yomphy1.F90:288
real(kind=jprb) omtpro
Definition: yomphy1.F90:262
real(kind=jprb) alrcn2
Definition: yomphy1.F90:214
real(kind=jprb) albgla
Definition: yomphy1.F90:207
real(kind=jprb) alb2
Definition: yomphy1.F90:301
real(kind=jprb) rsmax
Definition: yomphy1.F90:272
real(kind=jprb) wnew
Definition: yomphy1.F90:286
real(kind=jprb) rd1
Definition: yomphy1.F90:267
real(kind=jprb) g1c1sat
Definition: yomphy1.F90:248
real(kind=jprb) gwwilt
Definition: yomphy1.F90:245
real(kind=jprb) tmergl
Definition: yomphy1.F90:280
real(kind=jprb) gneimxs
Definition: yomphy1.F90:299
real(kind=jprb) g1wsat
Definition: yomphy1.F90:250
real(kind=jprb) omwpro
Definition: yomphy1.F90:263
real(kind=jprb), dimension(0:3, 4) gcz0h
Definition: yomphy1.F90:206
real(kind=jprb) gc1
Definition: yomphy1.F90:223
real(kind=jprb) gwlex
Definition: yomphy1.F90:243
real(kind=jprb), dimension(18) gf4
Definition: yomphy1.F90:201
integer(kind=jpim) ntvmer
Definition: yomphy1.F90:295
real(kind=jprb) wcrinc
Definition: yomphy1.F90:284
real(kind=jprb) alcrin
Definition: yomphy1.F90:212
real(kind=jprb) alrcn1
Definition: yomphy1.F90:213
real(kind=jprb) ea
Definition: yomphy1.F90:215
integer, parameter jpim
Definition: parkind1.F90:13
real(kind=jprb) ga
Definition: yomphy1.F90:222
real(kind=jprb) gwfc
Definition: yomphy1.F90:242
real(kind=jprb) toexp
Definition: yomphy1.F90:281
real(kind=jprb) ec2ref
Definition: yomphy1.F90:216
real(kind=jprb) g1b
Definition: yomphy1.F90:246
real(kind=jprb) gvegmxs
Definition: yomphy1.F90:297
real(kind=jprb) g3cgsat
Definition: yomphy1.F90:256
real(kind=jprb) gwpimx
Definition: yomphy1.F90:233
real(kind=jprb) gc1s3
Definition: yomphy1.F90:226
real(kind=jprb), dimension(18) rgl
Definition: yomphy1.F90:204
real(kind=jprb) emcrin
Definition: yomphy1.F90:217
real(kind=jprb) rcgmax
Definition: yomphy1.F90:266
real(kind=jprb) rzhz0m
Definition: yomphy1.F90:277
real(kind=jprb) rzhmer
Definition: yomphy1.F90:279
real(kind=jprb) ewfc
Definition: yomphy1.F90:220