1 c 2 C Copyright 1981-2016 ECMWF. 3 C 4 C This software is licensed under the terms of the Apache Licence 5 C Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. 6 C 7 C In applying this licence, ECMWF does not waive the privileges and immunities 8 C granted to it by virtue of its status as an intergovernmental organisation 9 C nor does it submit to any jurisdiction. 10 C 11 C**** "parim.h" 12 C 13 C PURPOSE 14 C _______ 15 C 16 C This file contains a set of constants used during interpolation. 17 C 18 C INTERFACE 19 C _________ 20 C 21 C #include "parim.h" 22 C 23 C Common block usage 24 C __________________ 25 C 26 C NONE 27 C 28 C METHOD 29 C ______ 30 C 31 C NONE 32 C 33 C REFERENCE 34 C _________ 35 C 36 C NONE 37 C 38 C COMMENTS 39 C ________ 40 C 41 C Contains sections 1 to 8 42 C 43 C AUTHOR 44 C ______ 45 C 46 C K. Fielding *ECMWF* Oct 1993 47 C 48 C Modifications 49 C ------------- 50 C 51 C S.Curic ECMWF March 2005 52 C Changed constants JPSTRUNC=2047 JPGTRUNC=2048 53 C in order to allow T2047 and N1024 54 C Changed buffer size PGRIB_ISEC1 PGRIB_ISEC2 PGRIB_ISEC4 55 C 56 C S.Curic ECMWF March 2005 57 C Changed constants JPDISTP=0.25 58 C 59 C S.Curic ECMWF March 2011 60 C Changed constants JPSTRUNC=3999 JPGTRUNC=400 61 C in order to allow T3999 and N2000 62 C _______________________________________________________ 63 C 64 C 65 C* Section 1. Machine definition constants 66 C _______________________________________________________ 67 C 68 C JPBYTES - The number of bytes in an INTEGER word. 69 C JPBITS - The number of bits in an INTEGER word. 70 C JPILEN - The number of heap allocation units in an 71 C INTEGER word. 72 C JPRLEN - The number of heap allocation units in a REAL 73 C word. 74 C 75 INTEGER JPBITS, JPBYTES, JPILEN, JPRLEN 76 C 77 #ifdef INTEGER_8 78 PARAMETER (JPBYTES = 8) 79 #else 80 PARAMETER (JPBYTES = 4) 81 #endif 82 PARAMETER (JPILEN = JPBYTES) 83 #ifdef REAL_8 84 PARAMETER (JPRLEN = 8) 85 #else 86 PARAMETER (JPRLEN = 4) 87 #endif 88 PARAMETER (JPBITS = 8 * JPBYTES) 89 C 90 C _______________________________________________________ 91 C 92 C 93 C* Section 2. Library Limit Constants 94 C _______________________________________________________ 95 C 96 C JPLONG - The maximum number of points along a line of 97 C latitude. 98 C JPLAT - The maximum number of lines of latitude 99 C JPGTRUNC - The maximum Gaussian truncation allowed. 100 C JPSTRUNC - The maximum spherical harmonic truncation 101 C allowed. 102 C 103 C JPML01 - 10 minute land sea mask - Number of values per 104 C degree. 105 C JPLG01 - 10 minute land sea mask - Number of values long 106 C a line of latitude. 107 C JPLT01 - 10 minute land sea mask - Number of lines of 108 C latitude. 109 C JPPACK - 10 minute land sea mask - Length of packed 110 C record in words. 111 C 112 C PPDEGMIN - The minimum grid size 113 C (Real (360) / REAL (JPLONG) ). 114 C 115 INTEGER JPLONG, JPLAT, JPGTRUNC, JPSTRUNC 116 C 117 C PARAMETER (JPLONG = 1440) 118 PARAMETER (JPLONG = 4096) 119 C PARAMETER (JPLAT = 2048) 120 PARAMETER (JPLAT = 4000) 121 C PARAMETER (JPGTRUNC = 2048) 122 PARAMETER (JPGTRUNC = 4000) 123 C PARAMETER (JPSTRUNC = 2047) 124 PARAMETER (JPSTRUNC = 3999) 125 C 126 INTEGER JPLG01, JPLT01, JPPACK, JPML01 127 C 128 PARAMETER (JPML01 = 6) 129 PARAMETER (JPLG01 = 360 * JPML01) 130 PARAMETER (JPLT01 = 180 * JPML01) 131 #ifdef rs6000 132 PARAMETER (JPPACK = (JPLG01 - 1) / 32 + 1) 133 #else 134 PARAMETER (JPPACK = (JPLG01 - 1) / JPBITS + 1) 135 #endif 136 C 137 REAL PPDEGMIN 138 C 139 PARAMETER (PPDEGMIN = 0.5E0) 140 C 141 C _______________________________________________________ 142 C 143 C 144 C* Section 3. Library Interface Constants 145 C _______________________________________________________ 146 C 147 C 148 C Data representation type values: 149 C 150 C JPGAUSSIAN - Gaussian 151 C JPFGGROT - Rotated full (regular) gaussian 152 C JPQUASI - Quasi-regular gaussian 153 C JPQGGROT - Rotated quasi-regular (reduced) gaussian 154 C JPREDLL - Quasi-regular latitude/longitude 155 C JPREDLROT - Rotated quasi-regular latitude/longitude 156 C JPREGULAR - Regular latitude longitude 157 C JPREGROT - Rotated regular latitude longitude 158 C JPSPHERE - Spherical harmonic 159 C JPSPHROT - Rotated spherical harmonic 160 C JPSTRGG - Streched quasi-regular gaussian 161 C JPSTRSH - Streched spherical harmonic 162 C JPNOTYPE - Dummy data. 163 C 164 C Field parameter numbers required (All field numbers refer to 165 C ECMWF local Code Table 2 with NITABLE .eq. 128). 166 C 167 C JP_U - Wind parameter U 168 C JP_V - Wind parameter V 169 C JP_10U - Wind parameter 10U 170 C JP_10V - Wind parameter 10V 171 C 172 C JP_LSP - Large scale precipitation LSP 173 C JP_CP - Convective precipitation CP 174 C JP_SF - Snowfall SF 175 C JP_TP - Total precipitation TP 176 C 177 C JP_MSL - Mean sea level pressure MSL 178 C JP_LSM - Land sea mask LSM 179 C 180 C Field parameter numbers required (All field numbers refer to 181 C the standard WMO parameter number with NITABLE .eq. 1) 182 C 183 C JP_WMO_U - Wind parameter U 184 C JP_WMO_V - Wind parameter V 185 C JP_WMO_10U - Wind parameter 10U 186 C JP_WMO_10V - Wind parameter 10V 187 C 188 C JP_WMO_LSP - Large scale precipitation LSP 189 C JP_WMO_CP - Convective precipitation CP 190 C JP_WMO_SF - Snowfall SF 191 C JP_WMO_TP - Total precipitation TP 192 C 193 C JP_WMO_MSL - Mean sea level pressure MSL 194 C JP_WMO_LSM - Land sea mask LSM 195 C 196 INTEGER JPGAUSSIAN,JPQUASI,JPREGULAR,JPREGROT,JPSPHERE,JPSPHROT 197 INTEGER JPFGGROT, JPQGGROT, JPSTRGG, JPSTRSH 198 INTEGER JPREDLL, JPREDLROT 199 INTEGER JPNOTYPE 200 C 201 PARAMETER (JPGAUSSIAN = 4) 202 PARAMETER (JPFGGROT = 14) 203 PARAMETER (JPQUASI = 25) 204 PARAMETER (JPQGGROT = 27) 205 PARAMETER (JPREDLL = 26) 206 PARAMETER (JPREDLROT = 28) 207 PARAMETER (JPREGULAR = 0) 208 PARAMETER (JPREGROT = 10) 209 PARAMETER (JPSPHERE = 50) 210 PARAMETER (JPSPHROT = 60) 211 PARAMETER (JPSTRGG = 24) 212 PARAMETER (JPSTRSH = 70) 213 PARAMETER (JPNOTYPE = 9999) 214 C 215 INTEGER JP_U, JP_V, JP_10U, JP_10V 216 C 217 PARAMETER (JP_U = 131) 218 PARAMETER (JP_V = 132) 219 PARAMETER (JP_10U = 165) 220 PARAMETER (JP_10V = 166) 221 C 222 INTEGER JP_LSP, JP_CP, JP_SF, JP_TP 223 C 224 PARAMETER (JP_LSP = 142) 225 PARAMETER (JP_CP = 143) 226 PARAMETER (JP_SF = 144) 227 PARAMETER (JP_TP = 228) 228 C 229 INTEGER JP_MSL, JP_LSM 230 C 231 PARAMETER (JP_MSL = 151) 232 PARAMETER (JP_LSM = 172) 233 C 234 INTEGER JP_WMO_U, JP_WMO_V 235 C 236 PARAMETER (JP_WMO_U = 33) 237 PARAMETER (JP_WMO_V = 34) 238 C 239 INTEGER JP_WMO_LSP, JP_WMO_CP, JP_WMO_SF, JP_WMO_TP, JP_WMO_WESF 240 C 241 PARAMETER (JP_WMO_TP = 61) 242 PARAMETER (JP_WMO_LSP = 62) 243 PARAMETER (JP_WMO_CP = 63) 244 PARAMETER (JP_WMO_SF = 64) 245 PARAMETER (JP_WMO_WESF = 65) 246 C 247 INTEGER JP_WMO_MSL, JP_WMO_LSM 248 C 249 PARAMETER (JP_WMO_MSL = 2) 250 PARAMETER (JP_WMO_LSM = 81) 251 C 252 C 253 C _______________________________________________________ 254 C 255 C 256 C* Section 4. Library Formulation Constants 257 C 258 C These constants handle the fact that all latitudes and 259 C longitudes are represented as integer values. The values of 260 C longitude or latitude degrees are represented as 261 C NINT (real_degree * PPMULT). 262 C 263 C _______________________________________________________ 264 C 265 C JPMULT - The integer version of the multiplier PPMULT 266 C (currently 10000). 267 C JP90 - The integer value (90 * JPMULT). 268 C JP180 - The integer value (180 * JPMULT). 269 C JP360 - The integer value (360 * JPMULT). 270 C JP0P5 - The integer value (JPMULT / 2). 271 C JP0P25 - The integer value (JPMULT / 4). 0.25 resol 272 C PPEPS - Small value to force latitude rounding. 273 C 274 C PPMULT - The multiplying factor for all degree values 275 C (REAL (JPMULT) ) 276 C 277 C JPMICRO - scale factor from micro-degrees (from GRIB) 278 C to working scale (JPMULT). 279 C 280 INTEGER JPMULT, JP90, JP180, JP360, JP0P5, JP0P25, JPMIN, JPMICRO 281 REAL PPEPS 282 C 283 PARAMETER (JPMULT = 100000) 284 PARAMETER ( JP90 = 90 * JPMULT) 285 PARAMETER (JP180 = 180 * JPMULT) 286 PARAMETER (JP360 = 360 * JPMULT) 287 PARAMETER (JP0P5 = JPMULT / 2) 288 PARAMETER (JP0P25 = JPMULT / 4) 289 PARAMETER (PPEPS = 0.9) 290 PARAMETER (JPMIN = JP0P5) 291 PARAMETER (JPMICRO = (JPMULT/1000) ) 292 C 293 REAL PPMULT 294 C 295 PARAMETER (PPMULT = 1.0E5) 296 C 297 C _______________________________________________________ 298 C 299 C 300 C* Section 5. Grib Section Size Constants 301 C 302 C All these constants are in terms of expanded arrays after 303 C GRIBEX has been used to unpack a field. 304 C 305 C _______________________________________________________ 306 C 307 C JPENSEMBLE - The number of ensemble forecasts (Used for 308 C handling clusters). 309 C JPVERTICAL - The number of model levels. 310 C JPBASE2 - The basic size of Grib Section 2. 311 C 312 C JPGRIB_ISEC0 - The size of Grib integer Section 0. 313 C JPGRIB_ISEC1 - The size of Grib integer Section 1. 314 C JPGRIB_ISEC2 - The size of Grib integer Section 2. 315 C JPGRIB_ISEC3 - The size of Grib integer Section 3. 316 C JPGRIB_ISEC4 - The size of Grib integer Section 4. 317 C 318 C JPGRIB_RSEC2 - The size of Grib real Section 2. 319 C JPGRIB_RSEC3 - The size of Grib real Section 3. 320 C 321 INTEGER JPENSEMBLE, JPVERTICAL, JPBASE2 322 C 323 PARAMETER (JPENSEMBLE = 100) 324 C PARAMETER (JPVERTICAL = 100) 325 PARAMETER (JPVERTICAL = 128) 326 PARAMETER (JPBASE2 = 22) 327 C 328 INTEGER JPGRIB_ISEC0, JPGRIB_ISEC1, JPGRIB_ISEC2, JPGRIB_ISEC3, 329 1 JPGRIB_ISEC4 330 C 331 PARAMETER (JPGRIB_ISEC0 = 2) 332 PARAMETER (JPGRIB_ISEC1 = 2048 ) 333 PARAMETER (JPGRIB_ISEC2 = 5000) 334 PARAMETER (JPGRIB_ISEC3 = 2) 335 PARAMETER (JPGRIB_ISEC4 = 2512) 336 C 337 INTEGER JPGRIB_RSEC2, JPGRIB_RSEC3 338 C 339 PARAMETER (JPGRIB_RSEC2 = 10 + 2 * (JPVERTICAL + 1) ) 340 PARAMETER (JPGRIB_RSEC3 = 2) 341 C 342 C 343 C _______________________________________________________ 344 C 345 C 346 C* Section 6. Grib Section 1, 2 and 4 Offsets 347 C 348 C All these constants are used for expanded arrays after GRIBEX 349 C has been used to unpack a field. 350 C 351 C has been used to unpack a field. C 352 C _______________________________________________________ 353 C 354 C General offsets. 355 C ________________ 356 C 357 C JPSEC1_TABLE - The offset of the version number of code table 2. 358 C JPSEC1_PARAM - The offset of the parameter value in Section 1. 359 C 360 C JPSEC2_REP - The offset of the Data Representation Type in 361 C Section 2. 362 C JPSEC2_QUASI - The offset of the Quasi Regular Flag in 363 C Section 2. 364 C JPSEC2_QUDEF - The offset of the end of a standard Section 2. 365 C This may be used to simplify access to quasi 366 C regular Gaussian field latitude line length 367 C definitions. 368 C 369 C JPSEC4_NVALUE - The offset of the number of data values in the 370 C field. 371 C JPSEC4_NBITS - The offset of the number of bits used for each 372 C data value in the field. 373 C 374 INTEGER JPSEC1_PARAM, JPSEC1_TABLE 375 C 376 PARAMETER (JPSEC1_TABLE = 1) 377 PARAMETER (JPSEC1_PARAM = 6) 378 C 379 INTEGER JPSEC4_NVALUE, JPSEC4_NBITS 380 C 381 PARAMETER (JPSEC4_NVALUE = 1) 382 PARAMETER (JPSEC4_NBITS = 2) 383 C 384 INTEGER JPSEC2_REP, JPSEC2_QUASI, JPSEC2_QUDEF 385 C 386 PARAMETER (JPSEC2_REP = 1) 387 PARAMETER (JPSEC2_QUASI = 17) 388 PARAMETER (JPSEC2_QUDEF = JPBASE2) 389 C 390 C Offsets for Spherical Harmonic Data. 391 C ____________________________________ 392 C 393 C JPSEC2_STRUNC - The offset of the Triangular truncation factor 394 C in Section 2. 395 C JPSEC2_JTRUNC - The offset of the J-Pentagonal resolution 396 C parameter in Section 2. 397 C JPSEC2_KTRUNC - The offset of the K-Pentagonal resolution 398 C parameter in Section 2. 399 C JPSEC2_MTRUNC - The offset of the M-Pentagonal resolution 400 C parameter in Section 2. 401 C JPSEC2_SHRES - The offset of the Representation Type in 402 C Section 2. 403 C JPSEC2_SHMODE - The offset of the Representation Mode in 404 C Section 2. 405 C 406 INTEGER JPSEC2_STRUNC 407 INTEGER JPSEC2_JTRUNC 408 INTEGER JPSEC2_KTRUNC 409 INTEGER JPSEC2_MTRUNC 410 INTEGER JPSEC2_SHRES 411 INTEGER JPSEC2_SHMODE 412 C 413 PARAMETER (JPSEC2_STRUNC = 2) 414 PARAMETER (JPSEC2_JTRUNC = 2) 415 PARAMETER (JPSEC2_KTRUNC = 3) 416 PARAMETER (JPSEC2_MTRUNC = 4) 417 PARAMETER (JPSEC2_SHRES = 5) 418 PARAMETER (JPSEC2_SHMODE = 6) 419 C 420 C Offsets for all grid point data 421 C _______________________________ 422 C 423 C JPSEC2_NLONG - The offset of the Number of points along a line 424 C of latitude in Section 2. This value is unset 425 C for a quasi regular Gaussian field. 426 C JPSEC2_NLAT - The offset of the Number of lines of latitude 427 C in Section 2. 428 C JPSEC2_NORTH - The offset of the Northern line of latitude in 429 C Section 2. 430 C JPSEC2_SOUTH - The offset of the Southern line of latitude in 431 C Section 2. 432 C JPSEC2_WEST - The offset of the Western longitude limit in 433 C Section 2. 434 C JPSEC2_EAST - The offset of the Eastern longitude limit in 435 C Section 2. This value should be ignored for a 436 C quasi regular Gaussian field. 437 C JPSEC2_RESOL - The offset of the Resolution flag in Section 2. 438 C JPSEC2_DLONG - The offset of the Increment along a line of 439 C latitude in Section 2. This value is unset for 440 C a quasi regular Gaussian field or a field where 441 C Grib cannot describe this value accurately 442 C (0.5625 degrees). 443 C JPSEC2_SCAN - The offset of the Scanning mode flag in 444 C Section 2. 445 C JPSEC2_VERT - The offset of the Number of vertical coordinate 446 C parameters in Section 2. 447 C 448 INTEGER JPSEC2_NLONG 449 INTEGER JPSEC2_NLAT 450 INTEGER JPSEC2_NORTH 451 INTEGER JPSEC2_WEST 452 INTEGER JPSEC2_SOUTH 453 INTEGER JPSEC2_EAST 454 INTEGER JPSEC2_RESOL 455 INTEGER JPSEC2_DLONG 456 INTEGER JPSEC2_SCAN 457 INTEGER JPSEC2_VERT 458 C 459 PARAMETER (JPSEC2_NLONG = 2) 460 PARAMETER (JPSEC2_NLAT = 3) 461 PARAMETER (JPSEC2_NORTH = 4) 462 PARAMETER (JPSEC2_WEST = 5) 463 PARAMETER (JPSEC2_SOUTH = 7) 464 PARAMETER (JPSEC2_EAST = 8) 465 PARAMETER (JPSEC2_RESOL = 6) 466 PARAMETER (JPSEC2_DLONG = 9) 467 PARAMETER (JPSEC2_SCAN = 11) 468 PARAMETER (JPSEC2_VERT = 12) 469 C 470 C Offset for Gaussian grids only 471 C ______________________________ 472 C 473 C JPSEC2_GTRUNC - The offset of Gaussian truncation value in 474 C Section 2. This would be the number of points 475 C between a pole and the equator for a global 476 C grid. 477 C 478 INTEGER JPSEC2_GTRUNC 479 C 480 PARAMETER (JPSEC2_GTRUNC = 10) 481 C 482 C Offset for latitude longitude grids only 483 C ________________________________________ 484 C 485 C JPSEC2_DLAT - The offset of the Increment along a line of 486 C meridian in Section 2. This value is unset for 487 C a field where Grib cannot describe this value 488 C accurately (0.5625 degrees). 489 C 490 INTEGER JPSEC2_DLAT 491 C 492 PARAMETER (JPSEC2_DLAT = 10) 493 C 494 C _______________________________________________________ 495 C 496 C 497 C* Section 7. Useful constants 498 C _______________________________________________________ 499 C 500 C PPZERO - The constant real zero 501 C PPONE - The constant real one 502 C 503 C JPABS - I/O parameter to PBSEEK causing absolute file 504 C positioning. 505 C JPEOF - End of file return value from PBSEEK or PBREAD. 506 C JPERR - Error return value from PBSEEK or PBREAD. 507 C 508 REAL PPZERO, PPONE 509 C 510 PARAMETER (PPZERO = 0.0E0) 511 PARAMETER (PPONE = 1.0E0) 512 C 513 INTEGER JPABS, JPEOF, JPERR 514 C 515 PARAMETER (JPABS = 0) 516 PARAMETER (JPEOF = - 1) 517 PARAMETER (JPERR = - 2) 518 C 519 INTEGER JPLEVEL, JPINNER, JPGRIB_SPACE 520 C 521 PARAMETER (JPLEVEL = 2) 522 PARAMETER (JPINNER = JPLEVEL) 523 PARAMETER (JPGRIB_SPACE = 1) 524 C 525 C _______________________________________________________ 526 C 527 C 528 C* Section 8. Grid to Grid Constant Definitions 529 C _______________________________________________________ 530 C 531 C JP_I_N - An array index used to access the input 532 C latitude line North of the current output 533 C point. 534 C JP_I_S - An array index used to access the input 535 C latitude line South of the current output 536 C point. 537 C JP_I_W - An array index used to access the input points 538 C West of the current output point. 539 C JP_I_E - An array index used to access the input points 540 C East of the current output point. 541 C 542 C JP_I_NW - An array index used to access the weight array 543 C for the point North-West of the current output 544 C point. 545 C JP_I_NE - An array index used to access the weight array 546 C for the point North-East of the current output 547 C point. 548 C JP_I_SW - An array index used to access the weight array 549 C for the point South-West of the current output 550 C point. 551 C JP_I_SE - An array index used to access the weight array 552 C for the point South-East of the current output 553 C point. 554 C 555 C JPNORTH - An array index used to access the Northern 556 C value of a MARS AREA definition. 557 C JPSOUTH - An array index used to access the Southern 558 C value of a MARS AREA definition. 559 C JPWEST - An array index used to access the Western 560 C value of a MARS AREA definition. 561 C JPEAST - An array index used to access the Eastern 562 C value of a MARS AREA definition. 563 C 564 C JPWESTEP - An array index used to access the West-East 565 C stride of a MARS GRID definition. 566 C JPNSSTEP - An array index used to access the North-South 567 C stride of a MARS GRID definition. 568 C 569 INTEGER JP_I_N, JP_I_S, JP_I_W, JP_I_E 570 C 571 PARAMETER (JP_I_N = 1) 572 PARAMETER (JP_I_S = 2) 573 PARAMETER (JP_I_W = 1) 574 PARAMETER (JP_I_E = 2) 575 C 576 INTEGER JP_I_NW, JP_I_NE, JP_I_SW, JP_I_SE 577 C 578 PARAMETER (JP_I_NW = 1) 579 PARAMETER (JP_I_NE = 2) 580 PARAMETER (JP_I_SW = 3) 581 PARAMETER (JP_I_SE = 4) 582 C 583 INTEGER JPNORTH, JPSOUTH, JPWEST, JPEAST 584 C 585 PARAMETER (JPNORTH = 1) 586 PARAMETER (JPWEST = 2) 587 PARAMETER (JPSOUTH = 3) 588 PARAMETER (JPEAST = 4) 589 C 590 INTEGER JPWESTEP, JPNSSTEP 591 C 592 PARAMETER (JPWESTEP = 1) 593 PARAMETER (JPNSSTEP = 2) 594 C 595 C -------------------------------------------------------------------- 596 C Values for message logging 597 C 598 INTEGER JP_DEBUG, JP_INFO, JP_WARN, JP_ERROR, JP_FATAL, JPQUIET 599 PARAMETER ( JP_DEBUG = 0 ) 600 PARAMETER ( JP_INFO = 1 ) 601 PARAMETER ( JP_WARN = 2 ) 602 PARAMETER ( JP_ERROR = 3 ) 603 PARAMETER ( JP_FATAL = 4 ) 604 PARAMETER ( JPQUIET = -999999999 ) 605 C 606 C -------------------------------------------------------------------- 607 C Values grid point generation styles 608 C 609 REAL*8 JPDISTP 610 INTEGER JPSMARS, JPSDISM 611 C 612 C JPSMARS => Mars style, eg area checking 613 C JPSDISM => Dissemination style, eg point selection 614 C JPDISTP = default dissemination lat/long grid step (= 0.25 degrees) 615 C 616 PARAMETER ( JPSMARS = 0 ) 617 PARAMETER ( JPSDISM = 1 ) 618 PARAMETER ( JPDISTP = 0.25 ) 619 C 620 C -------------------------------------------------------------------- 621 C Arrays allocation sizes 622 C 623 INTEGER JPARRAYDIM_WAVE 624 C 625 C JPARRAYDIM_WAVE => dimensions of wave field interpolation arrays 626 C (see WAVEXX2, WV2DXX2, WV2DINT, WVQLIN2, WVQLINT, JPEXPAND) 627 C 628 CC PARAMETER ( JPARRAYDIM_WAVE = 2880*1442) !EMOS 000396 629 PARAMETER ( JPARRAYDIM_WAVE = 3600*1802*2) !EMOS 4.0.0 <-- PRODGEN change 630 C 631 C -------------------------------------------------------------------- 632 C Dimension for internal array for gaussian grid definitions 633 INTEGER JPMAXNG 634 PARAMETER ( JPMAXNG = 4000 ) 635 636