Page 1 Source Listing HZADV 2014-12-17 20:47 /tmpnwprd/iforthaDBby.i 1 # 1 "HZADV.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE HZADV 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 C SUBPROGRAM: HZADV HORIZONTAL ADVECTION 8 C PRGRMMR: JANJIC ORG: W/NP22 DATE: 93-10-28 9 C 10 C ABSTRACT: 11 C HZADV CALCULATES THE CONTRIBUTION OF THE HORIZONTAL ADVECTION 12 C TO THE TENDENCIES OF TEMPERATURE, WIND COMPONENTS, AND 13 C TURBULENT KINETIC ENERGY AND THEN UPDATES THOSE VARIABLES. 14 C THE JANJIC ADVECTION SCHEME FOR THE ARAKAWA E GRID IS USED 15 C FOR ALL VARIABLES INSIDE THE FIFTH ROW. AN UPSTREAM SCHEME 16 C IS USED ON ALL VARIABLES IN THE THIRD, FOURTH, AND FIFTH 17 C OUTERMOST ROWS. A MODIFIED EULER-BACKWARD TIME SCHEME (HEUN) 18 C IS USED. UNDERGROUND WINDS MUST BE EQUAL TO ZERO SINCE THEY 19 C ARE USED EXPLICITLY WITHOUT THE VELOCITY MASK IN THE FLUX 20 C CALCULATIONS. 21 C 22 C PROGRAM HISTORY LOG: 23 C 87-06-?? JANJIC - ORIGINATOR 24 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL 25 C 96-03-28 BLACK - ADDED EXTERNAL EDGE 26 C 98-10-30 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 27 C 28 C USAGE: CALL HZADV FROM MAIN PROGRAM EBU 29 C INPUT ARGUMENT LIST: 30 C NONE 31 C 32 C OUTPUT ARGUMENT LIST: 33 C NONE 34 C 35 C OUTPUT FILES: 36 C NONE 37 C 38 C SUBPROGRAMS CALLED: 39 C 40 C UNIQUE: NONE 41 C 42 C LIBRARY: NONE 43 C 44 C COMMON BLOCKS: CTLBLK 45 C LOOPS 46 C MASKS 47 C DYNAM 48 C VRBLS 49 C CONTIN 50 C PVRBLS 51 C INDX 52 C 53 C ATTRIBUTES: 54 C LANGUAGE: FORTRAN 90 55 C MACHINE : IBM SP 56 C$$$ 57 C*********************************************************************** Page 2 Source Listing HZADV 2014-12-17 20:47 HZADV.F 58 P A R A M E T E R 59 & (TLC=2.*0.703972477) 60 C----------------------------------------------------------------------- 61 INCLUDE "parmeta" 84 INCLUDE "mpp.h" 85 # 1 "./sp.h" 1 86 # 4 87 88 # 63 "HZADV.F" 2 89 C----------------------------------------------------------------------- 148 P A R A M E T E R 149 & (IM1=IM-1,JAM=6+2*(JM-10) 150 &, IMJM=IM*JM-JM/2,LP1=LM+1 151 &, JAMD=(JAM*2-10)*3) 152 C----------------------------------------------------------------------- 153 L O G I C A L 154 & RUN,FIRST,RESTRT,ITER2,SIGMA 155 C---------------------------------------------------------------------- 156 INCLUDE "CTLBLK.comm" 157 C----------------------------------------------------------------------- 167 INCLUDE "LOOPS.comm" 168 C----------------------------------------------------------------------- 175 INCLUDE "MASKS.comm" 176 C----------------------------------------------------------------------- 187 INCLUDE "DYNAM.comm" 188 C----------------------------------------------------------------------- 204 INCLUDE "VRBLS.comm" 205 C----------------------------------------------------------------------- 215 INCLUDE "CONTIN.comm" 216 C----------------------------------------------------------------------- 226 INCLUDE "PVRBLS.comm" 256 INCLUDE "CLDWTR.comm" 257 C----------------------------------------------------------------------- 265 INCLUDE "INDX.comm" 266 C----------------------------------------------------------------------- 278 D I M E N S I O N 279 & HM (IDIM1:IDIM2,JDIM1:JDIM2),VM (IDIM1:IDIM2,JDIM1:JDIM2) 280 &,RDPD (IDIM1:IDIM2,JDIM1:JDIM2) 281 &,ADPDX (IDIM1:IDIM2,JDIM1:JDIM2),ADPDY (IDIM1:IDIM2,JDIM1:JDIM2) 282 &,RDPDX (IDIM1:IDIM2,JDIM1:JDIM2),RDPDY (IDIM1:IDIM2,JDIM1:JDIM2) 283 &,ADT (IDIM1:IDIM2,JDIM1:JDIM2) 284 &,ADU (IDIM1:IDIM2,JDIM1:JDIM2),ADV (IDIM1:IDIM2,JDIM1:JDIM2) 285 &,ADQ2M (IDIM1:IDIM2,JDIM1:JDIM2),ADQ2L (IDIM1:IDIM2,JDIM1:JDIM2) 286 &,Q2MNS (IDIM1:IDIM2,JDIM1:JDIM2),Q2LNS (IDIM1:IDIM2,JDIM1:JDIM2) 287 &,UDY (IDIM1:IDIM2,JDIM1:JDIM2),VDX (IDIM1:IDIM2,JDIM1:JDIM2) 288 C 289 D I M E N S I O N 290 & DPDE (IDIM1:IDIM2,JDIM1:JDIM2) 291 &,TEMPA (IDIM1:IDIM2,JDIM1:JDIM2),TEMPB (IDIM1:IDIM2,JDIM1:JDIM2) 292 &,TST (IDIM1:IDIM2,JDIM1:JDIM2) 293 &,UST (IDIM1:IDIM2,JDIM1:JDIM2),VST (IDIM1:IDIM2,JDIM1:JDIM2) 294 &,Q2M (IDIM1:IDIM2,JDIM1:JDIM2),Q2L (IDIM1:IDIM2,JDIM1:JDIM2) 295 &,TEW (IDIM1:IDIM2,JDIM1:JDIM2),TNS (IDIM1:IDIM2,JDIM1:JDIM2) 296 &,Q2MEW (IDIM1:IDIM2,JDIM1:JDIM2),Q2LEW (IDIM1:IDIM2,JDIM1:JDIM2) 297 C 298 D I M E N S I O N 299 & TNE (IDIM1:IDIM2,JDIM1:JDIM2),TSE (IDIM1:IDIM2,JDIM1:JDIM2) Page 3 Source Listing HZADV 2014-12-17 20:47 HZADV.F 300 &,Q2MNE (IDIM1:IDIM2,JDIM1:JDIM2),Q2MSE (IDIM1:IDIM2,JDIM1:JDIM2) 301 &,Q2LNE (IDIM1:IDIM2,JDIM1:JDIM2),Q2LSE (IDIM1:IDIM2,JDIM1:JDIM2) 302 &,UEW (IDIM1:IDIM2,JDIM1:JDIM2),UNS (IDIM1:IDIM2,JDIM1:JDIM2) 303 &,VEW (IDIM1:IDIM2,JDIM1:JDIM2),VNS (IDIM1:IDIM2,JDIM1:JDIM2) 304 &,UNE (IDIM1:IDIM2,JDIM1:JDIM2),USE (IDIM1:IDIM2,JDIM1:JDIM2) 305 &,VNE (IDIM1:IDIM2,JDIM1:JDIM2),VSE (IDIM1:IDIM2,JDIM1:JDIM2) 306 &,FEW (IDIM1:IDIM2,JDIM1:JDIM2),FNS (IDIM1:IDIM2,JDIM1:JDIM2) 307 &,FNE (IDIM1:IDIM2,JDIM1:JDIM2),FSE (IDIM1:IDIM2,JDIM1:JDIM2) 308 C 309 D I M E N S I O N 310 & ADQ2HL(IDIM1:IDIM2,JDIM1:JDIM2,LM) 311 &,Q2ML(IDIM1:IDIM2,JDIM1:JDIM2,LM+1) 312 C 313 DIMENSION ARRAY0(JAMD) 314 DIMENSION ARRAY1(JAMD) 315 DIMENSION ARRAY2(JAMD) 316 DIMENSION ARRAY3(JAMD) 317 DIMENSION KHHAS(JAMD) 318 DIMENSION IHLAS(JAMD) 319 DIMENSION JHLAS(JAMD) 320 DIMENSION KVHAS(JAMD) 321 DIMENSION IVLAS(JAMD) 322 DIMENSION JVLAS(JAMD) 323 DIMENSION ISPA(JAMD) 324 DIMENSION ISQA(JAMD) 325 c 326 LOGICAL UPSTRM,LJRA(JAM) 327 C-------------------------------------------------------------------- 328 C*********************************************************************** 329 C----------------------------------------------------------------------- 330 C 331 C*** FIGURE OUT IF WE ARE IN THE UPSTREAM REGION 332 C 333 UPSTRM=.FALSE. 334 IF(MYPE.LE.INPES-1)UPSTRM=.TRUE. 335 IF(MYPE.GE.NPES-INPES)UPSTRM=.TRUE. 336 IF(MOD(MYPE,INPES).EQ.0)UPSTRM=.TRUE. 337 IF(MOD(MYPE+1,INPES).EQ.0)UPSTRM=.TRUE. 338 C 339 JAKONE=0 340 C 341 DO 25 JA=1,JAM 342 IHL=IHLA(JA) 343 IHH=IHHA(JA) 344 J=JRA(JA) 345 LJRA(JA)=.FALSE. 346 C 347 IF(J.GE.MY_JS_GLB-JBPAD2.AND.J.LE.MY_JE_GLB+JTPAD2)THEN 348 LJRA(JA)=.TRUE. 349 DO I=IHL,IHH 350 IF(I.GE.MY_IS_GLB-ILPAD2.AND.I.LE.MY_IE_GLB+IRPAD2)THEN 351 JAKONE=JAKONE+1 352 KHHAS(JAKONE)=JA 353 IHLAS(JAKONE)=I 354 JHLAS(JAKONE)=J 355 ENDIF 356 ENDDO Page 4 Source Listing HZADV 2014-12-17 20:47 HZADV.F 357 ENDIF 358 C 359 25 CONTINUE 360 C 361 JAKTWO=0 362 DO 50 JA=1,JAM 363 IVL=IVLA(JA) 364 IVH=IVHA(JA) 365 J=JRA(JA) 366 C 367 DO 50 I=IVL,IVH 368 IF(I.GE.MY_IS_GLB-ILPAD2.AND.I.LE.MY_IE_GLB+IRPAD2.AND. 369 1 J.GE.MY_JS_GLB-JBPAD2.AND.J.LE.MY_JE_GLB+JTPAD2)THEN 370 JAKTWO=JAKTWO+1 371 KVHAS(JAKTWO)=JA 372 IVLAS(JAKTWO)=I 373 JVLAS(JAKTWO)=J 374 ENDIF 375 50 CONTINUE 376 C 377 C 378 DO 70 J=MYJS_P5,MYJE_P5 379 DO 70 I=MYIS_P4,MYIE_P4 380 Q2ML(I,J,1)=0. 381 70 CONTINUE 382 C 383 !$omp parallel do 384 DO 80 L=2,LM+1 385 DO 80 J=MYJS_P5,MYJE_P5 386 DO 80 I=MYIS_P4,MYIE_P4 387 Q2ML(I,J,L)=Q2(I,J,L-1) 388 80 CONTINUE 389 C*********************************************************************** 390 !$omp parallel do 391 !$omp& private(adpdx,adpdy,adq,adq2l,adq2m,adt,adu,adv, 392 !$omp& array0,array1,array2,array3,dpde,f0,f1,f2,f3, 393 !$omp& few,fne,fns,fse,hm,i,ifp,ifq,ihh,ihl,ipq,isp, 394 !$omp& ispa,isq,isqa,iter2,ix,iy,j,ja,jak,l,pp,q2l, 395 !$omp& q2lew,q2lne,q2lns,q2lse,q2m,q2mew,q2mne,q2mns, 396 !$omp& q2mse,qew,qne,qns,qp,qse,qst,rdpd,rdpdx,rdpdy, 397 !$omp& tempa,tempb,tew,tne,tns,tse,tst,tta,ttb,udy,uew,une, 398 !$omp& uns,use,ust,vdx,vew,vm,vne,vns,vse,vst) 399 C*********************************************************************** 400 DO 500 L=1,LM 401 C*********************************************************************** 402 CALL ZERO2(ADT) 403 CALL ZERO2(ADU) 404 CALL ZERO2(ADV) 405 CALL ZERO2(ADQ2M) 406 CALL ZERO2(ADQ2L) 407 CALL ZERO2(DPDE) 408 CALL ZERO2(FEW) 409 CALL ZERO2(FNE) 410 CALL ZERO2(FNS) 411 CALL ZERO2(FSE) 412 CALL ZERO2(Q2L) 413 CALL ZERO2(Q2LEW) Page 5 Source Listing HZADV 2014-12-17 20:47 HZADV.F 414 CALL ZERO2(Q2LNE) 415 CALL ZERO2(Q2LSE) 416 CALL ZERO2(Q2M) 417 CALL ZERO2(Q2MEW) 418 CALL ZERO2(Q2MNE) 419 CALL ZERO2(Q2MSE) 420 CALL ZERO2(RDPD) 421 CALL ZERO2(TEMPA) 422 CALL ZERO2(TEMPB) 423 CALL ZERO2(TEW) 424 CALL ZERO2(TNE) 425 CALL ZERO2(TNS) 426 CALL ZERO2(TSE) 427 CALL ZERO2(TST) 428 CALL ZERO2(UDY) 429 CALL ZERO2(UEW) 430 CALL ZERO2(UNE) 431 CALL ZERO2(UNS) 432 CALL ZERO2(USE) 433 CALL ZERO2(UST) 434 CALL ZERO2(VEW) 435 CALL ZERO2(VNE) 436 CALL ZERO2(VNS) 437 CALL ZERO2(VSE) 438 CALL ZERO2(VST) 439 CALL ZERO2(VM) 440 C*********************************************************************** 441 ITER2=.FALSE. 442 C----------------------------------------------------------------------- 443 DO J=MYJS_P4,MYJE_P4 444 DO I=MYIS_P4,MYIE_P4 445 c Q2M(I,J)=0. 446 Q2M(I,J)=Q2ML(I,J,L) 447 ENDDO 448 ENDDO 449 C 450 DO 110 J=MYJS_P5,MYJE_P5 451 DO 110 I=MYIS_P4,MYIE_P4 452 HM(I,J)=HTM(I,J,L)*HBM2(I,J) 453 DPDE(I,J)=PDSL(I,J)*DETA(L) 454 RDPD(I,J)=1./DPDE(I,J) 455 UST(I,J)=U(I,J,L) 456 VST(I,J)=V(I,J,L) 457 TST(I,J)=T(I,J,L) 458 Q2L(I,J)=Q2ML(I,J,L+1) 459 110 CONTINUE 460 C----------------------------------------------------------------------- 461 DO 120 J=MYJS1_P4,MYJE1_P4 462 DO 120 I=MYIS_P4,MYIE_P4 463 VM(I,J)=VTM(I,J,L)*VBM2(I,J) 464 ADPDX(I,J)=DPDE(I+IVW(J),J)+DPDE(I+IVE(J),J) 465 ADPDY(I,J)=DPDE(I,J-1)+DPDE(I,J+1) 466 RDPDX(I,J)=1./ADPDX(I,J) 467 RDPDY(I,J)=1./ADPDY(I,J) 468 120 CONTINUE 469 C--------------MASS FLUXES AND MASS POINTS ADVECTION COMPONENTS--------- 470 C*** Page 6 Source Listing HZADV 2014-12-17 20:47 HZADV.F 471 C*** THE NS AND EW FLUXES IN THE FOLLOWING LOOP ARE ON V POINTS 472 C*** 473 125 DO 130 J=MYJS1_P4,MYJE1_P4 474 DO 130 I=MYIS_P4,MYIE_P4 475 UDY(I,J)=UST(I,J)*DY 476 FEW(I,J)=UDY(I,J)*ADPDX(I,J) 477 TEW(I,J)=FEW(I,J)*(TST(I+IVE(J),J)-TST(I+IVW(J),J)) 478 Q2MEW(I,J)=FEW(I,J)*(Q2M(I+IVE(J),J)-Q2M(I+IVW(J),J)) 479 Q2LEW(I,J)=FEW(I,J)*(Q2L(I+IVE(J),J)-Q2L(I+IVW(J),J)) 480 VDX(I,J)=VST(I,J)*DX(I,J) 481 FNS(I,J)=VDX(I,J)*ADPDY(I,J) 482 TNS(I,J)=FNS(I,J)*(TST(I,J+1)-TST(I,J-1)) 483 Q2MNS(I,J)=FNS(I,J)*(Q2M(I,J+1)-Q2M(I,J-1)) 484 Q2LNS(I,J)=FNS(I,J)*(Q2L(I,J+1)-Q2L(I,J-1)) 485 130 CONTINUE 486 C--------------DIAGONAL FLUXES AND DIAGONALLY AVERAGED WIND------------- 487 C*** 488 C*** THE NE AND SE FLUXES ARE ON H POINTS 489 C*** (ACTUALLY JUST TO THE NE AND SE OF EACH H POINT) 490 C*** 491 DO 145 J=MYJS2_P4,MYJE2_P4 492 DO 145 I=MYIS_P4,MYIE_P4 493 TEMPA(I,J)=UDY(I,J)+VDX(I,J) 494 TEMPB(I,J)=UDY(I,J)-VDX(I,J) 495 145 CONTINUE 496 C 497 DO 150 J=MYJS2_P4,MYJE2_P4 498 DO 150 I=MYIS_P4,MYIE_P4 499 FNE(I,J)=(TEMPA(I+IHE(J),J)+TEMPA(I,J+1)) 500 1 *(DPDE(I,J)+DPDE(I+IHE(J),J+1)) 501 TNE(I,J)=FNE(I,J)*(TST(I+IHE(J),J+1)-TST(I,J)) 502 Q2MNE(I,J)=FNE(I,J)*(Q2M(I+IHE(J),J+1)-Q2M(I,J)) 503 Q2LNE(I,J)=FNE(I,J)*(Q2L(I+IHE(J),J+1)-Q2L(I,J)) 504 FSE(I,J)=(TEMPB(I+IHE(J),J)+TEMPB(I,J-1)) 505 1 *(DPDE(I,J)+DPDE(I+IHE(J),J-1)) 506 TSE(I,J)=FSE(I,J)*(TST(I+IHE(J),J-1)-TST(I,J)) 507 Q2MSE(I,J)=FSE(I,J)*(Q2M(I+IHE(J),J-1)-Q2M(I,J)) 508 Q2LSE(I,J)=FSE(I,J)*(Q2L(I+IHE(J),J-1)-Q2L(I,J)) 509 150 CONTINUE 510 C--------------THERMODYNAMIC EQUATION & MOISTURE------------------------ 511 C*** 512 C*** THE AD ARRAYS IN THE 170 LOOP ARE ON H POINTS 513 C*** 514 DO 170 J=MYJS5_P2,MYJE5_P2 515 DO 170 I=MYIS_P2,MYIE_P2 516 ADT(I,J)=(TEW(I+IHW(J),J)+TEW(I+IHE(J),J)+TNS(I,J-1)+TNS(I,J+1) 517 1 +TNE(I+IHW(J),J-1)+TNE(I,J)+TSE(I,J)+TSE(I+IHW(J),J+1)) 518 2 *RDPD(I,J)*FAD(I,J) 519 ADQ2M(I,J)=(Q2MEW(I+IHW(J),J)+Q2MEW(I+IHE(J),J) 520 1 +Q2MNS(I,J-1)+Q2MNS(I,J+1) 521 2 +Q2MNE(I+IHW(J),J-1)+Q2MNE(I,J) 522 3 +Q2MSE(I,J)+Q2MSE(I+IHW(J),J+1)) 523 4 *RDPD(I,J)*FAD(I,J) 524 ADQ2L(I,J)=(Q2LEW(I+IHW(J),J)+Q2LEW(I+IHE(J),J) 525 1 +Q2LNS(I,J-1)+Q2LNS(I,J+1) 526 2 +Q2LNE(I+IHW(J),J-1)+Q2LNE(I,J) 527 3 +Q2LSE(I,J)+Q2LSE(I+IHW(J),J+1)) Page 7 Source Listing HZADV 2014-12-17 20:47 HZADV.F 528 4 *RDPD(I,J)*FAD(I,J) 529 170 CONTINUE 530 C----------------------------------------------------------------------- 531 C--------------UPSTREAM ADVECTION OF T, Q AND Q2------------------------ 532 C----------------------------------------------------------------------- 533 IF(UPSTRM)THEN 534 DO 171 JAK=1,JAKONE 535 JA=KHHAS(JAK) 536 I =IHLAS(JAK) 537 J =JHLAS(JAK) 538 IX=I-MY_IS_GLB+1 539 JX=J-MY_JS_GLB+1 540 TTA=EMT(JA)*(UST(IX,JX-1)+UST(IX+IHW(JX),JX) 541 1 +UST(IX+IHE(JX),JX)+UST(IX,JX+1)) 542 TTB=ENT *(VST(IX,JX-1)+VST(IX+IHW(JX),JX) 543 1 +VST(IX+IHE(JX),JX)+VST(IX,JX+1)) 544 PP=-TTA-TTB 545 QP= TTA-TTB 546 C 547 IF(PP.LT.0.)THEN 548 ISPA(JAK)=-1 549 ELSE 550 ISPA(JAK)= 1 551 ENDIF 552 C 553 IF(QP.LT.0.)THEN 554 ISQA(JAK)=-1 555 ELSE 556 ISQA(JAK)= 1 557 ENDIF 558 C 559 PP=ABS(PP) 560 QP=ABS(QP) 561 ARRAY3(JAK)=PP*QP 562 ARRAY0(JAK)=ARRAY3(JAK)-PP-QP 563 ARRAY1(JAK)=PP-ARRAY3(JAK) 564 ARRAY2(JAK)=QP-ARRAY3(JAK) 565 171 CONTINUE 566 C 567 JAK=0 568 DO 173 JA=1,JAM 569 IHL=IHLA(JA) 570 IHH=IHHA(JA) 571 J=JRA(JA) 572 IF(.NOT.LJRA(JA))GO TO 173 573 C 574 DO I=IHL,IHH 575 IF(I.GE.MY_IS_GLB-ILPAD2.AND.I.LE.MY_IE_GLB+IRPAD2)THEN 576 JAK=JAK+1 577 ISP=ISPA(JAK) 578 ISQ=ISQA(JAK) 579 IFP=(ISP-1)/2 580 IFQ=(-ISQ-1)/2 581 IPQ=(ISP-ISQ)/2 582 C 583 IX=I-MY_IS_GLB+1 584 JX=J-MY_JS_GLB+1 Page 8 Source Listing HZADV 2014-12-17 20:47 HZADV.F 585 C 586 IF(HTM(IX+IHE(JX)+IFP,JX+ISP,L)*HTM(IX+IHE(JX)+IFQ,JX+ISQ,L) 587 1 *HTM(IX+IPQ,JX+ISP+ISQ,L).GT.0.1)GO TO 172 588 C 589 IF(HTM(IX+IHE(JX)+IFP,JX+ISP,L)+HTM(IX+IHE(JX)+IFQ,JX+ISQ,L) 590 1 +HTM(IX+IPQ,JX+ISP+ISQ,L).LT.0.1)THEN 591 C 592 TST(IX+IHE(JX)+IFP,JX+ISP)=TST(IX,JX) 593 TST(IX+IHE(JX)+IFQ,JX+ISQ)=TST(IX,JX) 594 TST(IX+IPQ,JX+ISP+ISQ) =TST(IX,JX) 595 C 596 ELSEIF 597 1 (HTM(IX+IHE(JX)+IFP,JX+ISP,L)+HTM(IX+IPQ,JX+ISP+ISQ,L) 598 2 .LT.0.99)THEN 599 C 600 TST(IX+IHE(JX)+IFP,JX+ISP)=TST(IX,JX) 601 TST(IX+IPQ,JX+ISP+ISQ) =TST(IX+IHE(JX)+IFQ,JX+ISQ) 602 C 603 ELSEIF 604 1 (HTM(IX+IHE(JX)+IFQ,JX+ISQ,L)+HTM(IX+IPQ,JX+ISP+ISQ,L) 605 2 .LT.0.99)THEN 606 C 607 TST(IX+IHE(JX)+IFQ,JX+ISQ)=TST(IX,JX) 608 TST(IX+IPQ,JX+ISP+ISQ) =TST(IX+IHE(JX)+IFP,JX+ISP) 609 C 610 ELSEIF 611 1 (HTM(IX+IHE(JX)+IFP,JX+ISP,L)+HTM(IX+IHE(JX)+IFQ,JX+ISQ,L) 612 2 .LT.0.99)THEN 613 TST(IX+IHE(JX)+IFP,JX+ISP)= 614 1 0.5*(TST(IX,JX)+TST(IX+IPQ,JX+ISP+ISQ)) 615 TST(IX+IHE(JX)+IFQ,JX+ISQ)=TST(IX+IHE(JX)+IFP,JX+ISP) 616 C 617 ELSEIF(HTM(IX+IHE(JX)+IFP,JX+ISP,L).LT.0.99)THEN 618 TST(IX+IHE(JX)+IFP,JX+ISP)= 619 1 TST(IX,JX)+TST(IX+IPQ,JX+ISP+ISQ) 620 2 -TST(IX+IHE(JX)+IFQ,JX+ISQ) 621 C 622 ELSEIF(HTM(IX+IHE(JX)+IFQ,JX+ISQ,L).LT.0.99)THEN 623 TST(IX+IHE(JX)+IFQ,JX+ISQ)= 624 1 TST(IX,JX)+TST(IX+IPQ,JX+ISP+ISQ) 625 2 -TST(IX+IHE(JX)+IFP,JX+ISP) 626 C 627 ELSE 628 TST(IX+IPQ,JX+ISP+ISQ)= 629 1 TST(IX+IHE(JX)+IFP,JX+ISP) 630 2 +TST(IX+IHE(JX)+IFQ,JX+ISQ)-TST(IX,JX) 631 C 632 ENDIF 633 C 634 172 CONTINUE 635 C 636 F0=ARRAY0(JAK) 637 F1=ARRAY1(JAK) 638 F2=ARRAY2(JAK) 639 F3=ARRAY3(JAK) 640 ADT(IX,JX)=F0*TST(IX,JX)+F1*TST(IX+IHE(JX)+IFP,JX+ISP) 641 1 +F2*TST(IX+IHE(JX)+IFQ,JX+ISQ) Page 9 Source Listing HZADV 2014-12-17 20:47 HZADV.F 642 2 +F3*TST(IX+IPQ,JX+ISP+ISQ) 643 ENDIF 644 C 645 ENDDO 646 173 CONTINUE 647 C 648 DO 175 JAK=1,JAKONE 649 I=IHLAS(JAK) 650 J=JHLAS(JAK) 651 C 652 IX=I-MY_IS_GLB+1 653 JX=J-MY_JS_GLB+1 654 C 655 ISP=ISPA(JAK) 656 ISQ=ISQA(JAK) 657 IFP=(ISP-1)/2 658 IFQ=(-ISQ-1)/2 659 IPQ=(ISP-ISQ)/2 660 F0=ARRAY0(JAK) 661 F1=ARRAY1(JAK) 662 F2=ARRAY2(JAK) 663 F3=ARRAY3(JAK) 664 ADQ2M(IX,JX)=F0*Q2M(IX,JX)+F1*Q2M(IX+IHE(JX)+IFP,JX+ISP) 665 1 +F2*Q2M(IX+IHE(JX)+IFQ,JX+ISQ) 666 2 +F3*Q2M(IX+IPQ,JX+ISP+ISQ) 667 ADQ2L(IX,JX)=F0*Q2L(IX,JX)+F1*Q2L(IX+IHE(JX)+IFP,JX+ISP) 668 1 +F2*Q2L(IX+IHE(JX)+IFQ,JX+ISQ) 669 2 +F3*Q2L(IX+IPQ,JX+ISP+ISQ) 670 175 CONTINUE 671 c 672 ENDIF 673 C*** 674 C*** END OF THIS UPSTREAM REGION 675 C*** 676 C--------------CALCULATION OF MOMENTUM ADVECTION COMPONENTS------------- 677 C*** 678 C*** THE FOLLOWING EW AND NS ARRAYS ARE ON H POINTS 679 C*** 680 DO 180 J=MYJS4_P4,MYJE4_P4 681 DO 180 I=MYIS_P4,MYIE_P4 682 UEW(I,J)=(FEW(I+IHW(J),J)+FEW(I+IHE(J),J)) 683 1 *(UST(I+IHE(J),J)-UST(I+IHW(J),J)) 684 UNS(I,J)=(FNS(I+IHW(J),J)+FNS(I+IHE(J),J)) 685 1 *(UST(I,J+1)-UST(I,J-1)) 686 VEW(I,J)=(FEW(I,J-1)+FEW(I,J+1)) 687 1 *(VST(I+IHE(J),J)-VST(I+IHW(J),J)) 688 VNS(I,J)=(FNS(I,J-1)+FNS(I,J+1))*(VST(I,J+1)-VST(I,J-1)) 689 C*** 690 C*** THE FOLLOWING NE AND SE ARRAYS ARE TIED TO V POINTS 691 C*** 692 UNE(I,J)=(FNE(I+IVW(J),J)+FNE(I+IVE(J),J)) 693 1 *(UST(I+IVE(J),J+1)-UST(I,J)) 694 USE(I,J)=(FSE(I+IVW(J),J)+FSE(I+IVE(J),J)) 695 1 *(UST(I+IVE(J),J-1)-UST(I,J)) 696 VNE(I,J)=(FNE(I,J-1)+FNE(I,J+1))*(VST(I+IVE(J),J+1)-VST(I,J)) 697 VSE(I,J)=(FSE(I,J-1)+FSE(I,J+1))*(VST(I+IVE(J),J-1)-VST(I,J)) 698 180 CONTINUE Page 10 Source Listing HZADV 2014-12-17 20:47 HZADV.F 699 C--------------EQUATION OF MOTION--------------------------------------- 700 C*** 701 C*** ADU AND ADV ARE ON V POINTS 702 C*** 703 DO 200 J=MYJS5_P2,MYJE5_P2 704 DO 200 I=MYIS_P2,MYIE_P2 705 ADU(I,J)=(UEW(I+IVW(J),J)+UEW(I+IVE(J),J)+UNS(I,J-1)+UNS(I,J+1) 706 1 +UNE(I+IVW(J),J-1)+UNE(I,J)+USE(I,J)+USE(I+IVW(J),J+1)) 707 2 *RDPDX(I,J)*FAD(I+IVW(J),J) 708 ADV(I,J)=(VEW(I+IVW(J),J)+VEW(I+IVE(J),J)+VNS(I,J-1)+VNS(I,J+1) 709 1 +VNE(I+IVW(J),J-1)+VNE(I,J)+VSE(I,J)+VSE(I+IVW(J),J+1)) 710 2 *RDPDY(I,J)*FAD(I+IVW(J),J) 711 200 CONTINUE 712 C 713 C--------------UPSTREAM ADVECTION OF VELOCITY COMPONENTS---------------- 714 C 715 IF(UPSTRM)THEN 716 DO 205 JAK=1,JAKTWO 717 JA=KVHAS(JAK) 718 I=IVLAS(JAK) 719 J=JVLAS(JAK) 720 C 721 IX=I-MY_IS_GLB+1 722 JX=J-MY_JS_GLB+1 723 C 724 TTA=EM(JA)*UST(IX,JX) 725 TTB=EN *VST(IX,JX) 726 PP=-TTA-TTB 727 QP=TTA-TTB 728 C 729 IF(PP.LT.0.)THEN 730 ISP=-1 731 ELSE 732 ISP= 1 733 ENDIF 734 C 735 IF(QP.LT.0.)THEN 736 ISQ=-1 737 ELSE 738 ISQ= 1 739 ENDIF 740 C 741 IFP=(ISP-1)/2 742 IFQ=(-ISQ-1)/2 743 IPQ=(ISP-ISQ)/2 744 PP=ABS(PP) 745 QP=ABS(QP) 746 F3=PP*QP 747 F0=F3-PP-QP 748 F1=PP-F3 749 F2=QP-F3 750 ADU(IX,JX)=F0*UST(IX,JX)+F1*UST(IX+IVE(JX)+IFP,JX+ISP) 751 1 +F2*UST(IX+IVE(JX)+IFQ,JX+ISQ) 752 2 +F3*UST(IX+IPQ,JX+ISP+ISQ) 753 ADV(IX,JX)=F0*VST(IX,JX)+F1*VST(IX+IVE(JX)+IFP,JX+ISP) 754 1 +F2*VST(IX+IVE(JX)+IFQ,JX+ISQ) 755 2 +F3*VST(IX+IPQ,JX+ISP+ISQ) Page 11 Source Listing HZADV 2014-12-17 20:47 HZADV.F 756 205 CONTINUE 757 ENDIF 758 C*** 759 C*** END OF THIS UPSTREAM REGION 760 C*** 761 C----------------------------------------------------------------------- 762 IF(ITER2)GO TO 235 763 C----------------------------------------------------------------------- 764 DO 220 J=MYJS2_P2,MYJE2_P2 765 DO 220 I=MYIS1_P2,MYIE1_P2 766 TST(I,J)=ADT (I,J)*(HM(I,J)*TLC)+TST(I,J) 767 Q2M(I,J)=ADQ2M(I,J)*(HM(I,J)*TLC)+Q2M(I,J) 768 Q2L(I,J)=ADQ2L(I,J)*(HM(I,J)*TLC)+Q2L(I,J) 769 220 CONTINUE 770 C 771 DO 230 J=MYJS2_P2,MYJE2_P2 772 DO 230 I=MYIS1_P2,MYIE1_P2 773 UST(I,J)=ADU(I,J)*VM(I,J)*TLC+UST(I,J) 774 VST(I,J)=ADV(I,J)*VM(I,J)*TLC+VST(I,J) 775 230 CONTINUE 776 C----------------------------------------------------------------------- 777 ITER2=.TRUE. 778 GO TO 125 779 C----------------------------------------------------------------------- 780 235 DO 240 J=MYJS2,MYJE2 781 DO 240 I=MYIS1,MYIE1 782 T(I,J,L)=ADT(I,J)*(2.0*HM(I,J))+T(I,J,L) 783 240 CONTINUE 784 C 785 DO 250 J=MYJS2,MYJE2 786 DO 250 I=MYIS1,MYIE1 787 U(I,J,L)=ADU(I,J)*(2.0*VM(I,J))+U(I,J,L) 788 V(I,J,L)=ADV(I,J)*(2.0*VM(I,J))+V(I,J,L) 789 250 CONTINUE 790 C----------------------------------------------------------------------- 791 IF(L.EQ.1)THEN 792 DO 260 J=MYJS2,MYJE2 793 DO 260 I=MYIS1,MYIE1 794 ADQ2HL(I,J,1)=ADQ2L(I,J) 795 260 CONTINUE 796 ELSE 797 DO 270 J=MYJS2,MYJE2 798 DO 270 I=MYIS1,MYIE1 799 ADQ2HL(I,J,L)=ADQ2L(I,J) 800 Q2(I,J,L-1)=ADQ2M(I,J)*HM(I,J)+Q2(I,J,L-1) 801 270 CONTINUE 802 ENDIF 803 C*********************************************************************** 804 500 CONTINUE 805 C*********************************************************************** 806 !$omp parallel do private(hm) 807 DO 600 L=2,LM 808 DO J=MYJS2,MYJE2 809 DO I=MYIS1,MYIE1 810 HM(I,J)=HTM(I,J,L)*HBM2(I,J) 811 Q2(I,J,L-1)=ADQ2HL(I,J,L-1)*HM(I,J)+Q2(I,J,L-1) 812 ENDDO Page 12 Source Listing HZADV 2014-12-17 20:47 HZADV.F 813 ENDDO 814 600 CONTINUE 815 C----------------------------------------------------------------------- 816 RETURN 817 END ENTRY POINTS Name hzadv_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 110 Label 270 261,262 120 Label 279 272,273 125 Label 284 589 130 Label 296 284,285 145 Label 306 302,303 150 Label 320 308,309 170 Label 340 325,326 171 Label 376 345 172 Label 445 398 173 Label 457 379,383 175 Label 481 459 180 Label 509 491,492 200 Label 522 514,515 205 Label 567 527 220 Label 580 575,576 230 Label 586 582,583 235 Label 591 573 240 Label 594 591,592 25 Label 170 152 250 Label 600 596,597 260 Label 606 603,604 270 Label 612 608,609 50 Label 186 173,178 500 Label 615 211 600 Label 625 618 70 Label 192 189,190 80 Label 199 195,196,197 ABS Func 370 scalar 370,371,555,556 ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACPREC Scalar 12 R(4) 4 2 17955 COM ADPDX Local 92 R(4) 4 2 17955 275,277,287 ADPDY Local 92 R(4) 4 2 17955 276,278,292 ADQ2HL Local 121 R(4) 4 3 807975 605,610,622 ADQ2L Local 96 R(4) 4 2 17955 217,335,478,579,605,610 ADQ2M Local 96 R(4) 4 2 17955 216,330,475,578,611 ADT Local 94 R(4) 4 2 17955 213,327,451,577,593 ADU Local 95 R(4) 4 2 17955 214,516,561,584,598 ADV Local 95 R(4) 4 2 17955 215,519,564,585,599 AETA Scalar 4 R(4) 4 1 45 COM Page 13 Source Listing HZADV 2014-12-17 20:47 Symbol Table HZADV.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 ARRAY0 Local 124 R(4) 4 1 4530 373,447,471 ARRAY1 Local 125 R(4) 4 1 4530 374,448,472 ARRAY2 Local 126 R(4) 4 1 4530 375,449,473 ARRAY3 Local 127 R(4) 4 1 4530 372,373,374,375,450,474 CLDEFI Scalar 11 R(4) 4 2 17955 COM CLDWTR Common 2 3447720 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 CWM Scalar 3 R(4) 4 3 807975 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 264 DFL Scalar 4 R(4) 4 1 46 COM DIV Scalar 6 R(4) 4 3 807975 COM DPDE Local 101 R(4) 4 2 17955 218,264,265,275,276,311,316 DT Scalar 6 R(4) 4 scalar COM DX Scalar 8 R(4) 4 2 17955 COM 291 DY Scalar 3 R(4) 4 scalar COM 286 DYNAM Common 2 725404 EF4T Scalar 3 R(4) 4 scalar COM EM Scalar 6 R(4) 4 1 760 COM 535 EMT Scalar 6 R(4) 4 1 760 COM 351 EN Scalar 3 R(4) 4 scalar COM 536 ENT Scalar 3 R(4) 4 scalar COM 353 ETA Scalar 4 R(4) 4 1 46 COM ETADT Scalar 7 R(4) 4 3 790020 COM F Scalar 11 R(4) 4 2 17955 COM F0 Local 447 R(4) 4 scalar 447,451,471,475,478,558,561,564 F1 Local 448 R(4) 4 scalar 448,451,472,475,478,559,561,564 F2 Local 449 R(4) 4 scalar 449,452,473,476,479,560,562,565 F3 Local 450 R(4) 4 scalar 450,453,474,477,480,557,558,559,56 0,563,566 F4D Scalar 3 R(4) 4 scalar COM F4Q Scalar 3 R(4) 4 scalar COM F4Q2 Scalar 4 R(4) 4 1 45 COM FAD Scalar 13 R(4) 4 2 17955 COM 329,334,339,518,521 FCP Scalar 10 R(4) 4 2 17955 COM FDIV Scalar 10 R(4) 4 2 17955 COM FEW Local 117 R(4) 4 2 17955 219,287,288,289,290,493,497 FIRST Scalar 70 L(4) 4 scalar COM FIS Scalar 7 R(4) 4 2 17955 COM FNE Local 118 R(4) 4 2 17955 220,310,312,313,314,503,507 FNS Local 117 R(4) 4 2 17955 221,292,293,294,295,495,499 FSE Local 118 R(4) 4 2 17955 222,315,317,318,319,505,508 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 263,621 Page 14 Source Listing HZADV 2014-12-17 20:47 Symbol Table HZADV.F Name Object Declared Type Bytes Dimen Elements Attributes References HBM3 Scalar 8 R(4) 4 2 17955 COM HM Local 90 R(4) 4 2 17955 263,577,578,579,593,611,621,622 HTM Scalar 6 R(4) 4 3 807975 COM 263,397,398,400,401,408,415,422,42 8,433,621 HTMG Scalar 52 R(4) 4 3 4183695 COM HZADV Subr 2 I Local 160 I(4) 4 scalar 160,161,164,178,179,183,190,191,19 7,198,255,257,262,263,264,265,266, 267,268,269,273,274,275,276,277,27 8,285,286,287,288,289,290,291,292, 293,294,295,303,304,305,309,310,31 1,312,313,314,315,316,317,318,319, 326,327,328,329,330,331,332,333,33 4,335,336,337,338,339,347,349,385, 386,394,460,463,492,493,494,495,49 6,497,498,499,503,504,505,506,507, 508,515,516,517,518,519,520,521,52 9,532,576,577,578,579,583,584,585, 592,593,597,598,599,604,605,609,61 0,611,620,621,622 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,90,91,92,93,94,95, 96,97,98,101,102,103,104,105,106,1 07,110,111,112,113,114,115,116,117 ,118,121,122 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,90,91,92,93,94,95, 96,97,98,101,102,103,104,105,106,1 07,110,111,112,113,114,115,116,117 ,118,121,122 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 IFP Local 390 I(4) 4 scalar 390,397,400,403,408,411,419,422,42 4,426,428,429,436,440,451,468,475, 478,552,561,564 IFQ Local 391 I(4) 4 scalar 391,397,400,404,412,415,418,422,42 6,431,433,434,441,452,469,476,479, 553,562,565 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 310,311,312,313,314,315,316,317,31 8,319,327,330,335,352,354,397,400, 403,404,408,411,412,415,418,419,42 2,424,426,428,429,431,433,434,436, 440,441,451,452,475,476,478,479,49 3,494,495,498 IHEG Scalar 9 I(4) 4 1 387 COM IHH Local 154 I(4) 4 scalar 154,160,381,385 IHHA Scalar 3 I(4) 4 1 760 COM 154,381 IHL Local 153 I(4) 4 scalar 153,160,380,385 IHLA Scalar 3 I(4) 4 1 760 COM 153,380 Page 15 Source Listing HZADV 2014-12-17 20:47 Symbol Table HZADV.F Name Object Declared Type Bytes Dimen Elements Attributes References IHLAS Local 129 I(4) 4 1 4530 164,347,460 IHRST Scalar 5 I(4) 4 scalar COM IHW Scalar 3 I(4) 4 1 399 COM 327,328,330,332,333,335,337,338,35 1,353,493,494,495,498 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 161,179,386 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,65 ,66 IM1 Param 65 I(4) 4 scalar IMJM Param 66 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,145,146,147,1 48 INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Scalar 5 I(4) 4 scalar COM IPQ Local 392 I(4) 4 scalar 392,398,401,405,408,412,415,419,42 5,430,435,439,453,470,477,480,554, 563,566 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 161,179,386 IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISP Local 388 I(4) 4 scalar 388,390,392,397,398,400,401,403,40 5,408,411,412,415,419,422,424,425, 426,428,429,430,435,436,439,440,45 1,453,466,468,470,475,477,478,480, 541,543,552,554,561,563,564,566 ISPA Local 134 I(4) 4 1 4530 359,361,388,466 ISQ Local 389 I(4) 4 scalar 389,391,392,397,398,400,401,404,40 5,408,412,415,418,419,422,425,426, 430,431,433,434,435,439,441,452,45 3,467,469,470,476,477,479,480,547, 549,553,554,562,563,565,566 ISQA Local 135 I(4) 4 1 4530 365,367,389,467 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 ITER2 Local 70 L(4) 4 scalar 252,573,588 ITROW Scalar 22 I(4) 4 scalar COM IVE Scalar 4 I(4) 4 1 399 COM 275,288,289,290,503,504,505,506,50 7,508,516,519,561,562,564,565 IVEG Scalar 9 I(4) 4 1 387 COM Page 16 Source Listing HZADV 2014-12-17 20:47 Symbol Table HZADV.F Name Object Declared Type Bytes Dimen Elements Attributes References IVH Local 175 I(4) 4 scalar 175,178 IVHA Scalar 3 I(4) 4 1 760 COM 175 IVL Local 174 I(4) 4 scalar 174,178 IVLA Scalar 3 I(4) 4 1 760 COM 174 IVLAS Local 132 I(4) 4 1 4530 183,529 IVW Scalar 4 I(4) 4 1 399 COM 275,288,289,290,503,505,516,517,51 8,519,520,521 IVWG Scalar 9 I(4) 4 1 387 COM IX Local 349 I(4) 4 scalar 349,351,352,353,354,394,397,398,40 0,401,403,404,405,408,411,412,415, 418,419,422,424,425,426,428,429,43 0,431,433,434,435,436,439,440,441, 451,452,453,463,475,476,477,478,47 9,480,532,535,536,561,562,563,564, 565,566 J Local 155 I(4) 4 scalar 155,158,165,176,180,184,189,191,19 6,198,254,257,261,263,264,265,266, 267,268,269,272,274,275,276,277,27 8,284,286,287,288,289,290,291,292, 293,294,295,302,304,305,308,310,31 1,312,313,314,315,316,317,318,319, 325,327,328,329,330,331,332,333,33 4,335,336,337,338,339,348,350,382, 395,461,464,491,493,494,495,496,49 7,498,499,503,504,505,506,507,508, 514,516,517,518,519,520,521,530,53 3,575,577,578,579,582,584,585,591, 593,596,598,599,603,605,608,610,61 1,619,621,622 JA Local 152 I(4) 4 scalar 152,153,154,155,156,159,163,173,17 4,175,176,182,346,351,379,380,381, 382,383,528,535 JAK Local 345 I(4) 4 scalar 345,346,347,348,359,361,365,367,37 2,373,374,375,378,387,388,389,447, 448,449,450,459,460,461,466,467,47 1,472,473,474,527,528,529,530 JAKONE Local 150 I(4) 4 scalar 150,162,163,164,165,345,459 JAKTWO Local 172 I(4) 4 scalar 172,181,182,183,184,527 JAM Param 65 I(4) 4 scalar 3,6,67,137,152,173,379 JAMD Param 67 I(4) 4 scalar 124,125,126,127,128,129,130,131,13 2,133,134,135 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM 158,180 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,90,91,92,93,94,95, 96,97,98,101,102,103,104,105,106,1 07,110,111,112,113,114,115,116,117 ,118,121,122 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,90,91,92,93,94,95, 96,97,98,101,102,103,104,105,106,1 07,110,111,112,113,114,115,116,117 Page 17 Source Listing HZADV 2014-12-17 20:47 Symbol Table HZADV.F Name Object Declared Type Bytes Dimen Elements Attributes References ,118,121,122 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 JHLAS Local 130 I(4) 4 1 4530 165,348,461 JM Param 3 I(4) 4 scalar 9,17,20,43,44,45,46,47,51,52,57,65 ,66 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JRA Scalar 3 I(4) 4 1 760 COM 155,176,382 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 158,180 JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM JVLAS Local 133 I(4) 4 1 4530 184,530 JX Local 350 I(4) 4 scalar 350,351,352,353,354,395,397,398,40 0,401,403,404,405,408,411,412,415, 418,419,422,424,425,426,428,429,43 0,431,433,434,435,436,439,440,441, 451,452,453,464,475,476,477,478,47 9,480,533,535,536,561,562,563,564, 565,566 KHHAS Local 128 I(4) 4 1 4530 163,346 KVHAS Local 131 I(4) 4 1 4530 182,528 L Local 195 I(4) 4 scalar 195,198,211,257,263,264,266,267,26 8,269,274,397,398,400,401,408,415, 422,428,433,593,598,599,602,610,61 1,618,621,622 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LC Scalar 5 I(4) 4 2 17955 COM LIST Scalar 5 I(4) 4 scalar COM LJRA Local 137 L(4) 4 1 760 156,159,383 LM Param 3 I(4) 4 scalar 3,4,5,6,7,21,52,66,121,122,195,211 ,618 LMH Scalar 4 I(4) 4 2 17955 COM LMV Scalar 4 I(4) 4 2 17955 COM LOOPS Common 2 158840 LP1 Param 66 I(4) 4 scalar 4 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MASKS Common 2 6894720 MOD Func 147 scalar 147,148 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 MYIE1 Scalar 4 I(4) 4 scalar COM 592,597,604,609,620 MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM 576,583 Page 18 Source Listing HZADV 2014-12-17 20:47 Symbol Table HZADV.F Name Object Declared Type Bytes Dimen Elements Attributes References MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM 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 MYIE_P2 Scalar 7 I(4) 4 scalar COM 326,515 MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM 190,197,255,262,273,285,303,309,49 2 MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM MYIS1 Scalar 4 I(4) 4 scalar COM 592,597,604,609,620 MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM 576,583 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 MYIS_P2 Scalar 5 I(4) 4 scalar COM 326,515 MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM 190,197,255,262,273,285,303,309,49 2 MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 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 MYJE1_P4 Scalar 17 I(4) 4 scalar COM 272,284 MYJE2 Scalar 15 I(4) 4 scalar COM 591,596,603,608,619 MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM 575,582 MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM 302,308 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 491 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 325,514 MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM 254 MYJE_P5 Scalar 16 I(4) 4 scalar COM 189,196,261 MYJS Scalar 10 I(4) 4 scalar COM 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 MYJS1_P4 Scalar 12 I(4) 4 scalar COM 272,284 MYJS2 Scalar 10 I(4) 4 scalar COM 591,596,603,608,619 MYJS2_P1 Scalar 13 I(4) 4 scalar COM Page 19 Source Listing HZADV 2014-12-17 20:47 Symbol Table HZADV.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS2_P2 Scalar 13 I(4) 4 scalar COM 575,582 MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM 302,308 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 491 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 325,514 MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM 254 MYJS_P5 Scalar 11 I(4) 4 scalar COM 189,196,261 MYPE Scalar 2 I(4) 4 scalar COM 145,146,147,148 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM 161,179,386 MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM 161,179,349,386,394,463,532 MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM 158,180 MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM 158,180,350,395,464,533 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 NPES Scalar 2 I(4) 4 scalar COM 146 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 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 PDSL Scalar 3 R(4) 4 2 17955 COM 264 PP Local 355 R(4) 4 scalar 355,358,370,372,373,374,537,540,55 5,557,558,559 Page 20 Source Listing HZADV 2014-12-17 20:47 Symbol Table HZADV.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 198,611,622 Q2L Local 105 R(4) 4 2 17955 223,269,290,295,314,319,478,479,48 0,579 Q2LEW Local 107 R(4) 4 2 17955 224,290,335 Q2LNE Local 112 R(4) 4 2 17955 225,314,337 Q2LNS Local 97 R(4) 4 2 17955 295,336 Q2LSE Local 112 R(4) 4 2 17955 226,319,338 Q2M Local 105 R(4) 4 2 17955 227,257,289,294,313,318,475,476,47 7,578 Q2MEW Local 107 R(4) 4 2 17955 228,289,330 Q2ML Local 122 R(4) 4 3 825930 191,198,257,269 Q2MNE Local 111 R(4) 4 2 17955 229,313,332 Q2MNS Local 97 R(4) 4 2 17955 294,331 Q2MSE Local 111 R(4) 4 2 17955 230,318,333 Q30 Scalar 14 R(4) 4 2 17955 COM QP Local 356 R(4) 4 scalar 356,364,371,372,373,375,538,546,55 6,557,558,560 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 RDPD Local 91 R(4) 4 2 17955 231,265,329,334,339 RDPDX Local 93 R(4) 4 2 17955 277,518 RDPDY Local 93 R(4) 4 2 17955 278,521 RES Scalar 7 R(4) 4 2 17955 COM RESTRT Scalar 70 L(4) 4 scalar COM RF Scalar 8 R(4) 4 2 17955 COM RTOP Scalar 4 R(4) 4 3 807975 COM RUN Scalar 70 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 70 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 SR Scalar 5 R(4) 4 2 17955 COM SUBPOST Scalar 2 L(4) 4 scalar COM T Scalar 5 R(4) 4 3 807975 COM 268,593 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 Page 21 Source Listing HZADV 2014-12-17 20:47 Symbol Table HZADV.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 TEMPA Local 102 R(4) 4 2 17955 232,304,310 TEMPB Local 102 R(4) 4 2 17955 233,305,315 TEMPCOM Common 42 6603768 TEW Local 106 R(4) 4 2 17955 234,288,327 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 TLC Param 58 R(4) 4 scalar 577,578,579,584,585 TNE Local 110 R(4) 4 2 17955 235,312,328 TNS Local 106 R(4) 4 2 17955 236,293,327 TOPO Common 50 17478548 TSE Local 110 R(4) 4 2 17955 237,317,328 TSHLTR Scalar 18 R(4) 4 2 17955 COM TST Local 103 R(4) 4 2 17955 238,268,288,293,312,317,403,404,40 5,411,412,418,419,424,425,426,429, 430,431,434,435,436,439,440,441,45 1,452,453,577 TTA Local 351 R(4) 4 scalar 351,355,356,535,537,538 TTB Local 353 R(4) 4 scalar 353,355,356,536,537,538 TTVG Scalar 51 R(4) 4 2 92971 COM TWBS Scalar 9 R(4) 4 2 17955 COM U Scalar 5 R(4) 4 3 807975 COM 266,598 U00 Scalar 3 R(4) 4 2 17955 COM U10 Scalar 17 R(4) 4 2 17955 COM U30 Scalar 15 R(4) 4 2 17955 COM UDY Local 98 R(4) 4 2 17955 239,286,287,304,305 UEW Local 113 R(4) 4 2 17955 240,493,516 UL Scalar 4 R(4) 4 1 90 COM UNE Local 115 R(4) 4 2 17955 241,503,517 UNS Local 113 R(4) 4 2 17955 242,495,516 UPSTRM Local 137 L(4) 4 scalar 144,145,146,147,148,344,526 USE Local 115 R(4) 4 2 17955 243,505,517 UST Local 104 R(4) 4 2 17955 244,266,286,351,352,494,496,504,50 6,535,561,562,563,584 USTAR Scalar 3 R(4) 4 2 17955 COM UZ0 Scalar 4 R(4) 4 2 17955 COM V Scalar 6 R(4) 4 3 807975 COM 267,599 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 274 VBM3 Scalar 3 R(4) 4 2 17955 COM VDX Local 98 R(4) 4 2 17955 291,292,304,305 VEW Local 114 R(4) 4 2 17955 245,497,519 VM Local 90 R(4) 4 2 17955 250,274,584,585,598,599 VNE Local 116 R(4) 4 2 17955 246,507,520 Page 22 Source Listing HZADV 2014-12-17 20:47 Symbol Table HZADV.F Name Object Declared Type Bytes Dimen Elements Attributes References VNS Local 114 R(4) 4 2 17955 247,499,519 VRBLS Common 2 13143060 VSE Local 116 R(4) 4 2 17955 248,508,520 VST Local 104 R(4) 4 2 17955 249,267,291,353,354,498,499,507,50 8,536,564,565,566,585 VTM Scalar 7 R(4) 4 3 807975 COM 274 VZ0 Scalar 4 R(4) 4 2 17955 COM WPDAR Scalar 8 R(4) 4 2 17955 COM Z0 Scalar 3 R(4) 4 2 17955 COM ZERO2 Subr 213 213,214,215,216,217,218,219,220,22 1,222,223,224,225,226,227,228,229, 230,231,232,233,234,235,236,237,23 8,239,240,241,242,243,244,245,246, 247,248,249,250 Page 23 Source Listing HZADV 2014-12-17 20:47 Subprograms/Common Blocks HZADV.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 2 3447720 CONTIN Common 2 12999420 CTLBLK Common 4 112 DYNAM Common 2 725404 GLB_TABLE Common 37 128 HZADV Subr 2 INDX Common 2 6564 INDXG Common 8 8084 LOOPS Common 2 158840 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 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__ Page 24 Source Listing HZADV 2014-12-17 20:47 HZADV.F -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -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/, Page 25 Source Listing HZADV 2014-12-17 20:47 HZADV.F /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/ -list filename : HZADV.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100