Page 1 Source Listing VTADVF 2014-12-17 20:47 /tmpnwprd/ifortCsfCKq.i 1 # 1 "VTADVF.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE VTADVF 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 C SUBPROGRAM: VTADVF VERTICAL ADVECTION 8 C PRGRMMR: JANJIC ORG: W/NP22 DATE: 93-11-17 9 C 10 C ABSTRACT: 11 C VTADVF CALCULATES THE CONTRIBUTION OF THE VERTICAL ADVECTION 12 C TO THE TENDENCIES OF TEMPERATURE, WIND COMPONENTS, AND TURBULENT 13 C KINETIC ENERGY AND THEN UPDATES THOSE VARIABLES. FOR ALL THESE 14 C VARIABLES A SIMPLE CENTERED DIFFERENCE SCHEME IN SPACE IS USED 15 C IN CONJUNCTION WITH THE PURE EULER-BACKWARD TIME SCHEME. 16 C 17 C PROGRAM HISTORY LOG: 18 C 87-06-?? JANJIC - ORIGINATOR 19 C 90-??-?? MESINGER - INSERTED PIECEWISE LINEAR SCHEME FOR 20 C SPECIFIC HUMIDITY 21 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL 22 C 95-11-20 ABELES - PARALLEL OPTIMIZATION 23 C 96-03-29 BLACK - ADDED EXTERNAL EDGE; REMOVED SCRCH COMMON 24 C 98-11-24 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 25 C 26 C USAGE: CALL VTADVF FROM MAIN SUBROUTINE DIGFILT 27 C INPUT ARGUMENT LIST: 28 C NONE 29 C 30 C OUTPUT ARGUMENT LIST: 31 C NONE 32 C 33 C OUTPUT FILES: 34 C NONE 35 C 36 C SUBPROGRAMS CALLED: 37 C 38 C UNIQUE: NONE 39 C 40 C LIBRARY: NONE 41 C 42 C COMMON BLOCKS: CTLBLK 43 C MASKS 44 C DYNAM 45 C VRBLS 46 C PVRBLS 47 C INDX 48 C 49 C ATTRIBUTES: 50 C LANGUAGE: FORTRAN 90 51 C MACHINE : IBM SP 52 C$$$ 53 C*********************************************************************** 54 P A R A M E T E R 55 & (EDQMX=2.E-5,EDQMN=-2.E-5,EPSQ=1.E-12,KSMUD=0) 56 C----------------------------------------------------------------------- 57 INCLUDE "parmeta" Page 2 Source Listing VTADVF 2014-12-17 20:47 VTADVF.F 80 INCLUDE "mpp.h" 81 # 1 "./sp.h" 1 82 # 4 83 84 # 59 "VTADVF.F" 2 85 C----------------------------------------------------------------------- 144 P A R A M E T E R 145 & (IMJM=IM*JM-JM/2,JAM=6+2*(JM-10) 146 &, LM1=LM-1,LM2=LM-2,LP1=LM+1) 147 C----------------------------------------------------------------------- 148 L O G I C A L 149 & RUN,FIRST,RESTRT,SIGMA,NOSLA 150 C---------------------------------------------------------------------- 151 INCLUDE "CTLBLK.comm" 152 C----------------------------------------------------------------------- 162 INCLUDE "MASKS.comm" 163 C----------------------------------------------------------------------- 174 INCLUDE "DYNAM.comm" 175 C----------------------------------------------------------------------- 191 INCLUDE "VRBLS.comm" 192 C----------------------------------------------------------------------- 202 INCLUDE "CONTIN.comm" 203 C----------------------------------------------------------------------- 213 INCLUDE "PVRBLS.comm" 214 C----------------------------------------------------------------------- 244 INCLUDE "INDX.comm" 245 C----------------------------------------------------------------------- 257 D I M E N S I O N 258 & WFA ( LM1),WFB ( LM1) 259 C 260 D I M E N S I O N 261 & ETADTL(IDIM1:IDIM2,JDIM1:JDIM2) 262 &,TTA (IDIM1:IDIM2,JDIM1:JDIM2),TQ2A (IDIM1:IDIM2,JDIM1:JDIM2) 263 &,TUA (IDIM1:IDIM2,JDIM1:JDIM2),TVA (IDIM1:IDIM2,JDIM1:JDIM2) 264 &,TTB (IDIM1:IDIM2,JDIM1:JDIM2),TQ2B (IDIM1:IDIM2,JDIM1:JDIM2) 265 &,TUB (IDIM1:IDIM2,JDIM1:JDIM2),TVB (IDIM1:IDIM2,JDIM1:JDIM2) 266 &,VM (IDIM1:IDIM2,JDIM1:JDIM2) 267 &,RPDX (IDIM1:IDIM2,JDIM1:JDIM2),RPDY (IDIM1:IDIM2,JDIM1:JDIM2) 268 C 269 D I M E N S I O N 270 & FNE (IDIM1:IDIM2,JDIM1:JDIM2),FSE (IDIM1:IDIM2,JDIM1:JDIM2) 271 C 272 D I M E N S I O N 273 & TSTL (IDIM1:IDIM2,JDIM1:JDIM2,LM) 274 &,USTL (IDIM1:IDIM2,JDIM1:JDIM2,LM) 275 &,VSTL (IDIM1:IDIM2,JDIM1:JDIM2,LM) 276 &,Q2ST (IDIM1:IDIM2,JDIM1:JDIM2,LM) 277 C----------------------------------------------------------------------- 278 C----------------------------------------------------------------------- 279 C--------------DEFINE ADDED UPSTREAM ADVECTION CONSTANTS---------------- 280 C----------------------------------------------------------------------- 281 DO 25 L=1,LM1 282 WFA(L)=DETA(L )/(DETA(L)+DETA(L+1)) 283 WFB(L)=DETA(L+1)/(DETA(L)+DETA(L+1)) 284 25 CONTINUE 285 C--------------NO MOISTURE SLOPE ADJUSTMENT IF NOT WANTED--------------- 286 NOSLA=.FALSE. Page 3 Source Listing VTADVF 2014-12-17 20:47 VTADVF.F 287 C IF FALSE, NUMBER OF MOISTURE SLOPE ADJUSTMENT PASSES 288 NMSAP=3 289 C--------------SMOOTHING VERTICAL VELOCITY AT H POINTS------------------ 290 IF(KSMUD.GT.0)THEN 291 !$omp parallel do 292 DO 90 L=1,LM1 293 DO 50 J=MYJS_P4,MYJE_P4 294 DO 50 I=MYIS_P4,MYIE_P4 295 ETADT(I,J,L)=ETADT(I,J,L)*HBM2(I,J) 296 50 CONTINUE 297 C----------------------------------------------------------------------- 298 NSMUD=KSMUD 299 C*** 300 C*** THE FNE, FSE, ETADTL, AND ETADT ARRAYS 301 C*** ARE ON OR ASSOCIATED WITH H POINTS 302 C*** 303 DO 90 KS=1,NSMUD 304 DO 80 J=MYJS_P3,MYJE1_P3 305 DO 80 I=MYIS_P3,MYIE_P3 306 FNE(I,J)=(ETADT(I+IHE(J),J+1,L)-ETADT(I,J,L)) 307 1 *HTM(I,J,L+1)*HTM(I+IHE(J),J+1,L+1) 308 80 CONTINUE 309 DO 82 J=MYJS1_P3,MYJE_P3 310 DO 82 I=MYIS_P3,MYIE_P3 311 FSE(I,J)=(ETADT(I+IHE(J),J-1,L)-ETADT(I,J,L)) 312 1 *HTM(I+IHE(J),J-1,L+1)*HTM(I,J,L+1) 313 82 CONTINUE 314 DO 84 J=MYJS2_P1,MYJE2_P1 315 DO 84 I=MYIS_P1,MYIE_P1 316 ETADTL(I,J)=(FNE(I,J)-FNE(I+IHW(J),J-1) 317 1 +FSE(I,J)-FSE(I+IHW(J),J+1))*HBM2(I,J) 318 84 CONTINUE 319 DO 86 J=MYJS2_P1,MYJE2_P1 320 DO 86 I=MYIS_P1,MYIE_P1 321 ETADT(I,J,L)=ETADTL(I,J)*0.125+ETADT(I,J,L) 322 86 CONTINUE 323 90 CONTINUE 324 C----------------------------------------------------------------------- 325 ENDIF 326 C--------------VERTICAL (MATSUNO) ADVECTION OF T------------------------ 327 !$omp parallel do 328 DO 100 J=MYJS,MYJE 329 DO 100 I=MYIS,MYIE 330 TTB(I,J)=0. 331 100 CONTINUE 332 C 333 DO 110 L=1,LM1 334 !$omp parallel do private(ttak) 335 DO 110 J=MYJS2,MYJE2 336 DO 110 I=MYIS,MYIE 337 TTAK =(T(I,J,L+1)-T(I,J,L))*ETADT(I,J,L)*F4D 338 TSTL(I,J,L)=(TTAK +TTB(I,J))*RDETA(L)+T(I,J,L) 339 TTB(I,J)=TTAK 340 110 CONTINUE 341 C 342 !$omp parallel do 343 DO 120 J=MYJS2,MYJE2 Page 4 Source Listing VTADVF 2014-12-17 20:47 VTADVF.F 344 DO 120 I=MYIS,MYIE 345 TSTL(I,J,LM)=T(I,J,LM)+TTB(I,J)*RDETA(LM) 346 120 CONTINUE 347 C--------------SECOND (BACKWARD) MATSUNO STEP--------------------------- 348 !$omp parallel do 349 DO 125 J=MYJS,MYJE 350 DO 125 I=MYIS,MYIE 351 TTB(I,J)=0. 352 125 CONTINUE 353 C 354 DO 140 L=1,LM1 355 !$omp parallel do private(ttak) 356 DO 140 J=MYJS2,MYJE2 357 DO 140 I=MYIS,MYIE 358 TTAK =(TSTL(I,J,L+1)-TSTL(I,J,L))*ETADT(I,J,L)*F4D 359 T(I,J,L)=(TTAK +TTB(I,J))*RDETA(L)+T(I,J,L) 360 TTB(I,J)=TTAK 361 140 CONTINUE 362 C 363 !$omp parallel do 364 DO 150 J=MYJS2,MYJE2 365 DO 150 I=MYIS,MYIE 366 T(I,J,LM)=T(I,J,LM)+TTB(I,J)*RDETA(LM) 367 150 CONTINUE 368 C--------------VERTICAL (MATSUNO) ADVECTION OF Q2----------------------- 369 !$omp parallel do 370 DO 400 J=MYJS2,MYJE2 371 DO 400 I=MYIS,MYIE 372 TQ2B(I,J)=Q2(I,J,1)*ETADT(I,J,1)*F4Q2(1) 373 400 CONTINUE 374 C 375 DO 425 L=1,LM2 376 !$omp parallel do private(tq2ak) 377 DO 425 J=MYJS2,MYJE2 378 DO 425 I=MYIS,MYIE 379 TQ2AK=(Q2(I,J,L+1)-Q2(I,J,L))*(ETADT(I,J,L)+ETADT(I,J,L+1)) 380 1 *F4Q2(L+1) 381 Q2ST(I,J,L)=TQ2AK+TQ2B(I,J)+Q2(I,J,L) 382 TQ2B(I,J)=TQ2AK 383 425 CONTINUE 384 C 385 !$omp parallel do private(tq2ak) 386 DO 440 J=MYJS2,MYJE2 387 DO 440 I=MYIS,MYIE 388 TQ2AK=(Q2(I,J,LM)-Q2(I,J,LM1))*ETADT(I,J,LM1)*F4Q2(LM) 389 Q2ST(I,J,LM1)=TQ2AK+TQ2B(I,J)+Q2(I,J,LM1) 390 Q2ST(I,J,LM )=Q2(I,J,LM) 391 440 CONTINUE 392 C--------------SECOND (BACKWARD) MATSUNO STEP--------------------------- 393 !$omp parallel do 394 DO 450 J=MYJS2,MYJE2 395 DO 450 I=MYIS,MYIE 396 TQ2B(I,J)=Q2ST(I,J,1)*ETADT(I,J,1)*F4Q2(1) 397 450 CONTINUE 398 C 399 DO 470 L=1,LM2 400 !$omp parallel do private(tq2ak) Page 5 Source Listing VTADVF 2014-12-17 20:47 VTADVF.F 401 DO 470 J=MYJS2,MYJE2 402 DO 470 I=MYIS,MYIE 403 TQ2AK =(Q2ST(I,J,L+1)-Q2ST(I,J,L)) 404 1 *(ETADT(I,J,L)+ETADT(I,J,L+1))*F4Q2(L+1) 405 Q2(I,J,L)=TQ2AK+TQ2B(I,J)+Q2(I,J,L) 406 TQ2B(I,J)=TQ2AK 407 470 CONTINUE 408 C 409 !$omp parallel do private(tq2ak) 410 DO 480 J=MYJS2,MYJE2 411 DO 480 I=MYIS,MYIE 412 TQ2AK =(Q2ST(I,J,LM)-Q2ST(I,J,LM1))*ETADT(I,J,LM1)*F4Q2(LM) 413 Q2(I,J,LM1)=TQ2AK+TQ2B(I,J)+Q2(I,J,LM1) 414 480 CONTINUE 415 C--------------DEFINITION OF VARIABLES NEEDED AT V POINTS--------------- 416 !$omp parallel do 417 DO 500 L=1,LM1 418 DO 500 J=MYJS_P1,MYJE_P1 419 DO 500 I=MYIS_P1,MYIE_P1 420 ETADT(I,J,L)=ETADT(I,J,L)*PDSL(I,J)*HBM2(I,J) 421 500 CONTINUE 422 C 423 !$omp parallel do 424 DO 510 J=MYJS2,MYJE2 425 DO 510 I=MYIS,MYIE 426 RPDX(I,J)=1./(PDSL(I+IVW(J),J)+PDSL(I+IVE(J),J)) 427 RPDY(I,J)=1./(PDSL(I,J-1)+PDSL(I,J+1)) 428 510 CONTINUE 429 C--------------VERTICAL (MATSUNO) ADVECTION OF U & V-------------------- 430 !$omp parallel 431 DO 520 J=MYJS,MYJE 432 DO 520 I=MYIS,MYIE 433 TUB(I,J)=0. 434 TVB(I,J)=0. 435 520 CONTINUE 436 C 437 DO 540 L=1,LM1 438 !$omp parallel do private(tuak,tvak,vmk) 439 DO 540 J=MYJS2,MYJE2 440 DO 540 I=MYIS,MYIE 441 VMK =VTM(I,J,L+1)*VBM2(I,J) 442 TUAK =(ETADT(I+IVW(J),J,L)+ETADT(I+IVE(J),J,L)) 443 1 *(U(I,J,L+1)-U(I,J,L))*RPDX(I,J)*(VMK*F4D) 444 USTL(I,J,L)=(TUAK+TUB(I,J))*RDETA(L)+U(I,J,L) 445 TUB(I,J)=TUAK 446 TVAK =(ETADT(I,J-1,L)+ETADT(I,J+1,L))*(V(I,J,L+1)-V(I,J,L)) 447 1 *RPDY(I,J)*(VMK*F4D) 448 VSTL(I,J,L)=(TVAK+TVB(I,J))*RDETA(L)+V(I,J,L) 449 TVB(I,J)=TVAK 450 540 CONTINUE 451 C 452 !$omp parallel do 453 DO 550 J=MYJS2,MYJE2 454 DO 550 I=MYIS,MYIE 455 USTL(I,J,LM)=U(I,J,LM)+TUB(I,J)*RDETA(LM) 456 VSTL(I,J,LM)=V(I,J,LM)+TVB(I,J)*RDETA(LM) 457 550 CONTINUE Page 6 Source Listing VTADVF 2014-12-17 20:47 VTADVF.F 458 C--------------SECOND (BACKWARD) MATSUNO STEP--------------------------- 459 !$omp parallel do 460 DO 560 J=MYJS,MYJE 461 DO 560 I=MYIS,MYIE 462 TUB(I,J)=0. 463 TVB(I,J)=0. 464 560 CONTINUE 465 C 466 DO 580 L=1,LM1 467 !$omp parallel do private(tuak,tvak,vmk) 468 DO 580 J=MYJS2,MYJE2 469 DO 580 I=MYIS,MYIE 470 VMK =VTM(I,J,L+1)*VBM2(I,J) 471 TUAK =(ETADT(I+IVW(J),J,L)+ETADT(I+IVE(J),J,L)) 472 1 *(USTL(I,J,L+1)-USTL(I,J,L))*RPDX(I,J)*(VMK*F4D) 473 U(I,J,L)=(TUAK+TUB(I,J))*RDETA(L)+U(I,J,L) 474 TUB(I,J)=TUAK 475 TVAK =(ETADT(I,J-1,L)+ETADT(I,J+1,L)) 476 1 *(VSTL(I,J,L+1)-VSTL(I,J,L))*RPDY(I,J)*(VMK*F4D) 477 V(I,J,L)=(TVAK+TVB(I,J))*RDETA(L)+V(I,J,L) 478 TVB(I,J)=TVAK 479 580 CONTINUE 480 C 481 !$omp parallel do 482 DO 590 J=MYJS2,MYJE2 483 DO 590 I=MYIS,MYIE 484 U(I,J,LM)=U(I,J,LM)+TUB(I,J)*RDETA(LM) 485 V(I,J,LM)=V(I,J,LM)+TVB(I,J)*RDETA(LM) 486 590 CONTINUE 487 C----------------------------------------------------------------------- 488 RETURN 489 END Page 7 Source Listing VTADVF 2014-12-17 20:47 Entry Points VTADVF.F ENTRY POINTS Name vtadvf_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 155 152,153 110 Label 164 157,159,160 120 Label 170 167,168 125 Label 176 173,174 140 Label 185 178,180,181 150 Label 191 188,189 25 Label 108 105 400 Label 197 194,195 425 Label 207 199,201,202 440 Label 215 210,211 450 Label 221 218,219 470 Label 231 223,225,226 480 Label 238 234,235 50 Label 120 117,118 500 Label 245 241,242,243 510 Label 252 248,249 520 Label 259 255,256 540 Label 274 261,263,264 550 Label 281 277,278 560 Label 288 284,285 580 Label 303 290,292,293 590 Label 310 306,307 80 Label 132 128,129 82 Label 137 133,134 84 Label 142 138,139 86 Label 146 143,144 90 Label 147 116,127 ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACPREC Scalar 12 R(4) 4 2 17955 COM AETA Scalar 4 R(4) 4 1 45 COM AFSI Scalar 26 R(4) 4 2 17955 COM AKHS Scalar 7 R(4) 4 2 17955 COM AKMS Scalar 7 R(4) 4 2 17955 COM CLDEFI Scalar 11 R(4) 4 2 17955 COM CONTIN Common 2 12999420 CPGFU Scalar 9 R(4) 4 2 17955 COM CPGFV Scalar 3 R(4) 4 scalar COM CTLBLK Common 4 112 CUPREC Scalar 13 R(4) 4 2 17955 COM CURV Scalar 9 R(4) 4 2 17955 COM DDMPU Scalar 12 R(4) 4 2 17955 COM DDMPV Scalar 12 R(4) 4 2 17955 COM DETA Scalar 4 R(4) 4 1 45 COM 106,107 DFL Scalar 4 R(4) 4 1 46 COM Page 8 Source Listing VTADVF 2014-12-17 20:47 Symbol Table VTADVF.F Name Object Declared Type Bytes Dimen Elements Attributes References DIV Scalar 6 R(4) 4 3 807975 COM DT Scalar 6 R(4) 4 scalar COM DX Scalar 8 R(4) 4 2 17955 COM DY Scalar 3 R(4) 4 scalar COM DYNAM Common 2 725404 EDQMN Param 54 R(4) 4 scalar EDQMX Param 54 R(4) 4 scalar EF4T Scalar 3 R(4) 4 scalar COM EM Scalar 6 R(4) 4 1 760 COM EMT Scalar 6 R(4) 4 1 760 COM EN Scalar 3 R(4) 4 scalar COM ENT Scalar 3 R(4) 4 scalar COM EPSQ Param 54 R(4) 4 scalar ETA Scalar 4 R(4) 4 1 46 COM ETADT Scalar 7 R(4) 4 3 790020 COM 119,130,135,145,161,182,196,203,21 2,220,228,236,244,266,270,295,299 ETADTL Local 85 R(4) 4 2 17955 140,145 F Scalar 11 R(4) 4 2 17955 COM F4D Scalar 3 R(4) 4 scalar COM 161,182,267,271,296,300 F4Q Scalar 3 R(4) 4 scalar COM F4Q2 Scalar 4 R(4) 4 1 45 COM 196,204,212,220,228,236 FAD Scalar 13 R(4) 4 2 17955 COM FCP Scalar 10 R(4) 4 2 17955 COM FDIV Scalar 10 R(4) 4 2 17955 COM FIRST Scalar 65 L(4) 4 scalar COM FIS Scalar 7 R(4) 4 2 17955 COM FNE Local 94 R(4) 4 2 17955 130,140 FSE Local 94 R(4) 4 2 17955 135,141 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HBM2 Scalar 8 R(4) 4 2 17955 COM 119,141,244 HBM3 Scalar 8 R(4) 4 2 17955 COM HTM Scalar 6 R(4) 4 3 807975 COM 131,136 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 118 I(4) 4 scalar 118,119,129,130,131,134,135,136,13 9,140,141,144,145,153,154,160,161, 162,163,168,169,174,175,181,182,18 3,184,189,190,195,196,202,203,205, 206,211,212,213,214,219,220,226,22 7,228,229,230,235,236,237,243,244, 249,250,251,256,257,258,264,265,26 6,267,268,269,270,271,272,273,278, 279,280,285,286,287,293,294,295,29 6,297,298,299,300,301,302,307,308, 309 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM IDIM1 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,21,26,85,86,87,88,89,90, 91,94,97,98,99,100 IDIM2 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,21,26,85,86,87,88,89,90, 91,94,97,98,99,100 Page 9 Source Listing VTADVF 2014-12-17 20:47 Symbol Table VTADVF.F Name Object Declared Type Bytes Dimen Elements Attributes References IDTAD Scalar 6 I(4) 4 scalar COM IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHE Scalar 3 I(4) 4 1 399 COM 130,131,135,136 IHEG Scalar 9 I(4) 4 1 387 COM IHRST Scalar 5 I(4) 4 scalar COM IHW Scalar 3 I(4) 4 1 399 COM 140,141 IHWG Scalar 9 I(4) 4 1 387 COM ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 9,16,19,43,44,45,46,47,51,52,57,61 IMJM Param 61 I(4) 4 scalar INDX Common 2 6564 INDXG Common 8 8084 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Scalar 5 I(4) 4 scalar COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRAD Scalar 5 I(4) 4 1 45 COM IRADG Scalar 9 I(4) 4 1 473 COM IRCOL Scalar 22 I(4) 4 scalar COM IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM IVE Scalar 4 I(4) 4 1 399 COM 250,266,295 IVEG Scalar 9 I(4) 4 1 387 COM IVW Scalar 4 I(4) 4 1 399 COM 250,266,295 IVWG Scalar 9 I(4) 4 1 387 COM J Local 117 I(4) 4 scalar 117,119,128,130,131,133,135,136,13 8,140,141,143,145,152,154,159,161, 162,163,167,169,173,175,180,182,18 3,184,188,190,194,196,201,203,205, 206,210,212,213,214,218,220,225,22 7,228,229,230,234,236,237,242,244, 248,250,251,255,257,258,263,265,26 6,267,268,269,270,271,272,273,277, 279,280,284,286,287,292,294,295,29 6,297,298,299,300,301,302,306,308, 309 JAM Param 61 I(4) 4 scalar 6 JBPAD1 Scalar 25 I(4) 4 scalar COM Page 10 Source Listing VTADVF 2014-12-17 20:47 Symbol Table VTADVF.F Name Object Declared Type Bytes Dimen Elements Attributes References JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,21,26,85,86,87,88,89,90, 91,94,97,98,99,100 JDIM2 Param 20 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,21,26,85,86,87,88,89,90, 91,94,97,98,99,100 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JM Param 3 I(4) 4 scalar 9,17,20,43,44,45,46,47,51,52,57,61 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM KS Local 127 I(4) 4 scalar 127 KSMUD Param 54 I(4) 4 scalar 114,122 L Local 105 I(4) 4 scalar 105,106,107,116,119,130,131,135,13 6,145,157,161,162,178,182,183,199, 203,204,205,223,227,228,229,241,24 4,261,265,266,267,268,270,272,290, 294,295,296,297,299,300,301 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LIST Scalar 5 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 4,5,6,7,21,52,62,97,98,99,100,169, 190,212,214,236,279,280,308,309 LM1 Param 62 I(4) 4 scalar 82,105,116,157,178,212,213,236,237 ,241,261,290 LM2 Param 62 I(4) 4 scalar 199,223 LP1 Param 62 I(4) 4 scalar 4 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 153,160,168,174,181,189,195,202,21 1,219,226,235,249,256,264,278,285, 293,307 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM Page 11 Source Listing VTADVF 2014-12-17 20:47 Symbol Table VTADVF.F Name Object Declared Type Bytes Dimen Elements Attributes References MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM 139,144,243 MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM 129,134 MYIE_P4 Scalar 7 I(4) 4 scalar COM 118 MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 153,160,168,174,181,189,195,202,21 1,219,226,235,249,256,264,278,285, 293,307 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM 139,144,243 MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM 129,134 MYIS_P4 Scalar 5 I(4) 4 scalar COM 118 MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 152,173,255,284 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM 128 MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM 159,167,180,188,194,201,210,218,22 5,234,248,263,277,292,306 MYJE2_P1 Scalar 18 I(4) 4 scalar COM 138,143 MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM 242 MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM 133 MYJE_P4 Scalar 16 I(4) 4 scalar COM 117 MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 152,173,255,284 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM 133 MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM 159,167,180,188,194,201,210,218,22 5,234,248,263,277,292,306 MYJS2_P1 Scalar 13 I(4) 4 scalar COM 138,143 Page 12 Source Listing VTADVF 2014-12-17 20:47 Symbol Table VTADVF.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM 242 MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM 128 MYJS_P4 Scalar 11 I(4) 4 scalar COM 117 MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NBC Scalar 5 I(4) 4 scalar COM NBOCO Scalar 6 I(4) 4 scalar COM NCNVC Scalar 7 I(4) 4 scalar COM NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 7 I(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM NMSAP Local 112 I(4) 4 scalar 112 NOSLA Local 65 L(4) 4 scalar 110 NPES Scalar 2 I(4) 4 scalar COM NPHS Scalar 7 I(4) 4 scalar COM NPREC Scalar 6 I(4) 4 scalar COM NRADL Scalar 7 I(4) 4 scalar COM NRADS Scalar 7 I(4) 4 scalar COM NSHDE Scalar 6 I(4) 4 scalar COM NSMUD Local 122 I(4) 4 scalar 122,127 NSTART Scalar 6 I(4) 4 scalar COM NTDDMP Scalar 6 I(4) 4 scalar COM NTSD Scalar 6 I(4) 4 scalar COM NTSTM Scalar 6 I(4) 4 scalar COM OMGALF Scalar 5 R(4) 4 3 807975 COM PD Scalar 3 R(4) 4 2 17955 COM Page 13 Source Listing VTADVF 2014-12-17 20:47 Symbol Table VTADVF.F Name Object Declared Type Bytes Dimen Elements Attributes References PDSL Scalar 3 R(4) 4 2 17955 COM 244,250,251 PREC Scalar 12 R(4) 4 2 17955 COM PSDT Scalar 3 R(4) 4 2 17955 COM PSHLTR Scalar 19 R(4) 4 2 17955 COM PT Scalar 3 R(4) 4 scalar COM PVRBLS Common 2 5530140 Q Scalar 6 R(4) 4 3 807975 COM Q10 Scalar 16 R(4) 4 2 17955 COM Q2 Scalar 21 R(4) 4 3 807975 COM 196,203,205,212,213,214,229,237 Q2ST Local 100 R(4) 4 3 807975 205,213,214,220,227,236 Q30 Scalar 14 R(4) 4 2 17955 COM QS Scalar 6 R(4) 4 2 17955 COM QSHLTR Scalar 18 R(4) 4 2 17955 COM QWBS Scalar 9 R(4) 4 2 17955 COM QZ0 Scalar 5 R(4) 4 2 17955 COM R Scalar 3 R(4) 4 scalar COM RDETA Scalar 4 R(4) 4 1 45 COM 162,169,183,190,268,272,279,280,29 7,301,308,309 RES Scalar 7 R(4) 4 2 17955 COM RESTRT Scalar 65 L(4) 4 scalar COM RF Scalar 8 R(4) 4 2 17955 COM RPDX Local 91 R(4) 4 2 17955 250,267,296 RPDY Local 91 R(4) 4 2 17955 251,271,300 RTOP Scalar 4 R(4) 4 3 807975 COM RUN Scalar 65 L(4) 4 scalar COM SI Scalar 10 R(4) 4 2 17955 COM SICE Scalar 4 R(4) 4 2 17955 COM SIGMA Scalar 65 L(4) 4 scalar COM SINGLRST Local 2 L(4) 4 scalar SM Scalar 4 R(4) 4 2 17955 COM SNO Scalar 10 R(4) 4 2 17955 COM SUBPOST Scalar 2 L(4) 4 scalar COM T Scalar 5 R(4) 4 3 807975 COM 161,162,169,183,190 TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TH10 Scalar 16 R(4) 4 2 17955 COM TH30 Scalar 14 R(4) 4 2 17955 COM THS Scalar 6 R(4) 4 2 17955 COM THZ0 Scalar 5 R(4) 4 2 17955 COM Page 14 Source Listing VTADVF 2014-12-17 20:47 Symbol Table VTADVF.F Name Object Declared Type Bytes Dimen Elements Attributes References TOPO Common 50 17478548 TQ2A Local 86 R(4) 4 2 17955 TQ2AK Local 203 R(4) 4 scalar 203,205,206,212,213,227,229,230,23 6,237 TQ2B Local 88 R(4) 4 2 17955 196,205,206,213,220,229,230,237 TSHLTR Scalar 18 R(4) 4 2 17955 COM TSTL Local 97 R(4) 4 3 807975 162,169,182 TTA Local 86 R(4) 4 2 17955 TTAK Local 161 R(4) 4 scalar 161,162,163,182,183,184 TTB Local 88 R(4) 4 2 17955 154,162,163,169,175,183,184,190 TTVG Scalar 51 R(4) 4 2 92971 COM TUA Local 87 R(4) 4 2 17955 TUAK Local 266 R(4) 4 scalar 266,268,269,295,297,298 TUB Local 89 R(4) 4 2 17955 257,268,269,279,286,297,298,308 TVA Local 87 R(4) 4 2 17955 TVAK Local 270 R(4) 4 scalar 270,272,273,299,301,302 TVB Local 89 R(4) 4 2 17955 258,272,273,280,287,301,302,309 TWBS Scalar 9 R(4) 4 2 17955 COM U Scalar 5 R(4) 4 3 807975 COM 267,268,279,297,308 U10 Scalar 17 R(4) 4 2 17955 COM U30 Scalar 15 R(4) 4 2 17955 COM USTAR Scalar 3 R(4) 4 2 17955 COM USTL Local 98 R(4) 4 3 807975 268,279,296 UZ0 Scalar 4 R(4) 4 2 17955 COM V Scalar 6 R(4) 4 3 807975 COM 270,272,280,301,309 V10 Scalar 17 R(4) 4 2 17955 COM V30 Scalar 15 R(4) 4 2 17955 COM VBM2 Scalar 3 R(4) 4 2 17955 COM 265,294 VBM3 Scalar 3 R(4) 4 2 17955 COM VM Local 90 R(4) 4 2 17955 VMK Local 265 R(4) 4 scalar 265,267,271,294,296,300 VRBLS Common 2 13143060 VSTL Local 99 R(4) 4 3 807975 272,280,300 VTADVF Subr 2 VTM Scalar 7 R(4) 4 3 807975 COM 265,294 VZ0 Scalar 4 R(4) 4 2 17955 COM WFA Local 82 R(4) 4 1 44 106 WFB Local 82 R(4) 4 1 44 107 WPDAR Scalar 8 R(4) 4 2 17955 COM Z0 Scalar 3 R(4) 4 2 17955 COM Page 15 Source Listing VTADVF 2014-12-17 20:47 Subprograms/Common Blocks VTADVF.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CONTIN Common 2 12999420 CTLBLK Common 4 112 DYNAM Common 2 725404 GLB_TABLE Common 37 128 INDX Common 2 6564 INDXG Common 8 8084 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPPCOM Common 1 1464 PVRBLS Common 2 5530140 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 VRBLS Common 2 13143060 VTADVF Subr 2 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 Page 16 Source Listing VTADVF 2014-12-17 20:47 VTADVF.F -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ Page 17 Source Listing VTADVF 2014-12-17 20:47 VTADVF.F -list filename : VTADVF.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100