| 1 | MODULE YOMGRB |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 4 | USE YOM_YGFL , ONLY : JPGHG, JPGRG , JPTRAC |
|---|
| 5 | |
|---|
| 6 | IMPLICIT NONE |
|---|
| 7 | |
|---|
| 8 | SAVE |
|---|
| 9 | |
|---|
| 10 | ! ------------------------------------------------------------------ |
|---|
| 11 | !* GRIB CODING DESCRIPTORS |
|---|
| 12 | |
|---|
| 13 | ! NLOCGRB - ECMWF LOCAL USAGE IDENTIFIER |
|---|
| 14 | ! NTOTENS - TOTAL NUMBER OF FORCASTS IN ENSEMBLE |
|---|
| 15 | ! NENSFNB - ENSAMBLE FORECAST NUMBER |
|---|
| 16 | ! NCALVAL - cal/val number |
|---|
| 17 | ! NSTREAM - EXPLICIT STREAM NUMBER (OR ZERO FOR DEFAULT STREAMS TO BE USED) |
|---|
| 18 | ! NSYSTEM - FOR USE IN SEASONAL STREAM (DIFFERENT OPERATIONAL SYSTEMS) |
|---|
| 19 | ! NMETHOD - FOR USE IN SEASONAL STREAM (DIFFERENT ENSEMBLES) |
|---|
| 20 | ! NREFERENCE - FOR USE IN HINDCAST STREAM |
|---|
| 21 | ! NCONSENSUS - FOR MULTI_ANALYSIS STREAM (1 if consensus) |
|---|
| 22 | ! NDWD - FOR MULTI_ANALYSIS STREAM (1 if DWD analysis used) |
|---|
| 23 | ! NMFR - FOR MULTI_ANALYSIS STREAM |
|---|
| 24 | ! NNCEP - FOR MULTI_ANALYSIS STREAM |
|---|
| 25 | ! NUKM - FOR MULTI_ANALYSIS STREAM |
|---|
| 26 | ! NSTEPLPP(II) - STEP FOR PREVIOUS P.P. OF VARIABLE WITH GRIB CODE II |
|---|
| 27 | ! NSMAXNP - SUBTRUNCTATION FOR COMPLEX PACKING OF SPECTRAL COEFF |
|---|
| 28 | ! NBITSSH - NUMBER OF BITS FOR PACKING SPECTRAL COEFF. |
|---|
| 29 | ! NBITSGG - NUMBER OF BITS FOR PACKING GRID-POINT DATA |
|---|
| 30 | ! NJDIAG - SENSITIVITY DIAGNOSTIC NUMBER (1=>J1, 2=>J2, 3=>J3, 4=>J4) |
|---|
| 31 | ! NJDOMAI - SENSITIVITY DIAGNOSTIC MASK REGION (0=>global, 1=>europe, |
|---|
| 32 | ! 2=>N.H., 3=>S.H.) |
|---|
| 33 | ! NLEG - current VAREPS leg number (eg 1(2) for the T399(T255) part of a T399-T255 VAREPS) |
|---|
| 34 | |
|---|
| 35 | ! NGRB... - GRIB codes according to ECMWF local Code Table 2 |
|---|
| 36 | |
|---|
| 37 | ! NGRBTH - 3 Potential Temperature |
|---|
| 38 | ! NGRBALUVP- 15 MODIS albedo UV-vis parallel radiation |
|---|
| 39 | ! NGRBALUVD- 16 MODIS albedo UV-vis diffuse radiation |
|---|
| 40 | ! NGRBALNIP- 17 MODIS albedo Near-IR parallel radiation |
|---|
| 41 | ! NGRBALNID- 18 MODIS albedo Near-IR diffuse radiation |
|---|
| 42 | ! NGRBSPARC- 20 surface clear-sky PARadiation |
|---|
| 43 | |
|---|
| 44 | ! NGRBCVL - 27 Low vegetation cover |
|---|
| 45 | ! NGRBCVH - 28 High vegetation cover |
|---|
| 46 | ! NGRBTVL - 29 Low vegetation type |
|---|
| 47 | ! NGRBTVH - 30 High vegetation type |
|---|
| 48 | ! NGRBCI - 31 Sea ice cover |
|---|
| 49 | ! NGRBASN - 32 Snow albedo |
|---|
| 50 | ! NGRBRSN - 33 Snow density |
|---|
| 51 | ! NGRBSST - 34 Sea surface temperature |
|---|
| 52 | ! NGRBISTL1- 35 Ice surface temperature layer 1 |
|---|
| 53 | ! NGRBISTL2- 36 Ice surface temperature layer 2 |
|---|
| 54 | ! NGRBISTL3- 37 Ice surface temperature layer 3 |
|---|
| 55 | ! NGRBISTL4- 38 Ice surface temperature layer 4 |
|---|
| 56 | ! NGRBSWL1 - 39 Volumetric soil water content layer 1 |
|---|
| 57 | ! NGRBSWL2 - 40 Volumetric soil water content layer 2 |
|---|
| 58 | ! NGRBSWL3 - 41 Volumetric soil water content layer 3 |
|---|
| 59 | ! NGRBSWL4 - 42 Volumetric soil water content layer 4 |
|---|
| 60 | ! NGRBES - 44 Evaporation of snow |
|---|
| 61 | ! NGRBSMLT - 45 Snow melt |
|---|
| 62 | ! NGRB10FG - 49 gust at 10 m level |
|---|
| 63 | ! NGRBLSPF - 50 large scale precipitation fraction |
|---|
| 64 | |
|---|
| 65 | ! NGRBMONT - 053 Montgomery Geopotential |
|---|
| 66 | ! NGRBPTHPV- 054 Pressure on Theta and PV surfaces |
|---|
| 67 | |
|---|
| 68 | ! NGRBSPAR - 57 surface PARadiation |
|---|
| 69 | ! NGRBSUVB - 58 surface UV-B radiation |
|---|
| 70 | ! NGRBCAPE - 59 convect.avail.potential energy |
|---|
| 71 | ! NGRBPV - 60 Potential Vorticity |
|---|
| 72 | |
|---|
| 73 | ! NGRBSDFOR - 74 standard deviation of a filtered orography |
|---|
| 74 | ! NGRBSF6 - 210185 SF6 - anthropogenic emissions |
|---|
| 75 | |
|---|
| 76 | ! NGRBTCLW - 78 Total column liquid water |
|---|
| 77 | ! NGRBTCIW - 79 Total column ice water |
|---|
| 78 | ! NGRBSPD - 80 !! 80 and 81 extra grib code introduced to |
|---|
| 79 | ! NGRBSVD - 81 !! introduce extra fields for NH |
|---|
| 80 | |
|---|
| 81 | ! NGRB082 to NGRB117 reserved for extra fields. Do not use for permanent post-processed fields |
|---|
| 82 | |
|---|
| 83 | ! NGRBTCTRAC(JPTRAC) - 210184 Total column TRAC2: Sulfure hexaFluoride |
|---|
| 84 | ! - 210183 Total column TRAC1: Radon |
|---|
| 85 | |
|---|
| 86 | ! Codes for 2D and 3D extra fields |
|---|
| 87 | ! NGRBMINXTRA to NGRBMAXXTRA |
|---|
| 88 | |
|---|
| 89 | ! NGRBEMIS - 124 Surface Longwave emissivity # has replaced NGRB212 |
|---|
| 90 | |
|---|
| 91 | ! NGRBAT - 127 Atmospheric tide |
|---|
| 92 | ! NGRBBV - 128 Budget values |
|---|
| 93 | ! NGRBZ - 129 Geopotential (at the surface orography) |
|---|
| 94 | ! NGRBT - 130 Temperature |
|---|
| 95 | ! NGRBU - 131 U-velocity |
|---|
| 96 | ! NGRBV - 132 V-velocity |
|---|
| 97 | ! NGRBQ - 133 Specific humidity |
|---|
| 98 | ! NGRBSP - 134 Surface pressure |
|---|
| 99 | ! NGRBW - 135 Vertical velocity |
|---|
| 100 | ! NGRBTCW - 136 Total column water |
|---|
| 101 | ! NGRBTCWV - 137 Total column water vapour |
|---|
| 102 | ! NGRBVO - 138 Vorticity (relative) |
|---|
| 103 | ! NGRBSTL1 - 139 Surface temperature level 1 |
|---|
| 104 | ! NGRBSD - 141 Snow depth |
|---|
| 105 | ! NGRBLSP - 142 Large scale precipitation |
|---|
| 106 | ! NGRBCP - 143 Convective precipitation |
|---|
| 107 | ! NGRBSF - 144 Snow fall |
|---|
| 108 | ! NGRBBLD - 145 Boundary layer dissipation |
|---|
| 109 | ! NGRBSSHF - 146 Surface sensible heat flux |
|---|
| 110 | ! NGRBSLHF - 147 Surface latent heat flux |
|---|
| 111 | ! NGRBCHAR - 148 Charnock parameter |
|---|
| 112 | ! NGRB149 - 149 Not used |
|---|
| 113 | ! NGRB150 - 150 Not used |
|---|
| 114 | ! NGRBMSL - 151 Mean sea level pressure |
|---|
| 115 | ! NGRBLNSP - 152 Log surface pressure |
|---|
| 116 | ! NGRB153 - 153 Not used |
|---|
| 117 | ! NGRB154 - 154 Not used |
|---|
| 118 | ! NGRBD - 155 Divergence |
|---|
| 119 | ! NGRBGH - 156 Height (geopotential) |
|---|
| 120 | ! NGRBR - 157 Relative humidity |
|---|
| 121 | ! NGRBTSP - 158 Tendency of surface pressure |
|---|
| 122 | ! NGRBBLH - 159 Boundary layer height |
|---|
| 123 | ! NGRBSDOR - 160 Standard deviation of orography |
|---|
| 124 | ! NGRBISOR - 161 Anisotropy of subgrid scale orography |
|---|
| 125 | ! NGRBANOR - 162 Angle of subgrid scale orography |
|---|
| 126 | ! NGRBSLOR - 163 Slope of subgrid scale orography |
|---|
| 127 | ! NGRBTCC - 164 Total cloud cover |
|---|
| 128 | ! NGRB10U - 165 10 metre u wind |
|---|
| 129 | ! NGRB10V - 166 10 metre v wind |
|---|
| 130 | ! NGRB2T - 167 2 metre temperature |
|---|
| 131 | ! NGRB2D - 168 2 metre dewpoint temperature |
|---|
| 132 | ! NGRBSSRD - 169 Surface solar radiation downwards |
|---|
| 133 | ! NGRBSTL2 - 170 Soil temperature level 2 |
|---|
| 134 | ! NGRBLSM - 172 Land/sea mask |
|---|
| 135 | ! NGRBSR - 173 Surface roughness |
|---|
| 136 | ! NGRBAL - 174 Albedo |
|---|
| 137 | ! NGRBSTRD - 175 Surface thermal radiation downwards |
|---|
| 138 | ! NGRBSSR - 176 Surface solar radiation |
|---|
| 139 | ! NGRBSTR - 177 Surface thermal radiation |
|---|
| 140 | ! NGRBTSR - 178 Top solar radiation |
|---|
| 141 | ! NGRBTTR - 179 Top thermal radiation |
|---|
| 142 | ! NGRBEWSS - 180 U-stress |
|---|
| 143 | ! NGRBNSSS - 181 V-stress |
|---|
| 144 | ! NGRBE - 182 Evaporation |
|---|
| 145 | ! NGRBSTL3 - 183 Soil temperature level 3 |
|---|
| 146 | ! NGRBCCC - 185 Convective cloud cocer |
|---|
| 147 | ! NGRBLCC - 186 Low cloud cover |
|---|
| 148 | ! NGRBMCC - 187 Medium cloud cover |
|---|
| 149 | ! NGRBHCC - 188 High cloud cover |
|---|
| 150 | ! NGRBSUND - 189 Sunshine duration |
|---|
| 151 | ! NGRBEWOV - 190 EW component of sub-grid scale orographic variance |
|---|
| 152 | ! NGRBNSOV - 191 NS component of sub-grid scale orographic variance |
|---|
| 153 | ! NGRBNWOV - 192 NWSE component of sub-grid scale orographic variance |
|---|
| 154 | ! NGRBNEOV - 193 NESW component of sub-grid scale orographic variance |
|---|
| 155 | ! NGRBTBT - 194 Brightness temperature (K) |
|---|
| 156 | ! NGRBLGWS - 195 Latitudinal component of gravity wave stress |
|---|
| 157 | ! NGRBMGWS - 196 Meridional component of gravity wave stress |
|---|
| 158 | ! NGRBGWD - 197 Gravity wave dissipation |
|---|
| 159 | ! NGRBSRC - 198 Skin reservoir content |
|---|
| 160 | ! NGRBVEG - 199 Percentage of vegetation |
|---|
| 161 | ! NGRBVSO - 200 variance of sub-grid scale orogrophy |
|---|
| 162 | ! NGRBMX2T - 201 Maximum temperature at 2m since last post-processing |
|---|
| 163 | ! NGRBMN2T - 202 Minimum temperature at 2m since last post-processing |
|---|
| 164 | ! NGRBO3 - 203 Ozone mixing ratio (EC prognostic ozone) |
|---|
| 165 | ! NGRBPAW - 204 Precipitation analysis weights |
|---|
| 166 | ! NGRBRO - 205 Runoff |
|---|
| 167 | ! NGRBTCO3 - 206 Total column ozone |
|---|
| 168 | ! NGRB207 - 207 Not used |
|---|
| 169 | ! NGRBTSRC - 208 Top solar radiation clear sky |
|---|
| 170 | ! NGRBTTRC - 209 Top thermal radiation clear sky |
|---|
| 171 | ! NGRBSSRC - 210 Surface solar radiation clear sky |
|---|
| 172 | ! NGRBSTRC - 211 Surface thermal radiation clear sky |
|---|
| 173 | |
|---|
| 174 | ! NGRBSTINC- 212 TOA incident solar radiation |
|---|
| 175 | |
|---|
| 176 | !-- bunch of codes, confusing in their use ... |
|---|
| 177 | ! NGRB214 - 214 PROFPROP.RMAX.EA |
|---|
| 178 | ! NGRB215 - 215 SURFPROP.RMAX.EA |
|---|
| 179 | ! NGRB216 - 216 RELAPROP.RMAX.EA |
|---|
| 180 | ! NGRB217 - 217 PROFRESERV.EAU |
|---|
| 181 | ! NGRB218 - 218 INTSURFTEMPERATU |
|---|
| 182 | ! NGRB219 - 219 PROFTEMPERATURE |
|---|
| 183 | |
|---|
| 184 | ! NGRB221 - 221 Not used |
|---|
| 185 | ! NGRB222 - 222 Not used |
|---|
| 186 | ! NGRB223 - 223 Not used |
|---|
| 187 | ! NGRB224 - 224 used in suafn1 |
|---|
| 188 | ! NGRB225 - 225 used in suafn1 |
|---|
| 189 | ! NGRB226 - 226 Not used |
|---|
| 190 | ! NGRB227 - 227 used in suafn1 |
|---|
| 191 | ! NGRBTP - 228 Total precipitation |
|---|
| 192 | ! NGRBIEWS - 229 Intantaneous X-surface stress |
|---|
| 193 | ! NGRBINSS - 230 Intantaneous Y-surface stress |
|---|
| 194 | ! NGRBISHF - 231 Intantaneous surface heat flux |
|---|
| 195 | ! NGRBIE - 232 Intantaneous moisture flux (evaporation) |
|---|
| 196 | ! NGRBLSRH - 234 Logarithm of surface roughness length for heat |
|---|
| 197 | ! NGRBSKT - 235 Skin temperature |
|---|
| 198 | ! NGRBSTL4 - 236 Soil temperature level 4 |
|---|
| 199 | ! NGRBTSN - 238 Temperature of snow layer |
|---|
| 200 | ! NGRBCSF - 239 Convective snow-fall |
|---|
| 201 | ! NGRBLSF - 240 Large scale snow-fall |
|---|
| 202 | ! NGRB241 - 241 Not used |
|---|
| 203 | ! NGRB242 - 242 Not used |
|---|
| 204 | ! NGRBFAL - 243 Forecast albedo |
|---|
| 205 | ! NGRBFSR - 244 Forecast surface roughness |
|---|
| 206 | ! NGRBFLSR - 245 Forecast logarithm of surface roughness for heat |
|---|
| 207 | ! NGRBCLWC - 246 Cloud liquid water content |
|---|
| 208 | ! NGRBCIWC - 247 Cloud ice water content |
|---|
| 209 | ! NGRBCC - 248 Cloud cover |
|---|
| 210 | |
|---|
| 211 | |
|---|
| 212 | |
|---|
| 213 | !-- aerosols in Table 210 ------------------------- |
|---|
| 214 | ! NGRBAERMR01 - 001 aerosol mixing ratio 1 |
|---|
| 215 | ! NGRBAERMR02 - 002 aerosol mixing ratio 2 |
|---|
| 216 | ! NGRBAERMR03 - 003 aerosol mixing ratio 3 |
|---|
| 217 | ! NGRBAERMR04 - 004 aerosol mixing ratio 4 |
|---|
| 218 | ! NGRBAERMR05 - 005 aerosol mixing ratio 5 |
|---|
| 219 | ! NGRBAERMR06 - 006 aerosol mixing ratio 6 |
|---|
| 220 | ! NGRBAERMR07 - 007 aerosol mixing ratio 7 |
|---|
| 221 | ! NGRBAERMR08 - 008 aerosol mixing ratio 8 |
|---|
| 222 | ! NGRBAERMR09 - 009 aerosol mixing ratio 9 |
|---|
| 223 | ! NGRBAERMR10 - 010 aerosol mixing ratio 10 |
|---|
| 224 | ! NGRBAERMR11 - 011 aerosol mixing ratio 11 |
|---|
| 225 | ! NGRBAERMR12 - 012 aerosol mixing ratio 12 |
|---|
| 226 | ! NGRBAERMR13 - 013 aerosol mixing ratio 13 |
|---|
| 227 | ! NGRBAERMR14 - 014 aerosol mixing ratio 14 |
|---|
| 228 | ! NGRBAERMR15 - 015 aerosol mixing ratio 15 |
|---|
| 229 | ! NGRBAERGN01 - 016 aerosol gain acc. 1 2D |
|---|
| 230 | ! NGRBAERGN02 - 017 aerosol gain acc. 2 2D |
|---|
| 231 | ! NGRBAERGN03 - 018 aerosol gain acc. 3 2D |
|---|
| 232 | ! NGRBAERGN04 - 019 aerosol gain acc. 4 2D |
|---|
| 233 | ! NGRBAERGN05 - 020 aerosol gain acc. 5 2D |
|---|
| 234 | ! NGRBAERGN06 - 021 aerosol gain acc. 6 2D |
|---|
| 235 | ! NGRBAERGN07 - 022 aerosol gain acc. 7 2D |
|---|
| 236 | ! NGRBAERGN08 - 023 aerosol gain acc. 8 2D |
|---|
| 237 | ! NGRBAERGN09 - 024 aerosol gain acc. 9 2D |
|---|
| 238 | ! NGRBAERGN10 - 025 aerosol gain acc. 10 2D |
|---|
| 239 | ! NGRBAERGN11 - 026 aerosol gain acc. 11 2D |
|---|
| 240 | ! NGRBAERGN12 - 027 aerosol gain acc. 12 2D |
|---|
| 241 | ! NGRBAERGN13 - 028 aerosol gain acc. 13 2D |
|---|
| 242 | ! NGRBAERGN14 - 029 aerosol gain acc. 14 2D |
|---|
| 243 | ! NGRBAERGN15 - 030 aerosol gain acc. 15 2D |
|---|
| 244 | ! NGRBAERLS01 - 031 aerosol loss acc. 1 2D |
|---|
| 245 | ! NGRBAERLS02 - 032 aerosol loss acc. 2 2D |
|---|
| 246 | ! NGRBAERLS03 - 033 aerosol loss acc. 3 2D |
|---|
| 247 | ! NGRBAERLS04 - 034 aerosol loss acc. 4 2D |
|---|
| 248 | ! NGRBAERLS05 - 035 aerosol loss acc. 5 2D |
|---|
| 249 | ! NGRBAERLS06 - 036 aerosol loss acc. 6 2D |
|---|
| 250 | ! NGRBAERLS07 - 037 aerosol loss acc. 7 2D |
|---|
| 251 | ! NGRBAERLS08 - 038 aerosol loss acc. 8 2D |
|---|
| 252 | ! NGRBAERLS09 - 039 aerosol loss acc. 9 2D |
|---|
| 253 | ! NGRBAERLS10 - 040 aerosol loss acc. 10 2D |
|---|
| 254 | ! NGRBAERLS11 - 041 aerosol loss acc. 11 2D |
|---|
| 255 | ! NGRBAERLS12 - 042 aerosol loss acc. 12 2D |
|---|
| 256 | ! NGRBAERLS13 - 043 aerosol loss acc. 13 2D |
|---|
| 257 | ! NGRBAERLS14 - 044 aerosol loss acc. 14 2D |
|---|
| 258 | ! NGRBAERLS15 - 045 aerosol loss acc. 15 2D |
|---|
| 259 | ! NGRBAERPR - 046 aerosol precursor mixing ratio |
|---|
| 260 | ! NGRBAERSM - 047 small aerosols mixing ratio |
|---|
| 261 | ! NGRBAERLG - 048 large aerosols mixing ratio |
|---|
| 262 | ! NGRBAODPR - 049 aerosol precursor opt.depth 2D |
|---|
| 263 | ! NGRBAODSM - 050 small aerosols opt. depth 2D |
|---|
| 264 | ! NGRBAODLG - 051 large aerosols opt. depth 2D |
|---|
| 265 | ! NGRBAERDEP - 052 dust emission potential clim2D |
|---|
| 266 | ! NGRBAERLTS - 053 lifting threshold speed clim2D |
|---|
| 267 | ! NGRBAERSCC - 054 soli clay content clim2D |
|---|
| 268 | |
|---|
| 269 | !--------------------------------------------------- |
|---|
| 270 | |
|---|
| 271 | ! NGRBGHG(JPGHG) - 210061 GHG1: Carbon dioxide |
|---|
| 272 | ! - 210062 GHG2: Methane |
|---|
| 273 | ! - 210063 GHG3: Nitrous oxide |
|---|
| 274 | ! NGRBTCGHG(JPGHG) - 210064 Total column GHG1: Carbon Dioxide |
|---|
| 275 | ! - 210065 Total column GHG2: Methane |
|---|
| 276 | ! - 210066 Total column GHG3: Nitrous Oxide |
|---|
| 277 | |
|---|
| 278 | !--------------------------------------------------- |
|---|
| 279 | ! NGRBCO2O - 210067 CO2 - ocean flux |
|---|
| 280 | ! NGRBCO2B - 210068 CO2 - biosphere flux |
|---|
| 281 | ! NGRBCO2A - 210069 CO2 - anthropogenic emissions |
|---|
| 282 | |
|---|
| 283 | !--------------------------------------------------- |
|---|
| 284 | ! NGRBGRG(JPGRG) - 210121 GRG1: Nitrogen dioxide |
|---|
| 285 | ! - 210122 GRG2: Sulphur dioxide |
|---|
| 286 | ! - 210123 GRG3: Carbon monoxide |
|---|
| 287 | ! - 210124 GRG4: Formaldehyde |
|---|
| 288 | |
|---|
| 289 | ! NGRBTCGRG(JPGRG) - 210125 Total column GRG1: Nitrogen dioxide |
|---|
| 290 | ! - 210126 Total column GRG2: Sulphur dioxide |
|---|
| 291 | ! - 210127 Total column GRG3: Carbon monoxide |
|---|
| 292 | ! - 210128 Total column GRG4: Formaldehyde |
|---|
| 293 | |
|---|
| 294 | ! - 210203 GRG5: Ozone |
|---|
| 295 | ! - 210206 Total column GRG5: GEMS Ozone |
|---|
| 296 | |
|---|
| 297 | ! NGRBTRAC(JPTRAC) - 210182 TRAC2: SF6 |
|---|
| 298 | ! - 210181 TRAC1: Radon |
|---|
| 299 | |
|---|
| 300 | |
|---|
| 301 | ! NGRBSP2, NGRBSP3 - Grib codes for fields in SPA2 and SPA3 |
|---|
| 302 | ! NGRBGP2, NGRBGP3 - Grib codes for grid point fields |
|---|
| 303 | |
|---|
| 304 | INTEGER(KIND=JPIM), PARAMETER :: JPN3SP=10 |
|---|
| 305 | INTEGER(KIND=JPIM), PARAMETER :: JPN2SP=4 |
|---|
| 306 | |
|---|
| 307 | INTEGER(KIND=JPIM) :: NSEC0(2) |
|---|
| 308 | INTEGER(KIND=JPIM) :: NSEC1(2048) |
|---|
| 309 | INTEGER(KIND=JPIM) :: NSEC2SPP(22) |
|---|
| 310 | INTEGER(KIND=JPIM) :: NSEC2SPM(22) |
|---|
| 311 | INTEGER(KIND=JPIM) :: NSEC3(2) |
|---|
| 312 | INTEGER(KIND=JPIM) :: NSEC4(42) |
|---|
| 313 | INTEGER(KIND=JPIM) :: NGRBS3(0:JPN3SP) |
|---|
| 314 | INTEGER(KIND=JPIM) :: NGRBS2(0:JPN2SP) |
|---|
| 315 | INTEGER(KIND=JPIM) :: NSTEPLPP(255) |
|---|
| 316 | REAL(KIND=JPRB) :: RSEC3(2) |
|---|
| 317 | |
|---|
| 318 | INTEGER(KIND=JPIM),ALLOCATABLE:: NSEC2GG(:) |
|---|
| 319 | REAL(KIND=JPRB),ALLOCATABLE:: RSEC2(:) |
|---|
| 320 | |
|---|
| 321 | INTEGER(KIND=JPIM) :: MSEC0(2) |
|---|
| 322 | INTEGER(KIND=JPIM) :: MSEC1(2048) |
|---|
| 323 | INTEGER(KIND=JPIM) :: MSEC2SPP(22) |
|---|
| 324 | INTEGER(KIND=JPIM) :: MSEC2SPM(22) |
|---|
| 325 | INTEGER(KIND=JPIM) :: MSEC3(2) |
|---|
| 326 | INTEGER(KIND=JPIM) :: MSEC4(42) |
|---|
| 327 | INTEGER(KIND=JPIM) :: MGRBS3(0:JPN3SP) |
|---|
| 328 | INTEGER(KIND=JPIM) :: MGRBS2(0:JPN2SP) |
|---|
| 329 | REAL(KIND=JPRB) :: SSEC3(2) |
|---|
| 330 | |
|---|
| 331 | INTEGER(KIND=JPIM),ALLOCATABLE:: MSEC2GG(:) |
|---|
| 332 | REAL(KIND=JPRB),ALLOCATABLE:: SSEC2(:) |
|---|
| 333 | |
|---|
| 334 | INTEGER(KIND=JPIM), ALLOCATABLE :: NGRBSP2(:), NGRBSP3(:) |
|---|
| 335 | INTEGER(KIND=JPIM), ALLOCATABLE :: NGRBGP2(:), NGRBGP3(:) |
|---|
| 336 | |
|---|
| 337 | INTEGER(KIND=JPIM) :: NLOCGRB |
|---|
| 338 | INTEGER(KIND=JPIM) :: NTOTENS |
|---|
| 339 | INTEGER(KIND=JPIM) :: NENSFNB |
|---|
| 340 | INTEGER(KIND=JPIM) :: NCALVAL |
|---|
| 341 | INTEGER(KIND=JPIM) :: NSTREAM |
|---|
| 342 | INTEGER(KIND=JPIM) :: NSYSTEM |
|---|
| 343 | INTEGER(KIND=JPIM) :: NMETHOD |
|---|
| 344 | INTEGER(KIND=JPIM) :: NREFERENCE |
|---|
| 345 | INTEGER(KIND=JPIM) :: NCONSENSUS |
|---|
| 346 | INTEGER(KIND=JPIM) :: NDWD |
|---|
| 347 | INTEGER(KIND=JPIM) :: NMFR |
|---|
| 348 | INTEGER(KIND=JPIM) :: NNCEP |
|---|
| 349 | INTEGER(KIND=JPIM) :: NUKM |
|---|
| 350 | INTEGER(KIND=JPIM) :: NSMAXNP |
|---|
| 351 | INTEGER(KIND=JPIM) :: NBITSSH |
|---|
| 352 | INTEGER(KIND=JPIM) :: NBITSGG |
|---|
| 353 | INTEGER(KIND=JPIM) :: NJDIAG |
|---|
| 354 | INTEGER(KIND=JPIM) :: NJDOMAI |
|---|
| 355 | INTEGER(KIND=JPIM) :: NJITER |
|---|
| 356 | INTEGER(KIND=JPIM) :: MLOCGRB |
|---|
| 357 | INTEGER(KIND=JPIM) :: MTOTENS |
|---|
| 358 | INTEGER(KIND=JPIM) :: MENSFNB |
|---|
| 359 | INTEGER(KIND=JPIM) :: MSMAXNP |
|---|
| 360 | INTEGER(KIND=JPIM) :: MBITSSH |
|---|
| 361 | INTEGER(KIND=JPIM) :: MBITSGG |
|---|
| 362 | INTEGER(KIND=JPIM) :: MJDIAG |
|---|
| 363 | INTEGER(KIND=JPIM) :: MJDOMAI |
|---|
| 364 | INTEGER(KIND=JPIM) :: MJITER |
|---|
| 365 | |
|---|
| 366 | INTEGER(KIND=JPIM) :: NLEG |
|---|
| 367 | |
|---|
| 368 | INTEGER(KIND=JPIM) :: NGRBTH = 3 |
|---|
| 369 | INTEGER(KIND=JPIM) :: NGRBALUVP= 15 |
|---|
| 370 | INTEGER(KIND=JPIM) :: NGRBALUVD= 16 |
|---|
| 371 | INTEGER(KIND=JPIM) :: NGRBALNIP= 17 |
|---|
| 372 | INTEGER(KIND=JPIM) :: NGRBALNID= 18 |
|---|
| 373 | INTEGER(KIND=JPIM) :: NGRBSPARC= 20 |
|---|
| 374 | INTEGER(KIND=JPIM) :: NGRB21 = 21 |
|---|
| 375 | INTEGER(KIND=JPIM) :: NGRB22 = 22 |
|---|
| 376 | INTEGER(KIND=JPIM) :: NGRB23 = 23 |
|---|
| 377 | INTEGER(KIND=JPIM) :: NGRBCVL = 27 |
|---|
| 378 | INTEGER(KIND=JPIM) :: NGRBCVH = 28 |
|---|
| 379 | INTEGER(KIND=JPIM) :: NGRBTVL = 29 |
|---|
| 380 | INTEGER(KIND=JPIM) :: NGRBTVH = 30 |
|---|
| 381 | INTEGER(KIND=JPIM) :: NGRBCI = 31 |
|---|
| 382 | INTEGER(KIND=JPIM) :: NGRBASN = 32 |
|---|
| 383 | INTEGER(KIND=JPIM) :: NGRBRSN = 33 |
|---|
| 384 | INTEGER(KIND=JPIM) :: NGRBSST = 34 |
|---|
| 385 | INTEGER(KIND=JPIM) :: NGRBISTL1= 35 |
|---|
| 386 | INTEGER(KIND=JPIM) :: NGRBISTL2= 36 |
|---|
| 387 | INTEGER(KIND=JPIM) :: NGRBISTL3= 37 |
|---|
| 388 | INTEGER(KIND=JPIM) :: NGRBISTL4= 38 |
|---|
| 389 | INTEGER(KIND=JPIM) :: NGRBSWL1 = 39 |
|---|
| 390 | INTEGER(KIND=JPIM) :: NGRBSWL2 = 40 |
|---|
| 391 | INTEGER(KIND=JPIM) :: NGRBSWL3 = 41 |
|---|
| 392 | INTEGER(KIND=JPIM) :: NGRBSWL4 = 42 |
|---|
| 393 | INTEGER(KIND=JPIM) :: NGRBES = 44 |
|---|
| 394 | INTEGER(KIND=JPIM) :: NGRBSMLT = 45 |
|---|
| 395 | INTEGER(KIND=JPIM) :: NGRB10FG = 49 |
|---|
| 396 | INTEGER(KIND=JPIM) :: NGRBLSPF = 50 |
|---|
| 397 | |
|---|
| 398 | INTEGER(KIND=JPIM) :: NGRBMONT = 53 |
|---|
| 399 | INTEGER(KIND=JPIM) :: NGRBPTHPV= 54 |
|---|
| 400 | |
|---|
| 401 | INTEGER(KIND=JPIM) :: NGRBSPAR = 57 |
|---|
| 402 | INTEGER(KIND=JPIM) :: NGRBSUVB = 58 |
|---|
| 403 | INTEGER(KIND=JPIM) :: NGRBCAPE = 59 |
|---|
| 404 | INTEGER(KIND=JPIM) :: NGRBPV = 60 |
|---|
| 405 | |
|---|
| 406 | INTEGER(KIND=JPIM) :: NGRBSDFOR= 74 |
|---|
| 407 | INTEGER(KIND=JPIM) :: NGRBTCLW = 78 |
|---|
| 408 | INTEGER(KIND=JPIM) :: NGRBTCIW = 79 |
|---|
| 409 | ! LARPEGE |
|---|
| 410 | INTEGER(KIND=JPIM) :: NGRBSPD = 80 |
|---|
| 411 | INTEGER(KIND=JPIM) :: NGRBSVD = 81 |
|---|
| 412 | ! LECMWF |
|---|
| 413 | INTEGER(KIND=JPIM) :: NGRB080 = 80 |
|---|
| 414 | INTEGER(KIND=JPIM) :: NGRB081 = 81 |
|---|
| 415 | |
|---|
| 416 | INTEGER(KIND=JPIM) :: NGRBSF6 = 210185 |
|---|
| 417 | INTEGER(KIND=JPIM) :: NGRBMINXTRA = 082 |
|---|
| 418 | INTEGER(KIND=JPIM) :: NGRBMAXXTRA = 117 |
|---|
| 419 | |
|---|
| 420 | INTEGER(KIND=JPIM) :: NGRB082 = 082 |
|---|
| 421 | INTEGER(KIND=JPIM) :: NGRB083 = 083 |
|---|
| 422 | INTEGER(KIND=JPIM) :: NGRB084 = 084 |
|---|
| 423 | INTEGER(KIND=JPIM) :: NGRB085 = 085 |
|---|
| 424 | INTEGER(KIND=JPIM) :: NGRB086 = 086 |
|---|
| 425 | INTEGER(KIND=JPIM) :: NGRB087 = 087 |
|---|
| 426 | INTEGER(KIND=JPIM) :: NGRB088 = 088 |
|---|
| 427 | INTEGER(KIND=JPIM) :: NGRB089 = 089 |
|---|
| 428 | INTEGER(KIND=JPIM) :: NGRB090 = 090 |
|---|
| 429 | INTEGER(KIND=JPIM) :: NGRB091 = 091 |
|---|
| 430 | INTEGER(KIND=JPIM) :: NGRB092 = 092 |
|---|
| 431 | INTEGER(KIND=JPIM) :: NGRB093 = 093 |
|---|
| 432 | INTEGER(KIND=JPIM) :: NGRB094 = 094 |
|---|
| 433 | INTEGER(KIND=JPIM) :: NGRB095 = 095 |
|---|
| 434 | INTEGER(KIND=JPIM) :: NGRB096 = 096 |
|---|
| 435 | INTEGER(KIND=JPIM) :: NGRB097 = 097 |
|---|
| 436 | INTEGER(KIND=JPIM) :: NGRB098 = 098 |
|---|
| 437 | INTEGER(KIND=JPIM) :: NGRB099 = 099 |
|---|
| 438 | INTEGER(KIND=JPIM) :: NGRB100 = 100 |
|---|
| 439 | INTEGER(KIND=JPIM) :: NGRB101 = 101 |
|---|
| 440 | INTEGER(KIND=JPIM) :: NGRB102 = 102 |
|---|
| 441 | INTEGER(KIND=JPIM) :: NGRB103 = 103 |
|---|
| 442 | INTEGER(KIND=JPIM) :: NGRB104 = 104 |
|---|
| 443 | INTEGER(KIND=JPIM) :: NGRB105 = 105 |
|---|
| 444 | INTEGER(KIND=JPIM) :: NGRB106 = 106 |
|---|
| 445 | INTEGER(KIND=JPIM) :: NGRB107 = 107 |
|---|
| 446 | INTEGER(KIND=JPIM) :: NGRB108 = 108 |
|---|
| 447 | INTEGER(KIND=JPIM) :: NGRB109 = 109 |
|---|
| 448 | INTEGER(KIND=JPIM) :: NGRB110 = 110 |
|---|
| 449 | INTEGER(KIND=JPIM) :: NGRB111 = 111 |
|---|
| 450 | INTEGER(KIND=JPIM) :: NGRB112 = 112 |
|---|
| 451 | INTEGER(KIND=JPIM) :: NGRB113 = 113 |
|---|
| 452 | INTEGER(KIND=JPIM) :: NGRB114 = 114 |
|---|
| 453 | INTEGER(KIND=JPIM) :: NGRB115 = 115 |
|---|
| 454 | INTEGER(KIND=JPIM) :: NGRB116 = 116 |
|---|
| 455 | INTEGER(KIND=JPIM) :: NGRB117 = 117 |
|---|
| 456 | |
|---|
| 457 | INTEGER(KIND=JPIM) :: NGRB118 = 118 |
|---|
| 458 | INTEGER(KIND=JPIM) :: NGRB119 = 119 |
|---|
| 459 | INTEGER(KIND=JPIM) :: NGRB120 = 120 |
|---|
| 460 | |
|---|
| 461 | INTEGER(KIND=JPIM) :: NGRBEMIS = 124 |
|---|
| 462 | |
|---|
| 463 | INTEGER(KIND=JPIM) :: NGRBAT = 127 |
|---|
| 464 | INTEGER(KIND=JPIM) :: NGRBBV = 128 |
|---|
| 465 | INTEGER(KIND=JPIM) :: NGRBZ = 129 |
|---|
| 466 | INTEGER(KIND=JPIM) :: NGRBT = 130 |
|---|
| 467 | INTEGER(KIND=JPIM) :: NGRBU = 131 |
|---|
| 468 | INTEGER(KIND=JPIM) :: NGRBV = 132 |
|---|
| 469 | INTEGER(KIND=JPIM) :: NGRBQ = 133 |
|---|
| 470 | INTEGER(KIND=JPIM) :: NGRBSP = 134 |
|---|
| 471 | INTEGER(KIND=JPIM) :: NGRBW = 135 |
|---|
| 472 | INTEGER(KIND=JPIM) :: NGRBTCW = 136 |
|---|
| 473 | INTEGER(KIND=JPIM) :: NGRBTCWV = 137 |
|---|
| 474 | INTEGER(KIND=JPIM) :: NGRBVO = 138 |
|---|
| 475 | INTEGER(KIND=JPIM) :: NGRBSTL1 = 139 |
|---|
| 476 | INTEGER(KIND=JPIM) :: NGRBSD = 141 |
|---|
| 477 | INTEGER(KIND=JPIM) :: NGRBLSP = 142 |
|---|
| 478 | INTEGER(KIND=JPIM) :: NGRBCP = 143 |
|---|
| 479 | INTEGER(KIND=JPIM) :: NGRBSF = 144 |
|---|
| 480 | INTEGER(KIND=JPIM) :: NGRBBLD = 145 |
|---|
| 481 | INTEGER(KIND=JPIM) :: NGRBSSHF = 146 |
|---|
| 482 | INTEGER(KIND=JPIM) :: NGRBSLHF = 147 |
|---|
| 483 | INTEGER(KIND=JPIM) :: NGRBCHAR = 148 |
|---|
| 484 | INTEGER(KIND=JPIM) :: NGRB149 = 149 |
|---|
| 485 | INTEGER(KIND=JPIM) :: NGRB150 = 150 |
|---|
| 486 | INTEGER(KIND=JPIM) :: NGRBMSL = 151 |
|---|
| 487 | INTEGER(KIND=JPIM) :: NGRBLNSP = 152 |
|---|
| 488 | INTEGER(KIND=JPIM) :: NGRB153 = 153 |
|---|
| 489 | INTEGER(KIND=JPIM) :: NGRB154 = 154 |
|---|
| 490 | INTEGER(KIND=JPIM) :: NGRBD = 155 |
|---|
| 491 | INTEGER(KIND=JPIM) :: NGRBGH = 156 |
|---|
| 492 | INTEGER(KIND=JPIM) :: NGRBR = 157 |
|---|
| 493 | INTEGER(KIND=JPIM) :: NGRBTSP = 158 |
|---|
| 494 | INTEGER(KIND=JPIM) :: NGRBBLH = 159 |
|---|
| 495 | INTEGER(KIND=JPIM) :: NGRBSDOR = 160 |
|---|
| 496 | INTEGER(KIND=JPIM) :: NGRBISOR = 161 |
|---|
| 497 | INTEGER(KIND=JPIM) :: NGRBANOR = 162 |
|---|
| 498 | INTEGER(KIND=JPIM) :: NGRBSLOR = 163 |
|---|
| 499 | INTEGER(KIND=JPIM) :: NGRBTCC = 164 |
|---|
| 500 | INTEGER(KIND=JPIM) :: NGRB10U = 165 |
|---|
| 501 | INTEGER(KIND=JPIM) :: NGRB10V = 166 |
|---|
| 502 | INTEGER(KIND=JPIM) :: NGRB2T = 167 |
|---|
| 503 | INTEGER(KIND=JPIM) :: NGRB2D = 168 |
|---|
| 504 | INTEGER(KIND=JPIM) :: NGRBSSRD = 169 |
|---|
| 505 | INTEGER(KIND=JPIM) :: NGRBSTL2 = 170 |
|---|
| 506 | INTEGER(KIND=JPIM) :: NGRBLSM = 172 |
|---|
| 507 | INTEGER(KIND=JPIM) :: NGRBSR = 173 |
|---|
| 508 | INTEGER(KIND=JPIM) :: NGRBAL = 174 |
|---|
| 509 | INTEGER(KIND=JPIM) :: NGRBSTRD = 175 |
|---|
| 510 | INTEGER(KIND=JPIM) :: NGRBSSR = 176 |
|---|
| 511 | INTEGER(KIND=JPIM) :: NGRBSTR = 177 |
|---|
| 512 | INTEGER(KIND=JPIM) :: NGRBTSR = 178 |
|---|
| 513 | INTEGER(KIND=JPIM) :: NGRBTTR = 179 |
|---|
| 514 | INTEGER(KIND=JPIM) :: NGRBEWSS = 180 |
|---|
| 515 | INTEGER(KIND=JPIM) :: NGRBNSSS = 181 |
|---|
| 516 | INTEGER(KIND=JPIM) :: NGRBE = 182 |
|---|
| 517 | INTEGER(KIND=JPIM) :: NGRBSTL3 = 183 |
|---|
| 518 | INTEGER(KIND=JPIM) :: NGRBCCC = 185 |
|---|
| 519 | INTEGER(KIND=JPIM) :: NGRBLCC = 186 |
|---|
| 520 | INTEGER(KIND=JPIM) :: NGRBMCC = 187 |
|---|
| 521 | INTEGER(KIND=JPIM) :: NGRBHCC = 188 |
|---|
| 522 | INTEGER(KIND=JPIM) :: NGRBSUND = 189 |
|---|
| 523 | INTEGER(KIND=JPIM) :: NGRBEWOV = 190 |
|---|
| 524 | INTEGER(KIND=JPIM) :: NGRBNSOV = 191 |
|---|
| 525 | INTEGER(KIND=JPIM) :: NGRBNWOV = 192 |
|---|
| 526 | INTEGER(KIND=JPIM) :: NGRBNEOV = 193 |
|---|
| 527 | INTEGER(KIND=JPIM) :: NGRBTBT = 194 |
|---|
| 528 | INTEGER(KIND=JPIM) :: NGRBLGWS = 195 |
|---|
| 529 | INTEGER(KIND=JPIM) :: NGRBMGWS = 196 |
|---|
| 530 | INTEGER(KIND=JPIM) :: NGRBGWD = 197 |
|---|
| 531 | INTEGER(KIND=JPIM) :: NGRBSRC = 198 |
|---|
| 532 | INTEGER(KIND=JPIM) :: NGRBVEG = 199 |
|---|
| 533 | INTEGER(KIND=JPIM) :: NGRBVSO = 200 |
|---|
| 534 | INTEGER(KIND=JPIM) :: NGRBMX2T = 201 |
|---|
| 535 | INTEGER(KIND=JPIM) :: NGRBMN2T = 202 |
|---|
| 536 | INTEGER(KIND=JPIM) :: NGRBO3 = 203 |
|---|
| 537 | INTEGER(KIND=JPIM) :: NGRBPAW = 204 |
|---|
| 538 | INTEGER(KIND=JPIM) :: NGRBRO = 205 |
|---|
| 539 | INTEGER(KIND=JPIM) :: NGRBTCO3 = 206 |
|---|
| 540 | INTEGER(KIND=JPIM) :: NGRB207 = 207 |
|---|
| 541 | INTEGER(KIND=JPIM) :: NGRBTSRC = 208 |
|---|
| 542 | INTEGER(KIND=JPIM) :: NGRBTTRC = 209 |
|---|
| 543 | INTEGER(KIND=JPIM) :: NGRBSSRC = 210 |
|---|
| 544 | INTEGER(KIND=JPIM) :: NGRBSTRC = 211 |
|---|
| 545 | |
|---|
| 546 | INTEGER(KIND=JPIM) :: NGRB214 = 214 |
|---|
| 547 | INTEGER(KIND=JPIM) :: NGRB215 = 215 |
|---|
| 548 | INTEGER(KIND=JPIM) :: NGRB216 = 216 |
|---|
| 549 | INTEGER(KIND=JPIM) :: NGRB217 = 217 |
|---|
| 550 | INTEGER(KIND=JPIM) :: NGRB218 = 218 |
|---|
| 551 | INTEGER(KIND=JPIM) :: NGRB219 = 219 |
|---|
| 552 | |
|---|
| 553 | INTEGER(KIND=JPIM) :: NGRBSTINC= 212 |
|---|
| 554 | INTEGER(KIND=JPIM) :: NGRBVIMD = 213 |
|---|
| 555 | |
|---|
| 556 | INTEGER(KIND=JPIM) :: NGRB222 = 222 |
|---|
| 557 | INTEGER(KIND=JPIM) :: NGRB223 = 223 |
|---|
| 558 | INTEGER(KIND=JPIM) :: NGRB224 = 224 |
|---|
| 559 | INTEGER(KIND=JPIM) :: NGRB225 = 225 |
|---|
| 560 | INTEGER(KIND=JPIM) :: NGRB226 = 226 |
|---|
| 561 | INTEGER(KIND=JPIM) :: NGRB227 = 227 |
|---|
| 562 | INTEGER(KIND=JPIM) :: NGRBTP = 228 |
|---|
| 563 | INTEGER(KIND=JPIM) :: NGRBIEWS = 229 |
|---|
| 564 | INTEGER(KIND=JPIM) :: NGRBINSS = 230 |
|---|
| 565 | INTEGER(KIND=JPIM) :: NGRBISHF = 231 |
|---|
| 566 | INTEGER(KIND=JPIM) :: NGRBIE = 232 |
|---|
| 567 | INTEGER(KIND=JPIM) :: NGRBLSRH = 234 |
|---|
| 568 | INTEGER(KIND=JPIM) :: NGRBSKT = 235 |
|---|
| 569 | INTEGER(KIND=JPIM) :: NGRBSTL4 = 236 |
|---|
| 570 | INTEGER(KIND=JPIM) :: NGRBTSN = 238 |
|---|
| 571 | INTEGER(KIND=JPIM) :: NGRBCSF = 239 |
|---|
| 572 | INTEGER(KIND=JPIM) :: NGRBLSF = 240 |
|---|
| 573 | INTEGER(KIND=JPIM) :: NGRB241 = 241 |
|---|
| 574 | INTEGER(KIND=JPIM) :: NGRB242 = 242 |
|---|
| 575 | INTEGER(KIND=JPIM) :: NGRBFAL = 243 |
|---|
| 576 | INTEGER(KIND=JPIM) :: NGRBFSR = 244 |
|---|
| 577 | INTEGER(KIND=JPIM) :: NGRBFLSR = 245 |
|---|
| 578 | INTEGER(KIND=JPIM) :: NGRBCLWC = 246 |
|---|
| 579 | INTEGER(KIND=JPIM) :: NGRBCIWC = 247 |
|---|
| 580 | INTEGER(KIND=JPIM) :: NGRBCC = 248 |
|---|
| 581 | INTEGER(KIND=JPIM) :: NGRB249 = 249 |
|---|
| 582 | INTEGER(KIND=JPIM) :: NGRB250 = 250 |
|---|
| 583 | INTEGER(KIND=JPIM) :: NGRB251 = 251 |
|---|
| 584 | INTEGER(KIND=JPIM) :: NGRB252 = 252 |
|---|
| 585 | INTEGER(KIND=JPIM) :: NGRB253 = 253 |
|---|
| 586 | INTEGER(KIND=JPIM) :: NGRB254 = 254 |
|---|
| 587 | INTEGER(KIND=JPIM) :: NGRB255 = 255 |
|---|
| 588 | |
|---|
| 589 | |
|---|
| 590 | !-- aerosols -- Table 210 -------------------------- |
|---|
| 591 | INTEGER(KIND=JPIM) :: NGRBAERMR01=210001 |
|---|
| 592 | INTEGER(KIND=JPIM) :: NGRBAERMR02=210002 |
|---|
| 593 | INTEGER(KIND=JPIM) :: NGRBAERMR03=210003 |
|---|
| 594 | INTEGER(KIND=JPIM) :: NGRBAERMR04=210004 |
|---|
| 595 | INTEGER(KIND=JPIM) :: NGRBAERMR05=210005 |
|---|
| 596 | INTEGER(KIND=JPIM) :: NGRBAERMR06=210006 |
|---|
| 597 | INTEGER(KIND=JPIM) :: NGRBAERMR07=210007 |
|---|
| 598 | INTEGER(KIND=JPIM) :: NGRBAERMR08=210008 |
|---|
| 599 | INTEGER(KIND=JPIM) :: NGRBAERMR09=210009 |
|---|
| 600 | INTEGER(KIND=JPIM) :: NGRBAERMR10=210010 |
|---|
| 601 | INTEGER(KIND=JPIM) :: NGRBAERMR11=210011 |
|---|
| 602 | INTEGER(KIND=JPIM) :: NGRBAERMR12=210012 |
|---|
| 603 | INTEGER(KIND=JPIM) :: NGRBAERMR13=210013 |
|---|
| 604 | INTEGER(KIND=JPIM) :: NGRBAERMR14=210014 |
|---|
| 605 | INTEGER(KIND=JPIM) :: NGRBAERMR15=210015 |
|---|
| 606 | |
|---|
| 607 | INTEGER(KIND=JPIM) :: NGRBAERGN01=210016 |
|---|
| 608 | INTEGER(KIND=JPIM) :: NGRBAERGN02=210017 |
|---|
| 609 | INTEGER(KIND=JPIM) :: NGRBAERGN03=210018 |
|---|
| 610 | INTEGER(KIND=JPIM) :: NGRBAERGN04=210019 |
|---|
| 611 | INTEGER(KIND=JPIM) :: NGRBAERGN05=210020 |
|---|
| 612 | INTEGER(KIND=JPIM) :: NGRBAERGN06=210021 |
|---|
| 613 | INTEGER(KIND=JPIM) :: NGRBAERGN07=210022 |
|---|
| 614 | INTEGER(KIND=JPIM) :: NGRBAERGN08=210023 |
|---|
| 615 | INTEGER(KIND=JPIM) :: NGRBAERGN09=210024 |
|---|
| 616 | INTEGER(KIND=JPIM) :: NGRBAERGN10=210025 |
|---|
| 617 | INTEGER(KIND=JPIM) :: NGRBAERGN11=210026 |
|---|
| 618 | INTEGER(KIND=JPIM) :: NGRBAERGN12=210027 |
|---|
| 619 | INTEGER(KIND=JPIM) :: NGRBAERGN13=210028 |
|---|
| 620 | INTEGER(KIND=JPIM) :: NGRBAERGN14=210029 |
|---|
| 621 | INTEGER(KIND=JPIM) :: NGRBAERGN15=210030 |
|---|
| 622 | |
|---|
| 623 | INTEGER(KIND=JPIM) :: NGRBAERLS01=210031 |
|---|
| 624 | INTEGER(KIND=JPIM) :: NGRBAERLS02=210032 |
|---|
| 625 | INTEGER(KIND=JPIM) :: NGRBAERLS03=210033 |
|---|
| 626 | INTEGER(KIND=JPIM) :: NGRBAERLS04=210034 |
|---|
| 627 | INTEGER(KIND=JPIM) :: NGRBAERLS05=210035 |
|---|
| 628 | INTEGER(KIND=JPIM) :: NGRBAERLS06=210036 |
|---|
| 629 | INTEGER(KIND=JPIM) :: NGRBAERLS07=210037 |
|---|
| 630 | INTEGER(KIND=JPIM) :: NGRBAERLS08=210038 |
|---|
| 631 | INTEGER(KIND=JPIM) :: NGRBAERLS09=210039 |
|---|
| 632 | INTEGER(KIND=JPIM) :: NGRBAERLS10=210040 |
|---|
| 633 | INTEGER(KIND=JPIM) :: NGRBAERLS11=210041 |
|---|
| 634 | INTEGER(KIND=JPIM) :: NGRBAERLS12=210042 |
|---|
| 635 | INTEGER(KIND=JPIM) :: NGRBAERLS13=210043 |
|---|
| 636 | INTEGER(KIND=JPIM) :: NGRBAERLS14=210044 |
|---|
| 637 | INTEGER(KIND=JPIM) :: NGRBAERLS15=210045 |
|---|
| 638 | |
|---|
| 639 | INTEGER(KIND=JPIM) :: NGRBAERPR =210046 |
|---|
| 640 | INTEGER(KIND=JPIM) :: NGRBAERSM =210047 |
|---|
| 641 | INTEGER(KIND=JPIM) :: NGRBAERLG =210048 |
|---|
| 642 | INTEGER(KIND=JPIM) :: NGRBAODPR =210049 |
|---|
| 643 | INTEGER(KIND=JPIM) :: NGRBAODSM =210050 |
|---|
| 644 | INTEGER(KIND=JPIM) :: NGRBAODLG =210051 |
|---|
| 645 | INTEGER(KIND=JPIM) :: NGRBAERDEP =210052 |
|---|
| 646 | INTEGER(KIND=JPIM) :: NGRBAERLTS =210053 |
|---|
| 647 | INTEGER(KIND=JPIM) :: NGRBAERSCC =210054 |
|---|
| 648 | !--------------------------------------------------- |
|---|
| 649 | INTEGER(KIND=JPIM) :: NGRBCO2O = 210067 |
|---|
| 650 | INTEGER(KIND=JPIM) :: NGRBCO2B = 210068 |
|---|
| 651 | INTEGER(KIND=JPIM) :: NGRBCO2A = 210069 |
|---|
| 652 | |
|---|
| 653 | !--------------------------------------------------- |
|---|
| 654 | |
|---|
| 655 | INTEGER(KIND=JPIM), DIMENSION(JPGHG) :: NGRBGHG = (/& |
|---|
| 656 | & 210061, 210062, 210063/) |
|---|
| 657 | INTEGER(KIND=JPIM), DIMENSION(JPTRAC) :: NGRBTRAC = (/& |
|---|
| 658 | & 210181, 210182/) |
|---|
| 659 | |
|---|
| 660 | INTEGER(KIND=JPIM), DIMENSION(JPGHG) :: NGRBTCGHG = (/& |
|---|
| 661 | & 210064, 210065, 210066/) |
|---|
| 662 | INTEGER(KIND=JPIM), DIMENSION(JPTRAC) :: NGRBTCTRAC = (/& |
|---|
| 663 | & 210183, 210184/) |
|---|
| 664 | |
|---|
| 665 | INTEGER(KIND=JPIM), DIMENSION(JPGRG) :: NGRBGRG = (/& |
|---|
| 666 | & 210121, 210122, 210123, 210124, 210203/) |
|---|
| 667 | |
|---|
| 668 | INTEGER(KIND=JPIM), DIMENSION(JPGRG) :: NGRBTCGRG = (/& |
|---|
| 669 | & 210125, 210126, 210127, 210128, 210206/) |
|---|
| 670 | |
|---|
| 671 | ! ------------------------------------------------------------------ |
|---|
| 672 | !$OMP THREADPRIVATE(mbitsgg,mbitssh,mensfnb,mgrbs2,mgrbs3,mjdiag,mjdomai,mjiter,mlocgrb,msec0,msec1,msec2spm,msec2spp) |
|---|
| 673 | !$OMP THREADPRIVATE(msec3,msec4,msmaxnp,mtotens,nbitsgg,nbitssh,ncalval,nconsensus,ndwd,nensfnb,ngrb080,ngrb081) |
|---|
| 674 | !$OMP THREADPRIVATE(ngrb082,ngrb083,ngrb084,ngrb085,ngrb086,ngrb087,ngrb088,ngrb089,ngrb090,ngrb091,ngrb092,ngrb093) |
|---|
| 675 | !$OMP THREADPRIVATE(ngrb094,ngrb095,ngrb096,ngrb097,ngrb098,ngrb099,ngrb100,ngrb101,ngrb102,ngrb103,ngrb104,ngrb105) |
|---|
| 676 | !$OMP THREADPRIVATE(ngrb106,ngrb107,ngrb108,ngrb109,ngrb10fg,ngrb10u,ngrb10v,ngrb110,ngrb111,ngrb112,ngrb113,ngrb114) |
|---|
| 677 | !$OMP THREADPRIVATE(ngrb115,ngrb116,ngrb117,ngrb118,ngrb119,ngrb120,ngrb149,ngrb150,ngrb153,ngrb154,ngrb207,ngrb21) |
|---|
| 678 | !$OMP THREADPRIVATE(ngrb214,ngrb215,ngrb216,ngrb217,ngrb218,ngrb219,ngrb22,ngrb222,ngrb223,ngrb224,ngrb225,ngrb226) |
|---|
| 679 | !$OMP THREADPRIVATE(ngrb227,ngrb23,ngrb241,ngrb242,ngrb249,ngrb250,ngrb251,ngrb252,ngrb253,ngrb254,ngrb255,ngrb2d) |
|---|
| 680 | !$OMP THREADPRIVATE(ngrb2t,ngrbaerdep,ngrbaergn01,ngrbaergn02,ngrbaergn03,ngrbaergn04,ngrbaergn05,ngrbaergn06) |
|---|
| 681 | !$OMP THREADPRIVATE(ngrbaergn07,ngrbaergn08,ngrbaergn09,ngrbaergn10,ngrbaergn11,ngrbaergn12,ngrbaergn13,ngrbaergn14) |
|---|
| 682 | !$OMP THREADPRIVATE(ngrbaergn15,ngrbaerlg,ngrbaerls01,ngrbaerls02,ngrbaerls03,ngrbaerls04,ngrbaerls05,ngrbaerls06) |
|---|
| 683 | !$OMP THREADPRIVATE(ngrbaerls07,ngrbaerls08,ngrbaerls09,ngrbaerls10,ngrbaerls11,ngrbaerls12,ngrbaerls13,ngrbaerls14) |
|---|
| 684 | !$OMP THREADPRIVATE(ngrbaerls15,ngrbaerlts,ngrbaermr01,ngrbaermr02,ngrbaermr03,ngrbaermr04,ngrbaermr05,ngrbaermr06) |
|---|
| 685 | !$OMP THREADPRIVATE(ngrbaermr07,ngrbaermr08,ngrbaermr09,ngrbaermr10,ngrbaermr11,ngrbaermr12,ngrbaermr13,ngrbaermr14) |
|---|
| 686 | !$OMP THREADPRIVATE(ngrbaermr15,ngrbaerpr,ngrbaerscc,ngrbaersm,ngrbal,ngrbalnid,ngrbalnip,ngrbaluvd,ngrbaluvp,ngrbanor) |
|---|
| 687 | !$OMP THREADPRIVATE(ngrbaodlg,ngrbaodpr,ngrbaodsm,ngrbasn,ngrbat,ngrbbld,ngrbblh,ngrbbv,ngrbcape,ngrbcc,ngrbccc) |
|---|
| 688 | !$OMP THREADPRIVATE(ngrbchar,ngrbci,ngrbciwc,ngrbclwc,ngrbco2a,ngrbco2b,ngrbco2o,ngrbcp,ngrbcsf,ngrbcvh,ngrbcvl,ngrbd) |
|---|
| 689 | !$OMP THREADPRIVATE(ngrbe,ngrbemis,ngrbes,ngrbewov,ngrbewss,ngrbfal,ngrbflsr,ngrbfsr,ngrbgh,ngrbghg,ngrbgrg,ngrbgwd) |
|---|
| 690 | !$OMP THREADPRIVATE(ngrbhcc,ngrbie,ngrbiews,ngrbinss,ngrbishf,ngrbisor,ngrbistl1,ngrbistl2,ngrbistl3,ngrbistl4,ngrblcc) |
|---|
| 691 | !$OMP THREADPRIVATE(ngrblgws,ngrblnsp,ngrblsf,ngrblsm,ngrblsp,ngrblspf,ngrblsrh,ngrbmaxxtra,ngrbmcc,ngrbmgws) |
|---|
| 692 | !$OMP THREADPRIVATE(ngrbminxtra,ngrbmn2t,ngrbmont,ngrbmsl,ngrbmx2t,ngrbneov,ngrbnsov,ngrbnsss,ngrbnwov,ngrbo3,ngrbpaw) |
|---|
| 693 | !$OMP THREADPRIVATE(ngrbpthpv,ngrbpv,ngrbq,ngrbr,ngrbro,ngrbrsn,ngrbs2,ngrbs3,ngrbsd,ngrbsdfor,ngrbsdor,ngrbsf,ngrbsf6) |
|---|
| 694 | !$OMP THREADPRIVATE(ngrbskt,ngrbslhf,ngrbslor,ngrbsmlt,ngrbsp,ngrbspar,ngrbsparc,ngrbspd,ngrbsr,ngrbsrc,ngrbsshf,ngrbssr) |
|---|
| 695 | !$OMP THREADPRIVATE(ngrbssrc,ngrbssrd,ngrbsst,ngrbstinc,ngrbstl1,ngrbstl2,ngrbstl3,ngrbstl4,ngrbstr,ngrbstrc,ngrbstrd) |
|---|
| 696 | !$OMP THREADPRIVATE(ngrbsund,ngrbsuvb,ngrbsvd,ngrbswl1,ngrbswl2,ngrbswl3,ngrbswl4,ngrbt,ngrbtbt,ngrbtcc,ngrbtcghg) |
|---|
| 697 | !$OMP THREADPRIVATE(ngrbtcgrg,ngrbtciw,ngrbtclw,ngrbtco3,ngrbtctrac,ngrbtcw,ngrbtcwv,ngrbth,ngrbtp,ngrbtrac,ngrbtsn) |
|---|
| 698 | !$OMP THREADPRIVATE(ngrbtsp,ngrbtsr,ngrbtsrc,ngrbttr,ngrbttrc,ngrbtvh,ngrbtvl,ngrbu,ngrbv,ngrbveg,ngrbvimd,ngrbvo) |
|---|
| 699 | !$OMP THREADPRIVATE(ngrbvso,ngrbw,ngrbz,njdiag,njdomai,njiter,nleg,nlocgrb,nmethod,nmfr,nncep,nreference,nsec0,nsec1) |
|---|
| 700 | !$OMP THREADPRIVATE(nsec2spm,nsec2spp,nsec3,nsec4,nsmaxnp,nsteplpp,nstream,nsystem,ntotens,nukm,rsec3,ssec3) |
|---|
| 701 | !$OMP THREADPRIVATE(msec2gg,ngrbgp2,ngrbgp3,ngrbsp2,ngrbsp3,nsec2gg,rsec2,ssec2) |
|---|
| 702 | END MODULE YOMGRB |
|---|
