Page 1 Source Listing DIVHOA 2025-03-12 18:23 /tmp/ifortsZ7zLz.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" 77 INCLUDE "mpp.h" 78 # 1 "./sp.h" 1 79 # 4 80 Page 2 Source Listing DIVHOA 2025-03-12 18:23 ./sp.h 81 # 55 "DIVHOA.F" 2 82 C----------------------------------------------------------------------- 141 P A R A M E T E R 142 & (IMJM=IM*JM-JM/2,JAM=6+2*(JM-10),LP1=LM+1) 143 C----------------------------------------------------------------------- 144 L O G I C A L 145 & RUN,FIRST,RESTRT,SIGMA 146 C---------------------------------------------------------------------- 147 INCLUDE "CTLBLK.comm" 148 C----------------------------------------------------------------------- 158 INCLUDE "MASKS.comm" 159 C----------------------------------------------------------------------- 170 INCLUDE "DYNAM.comm" 171 C----------------------------------------------------------------------- 187 INCLUDE "VRBLS.comm" 197 INCLUDE "PVRBLS.comm" 227 INCLUDE "CLDWTR.comm" 228 C----------------------------------------------------------------------- 236 INCLUDE "CONTIN.comm" 237 C----------------------------------------------------------------------- 247 INCLUDE "INDX.comm" 248 C----------------------------------------------------------------------- 260 D I M E N S I O N 261 & FILO (IDIM1:IDIM2,JDIM1:JDIM2),RDPD (IDIM1:IDIM2,JDIM1:JDIM2) 262 &,ADPDX (IDIM1:IDIM2,JDIM1:JDIM2),ADPDY (IDIM1:IDIM2,JDIM1:JDIM2) 263 &,FIUP (IDIM1:IDIM2,JDIM1:JDIM2),F0 (IDIM1:IDIM2,JDIM1:JDIM2) 264 &,ADPDNE(IDIM1:IDIM2,JDIM1:JDIM2),ADPDSE(IDIM1:IDIM2,JDIM1:JDIM2) 265 &,PEW (IDIM1:IDIM2,JDIM1:JDIM2),PNS (IDIM1:IDIM2,JDIM1:JDIM2) 266 &,PCEW (IDIM1:IDIM2,JDIM1:JDIM2),PCNS (IDIM1:IDIM2,JDIM1:JDIM2) 267 &,DPFEW (IDIM1:IDIM2,JDIM1:JDIM2),DPFNS (IDIM1:IDIM2,JDIM1:JDIM2) 268 &,FNS (IDIM1:IDIM2,JDIM1:JDIM2),TNS (IDIM1:IDIM2,JDIM1:JDIM2) 269 &,DPNE (IDIM1:IDIM2,JDIM1:JDIM2),DPSE (IDIM1:IDIM2,JDIM1:JDIM2) 270 &,DCNE (IDIM1:IDIM2,JDIM1:JDIM2),DCSE (IDIM1:IDIM2,JDIM1:JDIM2) 271 &,DPFNE (IDIM1:IDIM2,JDIM1:JDIM2),DPFSE (IDIM1:IDIM2,JDIM1:JDIM2) 272 &,UP (IDIM1:IDIM2,JDIM1:JDIM2),VP (IDIM1:IDIM2,JDIM1:JDIM2) 273 &,PVNE (IDIM1:IDIM2,JDIM1:JDIM2),PVSE (IDIM1:IDIM2,JDIM1:JDIM2) 274 &,VM (IDIM1:IDIM2,JDIM1:JDIM2),HM (IDIM1:IDIM2,JDIM1:JDIM2) 275 C 276 D I M E N S I O N 277 & DPDE (IDIM1:IDIM2,JDIM1:JDIM2),FIM (IDIM1:IDIM2,JDIM1:JDIM2) 278 &,APEL (IDIM1:IDIM2,JDIM1:JDIM2),PCXC (IDIM1:IDIM2,JDIM1:JDIM2) 279 &,UDY (IDIM1:IDIM2,JDIM1:JDIM2),VDX (IDIM1:IDIM2,JDIM1:JDIM2) 280 &,TEW (IDIM1:IDIM2,JDIM1:JDIM2),FEW (IDIM1:IDIM2,JDIM1:JDIM2) 281 &,TNE (IDIM1:IDIM2,JDIM1:JDIM2),TSE (IDIM1:IDIM2,JDIM1:JDIM2) 282 &,FNE (IDIM1:IDIM2,JDIM1:JDIM2),FSE (IDIM1:IDIM2,JDIM1:JDIM2) 283 &,PNE (IDIM1:IDIM2,JDIM1:JDIM2),PSE (IDIM1:IDIM2,JDIM1:JDIM2) 284 &,CNE (IDIM1:IDIM2,JDIM1:JDIM2),CSE (IDIM1:IDIM2,JDIM1:JDIM2) 285 &,PPNE (IDIM1:IDIM2,JDIM1:JDIM2),PPSE (IDIM1:IDIM2,JDIM1:JDIM2) 286 &,PCNE (IDIM1:IDIM2,JDIM1:JDIM2),PCSE (IDIM1:IDIM2,JDIM1:JDIM2) 287 C----------------------------------------------------------------------- 288 C----------------------------------------------------------------------- 289 CALL ZERO2(DPDE) 290 CALL ZERO2(PNE) 291 CALL ZERO2(CNE) 292 CALL ZERO2(PSE) 293 CALL ZERO2(CSE) 294 CALL ZERO2(ADPDX) Page 3 Source Listing DIVHOA 2025-03-12 18:23 DIVHOA.F 295 CALL ZERO2(ADPDY) 296 call zero2(filo) 297 call zero2(pdsl) 298 c call zero3(div) 299 C----------------------------------------------------------------------- 300 C--------------PREPARATORY CALCULATIONS--------------------------------- 301 C----------------------------------------------------------------------- 302 IF(SIGMA)THEN 303 !$omp parallel do 304 DO 50 J=MYJS_P4,MYJE_P4 305 DO 50 I=MYIS_P4,MYIE_P4 306 FILO(I,J)=FIS(I,J) 307 PDSL(I,J)=PD(I,J) 308 50 CONTINUE 309 ELSE 310 !$omp parallel do 311 DO 100 J=MYJS_P4,MYJE_P4 312 DO 100 I=MYIS_P4,MYIE_P4 313 FILO(I,J)=0. 314 PDSL(I,J)=RES(I,J)*PD(I,J) 315 100 CONTINUE 316 ENDIF 317 C 318 !$omp parallel do 319 DO 110 L=1,LM 320 DO J=MYJS,MYJE 321 DO I=MYIS,MYIE 322 DIV(I,J,L)=0. 323 OMGALF(I,J,L)=0. 324 ENDDO 325 ENDDO 326 110 CONTINUE 327 C 328 !$omp parallel do 329 DO J=MYJS,MYJE 330 DO I=MYIS,MYIE 331 ADPDX(I,J)=0. 332 ADPDY(I,J)=0. 333 ENDDO 334 ENDDO 335 C--------------MAIN VERTICAL INTEGRATION LOOP--------------------------- 336 DO 400 L=LM,1,-1 337 C----------------------------------------------------------------------- 338 !$omp parallel do 339 DO 210 J=MYJS_P4,MYJE_P4 340 DO 210 I=MYIS_P4,MYIE_P4 341 DPDE(I,J)=DETA(L)*PDSL(I,J) 342 RDPD(I,J)=1./DPDE(I,J) 343 210 CONTINUE 344 C 345 !$omp parallel do 346 DO 220 J=MYJS1_P2,MYJE1_P2 347 DO 220 I=MYIS_P2,MYIE1_P2 348 ADPDX(I,J)=DPDE(I+IVW(J),J)+DPDE(I+IVE(J),J) 349 ADPDY(I,J)=DPDE(I,J-1)+DPDE(I,J+1) 350 220 CONTINUE 351 C----------------------------------------------------------------------- Page 4 Source Listing DIVHOA 2025-03-12 18:23 DIVHOA.F 352 !$omp parallel do private(fiupk) 353 DO 230 J=MYJS_P4,MYJE_P4 354 DO 230 I=MYIS_P4,MYIE_P4 355 c if(mype.eq.12.and.i.eq.8.and.j.eq.23) then 356 c print*,'i,j,pdsl(i,j)=',i,j,pdsl(i,j) 357 c print*,'l,aeta(l),pt=',l,aeta(l),pt 358 c endif 359 APEL(I,J)=PT+AETA(L)*PDSL(I,J) 360 c if(mype.eq.12.and.i.eq.8.and.j.eq.23) then 361 c print*,'l,q(i,j,l)=',l,q(i,j,l) 362 c endif 363 RTOP(I,J,L)=R*T(I,J,L)*(1.+0.608*Q(I,J,L))/APEL(I,J) 364 FIUPK=FILO(I,J)+RTOP(I,J,L)*DPDE(I,J) 365 FIM(I,J)=FILO(I,J)+FIUPK 366 FILO(I,J)=DFL(L)+HTM(I,J,L)*(FIUPK-DFL(L)) 367 230 CONTINUE 368 C--------------DIAGONAL CONTRIBUTIONS TO PRESSURE GRADIENT FORCE-------- 369 !$omp parallel do 370 DO 240 J=MYJS_P3,MYJE1_P3 371 DO 240 I=MYIS_P3,MYIE1_P3 372 ADPDNE(I,J)=DPDE(I+IHE(J),J+1)+DPDE(I,J) 373 PNE(I,J)=2.*(FIM(I+IHE(J),J+1)-FIM(I,J)) 374 PPNE(I,J)=PNE(I,J)*ADPDNE(I,J) 375 CNE(I,J)=2.*(RTOP(I+IHE(J),J+1,L)+RTOP(I,J,L)) 376 1 *(APEL(I+IHE(J),J+1)-APEL(I,J)) 377 PCNE(I,J)=CNE(I,J)*ADPDNE(I,J) 378 240 CONTINUE 379 C 380 !$omp parallel do 381 DO 250 J=MYJS1_P3,MYJE_P3 382 DO 250 I=MYIS_P3,MYIE1_P3 383 ADPDSE(I,J)=DPDE(I+IHE(J),J-1)+DPDE(I,J) 384 PSE(I,J)=2.*(FIM(I+IHE(J),J-1)-FIM(I,J)) 385 PPSE(I,J)=PSE(I,J)*ADPDSE(I,J) 386 CSE(I,J)=2.*(RTOP(I+IHE(J),J-1,L)+RTOP(I,J,L)) 387 1 *(APEL(I+IHE(J),J-1)-APEL(I,J)) 388 PCSE(I,J)=CSE(I,J)*ADPDSE(I,J) 389 250 CONTINUE 390 C--------------CONTINUITY EQUATION MODIFICATION------------------------- 391 !$omp parallel do 392 DO 260 J=MYJS1_P1,MYJE1_P1 393 DO 260 I=MYIS_P1,MYIE_P1 394 PCXC(I,J)=VBM3(I,J)*VTM(I,J,L)*(PNE(I+IVW(J),J) 395 1 +CNE(I+IVW(J),J)+PSE(I+IVW(J),J)+CSE(I+IVW(J),J) 396 2 -PNE(I,J-1)-CNE(I,J-1)-PSE(I,J+1)-CSE(I,J+1)) 397 260 CONTINUE 398 C----------------------------------------------------------------------- 399 !$omp parallel do 400 DO 270 J=MYJS2,MYJE2 401 DO 270 I=MYIS1,MYIE1 402 DIV(I,J,L)=DETA(L)*WPDAR(I,J) 403 1 *(PCXC(I+IHE(J),J)-PCXC(I,J+1) 404 2 +PCXC(I+IHW(J),J)-PCXC(I,J-1)) 405 270 CONTINUE 406 C--------------LAT & LONG PRESSURE FORCE COMPONENTS--------------------- 407 !$omp parallel do 408 DO 280 J=MYJS1_P2,MYJE1_P2 Page 5 Source Listing DIVHOA 2025-03-12 18:23 DIVHOA.F 409 DO 280 I=MYIS_P2,MYIE_P2 410 DCNEK=CNE(I+IVW(J),J)+CNE(I,J-1) 411 DCSEK=CSE(I+IVW(J),J)+CSE(I,J+1) 412 c if(mype.eq.12) then 413 c print*,'i,j,dcnek,dcsek,adpdx(i,j)=',i,j,dcnek,dcsek,adpdx(i,j) 414 c endif 415 PCEW(I,J)=(DCNEK+DCSEK)*ADPDX(I,J) 416 PCNS(I,J)=(DCNEK-DCSEK)*ADPDY(I,J) 417 280 CONTINUE 418 C--------------LAT & LON FLUXES & OMEGA-ALPHA COMPONENTS---------------- 419 !$omp parallel do 420 DO 310 J=MYJS1_P2,MYJE1_P2 421 DO 310 I=MYIS_P2,MYIE_P2 422 UDY(I,J)=DY*U(I,J,L) 423 FEW(I,J)=UDY(I,J)*ADPDX(I,J) 424 TEW(I,J)=UDY(I,J)*PCEW(I,J) 425 VDX(I,J)=DX(I,J)*V(I,J,L) 426 FNS(I,J)=VDX(I,J)*ADPDY(I,J) 427 TNS(I,J)=VDX(I,J)*PCNS(I,J) 428 310 CONTINUE 429 C--------------DIAGONAL FLUXES AND DIAGONALLY AVERAGED WIND------------- 430 !$omp parallel do 431 DO 320 J=MYJS1_P1,MYJE2_P1 432 DO 320 I=MYIS_P1,MYIE1_P1 433 PVNEK=(UDY(I+IHE(J),J)+VDX(I+IHE(J),J))+(UDY(I,J+1)+VDX(I,J+1)) 434 FNE(I,J)=PVNEK*ADPDNE(I,J) 435 TNE(I,J)=PVNEK*PCNE(I,J)*2. 436 320 CONTINUE 437 C 438 !$omp parallel do 439 DO 330 J=MYJS2_P1,MYJE1_P1 440 DO 330 I=MYIS_P1,MYIE1_P1 441 PVSEK=(UDY(I+IHE(J),J)-VDX(I+IHE(J),J))+(UDY(I,J-1)-VDX(I,J-1)) 442 FSE(I,J)=PVSEK*ADPDSE(I,J) 443 TSE(I,J)=PVSEK*PCSE(I,J)*2. 444 330 CONTINUE 445 C--------------HORIZONTAL PART OF OMEGA-ALPHA & DIVERGENCE-------------- 446 !$omp parallel do 447 DO 340 J=MYJS2,MYJE2 448 DO 340 I=MYIS1,MYIE1 449 HM(I,J)=HTM(I,J,L)*HBM2(I,J) 450 TTK=T(I,J,L) 451 OMGALF(I,J,L)=(TEW(I+IHE(J),J)+TEW(I+IHW(J),J)+TNS(I,J+1) 452 1 +TNS(I,J-1)+TNE(I,J)+TNE(I+IHW(J),J-1)+TSE(I,J) 453 2 +TSE(I+IHW(J),J+1))*RDPD(I,J)*FCP(I,J)*HM(I,J) 454 T(I,J,L)=OMGALF(I,J,L)+T(I,J,L) 455 DIV(I,J,L)=(((FEW(I+IHE(J),J)+FNS(I,J+1)+FNE(I,J)+FSE(I,J)) 456 1 -(FEW(I+IHW(J),J)+FNS(I,J-1)+FNE(I+IHW(J),J-1) 457 2 +FSE(I+IHW(J),J+1)))*FDIV(I,J)+DIV(I,J,L))*HM(I,J) 458 340 CONTINUE 459 C----------------------------------------------------------------------- 460 400 CONTINUE 461 C----------------------------------------------------------------------- 462 RETURN 463 END Page 6 Source Listing DIVHOA 2025-03-12 18:23 Entry Points DIVHOA.F ENTRY POINTS Name divhoa_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 315 311,312 110 Label 326 319 210 Label 343 339,340 220 Label 350 346,347 230 Label 367 353,354 240 Label 378 370,371 250 Label 389 381,382 260 Label 397 392,393 270 Label 405 400,401 280 Label 417 408,409 310 Label 428 420,421 320 Label 436 431,432 330 Label 444 439,440 340 Label 458 447,448 400 Label 460 336 50 Label 308 304,305 ADPDNE Local 264 R(4) 4 2 6319 372,374,377,434 ADPDSE Local 264 R(4) 4 2 6319 383,385,388,442 ADPDX Local 262 R(4) 4 2 6319 294,331,348,415,423 ADPDY Local 262 R(4) 4 2 6319 295,332,349,416,426 APEL Local 278 R(4) 4 2 6319 359,363,376,387 CLDWTR Common 230 1213608 SAVE CNE Local 284 R(4) 4 2 6319 291,375,377,395,396,410 CONTIN Common 239 4574956 SAVE CP Param 51 R(4) 4 scalar CSE Local 284 R(4) 4 2 6319 293,386,388,395,396,411 CTLBLK Common 152 112 SAVE DCNE Local 270 R(4) 4 2 6319 DCNEK Local 410 R(4) 4 scalar 410,415,416 DCSE Local 270 R(4) 4 2 6319 DCSEK Local 411 R(4) 4 scalar 411,415,416 DIVHOA Subr 2 DPDE Local 277 R(4) 4 2 6319 289,341,342,348,349,364,372,383 DPFEW Local 267 R(4) 4 2 6319 DPFNE Local 271 R(4) 4 2 6319 DPFNS Local 267 R(4) 4 2 6319 DPFSE Local 271 R(4) 4 2 6319 DPNE Local 269 R(4) 4 2 6319 DPSE Local 269 R(4) 4 2 6319 DYNAM Common 173 259964 SAVE F0 Local 263 R(4) 4 2 6319 FEW Local 280 R(4) 4 2 6319 423,455,456 FILO Local 261 R(4) 4 2 6319 296,306,313,364,365,366 FIM Local 277 R(4) 4 2 6319 365,373,384 Page 7 Source Listing DIVHOA 2025-03-12 18:23 Symbol Table DIVHOA.F Name Object Declared Type Bytes Dimen Elements Attributes References FIUP Local 263 R(4) 4 2 6319 FIUPK Local 364 R(4) 4 scalar 364,365,366 FNE Local 282 R(4) 4 2 6319 434,455,456 FNS Local 268 R(4) 4 2 6319 426,455,456 FSE Local 282 R(4) 4 2 6319 442,455,457 GLB_TABLE Common 119 336 SAVE HM Local 274 R(4) 4 2 6319 449,453,457 I Local 305 I(4) 4 scalar 305,306,307,312,313,314,321,322,32 3,330,331,332,340,341,342,347,348, 349,354,359,363,364,365,366,371,37 2,373,374,375,376,377,382,383,384, 385,386,387,388,393,394,395,396,40 1,402,403,404,409,410,411,415,416, 421,422,423,424,425,426,427,432,43 3,434,435,440,441,442,443,448,449, 450,451,452,453,454,455,456,457 IDIM1 Param 73 I(4) 4 scalar 162,163,165,166,167,179,180,181,18 2,183,184,190,192,193,194,200,201, 202,203,204,205,206,207,208,209,21 0,211,212,213,214,215,216,218,223, 231,233,240,241,242,243,244,253,26 1,262,263,264,265,266,267,268,269, 270,271,272,273,274,277,278,279,28 0,281,282,283,284,285,286 IDIM2 Param 73 I(4) 4 scalar 162,163,165,166,167,179,180,181,18 2,183,184,190,192,193,194,200,201, 202,203,204,205,206,207,208,209,21 0,211,212,213,214,215,216,218,223, 231,233,240,241,242,243,244,253,26 1,262,263,264,265,266,267,268,269, 270,271,272,273,274,277,278,279,28 0,281,282,283,284,285,286 IGSTL Param 68 I(4) 4 scalar 73 IGSTR Param 68 I(4) 4 scalar 73 IM Param 56 I(4) 4 scalar 70,73,125,126,127,128,129,133,134, 139,142,257 IMJM Param 142 I(4) 4 scalar INDX Common 250 1708 SAVE INDXG Common 256 8084 SAVE INPES Param 65 I(4) 4 scalar 70,73,109,110,111,120,121 ITAIL Param 70 I(4) 4 scalar J Local 304 I(4) 4 scalar 304,306,307,311,313,314,320,322,32 3,329,331,332,339,341,342,346,348, 349,353,359,363,364,365,366,370,37 2,373,374,375,376,377,381,383,384, 385,386,387,388,392,394,395,396,40 0,402,403,404,408,410,411,415,416, 420,422,423,424,425,426,427,431,43 3,434,435,439,441,442,443,447,449, 450,451,452,453,454,455,456,457 JAM Param 142 I(4) 4 scalar 177 JDIM1 Param 74 I(4) 4 scalar 162,163,165,166,167,179,180,181,18 2,183,184,190,192,193,194,200,201, 202,203,204,205,206,207,208,209,21 0,211,212,213,214,215,216,218,223, Page 8 Source Listing DIVHOA 2025-03-12 18:23 Symbol Table DIVHOA.F Name Object Declared Type Bytes Dimen Elements Attributes References 231,233,240,241,242,243,244,251,25 2,261,262,263,264,265,266,267,268, 269,270,271,272,273,274,277,278,27 9,280,281,282,283,284,285,286 JDIM2 Param 74 I(4) 4 scalar 162,163,165,166,167,179,180,181,18 2,183,184,190,192,193,194,200,201, 202,203,204,205,206,207,208,209,21 0,211,212,213,214,215,216,218,223, 231,233,240,241,242,243,244,251,25 2,261,262,263,264,265,266,267,268, 269,270,271,272,273,274,277,278,27 9,280,281,282,283,284,285,286 JGSTL Param 69 I(4) 4 scalar 74 JGSTR Param 69 I(4) 4 scalar 74 JM Param 56 I(4) 4 scalar 71,74,125,126,127,128,129,133,134, 139,142,257 JNPES Param 65 I(4) 4 scalar 71,74,109,110,111,120,121 JTAIL Param 71 I(4) 4 scalar L Local 319 I(4) 4 scalar 319,322,323,336,341,359,363,364,36 6,375,386,394,402,422,425,449,450, 451,454,455,457 LM Param 56 I(4) 4 scalar 134,142,165,166,175,192,193,218,23 1,232,241,242,243,244,319,336 LP1 Param 142 I(4) 4 scalar 175 LSM Param 56 I(4) 4 scalar MAPPINGS Common 138 5024 SAVE MASKS Common 161 2426496 SAVE MPPCOM Common 83 1724 SAVE PCEW Local 266 R(4) 4 2 6319 415,424 PCNE Local 286 R(4) 4 2 6319 377,435 PCNS Local 266 R(4) 4 2 6319 416,427 PCSE Local 286 R(4) 4 2 6319 388,443 PCXC Local 278 R(4) 4 2 6319 394,403,404 PEW Local 265 R(4) 4 2 6319 PNE Local 283 R(4) 4 2 6319 290,373,374,394,396 PNS Local 265 R(4) 4 2 6319 PPNE Local 285 R(4) 4 2 6319 374 PPSE Local 285 R(4) 4 2 6319 385 PSE Local 283 R(4) 4 2 6319 292,384,385,395,396 PVNE Local 273 R(4) 4 2 6319 PVNEK Local 433 R(4) 4 scalar 433,434,435 PVRBLS Common 199 1946252 SAVE PVSE Local 273 R(4) 4 2 6319 PVSEK Local 441 R(4) 4 scalar 441,442,443 RDPD Local 261 R(4) 4 2 6319 342,453 SINGLRST Local 150 L(4) 4 scalar TEMPCOM Common 124 6603768 SAVE TEW Local 280 R(4) 4 2 6319 424,451 TNE Local 281 R(4) 4 2 6319 435,452 TNS Local 268 R(4) 4 2 6319 427,451,452 TOPO Common 132 17478548 SAVE TSE Local 281 R(4) 4 2 6319 443,452,453 TTK Local 450 R(4) 4 scalar 450 UDY Local 279 R(4) 4 2 6319 422,423,424,433,441 UP Local 272 R(4) 4 2 6319 Page 9 Source Listing DIVHOA 2025-03-12 18:23 Symbol Table DIVHOA.F Name Object Declared Type Bytes Dimen Elements Attributes References VDX Local 279 R(4) 4 2 6319 425,426,427,433,441 VM Local 274 R(4) 4 2 6319 VP Local 272 R(4) 4 2 6319 VRBLS Common 189 4625508 SAVE ZERO2 Subr 289 289,290,291,292,293,294,295,296,29 7 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 454968 2 6319 COM ACPREC R(4) 4 429692 2 6319 COM AETA R(4) 4 396 1 45 COM 359 AFSI R(4) 4 1920976 2 6319 COM AKHS R(4) 4 227484 2 6319 COM AKMS R(4) 4 202208 2 6319 COM CLDEFI R(4) 4 379140 2 6319 COM CPGFU R(4) 4 57756 2 6319 COM CPGFV R(4) 4 4 scalar COM CUPREC R(4) 4 480244 2 6319 COM CURV R(4) 4 83032 2 6319 COM CWM R(4) 4 0 3 284355 COM DDMPU R(4) 4 184136 2 6319 COM DDMPV R(4) 4 209412 2 6319 COM DETA R(4) 4 36 1 45 COM 341,402 DFL R(4) 4 940 1 46 COM 366 DIV R(4) 4 2325392 3 284355 COM 322,402,455,457 DT R(4) 4 48 scalar COM DX R(4) 4 7204 2 6319 COM 425 DY R(4) 4 0 scalar COM 422 EF4T R(4) 4 32 scalar COM EM R(4) 4 1124 1 760 COM EMT R(4) 4 4164 1 760 COM EN R(4) 4 8 scalar COM ENT R(4) 4 12 scalar COM ETA R(4) 4 756 1 46 COM ETADT R(4) 4 3462812 3 278036 COM F R(4) 4 158860 2 6319 COM F4D R(4) 4 24 scalar COM F4Q R(4) 4 28 scalar COM F4Q2 R(4) 4 576 1 45 COM FAD R(4) 4 234688 2 6319 COM FCP R(4) 4 108308 2 6319 COM 453 FDIV R(4) 4 133584 2 6319 COM 457 FIRST L(4) 4 24 scalar COM FIS R(4) 4 4574956 2 6319 COM 306 G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM HBM2 R(4) 4 2375944 2 6319 COM 449 HBM3 R(4) 4 2401220 2 6319 COM HTM R(4) 4 101104 3 284355 COM 366,449 HTMG R(4) 4 743768 3 4183695 COM IBROW I(4) 4 404 scalar COM Page 10 Source Listing DIVHOA 2025-03-12 18:23 Symbol Table DIVHOA.F Name Type Bytes Offset Dimen Elements Attributes References ICHUNKTAB I(4) 4 828 1 21 COM IDAT I(4) 4 8 1 3 COM IDTAD I(4) 4 72 scalar COM IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM IHE I(4) 4 0 1 89 COM 372,373,375,376,383,384,386,387,40 3,433,441,451,455 IHEG I(4) 4 0 1 387 COM IHRST I(4) 4 20 scalar COM IHW I(4) 4 356 1 89 COM 404,451,452,453,456,457 IHWG I(4) 4 1548 1 387 COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1324 1 100 COM IOUT I(4) 4 44 scalar COM IQUILT_GROUP I(4) 4 1320 scalar COM IRAD I(4) 4 1424 1 71 COM IRADG I(4) 4 6192 1 473 COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM IS_GLB_TABLE I(4) 4 0 1 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM IVE I(4) 4 712 1 89 COM 348 IVEG I(4) 4 3096 1 387 COM IVW I(4) 4 1068 1 89 COM 348,394,395,410,411 IVWG I(4) 4 4644 1 387 COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM JS_GLB_TABLE I(4) 4 168 1 21 COM JS_LOC_TABLE I(4) 4 576 1 21 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM LC I(4) 4 1163056 2 6319 COM LIST I(4) 4 40 scalar COM Page 11 Source Listing DIVHOA 2025-03-12 18:23 Symbol Table DIVHOA.F Name Type Bytes Offset Dimen Elements Attributes References MPI_COMM_COMP I(4) 4 912 scalar COM MPI_COMM_INTER I(4) 4 916 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 920 1 100 COM MYIE I(4) 4 52 scalar COM 321,330 MYIE1 I(4) 4 56 scalar COM 401,448 MYIE1_P1 I(4) 4 120 scalar COM 432,440 MYIE1_P2 I(4) 4 124 scalar COM 347 MYIE1_P3 I(4) 4 128 scalar COM 371,382 MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM 393 MYIE_P2 I(4) 4 104 scalar COM 409,421 MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM 305,312,340,354 MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM 321,330 MYIS1 I(4) 4 44 scalar COM 401,448 MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM MYIS2 I(4) 4 48 scalar COM MYIS_P1 I(4) 4 64 scalar COM 393,432,440 MYIS_P2 I(4) 4 68 scalar COM 347,409,421 MYIS_P3 I(4) 4 72 scalar COM 371,382 MYIS_P4 I(4) 4 76 scalar COM 305,312,340,354 MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM 320,329 MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM 392,439 MYJE1_P2 I(4) 4 284 scalar COM 346,408,420 MYJE1_P3 I(4) 4 288 scalar COM 370 MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM 400,447 MYJE2_P1 I(4) 4 296 scalar COM 431 MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM MYJE4_P1 I(4) 4 316 scalar COM MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM 381 MYJE_P4 I(4) 4 272 scalar COM 304,311,339,353 MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 320,329 MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM 392,431 Page 12 Source Listing DIVHOA 2025-03-12 18:23 Symbol Table DIVHOA.F Name Type Bytes Offset Dimen Elements Attributes References MYJS1_P2 I(4) 4 188 scalar COM 346,408,420 MYJS1_P3 I(4) 4 192 scalar COM 381 MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM 400,447 MYJS2_P1 I(4) 4 200 scalar COM 439 MYJS2_P2 I(4) 4 204 scalar COM MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM 370 MYJS_P4 I(4) 4 176 scalar COM 304,311,339,353 MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM NBC I(4) 4 36 scalar COM NBOCO I(4) 4 76 scalar COM NCNVC I(4) 4 92 scalar COM NCP I(4) 4 84 scalar COM NEST I(4) 4 108 scalar COM NFCST I(4) 4 32 scalar COM NPES I(4) 4 4 scalar COM NPHS I(4) 4 88 scalar COM NPREC I(4) 4 68 scalar COM NRADL I(4) 4 100 scalar COM NRADS I(4) 4 96 scalar COM NSHDE I(4) 4 80 scalar COM NSTART I(4) 4 60 scalar COM NTDDMP I(4) 4 64 scalar COM NTSD I(4) 4 52 scalar COM NTSTM I(4) 4 56 scalar COM Page 13 Source Listing DIVHOA 2025-03-12 18:23 Symbol Table DIVHOA.F Name Type Bytes Offset Dimen Elements Attributes References OMGALF R(4) 4 1187972 3 284355 COM 323,451,454 PD R(4) 4 0 2 6319 COM 307,314 PDSL R(4) 4 0 2 6319 COM 297,307,314,341,359 PREC R(4) 4 404416 2 6319 COM PSDT R(4) 4 25276 2 6319 COM PSHLTR R(4) 4 758280 2 6319 COM PT R(4) 4 20 scalar COM 359 Q R(4) 4 3437536 3 284355 COM 363 Q10 R(4) 4 631900 2 6319 COM Q2 R(4) 4 783556 3 284355 COM Q30 R(4) 4 530796 2 6319 COM QS R(4) 4 176932 2 6319 COM QSHLTR R(4) 4 733004 2 6319 COM QWBS R(4) 4 303312 2 6319 COM QZ0 R(4) 4 126380 2 6319 COM R R(4) 4 16 scalar COM 363 RDETA R(4) 4 216 1 45 COM RES R(4) 4 4600232 2 6319 COM 314 RESTRT L(4) 4 28 scalar COM RF R(4) 4 252760 2 6319 COM RTOP R(4) 4 50552 3 284355 COM 363,364,375,386 RUN L(4) 4 4 scalar COM SI R(4) 4 353864 2 6319 COM SICE R(4) 4 75828 2 6319 COM SIGMA L(4) 4 0 scalar COM 302 SM R(4) 4 50552 2 6319 COM SNO R(4) 4 328588 2 6319 COM SR R(4) 4 1188332 2 6319 COM SUBPOST L(4) 4 104 scalar COM T R(4) 4 25276 3 284355 COM 363,450,454 TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TH10 R(4) 4 606624 2 6319 COM TH30 R(4) 4 505520 2 6319 COM THS R(4) 4 151656 2 6319 COM THZ0 R(4) 4 101104 2 6319 COM TSHLTR R(4) 4 707728 2 6319 COM TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 278036 2 6319 COM U R(4) 4 1162696 3 284355 COM 422 Page 14 Source Listing DIVHOA 2025-03-12 18:23 Symbol Table DIVHOA.F Name Type Bytes Offset Dimen Elements Attributes References U00 R(4) 4 1137420 2 6319 COM U10 R(4) 4 657176 2 6319 COM U30 R(4) 4 556072 2 6319 COM UL R(4) 4 1162696 1 90 COM USTAR R(4) 4 25276 2 6319 COM UZ0 R(4) 4 50552 2 6319 COM V R(4) 4 2300116 3 284355 COM 425 V10 R(4) 4 682452 2 6319 COM V30 R(4) 4 581348 2 6319 COM VBM2 R(4) 4 0 2 6319 COM VBM3 R(4) 4 25276 2 6319 COM 394 VTM R(4) 4 1238524 3 284355 COM 394 VZ0 R(4) 4 75828 2 6319 COM WPDAR R(4) 4 32480 2 6319 COM 402 Z0 R(4) 4 0 2 6319 COM Page 15 Source Listing DIVHOA 2025-03-12 18:23 Subprograms/Common Blocks DIVHOA.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 230 1213608 SAVE CONTIN Common 239 4574956 SAVE CTLBLK Common 152 112 SAVE DIVHOA Subr 2 DYNAM Common 173 259964 SAVE GLB_TABLE Common 119 336 SAVE INDX Common 250 1708 SAVE INDXG Common 256 8084 SAVE MAPPINGS Common 138 5024 SAVE MASKS Common 161 2426496 SAVE MPPCOM Common 83 1724 SAVE PVRBLS Common 199 1946252 SAVE TEMPCOM Common 124 6603768 SAVE TOPO Common 132 17478548 SAVE VRBLS Common 189 4625508 SAVE COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous Page 16 Source Listing DIVHOA 2025-03-12 18:23 DIVHOA.F -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -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 Page 17 Source Listing DIVHOA 2025-03-12 18:23 DIVHOA.F -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : DIVHOA.lst no -o COMPILER: Intel(R) Fortran 19.1-1655