Page 1 Source Listing DIVHOA 2014-12-17 20:47 /tmpnwprd/ifortL4ojcz.i 1 # 1 "DIVHOA.F" 2 SUBROUTINE DIVHOA 3 C ****************************************************************** 4 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 5 C . . . 6 C SUBPROGRAM: DIVHOA DIVERGENCE/HORIZONTAL OMEGA-ALPHA 7 C PRGRMMR: JANJIC ORG: W/NP22 DATE: 93-10-28 8 C 9 C ABSTRACT: 10 C DIVHOA COMPUTES THE DIVERGENCE INCLUDING THE 11 C MODIFICATION PREVENTING GRAVITY WAVE GRID SEPARATION, AND 12 C CALCULATES THE HORIZONTAL PART OF THE OMEGA-ALPHA TERM 13 C (THE PART PROPORTIONAL TO THE ADVECTION OF MASS ALONG 14 C ETA SURFACES). 15 C 16 C PROGRAM HISTORY LOG: 17 C 87-06-?? JANJIC - ORIGINATOR 18 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL 19 C 96-03-29 BLACK - ADDED EXTERNAL EDGE 20 C 97-03-17 MESINGER - SPLIT FROM PFDHT 21 C 98-10-30 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 22 C 23 C USAGE: CALL DIVHOA FROM MAIN PROGRAM EBU 24 C INPUT ARGUMENT LIST: 25 C NONE 26 C 27 C OUTPUT ARGUMENT LIST: 28 C NONE 29 C 30 C OUTPUT FILES: 31 C NONE 32 C 33 C SUBPROGRAMS CALLED: 34 C 35 C UNIQUE: NONE 36 C 37 C LIBRARY: NONE 38 C 39 C COMMON BLOCKS: CTLBLK 40 C MASKS 41 C DYNAM 42 C VRBLS 43 C INDX 44 C 45 C ATTRIBUTES: 46 C LANGUAGE: FORTRAN 90 47 C MACHINE : IBM SP 48 C$$$ 49 C*********************************************************************** 50 P A R A M E T E R 51 & (CP=1004.6) 52 C----------------------------------------------------------------------- 53 INCLUDE "parmeta" 76 INCLUDE "mpp.h" 77 # 1 "./sp.h" 1 78 # 4 79 Page 2 Source Listing DIVHOA 2014-12-17 20:47 ./sp.h 80 # 55 "DIVHOA.F" 2 81 C----------------------------------------------------------------------- 140 P A R A M E T E R 141 & (IMJM=IM*JM-JM/2,JAM=6+2*(JM-10),LP1=LM+1) 142 C----------------------------------------------------------------------- 143 L O G I C A L 144 & RUN,FIRST,RESTRT,SIGMA 145 C---------------------------------------------------------------------- 146 INCLUDE "CTLBLK.comm" 147 C----------------------------------------------------------------------- 157 INCLUDE "MASKS.comm" 158 C----------------------------------------------------------------------- 169 INCLUDE "DYNAM.comm" 170 C----------------------------------------------------------------------- 186 INCLUDE "VRBLS.comm" 196 INCLUDE "PVRBLS.comm" 226 INCLUDE "CLDWTR.comm" 227 C----------------------------------------------------------------------- 235 INCLUDE "CONTIN.comm" 236 C----------------------------------------------------------------------- 246 INCLUDE "INDX.comm" 247 C----------------------------------------------------------------------- 259 D I M E N S I O N 260 & FILO (IDIM1:IDIM2,JDIM1:JDIM2),RDPD (IDIM1:IDIM2,JDIM1:JDIM2) 261 &,ADPDX (IDIM1:IDIM2,JDIM1:JDIM2),ADPDY (IDIM1:IDIM2,JDIM1:JDIM2) 262 &,FIUP (IDIM1:IDIM2,JDIM1:JDIM2),F0 (IDIM1:IDIM2,JDIM1:JDIM2) 263 &,ADPDNE(IDIM1:IDIM2,JDIM1:JDIM2),ADPDSE(IDIM1:IDIM2,JDIM1:JDIM2) 264 &,PEW (IDIM1:IDIM2,JDIM1:JDIM2),PNS (IDIM1:IDIM2,JDIM1:JDIM2) 265 &,PCEW (IDIM1:IDIM2,JDIM1:JDIM2),PCNS (IDIM1:IDIM2,JDIM1:JDIM2) 266 &,DPFEW (IDIM1:IDIM2,JDIM1:JDIM2),DPFNS (IDIM1:IDIM2,JDIM1:JDIM2) 267 &,FNS (IDIM1:IDIM2,JDIM1:JDIM2),TNS (IDIM1:IDIM2,JDIM1:JDIM2) 268 &,DPNE (IDIM1:IDIM2,JDIM1:JDIM2),DPSE (IDIM1:IDIM2,JDIM1:JDIM2) 269 &,DCNE (IDIM1:IDIM2,JDIM1:JDIM2),DCSE (IDIM1:IDIM2,JDIM1:JDIM2) 270 &,DPFNE (IDIM1:IDIM2,JDIM1:JDIM2),DPFSE (IDIM1:IDIM2,JDIM1:JDIM2) 271 &,UP (IDIM1:IDIM2,JDIM1:JDIM2),VP (IDIM1:IDIM2,JDIM1:JDIM2) 272 &,PVNE (IDIM1:IDIM2,JDIM1:JDIM2),PVSE (IDIM1:IDIM2,JDIM1:JDIM2) 273 &,VM (IDIM1:IDIM2,JDIM1:JDIM2),HM (IDIM1:IDIM2,JDIM1:JDIM2) 274 C 275 D I M E N S I O N 276 & DPDE (IDIM1:IDIM2,JDIM1:JDIM2),FIM (IDIM1:IDIM2,JDIM1:JDIM2) 277 &,APEL (IDIM1:IDIM2,JDIM1:JDIM2),PCXC (IDIM1:IDIM2,JDIM1:JDIM2) 278 &,UDY (IDIM1:IDIM2,JDIM1:JDIM2),VDX (IDIM1:IDIM2,JDIM1:JDIM2) 279 &,TEW (IDIM1:IDIM2,JDIM1:JDIM2),FEW (IDIM1:IDIM2,JDIM1:JDIM2) 280 &,TNE (IDIM1:IDIM2,JDIM1:JDIM2),TSE (IDIM1:IDIM2,JDIM1:JDIM2) 281 &,FNE (IDIM1:IDIM2,JDIM1:JDIM2),FSE (IDIM1:IDIM2,JDIM1:JDIM2) 282 &,PNE (IDIM1:IDIM2,JDIM1:JDIM2),PSE (IDIM1:IDIM2,JDIM1:JDIM2) 283 &,CNE (IDIM1:IDIM2,JDIM1:JDIM2),CSE (IDIM1:IDIM2,JDIM1:JDIM2) 284 &,PPNE (IDIM1:IDIM2,JDIM1:JDIM2),PPSE (IDIM1:IDIM2,JDIM1:JDIM2) 285 &,PCNE (IDIM1:IDIM2,JDIM1:JDIM2),PCSE (IDIM1:IDIM2,JDIM1:JDIM2) 286 C----------------------------------------------------------------------- 287 C----------------------------------------------------------------------- 288 CALL ZERO2(DPDE) 289 CALL ZERO2(PNE) 290 CALL ZERO2(CNE) 291 CALL ZERO2(PSE) 292 CALL ZERO2(CSE) 293 CALL ZERO2(ADPDX) Page 3 Source Listing DIVHOA 2014-12-17 20:47 DIVHOA.F 294 CALL ZERO2(ADPDY) 295 call zero2(filo) 296 call zero2(pdsl) 297 c call zero3(div) 298 C----------------------------------------------------------------------- 299 C--------------PREPARATORY CALCULATIONS--------------------------------- 300 C----------------------------------------------------------------------- 301 IF(SIGMA)THEN 302 !$omp parallel do 303 DO 50 J=MYJS_P4,MYJE_P4 304 DO 50 I=MYIS_P4,MYIE_P4 305 FILO(I,J)=FIS(I,J) 306 PDSL(I,J)=PD(I,J) 307 50 CONTINUE 308 ELSE 309 !$omp parallel do 310 DO 100 J=MYJS_P4,MYJE_P4 311 DO 100 I=MYIS_P4,MYIE_P4 312 FILO(I,J)=0. 313 PDSL(I,J)=RES(I,J)*PD(I,J) 314 100 CONTINUE 315 ENDIF 316 C 317 !$omp parallel do 318 DO 110 L=1,LM 319 DO J=MYJS,MYJE 320 DO I=MYIS,MYIE 321 DIV(I,J,L)=0. 322 OMGALF(I,J,L)=0. 323 ENDDO 324 ENDDO 325 110 CONTINUE 326 C 327 !$omp parallel do 328 DO J=MYJS,MYJE 329 DO I=MYIS,MYIE 330 ADPDX(I,J)=0. 331 ADPDY(I,J)=0. 332 ENDDO 333 ENDDO 334 C--------------MAIN VERTICAL INTEGRATION LOOP--------------------------- 335 DO 400 L=LM,1,-1 336 C----------------------------------------------------------------------- 337 !$omp parallel do 338 DO 210 J=MYJS_P4,MYJE_P4 339 DO 210 I=MYIS_P4,MYIE_P4 340 DPDE(I,J)=DETA(L)*PDSL(I,J) 341 RDPD(I,J)=1./DPDE(I,J) 342 210 CONTINUE 343 C 344 !$omp parallel do 345 DO 220 J=MYJS1_P2,MYJE1_P2 346 DO 220 I=MYIS_P2,MYIE1_P2 347 ADPDX(I,J)=DPDE(I+IVW(J),J)+DPDE(I+IVE(J),J) 348 ADPDY(I,J)=DPDE(I,J-1)+DPDE(I,J+1) 349 220 CONTINUE 350 C----------------------------------------------------------------------- Page 4 Source Listing DIVHOA 2014-12-17 20:47 DIVHOA.F 351 !$omp parallel do private(fiupk) 352 DO 230 J=MYJS_P4,MYJE_P4 353 DO 230 I=MYIS_P4,MYIE_P4 354 c if(mype.eq.12.and.i.eq.8.and.j.eq.23) then 355 c print*,'i,j,pdsl(i,j)=',i,j,pdsl(i,j) 356 c print*,'l,aeta(l),pt=',l,aeta(l),pt 357 c endif 358 APEL(I,J)=PT+AETA(L)*PDSL(I,J) 359 c if(mype.eq.12.and.i.eq.8.and.j.eq.23) then 360 c print*,'l,q(i,j,l)=',l,q(i,j,l) 361 c endif 362 RTOP(I,J,L)=R*T(I,J,L)*(1.+0.608*Q(I,J,L))/APEL(I,J) 363 FIUPK=FILO(I,J)+RTOP(I,J,L)*DPDE(I,J) 364 FIM(I,J)=FILO(I,J)+FIUPK 365 FILO(I,J)=DFL(L)+HTM(I,J,L)*(FIUPK-DFL(L)) 366 230 CONTINUE 367 C--------------DIAGONAL CONTRIBUTIONS TO PRESSURE GRADIENT FORCE-------- 368 !$omp parallel do 369 DO 240 J=MYJS_P3,MYJE1_P3 370 DO 240 I=MYIS_P3,MYIE1_P3 371 ADPDNE(I,J)=DPDE(I+IHE(J),J+1)+DPDE(I,J) 372 PNE(I,J)=2.*(FIM(I+IHE(J),J+1)-FIM(I,J)) 373 PPNE(I,J)=PNE(I,J)*ADPDNE(I,J) 374 CNE(I,J)=2.*(RTOP(I+IHE(J),J+1,L)+RTOP(I,J,L)) 375 1 *(APEL(I+IHE(J),J+1)-APEL(I,J)) 376 PCNE(I,J)=CNE(I,J)*ADPDNE(I,J) 377 240 CONTINUE 378 C 379 !$omp parallel do 380 DO 250 J=MYJS1_P3,MYJE_P3 381 DO 250 I=MYIS_P3,MYIE1_P3 382 ADPDSE(I,J)=DPDE(I+IHE(J),J-1)+DPDE(I,J) 383 PSE(I,J)=2.*(FIM(I+IHE(J),J-1)-FIM(I,J)) 384 PPSE(I,J)=PSE(I,J)*ADPDSE(I,J) 385 CSE(I,J)=2.*(RTOP(I+IHE(J),J-1,L)+RTOP(I,J,L)) 386 1 *(APEL(I+IHE(J),J-1)-APEL(I,J)) 387 PCSE(I,J)=CSE(I,J)*ADPDSE(I,J) 388 250 CONTINUE 389 C--------------CONTINUITY EQUATION MODIFICATION------------------------- 390 !$omp parallel do 391 DO 260 J=MYJS1_P1,MYJE1_P1 392 DO 260 I=MYIS_P1,MYIE_P1 393 PCXC(I,J)=VBM3(I,J)*VTM(I,J,L)*(PNE(I+IVW(J),J) 394 1 +CNE(I+IVW(J),J)+PSE(I+IVW(J),J)+CSE(I+IVW(J),J) 395 2 -PNE(I,J-1)-CNE(I,J-1)-PSE(I,J+1)-CSE(I,J+1)) 396 260 CONTINUE 397 C----------------------------------------------------------------------- 398 !$omp parallel do 399 DO 270 J=MYJS2,MYJE2 400 DO 270 I=MYIS1,MYIE1 401 DIV(I,J,L)=DETA(L)*WPDAR(I,J) 402 1 *(PCXC(I+IHE(J),J)-PCXC(I,J+1) 403 2 +PCXC(I+IHW(J),J)-PCXC(I,J-1)) 404 270 CONTINUE 405 C--------------LAT & LONG PRESSURE FORCE COMPONENTS--------------------- 406 !$omp parallel do 407 DO 280 J=MYJS1_P2,MYJE1_P2 Page 5 Source Listing DIVHOA 2014-12-17 20:47 DIVHOA.F 408 DO 280 I=MYIS_P2,MYIE_P2 409 DCNEK=CNE(I+IVW(J),J)+CNE(I,J-1) 410 DCSEK=CSE(I+IVW(J),J)+CSE(I,J+1) 411 c if(mype.eq.12) then 412 c print*,'i,j,dcnek,dcsek,adpdx(i,j)=',i,j,dcnek,dcsek,adpdx(i,j) 413 c endif 414 PCEW(I,J)=(DCNEK+DCSEK)*ADPDX(I,J) 415 PCNS(I,J)=(DCNEK-DCSEK)*ADPDY(I,J) 416 280 CONTINUE 417 C--------------LAT & LON FLUXES & OMEGA-ALPHA COMPONENTS---------------- 418 !$omp parallel do 419 DO 310 J=MYJS1_P2,MYJE1_P2 420 DO 310 I=MYIS_P2,MYIE_P2 421 UDY(I,J)=DY*U(I,J,L) 422 FEW(I,J)=UDY(I,J)*ADPDX(I,J) 423 TEW(I,J)=UDY(I,J)*PCEW(I,J) 424 VDX(I,J)=DX(I,J)*V(I,J,L) 425 FNS(I,J)=VDX(I,J)*ADPDY(I,J) 426 TNS(I,J)=VDX(I,J)*PCNS(I,J) 427 310 CONTINUE 428 C--------------DIAGONAL FLUXES AND DIAGONALLY AVERAGED WIND------------- 429 !$omp parallel do 430 DO 320 J=MYJS1_P1,MYJE2_P1 431 DO 320 I=MYIS_P1,MYIE1_P1 432 PVNEK=(UDY(I+IHE(J),J)+VDX(I+IHE(J),J))+(UDY(I,J+1)+VDX(I,J+1)) 433 FNE(I,J)=PVNEK*ADPDNE(I,J) 434 TNE(I,J)=PVNEK*PCNE(I,J)*2. 435 320 CONTINUE 436 C 437 !$omp parallel do 438 DO 330 J=MYJS2_P1,MYJE1_P1 439 DO 330 I=MYIS_P1,MYIE1_P1 440 PVSEK=(UDY(I+IHE(J),J)-VDX(I+IHE(J),J))+(UDY(I,J-1)-VDX(I,J-1)) 441 FSE(I,J)=PVSEK*ADPDSE(I,J) 442 TSE(I,J)=PVSEK*PCSE(I,J)*2. 443 330 CONTINUE 444 C--------------HORIZONTAL PART OF OMEGA-ALPHA & DIVERGENCE-------------- 445 !$omp parallel do 446 DO 340 J=MYJS2,MYJE2 447 DO 340 I=MYIS1,MYIE1 448 HM(I,J)=HTM(I,J,L)*HBM2(I,J) 449 TTK=T(I,J,L) 450 OMGALF(I,J,L)=(TEW(I+IHE(J),J)+TEW(I+IHW(J),J)+TNS(I,J+1) 451 1 +TNS(I,J-1)+TNE(I,J)+TNE(I+IHW(J),J-1)+TSE(I,J) 452 2 +TSE(I+IHW(J),J+1))*RDPD(I,J)*FCP(I,J)*HM(I,J) 453 T(I,J,L)=OMGALF(I,J,L)+T(I,J,L) 454 DIV(I,J,L)=(((FEW(I+IHE(J),J)+FNS(I,J+1)+FNE(I,J)+FSE(I,J)) 455 1 -(FEW(I+IHW(J),J)+FNS(I,J-1)+FNE(I+IHW(J),J-1) 456 2 +FSE(I+IHW(J),J+1)))*FDIV(I,J)+DIV(I,J,L))*HM(I,J) 457 340 CONTINUE 458 C----------------------------------------------------------------------- 459 400 CONTINUE 460 C----------------------------------------------------------------------- 461 RETURN 462 END Page 6 Source Listing DIVHOA 2014-12-17 20:47 Entry Points DIVHOA.F ENTRY POINTS Name divhoa_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 131 127,128 110 Label 142 135 210 Label 159 155,156 220 Label 166 162,163 230 Label 183 169,170 240 Label 194 186,187 250 Label 205 197,198 260 Label 213 208,209 270 Label 221 216,217 280 Label 233 224,225 310 Label 244 236,237 320 Label 252 247,248 330 Label 260 255,256 340 Label 274 263,264 400 Label 276 152 50 Label 124 120,121 ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACPREC Scalar 12 R(4) 4 2 17955 COM ADPDNE Local 80 R(4) 4 2 17955 188,190,193,250 ADPDSE Local 80 R(4) 4 2 17955 199,201,204,258 ADPDX Local 78 R(4) 4 2 17955 110,147,164,231,239 ADPDY Local 78 R(4) 4 2 17955 111,148,165,232,242 AETA Scalar 4 R(4) 4 1 45 COM 175 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 APEL Local 94 R(4) 4 2 17955 175,179,192,203 CLDEFI Scalar 11 R(4) 4 2 17955 COM CLDWTR Common 2 3447720 CNE Local 100 R(4) 4 2 17955 107,191,193,211,212,226 CONTIN Common 2 12999420 CP Param 50 R(4) 4 scalar CPGFU Scalar 9 R(4) 4 2 17955 COM CPGFV Scalar 3 R(4) 4 scalar COM CSE Local 100 R(4) 4 2 17955 109,202,204,211,212,227 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 DCNE Local 86 R(4) 4 2 17955 DCNEK Local 226 R(4) 4 scalar 226,231,232 DCSE Local 86 R(4) 4 2 17955 DCSEK Local 227 R(4) 4 scalar 227,231,232 DDMPU Scalar 12 R(4) 4 2 17955 COM Page 7 Source Listing DIVHOA 2014-12-17 20:47 Symbol Table DIVHOA.F Name Object Declared Type Bytes Dimen Elements Attributes References DDMPV Scalar 12 R(4) 4 2 17955 COM DETA Scalar 4 R(4) 4 1 45 COM 157,218 DFL Scalar 4 R(4) 4 1 46 COM 182 DIV Scalar 6 R(4) 4 3 807975 COM 138,218,271,273 DIVHOA Subr 1 DPDE Local 93 R(4) 4 2 17955 105,157,158,164,165,180,188,199 DPFEW Local 83 R(4) 4 2 17955 DPFNE Local 87 R(4) 4 2 17955 DPFNS Local 83 R(4) 4 2 17955 DPFSE Local 87 R(4) 4 2 17955 DPNE Local 85 R(4) 4 2 17955 DPSE Local 85 R(4) 4 2 17955 DT Scalar 6 R(4) 4 scalar COM DX Scalar 8 R(4) 4 2 17955 COM 241 DY Scalar 3 R(4) 4 scalar COM 238 DYNAM Common 2 725404 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 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 79 R(4) 4 2 17955 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 FCP Scalar 10 R(4) 4 2 17955 COM 269 FDIV Scalar 10 R(4) 4 2 17955 COM 273 FEW Local 96 R(4) 4 2 17955 239,271,272 FILO Local 77 R(4) 4 2 17955 112,122,129,180,181,182 FIM Local 93 R(4) 4 2 17955 181,189,200 FIRST Scalar 60 L(4) 4 scalar COM FIS Scalar 7 R(4) 4 2 17955 COM 122 FIUP Local 79 R(4) 4 2 17955 FIUPK Local 180 R(4) 4 scalar 180,181,182 FNE Local 98 R(4) 4 2 17955 250,271,272 FNS Local 84 R(4) 4 2 17955 242,271,272 FSE Local 98 R(4) 4 2 17955 258,271,273 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 265 HBM3 Scalar 8 R(4) 4 2 17955 COM HM Local 90 R(4) 4 2 17955 265,269,273 HTM Scalar 6 R(4) 4 3 807975 COM 182,265 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 121 I(4) 4 scalar 121,122,123,128,129,130,137,138,13 9,146,147,148,156,157,158,163,164, 165,170,175,179,180,181,182,187,18 8,189,190,191,192,193,198,199,200, 201,202,203,204,209,210,211,212,21 7,218,219,220,225,226,227,231,232, Page 8 Source Listing DIVHOA 2014-12-17 20:47 Symbol Table DIVHOA.F Name Object Declared Type Bytes Dimen Elements Attributes References 237,238,239,240,241,242,243,248,24 9,250,251,256,257,258,259,264,265, 266,267,268,269,270,271,272,273 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,77,78,79,80,81,82, 83,84,85,86,87,88,89,90,93,94,95,9 6,97,98,99,100,101,102 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,77,78,79,80,81,82, 83,84,85,86,87,88,89,90,93,94,95,9 6,97,98,99,100,101,102 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 188,189,191,192,199,200,202,203,21 9,249,257,267,271 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 220,267,268,269,272,273 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 IMJM Param 57 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 164 IVEG Scalar 9 I(4) 4 1 387 COM Page 9 Source Listing DIVHOA 2014-12-17 20:47 Symbol Table DIVHOA.F Name Object Declared Type Bytes Dimen Elements Attributes References IVW Scalar 4 I(4) 4 1 399 COM 164,210,211,226,227 IVWG Scalar 9 I(4) 4 1 387 COM J Local 120 I(4) 4 scalar 120,122,123,127,129,130,136,138,13 9,145,147,148,155,157,158,162,164, 165,169,175,179,180,181,182,186,18 8,189,190,191,192,193,197,199,200, 201,202,203,204,208,210,211,212,21 6,218,219,220,224,226,227,231,232, 236,238,239,240,241,242,243,247,24 9,250,251,255,257,258,259,263,265, 266,267,268,269,270,271,272,273 JAM Param 57 I(4) 4 scalar 6 JBPAD1 Scalar 25 I(4) 4 scalar COM 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,77,78,79,80,81,82, 83,84,85,86,87,88,89,90,93,94,95,9 6,97,98,99,100,101,102 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,77,78,79,80,81,82, 83,84,85,86,87,88,89,90,93,94,95,9 6,97,98,99,100,101,102 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 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 L Local 135 I(4) 4 scalar 135,138,139,152,157,175,179,180,18 2,191,202,210,218,238,241,265,266, 267,270,271,273 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 LM Param 3 I(4) 4 scalar 3,4,5,6,7,21,52,57,135,152 LP1 Param 57 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 Page 10 Source Listing DIVHOA 2014-12-17 20:47 Symbol Table DIVHOA.F Name Object Declared Type Bytes Dimen Elements Attributes References MYIE Scalar 4 I(4) 4 scalar COM 137,146 MYIE1 Scalar 4 I(4) 4 scalar COM 217,264 MYIE1_P1 Scalar 8 I(4) 4 scalar COM 248,256 MYIE1_P2 Scalar 8 I(4) 4 scalar COM 163 MYIE1_P3 Scalar 8 I(4) 4 scalar COM 187,198 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 209 MYIE_P2 Scalar 7 I(4) 4 scalar COM 225,237 MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM 121,128,156,170 MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 137,146 MYIS1 Scalar 4 I(4) 4 scalar COM 217,264 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 209,248,256 MYIS_P2 Scalar 5 I(4) 4 scalar COM 163,225,237 MYIS_P3 Scalar 5 I(4) 4 scalar COM 187,198 MYIS_P4 Scalar 5 I(4) 4 scalar COM 121,128,156,170 MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 136,145 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM 208,255 MYJE1_P2 Scalar 17 I(4) 4 scalar COM 162,224,236 MYJE1_P3 Scalar 17 I(4) 4 scalar COM 186 MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM 216,263 MYJE2_P1 Scalar 18 I(4) 4 scalar COM 247 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 MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM 197 MYJE_P4 Scalar 16 I(4) 4 scalar COM 120,127,155,169 MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 136,145 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM 208,247 MYJS1_P2 Scalar 12 I(4) 4 scalar COM 162,224,236 MYJS1_P3 Scalar 12 I(4) 4 scalar COM 197 MYJS1_P4 Scalar 12 I(4) 4 scalar COM Page 11 Source Listing DIVHOA 2014-12-17 20:47 Symbol Table DIVHOA.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS2 Scalar 10 I(4) 4 scalar COM 216,263 MYJS2_P1 Scalar 13 I(4) 4 scalar COM 255 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 MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM 186 MYJS_P4 Scalar 11 I(4) 4 scalar COM 120,127,155,169 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 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 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 139,267,270 PCEW Local 82 R(4) 4 2 17955 231,240 PCNE Local 102 R(4) 4 2 17955 193,251 Page 12 Source Listing DIVHOA 2014-12-17 20:47 Symbol Table DIVHOA.F Name Object Declared Type Bytes Dimen Elements Attributes References PCNS Local 82 R(4) 4 2 17955 232,243 PCSE Local 102 R(4) 4 2 17955 204,259 PCXC Local 94 R(4) 4 2 17955 210,219,220 PD Scalar 3 R(4) 4 2 17955 COM 123,130 PDSL Scalar 3 R(4) 4 2 17955 COM 113,123,130,157,175 PEW Local 81 R(4) 4 2 17955 PNE Local 99 R(4) 4 2 17955 106,189,190,210,212 PNS Local 81 R(4) 4 2 17955 PPNE Local 101 R(4) 4 2 17955 190 PPSE Local 101 R(4) 4 2 17955 201 PREC Scalar 12 R(4) 4 2 17955 COM PSDT Scalar 3 R(4) 4 2 17955 COM PSE Local 99 R(4) 4 2 17955 108,200,201,211,212 PSHLTR Scalar 19 R(4) 4 2 17955 COM PT Scalar 3 R(4) 4 scalar COM 175 PVNE Local 89 R(4) 4 2 17955 PVNEK Local 249 R(4) 4 scalar 249,250,251 PVRBLS Common 2 5530140 PVSE Local 89 R(4) 4 2 17955 PVSEK Local 257 R(4) 4 scalar 257,258,259 Q Scalar 6 R(4) 4 3 807975 COM 179 Q10 Scalar 16 R(4) 4 2 17955 COM Q2 Scalar 21 R(4) 4 3 807975 COM 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 179 RDETA Scalar 4 R(4) 4 1 45 COM RDPD Local 77 R(4) 4 2 17955 158,269 RES Scalar 7 R(4) 4 2 17955 COM 130 RESTRT Scalar 60 L(4) 4 scalar COM RF Scalar 8 R(4) 4 2 17955 COM RTOP Scalar 4 R(4) 4 3 807975 COM 179,180,191,202 RUN Scalar 60 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 60 L(4) 4 scalar COM 118 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 179,266,270 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 Page 13 Source Listing DIVHOA 2014-12-17 20:47 Symbol Table DIVHOA.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 TEW Local 96 R(4) 4 2 17955 240,267 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 TNE Local 97 R(4) 4 2 17955 251,268 TNS Local 84 R(4) 4 2 17955 243,267,268 TOPO Common 50 17478548 TSE Local 97 R(4) 4 2 17955 259,268,269 TSHLTR Scalar 18 R(4) 4 2 17955 COM TTK Local 266 R(4) 4 scalar 266 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 238 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 95 R(4) 4 2 17955 238,239,240,249,257 UL Scalar 4 R(4) 4 1 90 COM UP Local 88 R(4) 4 2 17955 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 241 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 VBM3 Scalar 3 R(4) 4 2 17955 COM 210 VDX Local 95 R(4) 4 2 17955 241,242,243,249,257 VM Local 90 R(4) 4 2 17955 VP Local 88 R(4) 4 2 17955 VRBLS Common 2 13143060 VTM Scalar 7 R(4) 4 3 807975 COM 210 VZ0 Scalar 4 R(4) 4 2 17955 COM WPDAR Scalar 8 R(4) 4 2 17955 COM 218 Z0 Scalar 3 R(4) 4 2 17955 COM ZERO2 Subr 105 105,106,107,108,109,110,111,112,11 3 Page 14 Source Listing DIVHOA 2014-12-17 20:47 Subprograms/Common Blocks DIVHOA.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 DIVHOA Subr 1 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 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__ Page 15 Source Listing DIVHOA 2014-12-17 20:47 DIVHOA.F -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/, /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/, Page 16 Source Listing DIVHOA 2014-12-17 20:47 DIVHOA.F /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : DIVHOA.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100