| 1 |
C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/DIAGNOSTICS.h,v 1.9 2005/06/14 23:06:15 molod Exp $ |
| 2 |
C $Name: $ |
| 3 |
|
| 4 |
C ====================================================================== |
| 5 |
C Common blocks for diagnostics package. |
| 6 |
C - diagarrays contains the master list of diagnostics and parameters |
| 7 |
C ndiagt :: total number of available diagnostics |
| 8 |
C kdiag - number of levels associated with the diagnostic |
| 9 |
C cdiag - character names |
| 10 |
C tdiag - description of field in diagnostic |
| 11 |
C gdiag - parser field with characteristics of the diagnostics |
| 12 |
C udiag - physical units of the diagnostic field |
| 13 |
C - diagnostics contains the large array containing diagnostic fields |
| 14 |
C qdiag - diagnostic fields array |
| 15 |
C qSdiag - storage array for diagnostics of (per level) statistics |
| 16 |
C ndiag - counter for number of times diagnostic is added |
| 17 |
C - diag_choices contains the user-chosen list of fields to store |
| 18 |
C idiag - slot number in large diagnostic array |
| 19 |
C mdiag - slot number in large diagnostic array for the mate |
| 20 |
C jdiag - short-list (active diag.) to long-list (available diag.) |
| 21 |
C pointer |
| 22 |
C - diag_statis contains the user-chosen list of statistics to store |
| 23 |
C ====================================================================== |
| 24 |
|
| 25 |
C diagarrays common |
| 26 |
|
| 27 |
integer ndiagt |
| 28 |
|
| 29 |
integer kdiag(ndiagMax) |
| 30 |
c integer idiag(ndiagMax) |
| 31 |
c integer ndiag(ndiagMax) |
| 32 |
c integer mdiag(ndiagMax) |
| 33 |
character*8 cdiag(ndiagMax) |
| 34 |
character*80 tdiag(ndiagMax) |
| 35 |
character*16 gdiag(ndiagMax) |
| 36 |
character*16 udiag(ndiagMax) |
| 37 |
|
| 38 |
common /diagarrays/ ndiagt |
| 39 |
common /diagarrays/ kdiag |
| 40 |
c common /diagarrays/ idiag |
| 41 |
c common /diagarrays/ ndiag |
| 42 |
c common /diagarrays/ mdiag |
| 43 |
common /diagarrays/ cdiag |
| 44 |
common /diagarrays/ tdiag |
| 45 |
common /diagarrays/ gdiag |
| 46 |
common /diagarrays/ udiag |
| 47 |
|
| 48 |
#ifdef ALLOW_DIRECT_FILLING_WITH_EQUIV |
| 49 |
|
| 50 |
CHARACTER*8 CUFLUX |
| 51 |
CHARACTER*8 CVFLUX |
| 52 |
CHARACTER*8 CHFLUX |
| 53 |
CHARACTER*8 CEFLUX |
| 54 |
CHARACTER*8 CQICE |
| 55 |
CHARACTER*8 CRADLWG |
| 56 |
CHARACTER*8 CRADSWG |
| 57 |
CHARACTER*8 CRI |
| 58 |
CHARACTER*8 CCT |
| 59 |
CHARACTER*8 CCU |
| 60 |
CHARACTER*8 CKH |
| 61 |
CHARACTER*8 CKM |
| 62 |
CHARACTER*8 CTURBU |
| 63 |
CHARACTER*8 CTURBV |
| 64 |
CHARACTER*8 CTURBT |
| 65 |
CHARACTER*8 CTURBQ |
| 66 |
CHARACTER*8 CMOISTT |
| 67 |
CHARACTER*8 CMOISTQ |
| 68 |
CHARACTER*8 CRADLW |
| 69 |
CHARACTER*8 CRADSW |
| 70 |
CHARACTER*8 CPREACC |
| 71 |
CHARACTER*8 CPRECON |
| 72 |
CHARACTER*8 CTUFLUX |
| 73 |
CHARACTER*8 CTVFLUX |
| 74 |
CHARACTER*8 CTTFLUX |
| 75 |
CHARACTER*8 CTQFLUX |
| 76 |
CHARACTER*8 CCN |
| 77 |
CHARACTER*8 CWINDS |
| 78 |
CHARACTER*8 CDTSRF |
| 79 |
CHARACTER*8 CTGROUND |
| 80 |
CHARACTER*8 CTS |
| 81 |
CHARACTER*8 CDTG |
| 82 |
CHARACTER*8 CQG |
| 83 |
CHARACTER*8 CQS |
| 84 |
CHARACTER*8 CTGRLW |
| 85 |
CHARACTER*8 CLWGUP |
| 86 |
CHARACTER*8 COLR |
| 87 |
CHARACTER*8 COLRCLR |
| 88 |
CHARACTER*8 CLWGCLR |
| 89 |
CHARACTER*8 CLWCLR |
| 90 |
CHARACTER*8 CTLW |
| 91 |
CHARACTER*8 CSHRAD |
| 92 |
CHARACTER*8 COZLW |
| 93 |
CHARACTER*8 CCLDRAS |
| 94 |
CHARACTER*8 CCLDTOT |
| 95 |
CHARACTER*8 CLWGDOWN |
| 96 |
CHARACTER*8 CGWDT |
| 97 |
CHARACTER*8 CRADSWT |
| 98 |
CHARACTER*8 CTAUCLD |
| 99 |
CHARACTER*8 CTAUCLDC |
| 100 |
CHARACTER*8 CCLDLOW |
| 101 |
CHARACTER*8 CEVAP |
| 102 |
CHARACTER*8 CDPDT |
| 103 |
CHARACTER*8 COMEGA |
| 104 |
CHARACTER*8 CDUDT |
| 105 |
CHARACTER*8 CDVDT |
| 106 |
CHARACTER*8 CDTDT |
| 107 |
CHARACTER*8 CDQDT |
| 108 |
CHARACTER*8 CVORT |
| 109 |
CHARACTER*8 CDTLS |
| 110 |
CHARACTER*8 CDQLS |
| 111 |
CHARACTER*8 CUSTAR |
| 112 |
CHARACTER*8 CZ0 |
| 113 |
CHARACTER*8 CFRQTRB |
| 114 |
CHARACTER*8 CPBL |
| 115 |
CHARACTER*8 CSWCLR |
| 116 |
CHARACTER*8 COSR |
| 117 |
CHARACTER*8 COSRCLR |
| 118 |
CHARACTER*8 CCLDMAS |
| 119 |
CHARACTER*8 CUWND |
| 120 |
CHARACTER*8 CVWND |
| 121 |
CHARACTER*8 CTMPU |
| 122 |
CHARACTER*8 CSPHU |
| 123 |
CHARACTER*8 CRFT |
| 124 |
CHARACTER*8 CPS |
| 125 |
CHARACTER*8 CTKE |
| 126 |
CHARACTER*8 CSWGCLR |
| 127 |
CHARACTER*8 CSDIAG1 |
| 128 |
CHARACTER*8 CSDIAG2 |
| 129 |
CHARACTER*8 CUDIAG1 |
| 130 |
CHARACTER*8 CUDIAG2 |
| 131 |
CHARACTER*8 CDIABU |
| 132 |
CHARACTER*8 CDIABV |
| 133 |
CHARACTER*8 CDIABT |
| 134 |
CHARACTER*8 CDIABQ |
| 135 |
CHARACTER*8 CRFU |
| 136 |
CHARACTER*8 CRFV |
| 137 |
CHARACTER*8 CGWDU |
| 138 |
CHARACTER*8 CGWDV |
| 139 |
CHARACTER*8 CGWDUS |
| 140 |
CHARACTER*8 CGWDVS |
| 141 |
CHARACTER*8 CGWDUT |
| 142 |
CHARACTER*8 CGWDVT |
| 143 |
CHARACTER*8 CLZRAD |
| 144 |
CHARACTER*8 CTRBQLIQ |
| 145 |
CHARACTER*8 CTRBFCC |
| 146 |
CHARACTER*8 CSLP |
| 147 |
CHARACTER*8 CVAVEUQ |
| 148 |
CHARACTER*8 CVAVEVQ |
| 149 |
CHARACTER*8 CVAVEUT |
| 150 |
CHARACTER*8 CVAVEVT |
| 151 |
CHARACTER*8 CCLDFRC |
| 152 |
CHARACTER*8 CTPW |
| 153 |
CHARACTER*8 CU2M |
| 154 |
CHARACTER*8 CV2M |
| 155 |
CHARACTER*8 CT2M |
| 156 |
CHARACTER*8 CQ2M |
| 157 |
CHARACTER*8 CU10M |
| 158 |
CHARACTER*8 CV10M |
| 159 |
CHARACTER*8 CT10M |
| 160 |
CHARACTER*8 CQ10M |
| 161 |
CHARACTER*8 CDTRAIN |
| 162 |
CHARACTER*8 CQFILL |
| 163 |
CHARACTER*8 CVAVEQFIL |
| 164 |
CHARACTER*8 CSHAPU |
| 165 |
CHARACTER*8 CSHAPV |
| 166 |
CHARACTER*8 CSHAPT |
| 167 |
CHARACTER*8 CSHAPQ |
| 168 |
CHARACTER*8 CSDIAG3 |
| 169 |
CHARACTER*8 CSDIAG4 |
| 170 |
CHARACTER*8 CSDIAG5 |
| 171 |
CHARACTER*8 CSDIAG6 |
| 172 |
CHARACTER*8 CSDIAG7 |
| 173 |
CHARACTER*8 CSDIAG8 |
| 174 |
CHARACTER*8 CSDIAG9 |
| 175 |
CHARACTER*8 CSDIAG10 |
| 176 |
CHARACTER*8 CUDIAG3 |
| 177 |
CHARACTER*8 CUDIAG4 |
| 178 |
CHARACTER*8 CUDIAG5 |
| 179 |
CHARACTER*8 CUDIAG6 |
| 180 |
CHARACTER*8 CUDIAG7 |
| 181 |
CHARACTER*8 CUDIAG8 |
| 182 |
CHARACTER*8 CUDIAG9 |
| 183 |
CHARACTER*8 CUDIAG10 |
| 184 |
CHARACTER*8 CCLDMID |
| 185 |
CHARACTER*8 CCLDHI |
| 186 |
CHARACTER*8 CTAULOW |
| 187 |
CHARACTER*8 CTAUMID |
| 188 |
CHARACTER*8 CTAUHI |
| 189 |
CHARACTER*8 CCLDNP |
| 190 |
CHARACTER*8 CCLDPRS |
| 191 |
CHARACTER*8 CCTPCNT |
| 192 |
CHARACTER*8 CCLDTMP |
| 193 |
CHARACTER*8 CCTTCNT |
| 194 |
CHARACTER*8 CTAULOWC |
| 195 |
CHARACTER*8 CTAUMIDC |
| 196 |
CHARACTER*8 CTAUHIC |
| 197 |
CHARACTER*8 CTCANOPY |
| 198 |
CHARACTER*8 CTDEEP |
| 199 |
CHARACTER*8 CQCANOPY |
| 200 |
CHARACTER*8 CSMSHAL |
| 201 |
CHARACTER*8 CSMROOT |
| 202 |
CHARACTER*8 CSMDEEP |
| 203 |
CHARACTER*8 CCAPACITY |
| 204 |
CHARACTER*8 CSNOW |
| 205 |
CHARACTER*8 CRAINCON |
| 206 |
CHARACTER*8 CRAINLSP |
| 207 |
CHARACTER*8 CSNOWFALL |
| 208 |
CHARACTER*8 CRUNOFF |
| 209 |
CHARACTER*8 CFWSOIL |
| 210 |
CHARACTER*8 CGDRAIN |
| 211 |
CHARACTER*8 CSNOWMELT |
| 212 |
CHARACTER*8 CERESV |
| 213 |
CHARACTER*8 CESOIL |
| 214 |
CHARACTER*8 CEVEG |
| 215 |
CHARACTER*8 CESNOW |
| 216 |
CHARACTER*8 CPARDF |
| 217 |
CHARACTER*8 CPARDR |
| 218 |
CHARACTER*8 CLAI |
| 219 |
CHARACTER*8 CGREEN |
| 220 |
CHARACTER*8 CDLWDTC |
| 221 |
CHARACTER*8 CDHDTC |
| 222 |
CHARACTER*8 CDEDTC |
| 223 |
CHARACTER*8 CVDTMOIST |
| 224 |
CHARACTER*8 CVDTTURB |
| 225 |
CHARACTER*8 CVDTRADLW |
| 226 |
CHARACTER*8 CVDTRADSW |
| 227 |
CHARACTER*8 CPSUBCLD |
| 228 |
CHARACTER*8 CPSUBCLDC |
| 229 |
CHARACTER*8 CLCL |
| 230 |
CHARACTER*8 CSDIAGC |
| 231 |
CHARACTER*8 CSDIAGCC |
| 232 |
CHARACTER*8 CEVPOT |
| 233 |
CHARACTER*8 CRHCHECK |
| 234 |
CHARACTER*8 CDHDQA |
| 235 |
CHARACTER*8 CDEDQA |
| 236 |
CHARACTER*8 CDTC |
| 237 |
CHARACTER*8 CDQC |
| 238 |
CHARACTER*8 CTCDTC |
| 239 |
CHARACTER*8 CRADDTC |
| 240 |
CHARACTER*8 CSENSDTC |
| 241 |
CHARACTER*8 CLATDTC |
| 242 |
CHARACTER*8 CTDDTC |
| 243 |
CHARACTER*8 CQCDTC |
| 244 |
CHARACTER*8 CALBEDO |
| 245 |
CHARACTER*8 CALBVISDR |
| 246 |
CHARACTER*8 CALBVISDF |
| 247 |
CHARACTER*8 CALBNIRDR |
| 248 |
CHARACTER*8 CALBNIRDF |
| 249 |
CHARACTER*8 CTAUAVE |
| 250 |
CHARACTER*8 CALBEDOC |
| 251 |
CHARACTER*8 CRHCHECKT |
| 252 |
CHARACTER*8 CRHCHECKQ |
| 253 |
CHARACTER*8 CCLDLSP |
| 254 |
CHARACTER*8 CLZLOW |
| 255 |
CHARACTER*8 CLZMID |
| 256 |
CHARACTER*8 CLZHI |
| 257 |
CHARACTER*8 CLZTOT |
| 258 |
CHARACTER*8 CCAPE |
| 259 |
CHARACTER*8 CHSUBCL |
| 260 |
CHARACTER*8 CHSTAR |
| 261 |
CHARACTER*8 CCONT |
| 262 |
CHARACTER*8 CCONQ |
| 263 |
CHARACTER*8 CLST |
| 264 |
CHARACTER*8 CLSQ |
| 265 |
CHARACTER*8 CCONEVPT |
| 266 |
CHARACTER*8 CCONEVPQ |
| 267 |
CHARACTER*8 CLSEVPT |
| 268 |
CHARACTER*8 CLSEVPQ |
| 269 |
CHARACTER*8 CGWCUMID |
| 270 |
CHARACTER*8 CGWCVMID |
| 271 |
CHARACTER*8 CCLDSTD |
| 272 |
CHARACTER*8 CGWCUBAR |
| 273 |
CHARACTER*8 CGWCVBAR |
| 274 |
CHARACTER*8 CGWCUS |
| 275 |
CHARACTER*8 CGWCVS |
| 276 |
CHARACTER*8 CGWCU |
| 277 |
CHARACTER*8 CGWCV |
| 278 |
|
| 279 |
EQUIVALENCE ( CDIAG( 1) , CUFLUX ) |
| 280 |
EQUIVALENCE ( CDIAG( 2) , CVFLUX ) |
| 281 |
EQUIVALENCE ( CDIAG( 3) , CHFLUX ) |
| 282 |
EQUIVALENCE ( CDIAG( 4) , CEFLUX ) |
| 283 |
EQUIVALENCE ( CDIAG( 5) , CQICE ) |
| 284 |
EQUIVALENCE ( CDIAG( 6) , CRADLWG ) |
| 285 |
EQUIVALENCE ( CDIAG( 7) , CRADSWG ) |
| 286 |
EQUIVALENCE ( CDIAG( 8) , CRI ) |
| 287 |
EQUIVALENCE ( CDIAG( 9) , CCT ) |
| 288 |
EQUIVALENCE ( CDIAG(10) , CCU ) |
| 289 |
EQUIVALENCE ( CDIAG(11) , CKH ) |
| 290 |
EQUIVALENCE ( CDIAG(12) , CKM ) |
| 291 |
EQUIVALENCE ( CDIAG(13) , CTURBU ) |
| 292 |
EQUIVALENCE ( CDIAG(14) , CTURBV ) |
| 293 |
EQUIVALENCE ( CDIAG(15) , CTURBT ) |
| 294 |
EQUIVALENCE ( CDIAG(16) , CTURBQ ) |
| 295 |
EQUIVALENCE ( CDIAG(17) , CMOISTT ) |
| 296 |
EQUIVALENCE ( CDIAG(18) , CMOISTQ ) |
| 297 |
EQUIVALENCE ( CDIAG(19) , CRADLW ) |
| 298 |
EQUIVALENCE ( CDIAG(20) , CRADSW ) |
| 299 |
EQUIVALENCE ( CDIAG(21) , CPREACC ) |
| 300 |
EQUIVALENCE ( CDIAG(22) , CPRECON ) |
| 301 |
EQUIVALENCE ( CDIAG(23) , CTUFLUX ) |
| 302 |
EQUIVALENCE ( CDIAG(24) , CTVFLUX ) |
| 303 |
EQUIVALENCE ( CDIAG(25) , CTTFLUX ) |
| 304 |
EQUIVALENCE ( CDIAG(26) , CTQFLUX ) |
| 305 |
EQUIVALENCE ( CDIAG(27) , CCN ) |
| 306 |
EQUIVALENCE ( CDIAG(28) , CWINDS ) |
| 307 |
EQUIVALENCE ( CDIAG(29) , CDTSRF ) |
| 308 |
EQUIVALENCE ( CDIAG(30) , CTGROUND) |
| 309 |
EQUIVALENCE ( CDIAG(31) , CTS ) |
| 310 |
EQUIVALENCE ( CDIAG(32) , CDTG ) |
| 311 |
EQUIVALENCE ( CDIAG(33) , CQG ) |
| 312 |
EQUIVALENCE ( CDIAG(34) , CQS ) |
| 313 |
EQUIVALENCE ( CDIAG(35) , CTGRLW ) |
| 314 |
EQUIVALENCE ( CDIAG(36) , CLWGUP ) |
| 315 |
EQUIVALENCE ( CDIAG(37) , COLR ) |
| 316 |
EQUIVALENCE ( CDIAG(38) , COLRCLR ) |
| 317 |
EQUIVALENCE ( CDIAG(39) , CLWGCLR ) |
| 318 |
EQUIVALENCE ( CDIAG(40) , CLWCLR ) |
| 319 |
EQUIVALENCE ( CDIAG(41) , CTLW ) |
| 320 |
EQUIVALENCE ( CDIAG(42) , CSHRAD ) |
| 321 |
EQUIVALENCE ( CDIAG(43) , COZLW ) |
| 322 |
EQUIVALENCE ( CDIAG(44) , CCLDRAS ) |
| 323 |
EQUIVALENCE ( CDIAG(45) , CCLDTOT ) |
| 324 |
EQUIVALENCE ( CDIAG(46) , CLWGDOWN) |
| 325 |
EQUIVALENCE ( CDIAG(47) , CGWDT ) |
| 326 |
EQUIVALENCE ( CDIAG(48) , CRADSWT ) |
| 327 |
EQUIVALENCE ( CDIAG(49) , CTAUCLD ) |
| 328 |
EQUIVALENCE ( CDIAG(50) , CTAUCLDC) |
| 329 |
EQUIVALENCE ( CDIAG(51) , CCLDLOW ) |
| 330 |
EQUIVALENCE ( CDIAG(52) , CEVAP ) |
| 331 |
EQUIVALENCE ( CDIAG(53) , CDPDT ) |
| 332 |
EQUIVALENCE ( CDIAG(58) , COMEGA ) |
| 333 |
EQUIVALENCE ( CDIAG(59) , CDUDT ) |
| 334 |
EQUIVALENCE ( CDIAG(60) , CDVDT ) |
| 335 |
EQUIVALENCE ( CDIAG(61) , CDTDT ) |
| 336 |
EQUIVALENCE ( CDIAG(62) , CDQDT ) |
| 337 |
EQUIVALENCE ( CDIAG(63) , CVORT ) |
| 338 |
EQUIVALENCE ( CDIAG(65) , CDTLS ) |
| 339 |
EQUIVALENCE ( CDIAG(66) , CDQLS ) |
| 340 |
EQUIVALENCE ( CDIAG(67) , CUSTAR ) |
| 341 |
EQUIVALENCE ( CDIAG(68) , CZ0 ) |
| 342 |
EQUIVALENCE ( CDIAG(69) , CFRQTRB ) |
| 343 |
EQUIVALENCE ( CDIAG(70) , CPBL ) |
| 344 |
EQUIVALENCE ( CDIAG(71) , CSWCLR ) |
| 345 |
EQUIVALENCE ( CDIAG(72) , COSR ) |
| 346 |
EQUIVALENCE ( CDIAG(73) , COSRCLR ) |
| 347 |
EQUIVALENCE ( CDIAG(74) , CCLDMAS ) |
| 348 |
EQUIVALENCE ( CDIAG(75) , CUWND ) |
| 349 |
EQUIVALENCE ( CDIAG(76) , CVWND ) |
| 350 |
EQUIVALENCE ( CDIAG(77) , CTMPU ) |
| 351 |
EQUIVALENCE ( CDIAG(78) , CSPHU ) |
| 352 |
EQUIVALENCE ( CDIAG(79) , CRFT ) |
| 353 |
EQUIVALENCE ( CDIAG(80) , CPS ) |
| 354 |
EQUIVALENCE ( CDIAG(81) , CTKE ) |
| 355 |
EQUIVALENCE ( CDIAG(82) , CSWGCLR ) |
| 356 |
EQUIVALENCE ( CDIAG(84) , CSDIAG1 ) |
| 357 |
EQUIVALENCE ( CDIAG(85) , CSDIAG2 ) |
| 358 |
EQUIVALENCE ( CDIAG(86) , CUDIAG1 ) |
| 359 |
EQUIVALENCE ( CDIAG(87) , CUDIAG2 ) |
| 360 |
EQUIVALENCE ( CDIAG(88) , CDIABU ) |
| 361 |
EQUIVALENCE ( CDIAG(89) , CDIABV ) |
| 362 |
EQUIVALENCE ( CDIAG(90) , CDIABT ) |
| 363 |
EQUIVALENCE ( CDIAG(91) , CDIABQ ) |
| 364 |
EQUIVALENCE ( CDIAG(92) , CRFU ) |
| 365 |
EQUIVALENCE ( CDIAG(93) , CRFV ) |
| 366 |
EQUIVALENCE ( CDIAG(94) , CGWDU ) |
| 367 |
EQUIVALENCE ( CDIAG(95) , CGWDV ) |
| 368 |
EQUIVALENCE ( CDIAG(96) , CGWDUS ) |
| 369 |
EQUIVALENCE ( CDIAG(97) , CGWDVS ) |
| 370 |
EQUIVALENCE ( CDIAG(98) , CGWDUT ) |
| 371 |
EQUIVALENCE ( CDIAG(99) , CGWDVT ) |
| 372 |
EQUIVALENCE ( CDIAG(100), CLZRAD ) |
| 373 |
EQUIVALENCE ( CDIAG(101), CSLP ) |
| 374 |
EQUIVALENCE ( CDIAG(102), CVAVEUQ ) |
| 375 |
EQUIVALENCE ( CDIAG(103), CVAVEVQ ) |
| 376 |
EQUIVALENCE ( CDIAG(104), CVAVEUT ) |
| 377 |
EQUIVALENCE ( CDIAG(105), CVAVEVT ) |
| 378 |
EQUIVALENCE ( CDIAG(106), CCLDFRC ) |
| 379 |
EQUIVALENCE ( CDIAG(107), CTPW ) |
| 380 |
EQUIVALENCE ( CDIAG(108), CU2M ) |
| 381 |
EQUIVALENCE ( CDIAG(109), CV2M ) |
| 382 |
EQUIVALENCE ( CDIAG(110), CT2M ) |
| 383 |
EQUIVALENCE ( CDIAG(111), CQ2M ) |
| 384 |
EQUIVALENCE ( CDIAG(112), CU10M ) |
| 385 |
EQUIVALENCE ( CDIAG(113), CV10M ) |
| 386 |
EQUIVALENCE ( CDIAG(114), CT10M ) |
| 387 |
EQUIVALENCE ( CDIAG(115), CQ10M ) |
| 388 |
EQUIVALENCE ( CDIAG(116), CDTRAIN ) |
| 389 |
EQUIVALENCE ( CDIAG(117), CQFILL ) |
| 390 |
EQUIVALENCE ( CDIAG(119), CVAVEQFIL ) |
| 391 |
EQUIVALENCE ( CDIAG(120), CSHAPU ) |
| 392 |
EQUIVALENCE ( CDIAG(121), CSHAPV ) |
| 393 |
EQUIVALENCE ( CDIAG(122), CSHAPT ) |
| 394 |
EQUIVALENCE ( CDIAG(123), CSHAPQ ) |
| 395 |
EQUIVALENCE ( CDIAG(124), CSDIAG3 ) |
| 396 |
EQUIVALENCE ( CDIAG(125), CSDIAG4 ) |
| 397 |
EQUIVALENCE ( CDIAG(126), CSDIAG5 ) |
| 398 |
EQUIVALENCE ( CDIAG(127), CSDIAG6 ) |
| 399 |
EQUIVALENCE ( CDIAG(128), CSDIAG7 ) |
| 400 |
EQUIVALENCE ( CDIAG(129), CSDIAG8 ) |
| 401 |
EQUIVALENCE ( CDIAG(130), CSDIAG9 ) |
| 402 |
EQUIVALENCE ( CDIAG(131), CSDIAG10) |
| 403 |
EQUIVALENCE ( CDIAG(132), CUDIAG3 ) |
| 404 |
EQUIVALENCE ( CDIAG(133), CUDIAG4 ) |
| 405 |
EQUIVALENCE ( CDIAG(134), CUDIAG5 ) |
| 406 |
EQUIVALENCE ( CDIAG(135), CUDIAG6 ) |
| 407 |
EQUIVALENCE ( CDIAG(136), CUDIAG7 ) |
| 408 |
EQUIVALENCE ( CDIAG(137), CUDIAG8 ) |
| 409 |
EQUIVALENCE ( CDIAG(138), CUDIAG9 ) |
| 410 |
EQUIVALENCE ( CDIAG(139), CUDIAG10) |
| 411 |
EQUIVALENCE ( CDIAG(140), CCLDMID ) |
| 412 |
EQUIVALENCE ( CDIAG(141), CCLDHI ) |
| 413 |
EQUIVALENCE ( CDIAG(142), CTAULOW ) |
| 414 |
EQUIVALENCE ( CDIAG(143), CTAUMID ) |
| 415 |
EQUIVALENCE ( CDIAG(144), CTAUHI ) |
| 416 |
EQUIVALENCE ( CDIAG(145), CCLDNP ) |
| 417 |
EQUIVALENCE ( CDIAG(146), CCLDPRS ) |
| 418 |
EQUIVALENCE ( CDIAG(147), CCTPCNT ) |
| 419 |
EQUIVALENCE ( CDIAG(148), CCLDTMP ) |
| 420 |
EQUIVALENCE ( CDIAG(149), CCTTCNT ) |
| 421 |
EQUIVALENCE ( CDIAG(150), CTAULOWC) |
| 422 |
EQUIVALENCE ( CDIAG(151), CTAUMIDC) |
| 423 |
EQUIVALENCE ( CDIAG(152), CTAUHIC ) |
| 424 |
EQUIVALENCE ( CDIAG(153), CTCANOPY ) |
| 425 |
EQUIVALENCE ( CDIAG(154), CTDEEP ) |
| 426 |
EQUIVALENCE ( CDIAG(155), CQCANOPY ) |
| 427 |
EQUIVALENCE ( CDIAG(156), CSMSHAL ) |
| 428 |
EQUIVALENCE ( CDIAG(157), CSMROOT ) |
| 429 |
EQUIVALENCE ( CDIAG(158), CSMDEEP ) |
| 430 |
EQUIVALENCE ( CDIAG(159), CCAPACITY ) |
| 431 |
EQUIVALENCE ( CDIAG(160), CSNOW ) |
| 432 |
EQUIVALENCE ( CDIAG(161), CRAINCON ) |
| 433 |
EQUIVALENCE ( CDIAG(162), CRAINLSP ) |
| 434 |
EQUIVALENCE ( CDIAG(163), CSNOWFALL ) |
| 435 |
EQUIVALENCE ( CDIAG(164), CRUNOFF ) |
| 436 |
EQUIVALENCE ( CDIAG(165), CFWSOIL ) |
| 437 |
EQUIVALENCE ( CDIAG(166), CGDRAIN ) |
| 438 |
EQUIVALENCE ( CDIAG(167), CSNOWMELT ) |
| 439 |
EQUIVALENCE ( CDIAG(168), CERESV ) |
| 440 |
EQUIVALENCE ( CDIAG(169), CESOIL ) |
| 441 |
EQUIVALENCE ( CDIAG(170), CEVEG ) |
| 442 |
EQUIVALENCE ( CDIAG(171), CESNOW ) |
| 443 |
EQUIVALENCE ( CDIAG(172), CPARDF ) |
| 444 |
EQUIVALENCE ( CDIAG(173), CPARDR ) |
| 445 |
EQUIVALENCE ( CDIAG(174), CLAI ) |
| 446 |
EQUIVALENCE ( CDIAG(175), CGREEN ) |
| 447 |
EQUIVALENCE ( CDIAG(176), CDLWDTC ) |
| 448 |
EQUIVALENCE ( CDIAG(177), CDHDTC ) |
| 449 |
EQUIVALENCE ( CDIAG(178), CDEDTC ) |
| 450 |
EQUIVALENCE ( CDIAG(179), CVDTMOIST ) |
| 451 |
EQUIVALENCE ( CDIAG(180), CVDTTURB ) |
| 452 |
EQUIVALENCE ( CDIAG(181), CVDTRADLW ) |
| 453 |
EQUIVALENCE ( CDIAG(182), CVDTRADSW ) |
| 454 |
EQUIVALENCE ( CDIAG(184), CPSUBCLD ) |
| 455 |
EQUIVALENCE ( CDIAG(185), CPSUBCLDC ) |
| 456 |
EQUIVALENCE ( CDIAG(186), CLCL ) |
| 457 |
EQUIVALENCE ( CDIAG(187), CSDIAGC ) |
| 458 |
EQUIVALENCE ( CDIAG(188), CSDIAGCC ) |
| 459 |
|
| 460 |
EQUIVALENCE ( CDIAG(190), CEVPOT ) |
| 461 |
EQUIVALENCE ( CDIAG(191), CRHCHECK ) |
| 462 |
EQUIVALENCE ( CDIAG(192), CDHDQA ) |
| 463 |
EQUIVALENCE ( CDIAG(193), CDEDQA ) |
| 464 |
EQUIVALENCE ( CDIAG(194), CDTC ) |
| 465 |
EQUIVALENCE ( CDIAG(195), CDQC ) |
| 466 |
EQUIVALENCE ( CDIAG(196), CTCDTC ) |
| 467 |
EQUIVALENCE ( CDIAG(197), CRADDTC ) |
| 468 |
EQUIVALENCE ( CDIAG(198), CSENSDTC ) |
| 469 |
EQUIVALENCE ( CDIAG(199), CLATDTC ) |
| 470 |
EQUIVALENCE ( CDIAG(200), CTDDTC ) |
| 471 |
EQUIVALENCE ( CDIAG(201), CQCDTC ) |
| 472 |
EQUIVALENCE ( CDIAG(202), CTRBQLIQ ) |
| 473 |
EQUIVALENCE ( CDIAG(203), CTRBFCC ) |
| 474 |
EQUIVALENCE ( CDIAG(204), CALBEDO ) |
| 475 |
EQUIVALENCE ( CDIAG(205), CALBVISDR ) |
| 476 |
EQUIVALENCE ( CDIAG(206), CALBVISDF ) |
| 477 |
EQUIVALENCE ( CDIAG(207), CALBNIRDR ) |
| 478 |
EQUIVALENCE ( CDIAG(208), CALBNIRDF ) |
| 479 |
EQUIVALENCE ( CDIAG(209), CTAUAVE ) |
| 480 |
EQUIVALENCE ( CDIAG(210), CALBEDOC ) |
| 481 |
EQUIVALENCE ( CDIAG(211), CRHCHECKT ) |
| 482 |
EQUIVALENCE ( CDIAG(212), CRHCHECKQ ) |
| 483 |
EQUIVALENCE ( CDIAG(213), CCLDLSP ) |
| 484 |
EQUIVALENCE ( CDIAG(214), CLZLOW ) |
| 485 |
EQUIVALENCE ( CDIAG(215), CLZMID ) |
| 486 |
EQUIVALENCE ( CDIAG(216), CLZHI ) |
| 487 |
EQUIVALENCE ( CDIAG(217), CLZTOT ) |
| 488 |
EQUIVALENCE ( CDIAG(218), CCAPE ) |
| 489 |
EQUIVALENCE ( CDIAG(219), CHSUBCL ) |
| 490 |
EQUIVALENCE ( CDIAG(220), CHSTAR ) |
| 491 |
EQUIVALENCE ( CDIAG(221), CCONT ) |
| 492 |
EQUIVALENCE ( CDIAG(222), CCONQ ) |
| 493 |
EQUIVALENCE ( CDIAG(223), CLST ) |
| 494 |
EQUIVALENCE ( CDIAG(224), CLSQ ) |
| 495 |
EQUIVALENCE ( CDIAG(225), CCONEVPT ) |
| 496 |
EQUIVALENCE ( CDIAG(226), CCONEVPQ ) |
| 497 |
EQUIVALENCE ( CDIAG(227), CLSEVPT ) |
| 498 |
EQUIVALENCE ( CDIAG(228), CLSEVPQ ) |
| 499 |
EQUIVALENCE ( CDIAG(229), CGWCUMID ) |
| 500 |
EQUIVALENCE ( CDIAG(230), CGWCVMID ) |
| 501 |
EQUIVALENCE ( CDIAG(231), CCLDSTD ) |
| 502 |
EQUIVALENCE ( CDIAG(232), CGWCUBAR ) |
| 503 |
EQUIVALENCE ( CDIAG(233), CGWCVBAR ) |
| 504 |
EQUIVALENCE ( CDIAG(234), CGWCUS ) |
| 505 |
EQUIVALENCE ( CDIAG(235), CGWCVS ) |
| 506 |
EQUIVALENCE ( CDIAG(236), CGWCU ) |
| 507 |
EQUIVALENCE ( CDIAG(237), CGWCV ) |
| 508 |
|
| 509 |
integer iUFLUX , kUFLUX , nUFLUX |
| 510 |
integer iVFLUX , kVFLUX , nVFLUX |
| 511 |
integer iHFLUX , kHFLUX , nHFLUX |
| 512 |
integer iEFLUX , kEFLUX , nEFLUX |
| 513 |
integer iQICE , kQICE , nQICE |
| 514 |
integer iRADLWG , kRADLWG , nRADLWG |
| 515 |
integer iRADSWG , kRADSWG , nRADSWG |
| 516 |
integer iRI , kRI , nRI |
| 517 |
integer iCT , kCT , nCT |
| 518 |
integer iCU , kCU , nCU |
| 519 |
integer iKH , kKH , nKH |
| 520 |
integer iKM , kKM , nKM |
| 521 |
integer iTURBU , kTURBU , nTURBU |
| 522 |
integer iTURBV , kTURBV , nTURBV |
| 523 |
integer iTURBT , kTURBT , nTURBT |
| 524 |
integer iTURBQ , kTURBQ , nTURBQ |
| 525 |
integer iMOISTT , kMOISTT , nMOISTT |
| 526 |
integer iMOISTQ , kMOISTQ , nMOISTQ |
| 527 |
integer iRADLW , kRADLW , nRADLW |
| 528 |
integer iRADSW , kRADSW , nRADSW |
| 529 |
integer iPREACC , kPREACC , nPREACC |
| 530 |
integer iPRECON , kPRECON , nPRECON |
| 531 |
integer iTUFLUX , kTUFLUX , nTUFLUX |
| 532 |
integer iTVFLUX , kTVFLUX , nTVFLUX |
| 533 |
integer iTTFLUX , kTTFLUX , nTTFLUX |
| 534 |
integer iTQFLUX , kTQFLUX , nTQFLUX |
| 535 |
integer iCN , kCN , nCN |
| 536 |
integer iWINDS , kWINDS , nWINDS |
| 537 |
integer iDTSRF , kDTSRF , nDTSRF |
| 538 |
integer iTGROUND , kTGROUND , nTGROUND |
| 539 |
integer iTS , kTS , nTS |
| 540 |
integer iDTG , kDTG , nDTG |
| 541 |
integer iQG , kQG , nQG |
| 542 |
integer iQS , kQS , nQS |
| 543 |
integer iTGRLW , kTGRLW , nTGRLW |
| 544 |
integer iLWGUP , kLWGUP , nLWGUP |
| 545 |
integer iOLR , kOLR , nOLR |
| 546 |
integer iOLRCLR , kOLRCLR , nOLRCLR |
| 547 |
integer iLWGCLR , kLWGCLR , nLWGCLR |
| 548 |
integer iLWCLR , kLWCLR , nLWCLR |
| 549 |
integer iTLW , kTLW , nTLW |
| 550 |
integer iSHRAD , kSHRAD , nSHRAD |
| 551 |
integer iOZLW , kOZLW , nOZLW |
| 552 |
integer iCLDRAS , kCLDRAS , nCLDRAS |
| 553 |
integer iCLDTOT , kCLDTOT , nCLDTOT |
| 554 |
integer iLWGDOWN , kLWGDOWN , nLWGDOWN |
| 555 |
integer iGWDT , kGWDT , nGWDT |
| 556 |
integer iRADSWT , kRADSWT , nRADSWT |
| 557 |
integer iTAUCLD , kTAUCLD , nTAUCLD |
| 558 |
integer iTAUCLDC , kTAUCLDC , nTAUCLDC |
| 559 |
integer iCLDLOW , kCLDLOW , nCLDLOW |
| 560 |
integer iEVAP , kEVAP , nEVAP |
| 561 |
integer iDPDT , kDPDT , nDPDT |
| 562 |
integer iOMEGA , kOMEGA , nOMEGA |
| 563 |
integer iDUDT , kDUDT , nDUDT |
| 564 |
integer iDVDT , kDVDT , nDVDT |
| 565 |
integer iDTDT , kDTDT , nDTDT |
| 566 |
integer iDQDT , kDQDT , nDQDT |
| 567 |
integer iVORT , kVORT , nVORT |
| 568 |
integer iDTLS , kDTLS , nDTLS |
| 569 |
integer iDQLS , kDQLS , nDQLS |
| 570 |
integer iUSTAR , kUSTAR , nUSTAR |
| 571 |
integer iZ0 , kZ0 , nZ0 |
| 572 |
integer iFRQTRB , kFRQTRB , nFRQTRB |
| 573 |
integer iPBL , kPBL , nPBL |
| 574 |
integer iSWCLR , kSWCLR , nSWCLR |
| 575 |
integer iOSR , kOSR , nOSR |
| 576 |
integer iOSRCLR , kOSRCLR , nOSRCLR |
| 577 |
integer iCLDMAS , kCLDMAS , nCLDMAS |
| 578 |
integer iUWND , kUWND , nUWND |
| 579 |
integer iVWND , kVWND , nVWND |
| 580 |
integer iTMPU , kTMPU , nTMPU |
| 581 |
integer iSPHU , kSPHU , nSPHU |
| 582 |
integer iRFT , kRFT , nRFT |
| 583 |
integer iPS , kPS , nPS |
| 584 |
integer iTKE , kTKE , nTKE |
| 585 |
integer iSWGCLR , kSWGCLR , nSWGCLR |
| 586 |
integer iSDIAG1 , kSDIAG1 , nSDIAG1 |
| 587 |
integer iSDIAG2 , kSDIAG2 , nSDIAG2 |
| 588 |
integer iUDIAG1 , kUDIAG1 , nUDIAG1 |
| 589 |
integer iUDIAG2 , kUDIAG2 , nUDIAG2 |
| 590 |
integer iDIABU , kDIABU , nDIABU |
| 591 |
integer iDIABV , kDIABV , nDIABV |
| 592 |
integer iDIABT , kDIABT , nDIABT |
| 593 |
integer iDIABQ , kDIABQ , nDIABQ |
| 594 |
integer iRFU , kRFU , nRFU |
| 595 |
integer iRFV , kRFV , nRFV |
| 596 |
integer iGWDU , kGWDU , nGWDU |
| 597 |
integer iGWDV , kGWDV , nGWDV |
| 598 |
integer iGWDUS , kGWDUS , nGWDUS |
| 599 |
integer iGWDVS , kGWDVS , nGWDVS |
| 600 |
integer iGWDUT , kGWDUT , nGWDUT |
| 601 |
integer iGWDVT , kGWDVT , nGWDVT |
| 602 |
integer iLZRAD , kLZRAD , nLZRAD |
| 603 |
integer iTRBQLIQ , kTRBQLIQ , nTRBQLIQ |
| 604 |
integer iTRBFCC , kTRBFCC , nTRBFCC |
| 605 |
integer iSLP , kSLP , nSLP |
| 606 |
integer iVAVEUQ , kVAVEUQ , nVAVEUQ |
| 607 |
integer iVAVEVQ , kVAVEVQ , nVAVEVQ |
| 608 |
integer iVAVEUT , kVAVEUT , nVAVEUT |
| 609 |
integer iVAVEVT , kVAVEVT , nVAVEVT |
| 610 |
integer iCLDFRC , kCLDFRC , nCLDFRC |
| 611 |
integer iTPW , kTPW , nTPW |
| 612 |
integer iU2M , kU2M , nU2M |
| 613 |
integer iV2M , kV2M , nV2M |
| 614 |
integer iT2M , kT2M , nT2M |
| 615 |
integer iQ2M , kQ2M , nQ2M |
| 616 |
integer iU10M , kU10M , nU10M |
| 617 |
integer iV10M , kV10M , nV10M |
| 618 |
integer iT10M , kT10M , nT10M |
| 619 |
integer iQ10M , kQ10M , nQ10M |
| 620 |
integer iDTRAIN , kDTRAIN , nDTRAIN |
| 621 |
integer iQFILL , kQFILL , nQFILL |
| 622 |
integer iVAVEQFIL, kVAVEQFIL, nVAVEQFIL |
| 623 |
integer iSHAPU , kSHAPU , nSHAPU |
| 624 |
integer iSHAPV , kSHAPV , nSHAPV |
| 625 |
integer iSHAPT , kSHAPT , nSHAPT |
| 626 |
integer iSHAPQ , kSHAPQ , nSHAPQ |
| 627 |
integer iSDIAG3 , kSDIAG3 , nSDIAG3 |
| 628 |
integer iSDIAG4 , kSDIAG4 , nSDIAG4 |
| 629 |
integer iSDIAG5 , kSDIAG5 , nSDIAG5 |
| 630 |
integer iSDIAG6 , kSDIAG6 , nSDIAG6 |
| 631 |
integer iSDIAG7 , kSDIAG7 , nSDIAG7 |
| 632 |
integer iSDIAG8 , kSDIAG8 , nSDIAG8 |
| 633 |
integer iSDIAG9 , kSDIAG9 , nSDIAG9 |
| 634 |
integer iSDIAG10 , kSDIAG10 , nSDIAG10 |
| 635 |
integer iUDIAG3 , kUDIAG3 , nUDIAG3 |
| 636 |
integer iUDIAG4 , kUDIAG4 , nUDIAG4 |
| 637 |
integer iUDIAG5 , kUDIAG5 , nUDIAG5 |
| 638 |
integer iUDIAG6 , kUDIAG6 , nUDIAG6 |
| 639 |
integer iUDIAG7 , kUDIAG7 , nUDIAG7 |
| 640 |
integer iUDIAG8 , kUDIAG8 , nUDIAG8 |
| 641 |
integer iUDIAG9 , kUDIAG9 , nUDIAG9 |
| 642 |
integer iUDIAG10 , kUDIAG10 , nUDIAG10 |
| 643 |
integer iCLDMID , kCLDMID , nCLDMID |
| 644 |
integer iCLDHI , kCLDHI , nCLDHI |
| 645 |
integer iTAULOW , kTAULOW , nTAULOW |
| 646 |
integer iTAUMID , kTAUMID , nTAUMID |
| 647 |
integer iTAUHI , kTAUHI , nTAUHI |
| 648 |
integer iCLDNP , kCLDNP , nCLDNP |
| 649 |
integer iCLDPRS , kCLDPRS , nCLDPRS |
| 650 |
integer iCTPCNT , kCTPCNT , nCTPCNT |
| 651 |
integer iCLDTMP , kCLDTMP , nCLDTMP |
| 652 |
integer iCTTCNT , kCTTCNT , nCTTCNT |
| 653 |
integer iTAULOWC , kTAULOWC , nTAULOWC |
| 654 |
integer iTAUMIDC , kTAUMIDC , nTAUMIDC |
| 655 |
integer iTAUHIC , kTAUHIC , nTAUHIC |
| 656 |
integer iTCANOPY , kTCANOPY , nTCANOPY |
| 657 |
integer iTDEEP , kTDEEP , nTDEEP |
| 658 |
integer iQCANOPY , kQCANOPY , nQCANOPY |
| 659 |
integer iSMSHAL , kSMSHAL , nSMSHAL |
| 660 |
integer iSMROOT , kSMROOT , nSMROOT |
| 661 |
integer iSMDEEP , kSMDEEP , nSMDEEP |
| 662 |
integer iCAPACITY, kCAPACITY, nCAPACITY |
| 663 |
integer iSNOW , kSNOW , nSNOW |
| 664 |
integer iRAINCON , kRAINCON , nRAINCON |
| 665 |
integer iRAINLSP , kRAINLSP , nRAINLSP |
| 666 |
integer iSNOWFALL, kSNOWFALL, nSNOWFALL |
| 667 |
integer iRUNOFF , kRUNOFF , nRUNOFF |
| 668 |
integer iFWSOIL , kFWSOIL , nFWSOIL |
| 669 |
integer iGDRAIN , kGDRAIN , nGDRAIN |
| 670 |
integer iSNOWMELT, kSNOWMELT, nSNOWMELT |
| 671 |
integer iERESV , kERESV , nERESV |
| 672 |
integer iESOIL , kESOIL , nESOIL |
| 673 |
integer iEVEG , kEVEG , nEVEG |
| 674 |
integer iESNOW , kESNOW , nESNOW |
| 675 |
integer iPARDF , kPARDF , nPARDF |
| 676 |
integer iPARDR , kPARDR , nPARDR |
| 677 |
integer iLAI , kLAI , nLAI |
| 678 |
integer iGREEN , kGREEN , nGREEN |
| 679 |
integer iDLWDTC , kDLWDTC , nDLWDTC |
| 680 |
integer iDHDTC , kDHDTC , nDHDTC |
| 681 |
integer iDEDTC , kDEDTC , nDEDTC |
| 682 |
integer iVDTMOIST, kVDTMOIST, nVDTMOIST |
| 683 |
integer iVDTTURB , kVDTTURB , nVDTTURB |
| 684 |
integer iVDTRADLW, kVDTRADLW, nVDTRADLW |
| 685 |
integer iVDTRADSW, kVDTRADSW, nVDTRADSW |
| 686 |
integer iPSUBCLD , kPSUBCLD , nPSUBCLD |
| 687 |
integer iPSUBCLDC, kPSUBCLDC, nPSUBCLDC |
| 688 |
integer iLCL , kLCL , nLCL |
| 689 |
integer iSDIAGC , kSDIAGC , nSDIAGC |
| 690 |
integer iSDIAGCC , kSDIAGCC , nSDIAGCC |
| 691 |
|
| 692 |
integer iEVPOT , kEVPOT , nEVPOT |
| 693 |
integer iRHCHECK , kRHCHECK , nRHCHECK |
| 694 |
integer iDHDQA , kDHDQA , nDHDQA |
| 695 |
integer iDEDQA , kDEDQA , nDEDQA |
| 696 |
integer iDTC , kDTC , nDTC |
| 697 |
integer iDQC , kDQC , nDQC |
| 698 |
integer iTCDTC , kTCDTC , nTCDTC |
| 699 |
integer iRADDTC , kRADDTC , nRADDTC |
| 700 |
integer iSENSDTC , kSENSDTC , nSENSDTC |
| 701 |
integer iLATDTC , kLATDTC , nLATDTC |
| 702 |
integer iTDDTC , kTDDTC , nTDDTC |
| 703 |
integer iQCDTC , kQCDTC , nQCDTC |
| 704 |
integer iALBEDO , kALBEDO , nALBEDO |
| 705 |
integer iALBVISDR, kALBVISDR, nALBVISDR |
| 706 |
integer iALBVISDF, kALBVISDF, nALBVISDF |
| 707 |
integer iALBNIRDR, kALBNIRDR, nALBNIRDR |
| 708 |
integer iALBNIRDF, kALBNIRDF, nALBNIRDF |
| 709 |
integer iTAUAVE , kTAUAVE , nTAUAVE |
| 710 |
integer iALBEDOC , kALBEDOC , nALBEDOC |
| 711 |
integer iRHCHECKT, kRHCHECKT, nRHCHECKT |
| 712 |
integer iRHCHECKQ, kRHCHECKQ, nRHCHECKQ |
| 713 |
integer iCLDLSP , kCLDLSP , nCLDLSP |
| 714 |
integer iLZLOW , kLZLOW , nLZLOW |
| 715 |
integer iLZMID , kLZMID , nLZMID |
| 716 |
integer iLZHI , kLZHI , nLZHI |
| 717 |
integer iLZTOT , kLZTOT , nLZTOT |
| 718 |
integer iCAPE , kCAPE , nCAPE |
| 719 |
integer iHSUBCL , kHSUBCL , nHSUBCL |
| 720 |
integer iHSTAR , kHSTAR , nHSTAR |
| 721 |
integer iCONT , kCONT , nCONT |
| 722 |
integer iCONQ , kCONQ , nCONQ |
| 723 |
integer iLST , kLST , nLST |
| 724 |
integer iLSQ , kLSQ , nLSQ |
| 725 |
integer iCONEVPT , kCONEVPT , nCONEVPT |
| 726 |
integer iCONEVPQ , kCONEVPQ , nCONEVPQ |
| 727 |
integer iLSEVPT , kLSEVPT , nLSEVPT |
| 728 |
integer iLSEVPQ , kLSEVPQ , nLSEVPQ |
| 729 |
integer iGWCUMID , kGWCUMID , nGWCUMID |
| 730 |
integer iGWCVMID , kGWCVMID , nGWCVMID |
| 731 |
integer iCLDSTD , kCLDSTD , nCLDSTD |
| 732 |
integer iGWCUBAR , kGWCUBAR , nGWCUBAR |
| 733 |
integer iGWCVBAR , kGWCVBAR , nGWCVBAR |
| 734 |
integer iGWCUS , kGWCUS , nGWCUS |
| 735 |
integer iGWCVS , kGWCVS , nGWCVS |
| 736 |
integer iGWCU , kGWCU , nGWCU |
| 737 |
integer iGWCV , kGWCV , nGWCV |
| 738 |
|
| 739 |
|
| 740 |
C Diagnostic Pointers |
| 741 |
C ------------------- |
| 742 |
EQUIVALENCE ( IDIAG( 1) , IUFLUX ) |
| 743 |
EQUIVALENCE ( IDIAG( 2) , IVFLUX ) |
| 744 |
EQUIVALENCE ( IDIAG( 3) , IHFLUX ) |
| 745 |
EQUIVALENCE ( IDIAG( 4) , IEFLUX ) |
| 746 |
EQUIVALENCE ( IDIAG( 5) , IQICE ) |
| 747 |
EQUIVALENCE ( IDIAG( 6) , IRADLWG ) |
| 748 |
EQUIVALENCE ( IDIAG( 7) , IRADSWG ) |
| 749 |
EQUIVALENCE ( IDIAG( 8) , IRI ) |
| 750 |
EQUIVALENCE ( IDIAG( 9) , ICT ) |
| 751 |
EQUIVALENCE ( IDIAG(10) , ICU ) |
| 752 |
EQUIVALENCE ( IDIAG(11) , IKH ) |
| 753 |
EQUIVALENCE ( IDIAG(12) , IKM ) |
| 754 |
EQUIVALENCE ( IDIAG(13) , ITURBU ) |
| 755 |
EQUIVALENCE ( IDIAG(14) , ITURBV ) |
| 756 |
EQUIVALENCE ( IDIAG(15) , ITURBT ) |
| 757 |
EQUIVALENCE ( IDIAG(16) , ITURBQ ) |
| 758 |
EQUIVALENCE ( IDIAG(17) , IMOISTT ) |
| 759 |
EQUIVALENCE ( IDIAG(18) , IMOISTQ ) |
| 760 |
EQUIVALENCE ( IDIAG(19) , IRADLW ) |
| 761 |
EQUIVALENCE ( IDIAG(20) , IRADSW ) |
| 762 |
EQUIVALENCE ( IDIAG(21) , IPREACC ) |
| 763 |
EQUIVALENCE ( IDIAG(22) , IPRECON ) |
| 764 |
EQUIVALENCE ( IDIAG(23) , ITUFLUX ) |
| 765 |
EQUIVALENCE ( IDIAG(24) , ITVFLUX ) |
| 766 |
EQUIVALENCE ( IDIAG(25) , ITTFLUX ) |
| 767 |
EQUIVALENCE ( IDIAG(26) , ITQFLUX ) |
| 768 |
EQUIVALENCE ( IDIAG(27) , ICN ) |
| 769 |
EQUIVALENCE ( IDIAG(28) , IWINDS ) |
| 770 |
EQUIVALENCE ( IDIAG(29) , IDTSRF ) |
| 771 |
EQUIVALENCE ( IDIAG(30) , ITGROUND) |
| 772 |
EQUIVALENCE ( IDIAG(31) , ITS ) |
| 773 |
EQUIVALENCE ( IDIAG(32) , IDTG ) |
| 774 |
EQUIVALENCE ( IDIAG(33) , IQG ) |
| 775 |
EQUIVALENCE ( IDIAG(34) , IQS ) |
| 776 |
EQUIVALENCE ( IDIAG(35) , ITGRLW ) |
| 777 |
EQUIVALENCE ( IDIAG(36) , ILWGUP ) |
| 778 |
EQUIVALENCE ( IDIAG(37) , IOLR ) |
| 779 |
EQUIVALENCE ( IDIAG(38) , IOLRCLR ) |
| 780 |
EQUIVALENCE ( IDIAG(39) , ILWGCLR ) |
| 781 |
EQUIVALENCE ( IDIAG(40) , ILWCLR ) |
| 782 |
EQUIVALENCE ( IDIAG(41) , ITLW ) |
| 783 |
EQUIVALENCE ( IDIAG(42) , ISHRAD ) |
| 784 |
EQUIVALENCE ( IDIAG(43) , IOZLW ) |
| 785 |
EQUIVALENCE ( IDIAG(44) , ICLDRAS ) |
| 786 |
EQUIVALENCE ( IDIAG(45) , ICLDTOT ) |
| 787 |
EQUIVALENCE ( IDIAG(46) , ILWGDOWN) |
| 788 |
EQUIVALENCE ( IDIAG(47) , IGWDT ) |
| 789 |
EQUIVALENCE ( IDIAG(48) , IRADSWT ) |
| 790 |
EQUIVALENCE ( IDIAG(49) , ITAUCLD ) |
| 791 |
EQUIVALENCE ( IDIAG(50) , ITAUCLDC) |
| 792 |
EQUIVALENCE ( IDIAG(51) , ICLDLOW ) |
| 793 |
EQUIVALENCE ( IDIAG(52) , IEVAP ) |
| 794 |
EQUIVALENCE ( IDIAG(53) , IDPDT ) |
| 795 |
EQUIVALENCE ( IDIAG(58) , IOMEGA ) |
| 796 |
EQUIVALENCE ( IDIAG(59) , IDUDT ) |
| 797 |
EQUIVALENCE ( IDIAG(60) , IDVDT ) |
| 798 |
EQUIVALENCE ( IDIAG(61) , IDTDT ) |
| 799 |
EQUIVALENCE ( IDIAG(62) , IDQDT ) |
| 800 |
EQUIVALENCE ( IDIAG(63) , IVORT ) |
| 801 |
EQUIVALENCE ( IDIAG(65) , IDTLS ) |
| 802 |
EQUIVALENCE ( IDIAG(66) , IDQLS ) |
| 803 |
EQUIVALENCE ( IDIAG(67) , IUSTAR ) |
| 804 |
EQUIVALENCE ( IDIAG(68) , IZ0 ) |
| 805 |
EQUIVALENCE ( IDIAG(69) , IFRQTRB ) |
| 806 |
EQUIVALENCE ( IDIAG(70) , IPBL ) |
| 807 |
EQUIVALENCE ( IDIAG(71) , ISWCLR ) |
| 808 |
EQUIVALENCE ( IDIAG(72) , IOSR ) |
| 809 |
EQUIVALENCE ( IDIAG(73) , IOSRCLR ) |
| 810 |
EQUIVALENCE ( IDIAG(74) , ICLDMAS ) |
| 811 |
EQUIVALENCE ( IDIAG(75) , IUWND ) |
| 812 |
EQUIVALENCE ( IDIAG(76) , IVWND ) |
| 813 |
EQUIVALENCE ( IDIAG(77) , ITMPU ) |
| 814 |
EQUIVALENCE ( IDIAG(78) , ISPHU ) |
| 815 |
EQUIVALENCE ( IDIAG(79) , IRFT ) |
| 816 |
EQUIVALENCE ( IDIAG(80) , IPS ) |
| 817 |
EQUIVALENCE ( IDIAG(81) , ITKE ) |
| 818 |
EQUIVALENCE ( IDIAG(82) , ISWGCLR ) |
| 819 |
EQUIVALENCE ( IDIAG(84) , ISDIAG1 ) |
| 820 |
EQUIVALENCE ( IDIAG(85) , ISDIAG2 ) |
| 821 |
EQUIVALENCE ( IDIAG(86) , IUDIAG1 ) |
| 822 |
EQUIVALENCE ( IDIAG(87) , IUDIAG2 ) |
| 823 |
EQUIVALENCE ( IDIAG(88) , IDIABU ) |
| 824 |
EQUIVALENCE ( IDIAG(89) , IDIABV ) |
| 825 |
EQUIVALENCE ( IDIAG(90) , IDIABT ) |
| 826 |
EQUIVALENCE ( IDIAG(91) , IDIABQ ) |
| 827 |
EQUIVALENCE ( IDIAG(92) , IRFU ) |
| 828 |
EQUIVALENCE ( IDIAG(93) , IRFV ) |
| 829 |
EQUIVALENCE ( IDIAG(94) , IGWDU ) |
| 830 |
EQUIVALENCE ( IDIAG(95) , IGWDV ) |
| 831 |
EQUIVALENCE ( IDIAG(96) , IGWDUS ) |
| 832 |
EQUIVALENCE ( IDIAG(97) , IGWDVS ) |
| 833 |
EQUIVALENCE ( IDIAG(98) , IGWDUT ) |
| 834 |
EQUIVALENCE ( IDIAG(99) , IGWDVT ) |
| 835 |
EQUIVALENCE ( IDIAG(100), ILZRAD ) |
| 836 |
EQUIVALENCE ( IDIAG(101), ISLP ) |
| 837 |
EQUIVALENCE ( IDIAG(102), IVAVEUQ ) |
| 838 |
EQUIVALENCE ( IDIAG(103), IVAVEVQ ) |
| 839 |
EQUIVALENCE ( IDIAG(104), IVAVEUT ) |
| 840 |
EQUIVALENCE ( IDIAG(105), IVAVEVT ) |
| 841 |
EQUIVALENCE ( IDIAG(106), ICLDFRC ) |
| 842 |
EQUIVALENCE ( IDIAG(107), ITPW ) |
| 843 |
EQUIVALENCE ( IDIAG(108), IU2M ) |
| 844 |
EQUIVALENCE ( IDIAG(109), IV2M ) |
| 845 |
EQUIVALENCE ( IDIAG(110), IT2M ) |
| 846 |
EQUIVALENCE ( IDIAG(111), IQ2M ) |
| 847 |
EQUIVALENCE ( IDIAG(112), IU10M ) |
| 848 |
EQUIVALENCE ( IDIAG(113), IV10M ) |
| 849 |
EQUIVALENCE ( IDIAG(114), IT10M ) |
| 850 |
EQUIVALENCE ( IDIAG(115), IQ10M ) |
| 851 |
EQUIVALENCE ( IDIAG(116), IDTRAIN ) |
| 852 |
EQUIVALENCE ( IDIAG(117), IQFILL ) |
| 853 |
EQUIVALENCE ( IDIAG(119), IVAVEQFIL ) |
| 854 |
EQUIVALENCE ( IDIAG(120), ISHAPU ) |
| 855 |
EQUIVALENCE ( IDIAG(121), ISHAPV ) |
| 856 |
EQUIVALENCE ( IDIAG(122), ISHAPT ) |
| 857 |
EQUIVALENCE ( IDIAG(123), ISHAPQ ) |
| 858 |
EQUIVALENCE ( IDIAG(124), ISDIAG3 ) |
| 859 |
EQUIVALENCE ( IDIAG(125), ISDIAG4 ) |
| 860 |
EQUIVALENCE ( IDIAG(126), ISDIAG5 ) |
| 861 |
EQUIVALENCE ( IDIAG(127), ISDIAG6 ) |
| 862 |
EQUIVALENCE ( IDIAG(128), ISDIAG7 ) |
| 863 |
EQUIVALENCE ( IDIAG(129), ISDIAG8 ) |
| 864 |
EQUIVALENCE ( IDIAG(130), ISDIAG9 ) |
| 865 |
EQUIVALENCE ( IDIAG(131), ISDIAG10) |
| 866 |
EQUIVALENCE ( IDIAG(132), IUDIAG3 ) |
| 867 |
EQUIVALENCE ( IDIAG(133), IUDIAG4 ) |
| 868 |
EQUIVALENCE ( IDIAG(134), IUDIAG5 ) |
| 869 |
EQUIVALENCE ( IDIAG(135), IUDIAG6 ) |
| 870 |
EQUIVALENCE ( IDIAG(136), IUDIAG7 ) |
| 871 |
EQUIVALENCE ( IDIAG(137), IUDIAG8 ) |
| 872 |
EQUIVALENCE ( IDIAG(138), IUDIAG9 ) |
| 873 |
EQUIVALENCE ( IDIAG(139), IUDIAG10) |
| 874 |
EQUIVALENCE ( IDIAG(140), ICLDMID ) |
| 875 |
EQUIVALENCE ( IDIAG(141), ICLDHI ) |
| 876 |
EQUIVALENCE ( IDIAG(142), ITAULOW ) |
| 877 |
EQUIVALENCE ( IDIAG(143), ITAUMID ) |
| 878 |
EQUIVALENCE ( IDIAG(144), ITAUHI ) |
| 879 |
EQUIVALENCE ( IDIAG(145), ICLDNP ) |
| 880 |
EQUIVALENCE ( IDIAG(146), ICLDPRS ) |
| 881 |
EQUIVALENCE ( IDIAG(147), ICTPCNT ) |
| 882 |
EQUIVALENCE ( IDIAG(148), ICLDTMP ) |
| 883 |
EQUIVALENCE ( IDIAG(149), ICTTCNT ) |
| 884 |
EQUIVALENCE ( IDIAG(150), ITAULOWC) |
| 885 |
EQUIVALENCE ( IDIAG(151), ITAUMIDC) |
| 886 |
EQUIVALENCE ( IDIAG(152), ITAUHIC ) |
| 887 |
EQUIVALENCE ( IDIAG(153), ITCANOPY ) |
| 888 |
EQUIVALENCE ( IDIAG(154), ITDEEP ) |
| 889 |
EQUIVALENCE ( IDIAG(155), IQCANOPY ) |
| 890 |
EQUIVALENCE ( IDIAG(156), ISMSHAL ) |
| 891 |
EQUIVALENCE ( IDIAG(157), ISMROOT ) |
| 892 |
EQUIVALENCE ( IDIAG(158), ISMDEEP ) |
| 893 |
EQUIVALENCE ( IDIAG(159), ICAPACITY ) |
| 894 |
EQUIVALENCE ( IDIAG(160), ISNOW ) |
| 895 |
EQUIVALENCE ( IDIAG(161), IRAINCON ) |
| 896 |
EQUIVALENCE ( IDIAG(162), IRAINLSP ) |
| 897 |
EQUIVALENCE ( IDIAG(163), ISNOWFALL ) |
| 898 |
EQUIVALENCE ( IDIAG(164), IRUNOFF ) |
| 899 |
EQUIVALENCE ( IDIAG(165), IFWSOIL ) |
| 900 |
EQUIVALENCE ( IDIAG(166), IGDRAIN ) |
| 901 |
EQUIVALENCE ( IDIAG(167), ISNOWMELT ) |
| 902 |
EQUIVALENCE ( IDIAG(168), IERESV ) |
| 903 |
EQUIVALENCE ( IDIAG(169), IESOIL ) |
| 904 |
EQUIVALENCE ( IDIAG(170), IEVEG ) |
| 905 |
EQUIVALENCE ( IDIAG(171), IESNOW ) |
| 906 |
EQUIVALENCE ( IDIAG(172), IPARDF ) |
| 907 |
EQUIVALENCE ( IDIAG(173), IPARDR ) |
| 908 |
EQUIVALENCE ( IDIAG(174), ILAI ) |
| 909 |
EQUIVALENCE ( IDIAG(175), IGREEN ) |
| 910 |
EQUIVALENCE ( IDIAG(176), IDLWDTC ) |
| 911 |
EQUIVALENCE ( IDIAG(177), IDHDTC ) |
| 912 |
EQUIVALENCE ( IDIAG(178), IDEDTC ) |
| 913 |
EQUIVALENCE ( IDIAG(179), IVDTMOIST ) |
| 914 |
EQUIVALENCE ( IDIAG(180), IVDTTURB ) |
| 915 |
EQUIVALENCE ( IDIAG(181), IVDTRADLW ) |
| 916 |
EQUIVALENCE ( IDIAG(182), IVDTRADSW ) |
| 917 |
EQUIVALENCE ( IDIAG(184), IPSUBCLD ) |
| 918 |
EQUIVALENCE ( IDIAG(185), IPSUBCLDC ) |
| 919 |
EQUIVALENCE ( IDIAG(186), ILCL ) |
| 920 |
EQUIVALENCE ( IDIAG(187), ISDIAGC ) |
| 921 |
EQUIVALENCE ( IDIAG(188), ISDIAGCC ) |
| 922 |
|
| 923 |
EQUIVALENCE ( IDIAG(190), IEVPOT ) |
| 924 |
EQUIVALENCE ( IDIAG(191), IRHCHECK ) |
| 925 |
EQUIVALENCE ( IDIAG(192), IDHDQA ) |
| 926 |
EQUIVALENCE ( IDIAG(193), IDEDQA ) |
| 927 |
EQUIVALENCE ( IDIAG(194), IDTC ) |
| 928 |
EQUIVALENCE ( IDIAG(195), IDQC ) |
| 929 |
EQUIVALENCE ( IDIAG(196), ITCDTC ) |
| 930 |
EQUIVALENCE ( IDIAG(197), IRADDTC ) |
| 931 |
EQUIVALENCE ( IDIAG(198), ISENSDTC ) |
| 932 |
EQUIVALENCE ( IDIAG(199), ILATDTC ) |
| 933 |
EQUIVALENCE ( IDIAG(200), ITDDTC ) |
| 934 |
EQUIVALENCE ( IDIAG(201), IQCDTC ) |
| 935 |
EQUIVALENCE ( IDIAG(202), ITRBQLIQ ) |
| 936 |
EQUIVALENCE ( IDIAG(203), ITRBFCC ) |
| 937 |
EQUIVALENCE ( IDIAG(204), IALBEDO ) |
| 938 |
EQUIVALENCE ( IDIAG(205), IALBVISDR ) |
| 939 |
EQUIVALENCE ( IDIAG(206), IALBVISDF ) |
| 940 |
EQUIVALENCE ( IDIAG(207), IALBNIRDR ) |
| 941 |
EQUIVALENCE ( IDIAG(208), IALBNIRDF ) |
| 942 |
EQUIVALENCE ( IDIAG(209), ITAUAVE ) |
| 943 |
EQUIVALENCE ( IDIAG(210), IALBEDOC ) |
| 944 |
EQUIVALENCE ( IDIAG(211), IRHCHECKT ) |
| 945 |
EQUIVALENCE ( IDIAG(212), IRHCHECKQ ) |
| 946 |
EQUIVALENCE ( IDIAG(213), ICLDLSP ) |
| 947 |
EQUIVALENCE ( IDIAG(214), ILZLOW ) |
| 948 |
EQUIVALENCE ( IDIAG(215), ILZMID ) |
| 949 |
EQUIVALENCE ( IDIAG(216), ILZHI ) |
| 950 |
EQUIVALENCE ( IDIAG(217), ILZTOT ) |
| 951 |
EQUIVALENCE ( IDIAG(218), ICAPE ) |
| 952 |
EQUIVALENCE ( IDIAG(219), IHSUBCL ) |
| 953 |
EQUIVALENCE ( IDIAG(220), IHSTAR ) |
| 954 |
EQUIVALENCE ( IDIAG(221), ICONT ) |
| 955 |
EQUIVALENCE ( IDIAG(222), ICONQ ) |
| 956 |
EQUIVALENCE ( IDIAG(223), ILST ) |
| 957 |
EQUIVALENCE ( IDIAG(224), ILSQ ) |
| 958 |
EQUIVALENCE ( IDIAG(225), ICONEVPT ) |
| 959 |
EQUIVALENCE ( IDIAG(226), ICONEVPQ ) |
| 960 |
EQUIVALENCE ( IDIAG(227), ILSEVPT ) |
| 961 |
EQUIVALENCE ( IDIAG(228), ILSEVPQ ) |
| 962 |
EQUIVALENCE ( IDIAG(229), IGWCUMID ) |
| 963 |
EQUIVALENCE ( IDIAG(230), IGWCVMID ) |
| 964 |
EQUIVALENCE ( IDIAG(231), ICLDSTD ) |
| 965 |
EQUIVALENCE ( IDIAG(232), IGWCUBAR ) |
| 966 |
EQUIVALENCE ( IDIAG(233), IGWCVBAR ) |
| 967 |
EQUIVALENCE ( IDIAG(234), IGWCUS ) |
| 968 |
EQUIVALENCE ( IDIAG(235), IGWCVS ) |
| 969 |
EQUIVALENCE ( IDIAG(236), IGWCU ) |
| 970 |
EQUIVALENCE ( IDIAG(237), IGWCV ) |
| 971 |
|
| 972 |
|
| 973 |
C Diagnostic Levels |
| 974 |
C ----------------- |
| 975 |
EQUIVALENCE ( KDIAG( 1) , KUFLUX ) |
| 976 |
EQUIVALENCE ( KDIAG( 2) , KVFLUX ) |
| 977 |
EQUIVALENCE ( KDIAG( 3) , KHFLUX ) |
| 978 |
EQUIVALENCE ( KDIAG( 4) , KEFLUX ) |
| 979 |
EQUIVALENCE ( KDIAG( 5) , KQICE ) |
| 980 |
EQUIVALENCE ( KDIAG( 6) , KRADLWG ) |
| 981 |
EQUIVALENCE ( KDIAG( 7) , KRADSWG ) |
| 982 |
EQUIVALENCE ( KDIAG( 8) , KRI ) |
| 983 |
EQUIVALENCE ( KDIAG( 9) , KCT ) |
| 984 |
EQUIVALENCE ( KDIAG(10) , KCU ) |
| 985 |
EQUIVALENCE ( KDIAG(11) , KKH ) |
| 986 |
EQUIVALENCE ( KDIAG(12) , KKM ) |
| 987 |
EQUIVALENCE ( KDIAG(13) , KTURBU ) |
| 988 |
EQUIVALENCE ( KDIAG(14) , KTURBV ) |
| 989 |
EQUIVALENCE ( KDIAG(15) , KTURBT ) |
| 990 |
EQUIVALENCE ( KDIAG(16) , KTURBQ ) |
| 991 |
EQUIVALENCE ( KDIAG(17) , KMOISTT ) |
| 992 |
EQUIVALENCE ( KDIAG(18) , KMOISTQ ) |
| 993 |
EQUIVALENCE ( KDIAG(19) , KRADLW ) |
| 994 |
EQUIVALENCE ( KDIAG(20) , KRADSW ) |
| 995 |
EQUIVALENCE ( KDIAG(21) , KPREACC ) |
| 996 |
EQUIVALENCE ( KDIAG(22) , KPRECON ) |
| 997 |
EQUIVALENCE ( KDIAG(23) , KTUFLUX ) |
| 998 |
EQUIVALENCE ( KDIAG(24) , KTVFLUX ) |
| 999 |
EQUIVALENCE ( KDIAG(25) , KTTFLUX ) |
| 1000 |
EQUIVALENCE ( KDIAG(26) , KTQFLUX ) |
| 1001 |
EQUIVALENCE ( KDIAG(27) , KCN ) |
| 1002 |
EQUIVALENCE ( KDIAG(28) , KWINDS ) |
| 1003 |
EQUIVALENCE ( KDIAG(29) , KDTSRF ) |
| 1004 |
EQUIVALENCE ( KDIAG(30) , KTGROUND) |
| 1005 |
EQUIVALENCE ( KDIAG(31) , KTS ) |
| 1006 |
EQUIVALENCE ( KDIAG(32) , KDTG ) |
| 1007 |
EQUIVALENCE ( KDIAG(33) , KQG ) |
| 1008 |
EQUIVALENCE ( KDIAG(34) , KQS ) |
| 1009 |
EQUIVALENCE ( KDIAG(35) , KTGRLW ) |
| 1010 |
EQUIVALENCE ( KDIAG(36) , KLWGUP ) |
| 1011 |
EQUIVALENCE ( KDIAG(37) , KOLR ) |
| 1012 |
EQUIVALENCE ( KDIAG(38) , KOLRCLR ) |
| 1013 |
EQUIVALENCE ( KDIAG(39) , KLWGCLR ) |
| 1014 |
EQUIVALENCE ( KDIAG(40) , KLWCLR ) |
| 1015 |
EQUIVALENCE ( KDIAG(41) , KTLW ) |
| 1016 |
EQUIVALENCE ( KDIAG(42) , KSHRAD ) |
| 1017 |
EQUIVALENCE ( KDIAG(43) , KOZLW ) |
| 1018 |
EQUIVALENCE ( KDIAG(44) , KCLDRAS ) |
| 1019 |
EQUIVALENCE ( KDIAG(45) , KCLDTOT ) |
| 1020 |
EQUIVALENCE ( KDIAG(46) , KLWGDOWN) |
| 1021 |
EQUIVALENCE ( KDIAG(47) , KGWDT ) |
| 1022 |
EQUIVALENCE ( KDIAG(48) , KRADSWT ) |
| 1023 |
EQUIVALENCE ( KDIAG(49) , KTAUCLD ) |
| 1024 |
EQUIVALENCE ( KDIAG(50) , KTAUCLDC) |
| 1025 |
EQUIVALENCE ( KDIAG(51) , KCLDLOW ) |
| 1026 |
EQUIVALENCE ( KDIAG(52) , KEVAP ) |
| 1027 |
EQUIVALENCE ( KDIAG(53) , KDPDT ) |
| 1028 |
EQUIVALENCE ( KDIAG(58) , KOMEGA ) |
| 1029 |
EQUIVALENCE ( KDIAG(59) , KDUDT ) |
| 1030 |
EQUIVALENCE ( KDIAG(60) , KDVDT ) |
| 1031 |
EQUIVALENCE ( KDIAG(61) , KDTDT ) |
| 1032 |
EQUIVALENCE ( KDIAG(62) , KDQDT ) |
| 1033 |
EQUIVALENCE ( KDIAG(63) , KVORT ) |
| 1034 |
EQUIVALENCE ( KDIAG(65) , KDTLS ) |
| 1035 |
EQUIVALENCE ( KDIAG(66) , KDQLS ) |
| 1036 |
EQUIVALENCE ( KDIAG(67) , KUSTAR ) |
| 1037 |
EQUIVALENCE ( KDIAG(68) , KZ0 ) |
| 1038 |
EQUIVALENCE ( KDIAG(69) , KFRQTRB ) |
| 1039 |
EQUIVALENCE ( KDIAG(70) , KPBL ) |
| 1040 |
EQUIVALENCE ( KDIAG(71) , KSWCLR ) |
| 1041 |
EQUIVALENCE ( KDIAG(72) , KOSR ) |
| 1042 |
EQUIVALENCE ( KDIAG(73) , KOSRCLR ) |
| 1043 |
EQUIVALENCE ( KDIAG(74) , KCLDMAS ) |
| 1044 |
EQUIVALENCE ( KDIAG(75) , KUWND ) |
| 1045 |
EQUIVALENCE ( KDIAG(76) , KVWND ) |
| 1046 |
EQUIVALENCE ( KDIAG(77) , KTMPU ) |
| 1047 |
EQUIVALENCE ( KDIAG(78) , KSPHU ) |
| 1048 |
EQUIVALENCE ( KDIAG(79) , KRFT ) |
| 1049 |
EQUIVALENCE ( KDIAG(80) , KPS ) |
| 1050 |
EQUIVALENCE ( KDIAG(81) , KTKE ) |
| 1051 |
EQUIVALENCE ( KDIAG(82) , KSWGCLR ) |
| 1052 |
EQUIVALENCE ( KDIAG(84) , KSDIAG1 ) |
| 1053 |
EQUIVALENCE ( KDIAG(85) , KSDIAG2 ) |
| 1054 |
EQUIVALENCE ( KDIAG(86) , KUDIAG1 ) |
| 1055 |
EQUIVALENCE ( KDIAG(87) , KUDIAG2 ) |
| 1056 |
EQUIVALENCE ( KDIAG(88) , KDIABU ) |
| 1057 |
EQUIVALENCE ( KDIAG(89) , KDIABV ) |
| 1058 |
EQUIVALENCE ( KDIAG(90) , KDIABT ) |
| 1059 |
EQUIVALENCE ( KDIAG(91) , KDIABQ ) |
| 1060 |
EQUIVALENCE ( KDIAG(92) , KRFU ) |
| 1061 |
EQUIVALENCE ( KDIAG(93) , KRFV ) |
| 1062 |
EQUIVALENCE ( KDIAG(94) , KGWDU ) |
| 1063 |
EQUIVALENCE ( KDIAG(95) , KGWDV ) |
| 1064 |
EQUIVALENCE ( KDIAG(96) , KGWDUS ) |
| 1065 |
EQUIVALENCE ( KDIAG(97) , KGWDVS ) |
| 1066 |
EQUIVALENCE ( KDIAG(98) , KGWDUT ) |
| 1067 |
EQUIVALENCE ( KDIAG(99) , KGWDVT ) |
| 1068 |
EQUIVALENCE ( KDIAG(100), KLZRAD ) |
| 1069 |
EQUIVALENCE ( KDIAG(101), KSLP ) |
| 1070 |
EQUIVALENCE ( KDIAG(102), KVAVEUQ ) |
| 1071 |
EQUIVALENCE ( KDIAG(103), KVAVEVQ ) |
| 1072 |
EQUIVALENCE ( KDIAG(104), KVAVEUT ) |
| 1073 |
EQUIVALENCE ( KDIAG(105), KVAVEVT ) |
| 1074 |
EQUIVALENCE ( KDIAG(106), KCLDFRC ) |
| 1075 |
EQUIVALENCE ( KDIAG(107), KTPW ) |
| 1076 |
EQUIVALENCE ( KDIAG(108), KU2M ) |
| 1077 |
EQUIVALENCE ( KDIAG(109), KV2M ) |
| 1078 |
EQUIVALENCE ( KDIAG(110), KT2M ) |
| 1079 |
EQUIVALENCE ( KDIAG(111), KQ2M ) |
| 1080 |
EQUIVALENCE ( KDIAG(112), KU10M ) |
| 1081 |
EQUIVALENCE ( KDIAG(113), KV10M ) |
| 1082 |
EQUIVALENCE ( KDIAG(114), KT10M ) |
| 1083 |
EQUIVALENCE ( KDIAG(115), KQ10M ) |
| 1084 |
EQUIVALENCE ( KDIAG(116), KDTRAIN ) |
| 1085 |
EQUIVALENCE ( KDIAG(117), KQFILL ) |
| 1086 |
EQUIVALENCE ( KDIAG(119), KVAVEQFIL ) |
| 1087 |
EQUIVALENCE ( KDIAG(120), KSHAPU ) |
| 1088 |
EQUIVALENCE ( KDIAG(121), KSHAPV ) |
| 1089 |
EQUIVALENCE ( KDIAG(122), KSHAPT ) |
| 1090 |
EQUIVALENCE ( KDIAG(123), KSHAPQ ) |
| 1091 |
EQUIVALENCE ( KDIAG(124), KSDIAG3 ) |
| 1092 |
EQUIVALENCE ( KDIAG(125), KSDIAG4 ) |
| 1093 |
EQUIVALENCE ( KDIAG(126), KSDIAG5 ) |
| 1094 |
EQUIVALENCE ( KDIAG(127), KSDIAG6 ) |
| 1095 |
EQUIVALENCE ( KDIAG(128), KSDIAG7 ) |
| 1096 |
EQUIVALENCE ( KDIAG(129), KSDIAG8 ) |
| 1097 |
EQUIVALENCE ( KDIAG(130), KSDIAG9 ) |
| 1098 |
EQUIVALENCE ( KDIAG(131), KSDIAG10) |
| 1099 |
EQUIVALENCE ( KDIAG(132), KUDIAG3 ) |
| 1100 |
EQUIVALENCE ( KDIAG(133), KUDIAG4 ) |
| 1101 |
EQUIVALENCE ( KDIAG(134), KUDIAG5 ) |
| 1102 |
EQUIVALENCE ( KDIAG(135), KUDIAG6 ) |
| 1103 |
EQUIVALENCE ( KDIAG(136), KUDIAG7 ) |
| 1104 |
EQUIVALENCE ( KDIAG(137), KUDIAG8 ) |
| 1105 |
EQUIVALENCE ( KDIAG(138), KUDIAG9 ) |
| 1106 |
EQUIVALENCE ( KDIAG(139), KUDIAG10) |
| 1107 |
EQUIVALENCE ( KDIAG(140), KCLDMID ) |
| 1108 |
EQUIVALENCE ( KDIAG(141), KCLDHI ) |
| 1109 |
EQUIVALENCE ( KDIAG(142), KTAULOW ) |
| 1110 |
EQUIVALENCE ( KDIAG(143), KTAUMID ) |
| 1111 |
EQUIVALENCE ( KDIAG(144), KTAUHI ) |
| 1112 |
EQUIVALENCE ( KDIAG(145), KCLDNP ) |
| 1113 |
EQUIVALENCE ( KDIAG(146), KCLDPRS ) |
| 1114 |
EQUIVALENCE ( KDIAG(147), KCTPCNT ) |
| 1115 |
EQUIVALENCE ( KDIAG(148), KCLDTMP ) |
| 1116 |
EQUIVALENCE ( KDIAG(149), KCTTCNT ) |
| 1117 |
EQUIVALENCE ( KDIAG(150), KTAULOWC) |
| 1118 |
EQUIVALENCE ( KDIAG(151), KTAUMIDC) |
| 1119 |
EQUIVALENCE ( KDIAG(152), KTAUHIC ) |
| 1120 |
EQUIVALENCE ( KDIAG(153), KTCANOPY ) |
| 1121 |
EQUIVALENCE ( KDIAG(154), KTDEEP ) |
| 1122 |
EQUIVALENCE ( KDIAG(155), KQCANOPY ) |
| 1123 |
EQUIVALENCE ( KDIAG(156), KSMSHAL ) |
| 1124 |
EQUIVALENCE ( KDIAG(157), KSMROOT ) |
| 1125 |
EQUIVALENCE ( KDIAG(158), KSMDEEP ) |
| 1126 |
EQUIVALENCE ( KDIAG(159), KCAPACITY ) |
| 1127 |
EQUIVALENCE ( KDIAG(160), KSNOW ) |
| 1128 |
EQUIVALENCE ( KDIAG(161), KRAINCON ) |
| 1129 |
EQUIVALENCE ( KDIAG(162), KRAINLSP ) |
| 1130 |
EQUIVALENCE ( KDIAG(163), KSNOWFALL ) |
| 1131 |
EQUIVALENCE ( KDIAG(164), KRUNOFF ) |
| 1132 |
EQUIVALENCE ( KDIAG(165), KFWSOIL ) |
| 1133 |
EQUIVALENCE ( KDIAG(166), KGDRAIN ) |
| 1134 |
EQUIVALENCE ( KDIAG(167), KSNOWMELT ) |
| 1135 |
EQUIVALENCE ( KDIAG(168), KERESV ) |
| 1136 |
EQUIVALENCE ( KDIAG(169), KESOIL ) |
| 1137 |
EQUIVALENCE ( KDIAG(170), KEVEG ) |
| 1138 |
EQUIVALENCE ( KDIAG(171), KESNOW ) |
| 1139 |
EQUIVALENCE ( KDIAG(172), KPARDF ) |
| 1140 |
EQUIVALENCE ( KDIAG(173), KPARDR ) |
| 1141 |
EQUIVALENCE ( KDIAG(174), KLAI ) |
| 1142 |
EQUIVALENCE ( KDIAG(175), KGREEN ) |
| 1143 |
EQUIVALENCE ( KDIAG(176), KDLWDTC ) |
| 1144 |
EQUIVALENCE ( KDIAG(177), KDHDTC ) |
| 1145 |
EQUIVALENCE ( KDIAG(178), KDEDTC ) |
| 1146 |
EQUIVALENCE ( KDIAG(179), KVDTMOIST ) |
| 1147 |
EQUIVALENCE ( KDIAG(180), KVDTTURB ) |
| 1148 |
EQUIVALENCE ( KDIAG(181), KVDTRADLW ) |
| 1149 |
EQUIVALENCE ( KDIAG(182), KVDTRADSW ) |
| 1150 |
EQUIVALENCE ( KDIAG(184), KPSUBCLD ) |
| 1151 |
EQUIVALENCE ( KDIAG(185), KPSUBCLDC ) |
| 1152 |
EQUIVALENCE ( KDIAG(186), KLCL ) |
| 1153 |
EQUIVALENCE ( KDIAG(187), KSDIAGC ) |
| 1154 |
EQUIVALENCE ( KDIAG(188), KSDIAGCC ) |
| 1155 |
|
| 1156 |
EQUIVALENCE ( KDIAG(190), KEVPOT ) |
| 1157 |
EQUIVALENCE ( KDIAG(191), KRHCHECK ) |
| 1158 |
EQUIVALENCE ( KDIAG(192), KDHDQA ) |
| 1159 |
EQUIVALENCE ( KDIAG(193), KDEDQA ) |
| 1160 |
EQUIVALENCE ( KDIAG(194), KDTC ) |
| 1161 |
EQUIVALENCE ( KDIAG(195), KDQC ) |
| 1162 |
EQUIVALENCE ( KDIAG(196), KTCDTC ) |
| 1163 |
EQUIVALENCE ( KDIAG(197), KRADDTC ) |
| 1164 |
EQUIVALENCE ( KDIAG(198), KSENSDTC ) |
| 1165 |
EQUIVALENCE ( KDIAG(199), KLATDTC ) |
| 1166 |
EQUIVALENCE ( KDIAG(200), KTDDTC ) |
| 1167 |
EQUIVALENCE ( KDIAG(201), KQCDTC ) |
| 1168 |
EQUIVALENCE ( KDIAG(202), KTRBQLIQ ) |
| 1169 |
EQUIVALENCE ( KDIAG(203), KTRBFCC ) |
| 1170 |
EQUIVALENCE ( KDIAG(204), KALBEDO ) |
| 1171 |
EQUIVALENCE ( KDIAG(205), KALBVISDR ) |
| 1172 |
EQUIVALENCE ( KDIAG(206), KALBVISDF ) |
| 1173 |
EQUIVALENCE ( KDIAG(207), KALBNIRDR ) |
| 1174 |
EQUIVALENCE ( KDIAG(208), KALBNIRDF ) |
| 1175 |
EQUIVALENCE ( KDIAG(209), KTAUAVE ) |
| 1176 |
EQUIVALENCE ( KDIAG(210), KALBEDOC ) |
| 1177 |
EQUIVALENCE ( KDIAG(211), KRHCHECKT ) |
| 1178 |
EQUIVALENCE ( KDIAG(212), KRHCHECKQ ) |
| 1179 |
EQUIVALENCE ( KDIAG(213), KCLDLSP ) |
| 1180 |
EQUIVALENCE ( KDIAG(214), KLZLOW ) |
| 1181 |
EQUIVALENCE ( KDIAG(215), KLZMID ) |
| 1182 |
EQUIVALENCE ( KDIAG(216), KLZHI ) |
| 1183 |
EQUIVALENCE ( KDIAG(217), KLZTOT ) |
| 1184 |
EQUIVALENCE ( KDIAG(218), KCAPE ) |
| 1185 |
EQUIVALENCE ( KDIAG(219), KHSUBCL ) |
| 1186 |
EQUIVALENCE ( KDIAG(220), KHSTAR ) |
| 1187 |
EQUIVALENCE ( KDIAG(221), KCONT ) |
| 1188 |
EQUIVALENCE ( KDIAG(222), KCONQ ) |
| 1189 |
EQUIVALENCE ( KDIAG(223), KLST ) |
| 1190 |
EQUIVALENCE ( KDIAG(224), KLSQ ) |
| 1191 |
EQUIVALENCE ( KDIAG(225), KCONEVPT ) |
| 1192 |
EQUIVALENCE ( KDIAG(226), KCONEVPQ ) |
| 1193 |
EQUIVALENCE ( KDIAG(227), KLSEVPT ) |
| 1194 |
EQUIVALENCE ( KDIAG(228), KLSEVPQ ) |
| 1195 |
EQUIVALENCE ( KDIAG(229), KGWCUMID ) |
| 1196 |
EQUIVALENCE ( KDIAG(230), KGWCVMID ) |
| 1197 |
EQUIVALENCE ( KDIAG(231), KCLDSTD ) |
| 1198 |
EQUIVALENCE ( KDIAG(232), KGWCUBAR ) |
| 1199 |
EQUIVALENCE ( KDIAG(233), KGWCVBAR ) |
| 1200 |
EQUIVALENCE ( KDIAG(234), KGWCUS ) |
| 1201 |
EQUIVALENCE ( KDIAG(235), KGWCVS ) |
| 1202 |
EQUIVALENCE ( KDIAG(236), KGWCU ) |
| 1203 |
EQUIVALENCE ( KDIAG(237), KGWCV ) |
| 1204 |
|
| 1205 |
|
| 1206 |
C Diagnostic Counters |
| 1207 |
C ------------------- |
| 1208 |
EQUIVALENCE ( NDIAG( 1) , NUFLUX ) |
| 1209 |
EQUIVALENCE ( NDIAG( 2) , NVFLUX ) |
| 1210 |
EQUIVALENCE ( NDIAG( 3) , NHFLUX ) |
| 1211 |
EQUIVALENCE ( NDIAG( 4) , NEFLUX ) |
| 1212 |
EQUIVALENCE ( NDIAG( 5) , NQICE ) |
| 1213 |
EQUIVALENCE ( NDIAG( 6) , NRADLWG ) |
| 1214 |
EQUIVALENCE ( NDIAG( 7) , NRADSWG ) |
| 1215 |
EQUIVALENCE ( NDIAG( 8) , NRI ) |
| 1216 |
EQUIVALENCE ( NDIAG( 9) , NCT ) |
| 1217 |
EQUIVALENCE ( NDIAG(10) , NCU ) |
| 1218 |
EQUIVALENCE ( NDIAG(11) , NKH ) |
| 1219 |
EQUIVALENCE ( NDIAG(12) , NKM ) |
| 1220 |
EQUIVALENCE ( NDIAG(13) , NTURBU ) |
| 1221 |
EQUIVALENCE ( NDIAG(14) , NTURBV ) |
| 1222 |
EQUIVALENCE ( NDIAG(15) , NTURBT ) |
| 1223 |
EQUIVALENCE ( NDIAG(16) , NTURBQ ) |
| 1224 |
EQUIVALENCE ( NDIAG(17) , NMOISTT ) |
| 1225 |
EQUIVALENCE ( NDIAG(18) , NMOISTQ ) |
| 1226 |
EQUIVALENCE ( NDIAG(19) , NRADLW ) |
| 1227 |
EQUIVALENCE ( NDIAG(20) , NRADSW ) |
| 1228 |
EQUIVALENCE ( NDIAG(21) , NPREACC ) |
| 1229 |
EQUIVALENCE ( NDIAG(22) , NPRECON ) |
| 1230 |
EQUIVALENCE ( NDIAG(23) , NTUFLUX ) |
| 1231 |
EQUIVALENCE ( NDIAG(24) , NTVFLUX ) |
| 1232 |
EQUIVALENCE ( NDIAG(25) , NTTFLUX ) |
| 1233 |
EQUIVALENCE ( NDIAG(26) , NTQFLUX ) |
| 1234 |
EQUIVALENCE ( NDIAG(27) , NCN ) |
| 1235 |
EQUIVALENCE ( NDIAG(28) , NWINDS ) |
| 1236 |
EQUIVALENCE ( NDIAG(29) , NDTSRF ) |
| 1237 |
EQUIVALENCE ( NDIAG(30) , NTGROUND) |
| 1238 |
EQUIVALENCE ( NDIAG(31) , NTS ) |
| 1239 |
EQUIVALENCE ( NDIAG(32) , NDTG ) |
| 1240 |
EQUIVALENCE ( NDIAG(33) , NQG ) |
| 1241 |
EQUIVALENCE ( NDIAG(34) , NQS ) |
| 1242 |
EQUIVALENCE ( NDIAG(35) , NTGRLW ) |
| 1243 |
EQUIVALENCE ( NDIAG(36) , NLWGUP ) |
| 1244 |
EQUIVALENCE ( NDIAG(37) , NOLR ) |
| 1245 |
EQUIVALENCE ( NDIAG(38) , NOLRCLR ) |
| 1246 |
EQUIVALENCE ( NDIAG(39) , NLWGCLR ) |
| 1247 |
EQUIVALENCE ( NDIAG(40) , NLWCLR ) |
| 1248 |
EQUIVALENCE ( NDIAG(41) , NTLW ) |
| 1249 |
EQUIVALENCE ( NDIAG(42) , NSHRAD ) |
| 1250 |
EQUIVALENCE ( NDIAG(43) , NOZLW ) |
| 1251 |
EQUIVALENCE ( NDIAG(44) , NCLDRAS ) |
| 1252 |
EQUIVALENCE ( NDIAG(45) , NCLDTOT ) |
| 1253 |
EQUIVALENCE ( NDIAG(46) , NLWGDOWN) |
| 1254 |
EQUIVALENCE ( NDIAG(47) , NGWDT ) |
| 1255 |
EQUIVALENCE ( NDIAG(48) , NRADSWT ) |
| 1256 |
EQUIVALENCE ( NDIAG(49) , NTAUCLD ) |
| 1257 |
EQUIVALENCE ( NDIAG(50) , NTAUCLDC) |
| 1258 |
EQUIVALENCE ( NDIAG(51) , NCLDLOW ) |
| 1259 |
EQUIVALENCE ( NDIAG(52) , NEVAP ) |
| 1260 |
EQUIVALENCE ( NDIAG(53) , NDPDT ) |
| 1261 |
EQUIVALENCE ( NDIAG(58) , NOMEGA ) |
| 1262 |
EQUIVALENCE ( NDIAG(59) , NDUDT ) |
| 1263 |
EQUIVALENCE ( NDIAG(60) , NDVDT ) |
| 1264 |
EQUIVALENCE ( NDIAG(61) , NDTDT ) |
| 1265 |
EQUIVALENCE ( NDIAG(62) , NDQDT ) |
| 1266 |
EQUIVALENCE ( NDIAG(63) , NVORT ) |
| 1267 |
EQUIVALENCE ( NDIAG(65) , NDTLS ) |
| 1268 |
EQUIVALENCE ( NDIAG(66) , NDQLS ) |
| 1269 |
EQUIVALENCE ( NDIAG(67) , NUSTAR ) |
| 1270 |
EQUIVALENCE ( NDIAG(68) , NZ0 ) |
| 1271 |
EQUIVALENCE ( NDIAG(69) , NFRQTRB ) |
| 1272 |
EQUIVALENCE ( NDIAG(70) , NPBL ) |
| 1273 |
EQUIVALENCE ( NDIAG(71) , NSWCLR ) |
| 1274 |
EQUIVALENCE ( NDIAG(72) , NOSR ) |
| 1275 |
EQUIVALENCE ( NDIAG(73) , NOSRCLR ) |
| 1276 |
EQUIVALENCE ( NDIAG(74) , NCLDMAS ) |
| 1277 |
EQUIVALENCE ( NDIAG(75) , NUWND ) |
| 1278 |
EQUIVALENCE ( NDIAG(76) , NVWND ) |
| 1279 |
EQUIVALENCE ( NDIAG(77) , NTMPU ) |
| 1280 |
EQUIVALENCE ( NDIAG(78) , NSPHU ) |
| 1281 |
EQUIVALENCE ( NDIAG(79) , NRFT ) |
| 1282 |
EQUIVALENCE ( NDIAG(80) , NPS ) |
| 1283 |
EQUIVALENCE ( NDIAG(81) , NTKE ) |
| 1284 |
EQUIVALENCE ( NDIAG(82) , NSWGCLR ) |
| 1285 |
EQUIVALENCE ( NDIAG(84) , NSDIAG1 ) |
| 1286 |
EQUIVALENCE ( NDIAG(85) , NSDIAG2 ) |
| 1287 |
EQUIVALENCE ( NDIAG(86) , NUDIAG1 ) |
| 1288 |
EQUIVALENCE ( NDIAG(87) , NUDIAG2 ) |
| 1289 |
EQUIVALENCE ( NDIAG(88) , NDIABU ) |
| 1290 |
EQUIVALENCE ( NDIAG(89) , NDIABV ) |
| 1291 |
EQUIVALENCE ( NDIAG(90) , NDIABT ) |
| 1292 |
EQUIVALENCE ( NDIAG(91) , NDIABQ ) |
| 1293 |
EQUIVALENCE ( NDIAG(92) , NRFU ) |
| 1294 |
EQUIVALENCE ( NDIAG(93) , NRFV ) |
| 1295 |
EQUIVALENCE ( NDIAG(94) , NGWDU ) |
| 1296 |
EQUIVALENCE ( NDIAG(95) , NGWDV ) |
| 1297 |
EQUIVALENCE ( NDIAG(96) , NGWDUS ) |
| 1298 |
EQUIVALENCE ( NDIAG(97) , NGWDVS ) |
| 1299 |
EQUIVALENCE ( NDIAG(98) , NGWDUT ) |
| 1300 |
EQUIVALENCE ( NDIAG(99) , NGWDVT ) |
| 1301 |
EQUIVALENCE ( NDIAG(100), NLZRAD ) |
| 1302 |
EQUIVALENCE ( NDIAG(101), NSLP ) |
| 1303 |
EQUIVALENCE ( NDIAG(102), NVAVEUQ ) |
| 1304 |
EQUIVALENCE ( NDIAG(103), NVAVEVQ ) |
| 1305 |
EQUIVALENCE ( NDIAG(104), NVAVEUT ) |
| 1306 |
EQUIVALENCE ( NDIAG(105), NVAVEVT ) |
| 1307 |
EQUIVALENCE ( NDIAG(106), NCLDFRC ) |
| 1308 |
EQUIVALENCE ( NDIAG(107), NTPW ) |
| 1309 |
EQUIVALENCE ( NDIAG(108), NU2M ) |
| 1310 |
EQUIVALENCE ( NDIAG(109), NV2M ) |
| 1311 |
EQUIVALENCE ( NDIAG(110), NT2M ) |
| 1312 |
EQUIVALENCE ( NDIAG(111), NQ2M ) |
| 1313 |
EQUIVALENCE ( NDIAG(112), NU10M ) |
| 1314 |
EQUIVALENCE ( NDIAG(113), NV10M ) |
| 1315 |
EQUIVALENCE ( NDIAG(114), NT10M ) |
| 1316 |
EQUIVALENCE ( NDIAG(115), NQ10M ) |
| 1317 |
EQUIVALENCE ( NDIAG(116), NDTRAIN ) |
| 1318 |
EQUIVALENCE ( NDIAG(117), NQFILL ) |
| 1319 |
EQUIVALENCE ( NDIAG(119), NVAVEQFIL ) |
| 1320 |
EQUIVALENCE ( NDIAG(120), NSHAPU ) |
| 1321 |
EQUIVALENCE ( NDIAG(121), NSHAPV ) |
| 1322 |
EQUIVALENCE ( NDIAG(122), NSHAPT ) |
| 1323 |
EQUIVALENCE ( NDIAG(123), NSHAPQ ) |
| 1324 |
EQUIVALENCE ( NDIAG(124), NSDIAG3 ) |
| 1325 |
EQUIVALENCE ( NDIAG(125), NSDIAG4 ) |
| 1326 |
EQUIVALENCE ( NDIAG(126), NSDIAG5 ) |
| 1327 |
EQUIVALENCE ( NDIAG(127), NSDIAG6 ) |
| 1328 |
EQUIVALENCE ( NDIAG(128), NSDIAG7 ) |
| 1329 |
EQUIVALENCE ( NDIAG(129), NSDIAG8 ) |
| 1330 |
EQUIVALENCE ( NDIAG(130), NSDIAG9 ) |
| 1331 |
EQUIVALENCE ( NDIAG(131), NSDIAG10) |
| 1332 |
EQUIVALENCE ( NDIAG(132), NUDIAG3 ) |
| 1333 |
EQUIVALENCE ( NDIAG(133), NUDIAG4 ) |
| 1334 |
EQUIVALENCE ( NDIAG(134), NUDIAG5 ) |
| 1335 |
EQUIVALENCE ( NDIAG(135), NUDIAG6 ) |
| 1336 |
EQUIVALENCE ( NDIAG(136), NUDIAG7 ) |
| 1337 |
EQUIVALENCE ( NDIAG(137), NUDIAG8 ) |
| 1338 |
EQUIVALENCE ( NDIAG(138), NUDIAG9 ) |
| 1339 |
EQUIVALENCE ( NDIAG(139), NUDIAG10) |
| 1340 |
EQUIVALENCE ( NDIAG(140), NCLDMID ) |
| 1341 |
EQUIVALENCE ( NDIAG(141), NCLDHI ) |
| 1342 |
EQUIVALENCE ( NDIAG(142), NTAULOW ) |
| 1343 |
EQUIVALENCE ( NDIAG(143), NTAUMID ) |
| 1344 |
EQUIVALENCE ( NDIAG(144), NTAUHI ) |
| 1345 |
EQUIVALENCE ( NDIAG(145), NCLDNP ) |
| 1346 |
EQUIVALENCE ( NDIAG(146), NCLDPRS ) |
| 1347 |
EQUIVALENCE ( NDIAG(147), NCTPCNT ) |
| 1348 |
EQUIVALENCE ( NDIAG(148), NCLDTMP ) |
| 1349 |
EQUIVALENCE ( NDIAG(149), NCTTCNT ) |
| 1350 |
EQUIVALENCE ( NDIAG(150), NTAULOWC) |
| 1351 |
EQUIVALENCE ( NDIAG(151), NTAUMIDC) |
| 1352 |
EQUIVALENCE ( NDIAG(152), NTAUHIC ) |
| 1353 |
EQUIVALENCE ( NDIAG(153), NTCANOPY ) |
| 1354 |
EQUIVALENCE ( NDIAG(154), NTDEEP ) |
| 1355 |
EQUIVALENCE ( NDIAG(155), NQCANOPY ) |
| 1356 |
EQUIVALENCE ( NDIAG(156), NSMSHAL ) |
| 1357 |
EQUIVALENCE ( NDIAG(157), NSMROOT ) |
| 1358 |
EQUIVALENCE ( NDIAG(158), NSMDEEP ) |
| 1359 |
EQUIVALENCE ( NDIAG(159), NCAPACITY ) |
| 1360 |
EQUIVALENCE ( NDIAG(160), NSNOW ) |
| 1361 |
EQUIVALENCE ( NDIAG(161), NRAINCON ) |
| 1362 |
EQUIVALENCE ( NDIAG(162), NRAINLSP ) |
| 1363 |
EQUIVALENCE ( NDIAG(163), NSNOWFALL ) |
| 1364 |
EQUIVALENCE ( NDIAG(164), NRUNOFF ) |
| 1365 |
EQUIVALENCE ( NDIAG(165), NFWSOIL ) |
| 1366 |
EQUIVALENCE ( NDIAG(166), NGDRAIN ) |
| 1367 |
EQUIVALENCE ( NDIAG(167), NSNOWMELT ) |
| 1368 |
EQUIVALENCE ( NDIAG(168), NERESV ) |
| 1369 |
EQUIVALENCE ( NDIAG(169), NESOIL ) |
| 1370 |
EQUIVALENCE ( NDIAG(170), NEVEG ) |
| 1371 |
EQUIVALENCE ( NDIAG(171), NESNOW ) |
| 1372 |
EQUIVALENCE ( NDIAG(172), NPARDF ) |
| 1373 |
EQUIVALENCE ( NDIAG(173), NPARDR ) |
| 1374 |
EQUIVALENCE ( NDIAG(174), NLAI ) |
| 1375 |
EQUIVALENCE ( NDIAG(175), NGREEN ) |
| 1376 |
EQUIVALENCE ( NDIAG(176), NDLWDTC ) |
| 1377 |
EQUIVALENCE ( NDIAG(177), NDHDTC ) |
| 1378 |
EQUIVALENCE ( NDIAG(178), NDEDTC ) |
| 1379 |
EQUIVALENCE ( NDIAG(179), NVDTMOIST ) |
| 1380 |
EQUIVALENCE ( NDIAG(180), NVDTTURB ) |
| 1381 |
EQUIVALENCE ( NDIAG(181), NVDTRADLW ) |
| 1382 |
EQUIVALENCE ( NDIAG(182), NVDTRADSW ) |
| 1383 |
EQUIVALENCE ( NDIAG(184), NPSUBCLD ) |
| 1384 |
EQUIVALENCE ( NDIAG(185), NPSUBCLDC ) |
| 1385 |
EQUIVALENCE ( NDIAG(186), NLCL ) |
| 1386 |
EQUIVALENCE ( NDIAG(187), NSDIAGC ) |
| 1387 |
EQUIVALENCE ( NDIAG(188), NSDIAGCC ) |
| 1388 |
|
| 1389 |
EQUIVALENCE ( NDIAG(190), NEVPOT ) |
| 1390 |
EQUIVALENCE ( NDIAG(191), NRHCHECK ) |
| 1391 |
EQUIVALENCE ( NDIAG(192), NDHDQA ) |
| 1392 |
EQUIVALENCE ( NDIAG(193), NDEDQA ) |
| 1393 |
EQUIVALENCE ( NDIAG(194), NDTC ) |
| 1394 |
EQUIVALENCE ( NDIAG(195), NDQC ) |
| 1395 |
EQUIVALENCE ( NDIAG(196), NTCDTC ) |
| 1396 |
EQUIVALENCE ( NDIAG(197), NRADDTC ) |
| 1397 |
EQUIVALENCE ( NDIAG(198), NSENSDTC ) |
| 1398 |
EQUIVALENCE ( NDIAG(199), NLATDTC ) |
| 1399 |
EQUIVALENCE ( NDIAG(200), NTDDTC ) |
| 1400 |
EQUIVALENCE ( NDIAG(201), NQCDTC ) |
| 1401 |
EQUIVALENCE ( NDIAG(202), NTRBQLIQ ) |
| 1402 |
EQUIVALENCE ( NDIAG(203), NTRBFCC ) |
| 1403 |
EQUIVALENCE ( NDIAG(204), NALBEDO ) |
| 1404 |
EQUIVALENCE ( NDIAG(205), NALBVISDR ) |
| 1405 |
EQUIVALENCE ( NDIAG(206), NALBVISDF ) |
| 1406 |
EQUIVALENCE ( NDIAG(207), NALBNIRDR ) |
| 1407 |
EQUIVALENCE ( NDIAG(208), NALBNIRDF ) |
| 1408 |
EQUIVALENCE ( NDIAG(209), NTAUAVE ) |
| 1409 |
EQUIVALENCE ( NDIAG(210), NALBEDOC ) |
| 1410 |
EQUIVALENCE ( NDIAG(211), NRHCHECKT ) |
| 1411 |
EQUIVALENCE ( NDIAG(212), NRHCHECKQ ) |
| 1412 |
EQUIVALENCE ( NDIAG(213), NCLDLSP ) |
| 1413 |
EQUIVALENCE ( NDIAG(214), NLZLOW ) |
| 1414 |
EQUIVALENCE ( NDIAG(215), NLZMID ) |
| 1415 |
EQUIVALENCE ( NDIAG(216), NLZHI ) |
| 1416 |
EQUIVALENCE ( NDIAG(217), NLZTOT ) |
| 1417 |
EQUIVALENCE ( NDIAG(218), NCAPE ) |
| 1418 |
EQUIVALENCE ( NDIAG(219), NHSUBCL ) |
| 1419 |
EQUIVALENCE ( NDIAG(220), NHSTAR ) |
| 1420 |
EQUIVALENCE ( NDIAG(221), NCONT ) |
| 1421 |
EQUIVALENCE ( NDIAG(222), NCONQ ) |
| 1422 |
EQUIVALENCE ( NDIAG(223), NLST ) |
| 1423 |
EQUIVALENCE ( NDIAG(224), NLSQ ) |
| 1424 |
EQUIVALENCE ( NDIAG(225), NCONEVPT ) |
| 1425 |
EQUIVALENCE ( NDIAG(226), NCONEVPQ ) |
| 1426 |
EQUIVALENCE ( NDIAG(227), NLSEVPT ) |
| 1427 |
EQUIVALENCE ( NDIAG(228), NLSEVPQ ) |
| 1428 |
EQUIVALENCE ( NDIAG(229), NGWCUMID ) |
| 1429 |
EQUIVALENCE ( NDIAG(230), NGWCVMID ) |
| 1430 |
EQUIVALENCE ( NDIAG(231), NCLDSTD ) |
| 1431 |
EQUIVALENCE ( NDIAG(232), NGWCUBAR ) |
| 1432 |
EQUIVALENCE ( NDIAG(233), NGWCVBAR ) |
| 1433 |
EQUIVALENCE ( NDIAG(234), NGWCUS ) |
| 1434 |
EQUIVALENCE ( NDIAG(235), NGWCVS ) |
| 1435 |
EQUIVALENCE ( NDIAG(236), NGWCU ) |
| 1436 |
EQUIVALENCE ( NDIAG(237), NGWCV ) |
| 1437 |
|
| 1438 |
#endif /* ALLOW_DIRECT_FILLING_WITH_EQUIV */ |
| 1439 |
|
| 1440 |
C diagnostics common |
| 1441 |
C qSdiag - storage array for (per level) statistics |
| 1442 |
|
| 1443 |
_RL qdiag(1-OLx:sNx+Olx,1-Oly:sNy+Oly,numdiags,nSx,nSy) |
| 1444 |
_RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy) |
| 1445 |
integer ndiag(numdiags,nSx,nSy) |
| 1446 |
|
| 1447 |
common /diagnostics/ qdiag, qSdiag, ndiag |
| 1448 |
|
| 1449 |
|
| 1450 |
C diag_choices common |
| 1451 |
C freq :: frequency (in s) to write output stream # n |
| 1452 |
C phase :: phase (in s) to write output stream # n |
| 1453 |
C nfields(n) :: number of active diagnostics for output stream # n |
| 1454 |
C nActive(n) :: number of active diagnostics (including counters) |
| 1455 |
C for output stream # n |
| 1456 |
C fflags(n) :: character string with per-file flags |
| 1457 |
|
| 1458 |
integer nlists |
| 1459 |
|
| 1460 |
_RL freq(numlists), phase(numlists) |
| 1461 |
_RL levs (numLevels,numlists) |
| 1462 |
integer nlevels(numlists) |
| 1463 |
integer nfields(numlists) |
| 1464 |
integer nActive(numlists) |
| 1465 |
integer idiag(numperlist,numlists) |
| 1466 |
integer mdiag(numperlist,numlists) |
| 1467 |
integer jdiag(numperlist,numlists) |
| 1468 |
character*8 flds (numperlist,numlists) |
| 1469 |
character*80 fnames(numlists) |
| 1470 |
character*8 fflags(numlists) |
| 1471 |
logical dumpatlast, diag_mdsio, diag_mnc |
| 1472 |
logical diag_pickup_read, diag_pickup_write |
| 1473 |
logical diag_pickup_read_mdsio, diag_pickup_write_mdsio |
| 1474 |
logical diag_pickup_read_mnc, diag_pickup_write_mnc |
| 1475 |
|
| 1476 |
common /diag_choices/ |
| 1477 |
& freq, phase, levs, nlevels, |
| 1478 |
& nfields, nActive, nlists, |
| 1479 |
& idiag, mdiag, jdiag, |
| 1480 |
& dumpatlast, diag_mdsio, diag_mnc, |
| 1481 |
& diag_pickup_read, diag_pickup_write, |
| 1482 |
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
| 1483 |
& diag_pickup_read_mnc, diag_pickup_write_mnc, |
| 1484 |
& flds, fnames, fflags |
| 1485 |
|
| 1486 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 1487 |
|
| 1488 |
_RL diagSt_freq(numlists), diagSt_phase(numlists) |
| 1489 |
CHARACTER*8 diagSt_Flds(numperlist,numlists) |
| 1490 |
CHARACTER*80 diagSt_Fname(numlists) |
| 1491 |
INTEGER iSdiag(numperlist,numlists) |
| 1492 |
INTEGER jSdiag(numperlist,numlists) |
| 1493 |
INTEGER mSdiag(numperlist,numlists) |
| 1494 |
INTEGER diagSt_region(0:nRegions,numlists) |
| 1495 |
INTEGER diagSt_nbFlds(numlists) |
| 1496 |
INTEGER diagSt_nbActv(numlists) |
| 1497 |
INTEGER diagSt_nbLists |
| 1498 |
INTEGER diagSt_ioUnit(numlists) |
| 1499 |
LOGICAL diagSt_ascii, diagSt_mnc |
| 1500 |
COMMON / DIAG_STATIS / |
| 1501 |
& diagSt_freq, diagSt_phase, |
| 1502 |
& iSdiag, jSdiag, mSdiag, diagSt_region, |
| 1503 |
& diagSt_nbFlds, diagSt_nbActv, diagSt_nbLists, |
| 1504 |
& diagSt_ioUnit, |
| 1505 |
& diagSt_Ascii, diagSt_mnc, |
| 1506 |
& diagSt_Flds, diagSt_Fname |
| 1507 |
|
| 1508 |
CEH3 ;;; Local Variables: *** |
| 1509 |
CEH3 ;;; mode:fortran *** |
| 1510 |
CEH3 ;;; End: *** |
Parent Directory
| 
Revision Log
| 
Revision Graph