| 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 |
|---|
