Page 1 Source Listing DIVHOA
2025-03-12 18:22 /tmp/ifort6iRI51.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
2025-03-12 18:22 ./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
2025-03-12 18:22 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
2025-03-12 18:22 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
2025-03-12 18:22 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
2025-03-12 18:22 Entry Points DIVHOA.F
ENTRY POINTS
Name
divhoa_
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
100 Label 314 310,311
110 Label 325 318
210 Label 342 338,339
220 Label 349 345,346
230 Label 366 352,353
240 Label 377 369,370
250 Label 388 380,381
260 Label 396 391,392
270 Label 404 399,400
280 Label 416 407,408
310 Label 427 419,420
320 Label 435 430,431
330 Label 443 438,439
340 Label 457 446,447
400 Label 459 335
50 Label 307 303,304
ADPDNE Local 263 R(4) 4 2 17955 371,373,376,433
ADPDSE Local 263 R(4) 4 2 17955 382,384,387,441
ADPDX Local 261 R(4) 4 2 17955 293,330,347,414,422
ADPDY Local 261 R(4) 4 2 17955 294,331,348,415,425
APEL Local 277 R(4) 4 2 17955 358,362,375,386
CLDWTR Common 229 3447720 SAVE
CNE Local 283 R(4) 4 2 17955 290,374,376,394,395,409
CONTIN Common 238 12999420 SAVE
CP Param 51 R(4) 4 scalar
CSE Local 283 R(4) 4 2 17955 292,385,387,394,395,410
CTLBLK Common 151 112 SAVE
DCNE Local 269 R(4) 4 2 17955
DCNEK Local 409 R(4) 4 scalar 409,414,415
DCSE Local 269 R(4) 4 2 17955
DCSEK Local 410 R(4) 4 scalar 410,414,415
DIVHOA Subr 2
DPDE Local 276 R(4) 4 2 17955 288,340,341,347,348,363,371,382
DPFEW Local 266 R(4) 4 2 17955
DPFNE Local 270 R(4) 4 2 17955
DPFNS Local 266 R(4) 4 2 17955
DPFSE Local 270 R(4) 4 2 17955
DPNE Local 268 R(4) 4 2 17955
DPSE Local 268 R(4) 4 2 17955
DYNAM Common 172 725404 SAVE
F0 Local 262 R(4) 4 2 17955
FEW Local 279 R(4) 4 2 17955 422,454,455
FILO Local 260 R(4) 4 2 17955 295,305,312,363,364,365
FIM Local 276 R(4) 4 2 17955 364,372,383
Page 7 Source Listing DIVHOA
2025-03-12 18:22 Symbol Table DIVHOA.F
Name Object Declared Type Bytes Dimen Elements Attributes References
FIUP Local 262 R(4) 4 2 17955
FIUPK Local 363 R(4) 4 scalar 363,364,365
FNE Local 281 R(4) 4 2 17955 433,454,455
FNS Local 267 R(4) 4 2 17955 425,454,455
FSE Local 281 R(4) 4 2 17955 441,454,456
GLB_TABLE Common 118 128 SAVE
HM Local 273 R(4) 4 2 17955 448,452,456
I Local 304 I(4) 4 scalar 304,305,306,311,312,313,320,321,32
2,329,330,331,339,340,341,346,347,
348,353,358,362,363,364,365,370,37
1,372,373,374,375,376,381,382,383,
384,385,386,387,392,393,394,395,40
0,401,402,403,408,409,410,414,415,
420,421,422,423,424,425,426,431,43
2,433,434,439,440,441,442,447,448,
449,450,451,452,453,454,455,456
IDIM1 Param 72 I(4) 4 scalar 161,162,164,165,166,178,179,180,18
1,182,183,189,191,192,193,199,200,
201,202,203,204,205,206,207,208,20
9,210,211,212,213,214,215,217,222,
230,232,239,240,241,242,243,252,26
0,261,262,263,264,265,266,267,268,
269,270,271,272,273,276,277,278,27
9,280,281,282,283,284,285
IDIM2 Param 72 I(4) 4 scalar 161,162,164,165,166,178,179,180,18
1,182,183,189,191,192,193,199,200,
201,202,203,204,205,206,207,208,20
9,210,211,212,213,214,215,217,222,
230,232,239,240,241,242,243,252,26
0,261,262,263,264,265,266,267,268,
269,270,271,272,273,276,277,278,27
9,280,281,282,283,284,285
IGSTL Param 67 I(4) 4 scalar 72
IGSTR Param 67 I(4) 4 scalar 72
IM Param 56 I(4) 4 scalar 69,72,124,125,126,127,128,132,133,
138,141,256
IMJM Param 141 I(4) 4 scalar
INDX Common 249 6564 SAVE
INDXG Common 255 8084 SAVE
INPES Param 64 I(4) 4 scalar 69,72,108,109,110,119,120
ITAIL Param 69 I(4) 4 scalar
J Local 303 I(4) 4 scalar 303,305,306,310,312,313,319,321,32
2,328,330,331,338,340,341,345,347,
348,352,358,362,363,364,365,369,37
1,372,373,374,375,376,380,382,383,
384,385,386,387,391,393,394,395,39
9,401,402,403,407,409,410,414,415,
419,421,422,423,424,425,426,430,43
2,433,434,438,440,441,442,446,448,
449,450,451,452,453,454,455,456
JAM Param 141 I(4) 4 scalar 176
JDIM1 Param 73 I(4) 4 scalar 161,162,164,165,166,178,179,180,18
1,182,183,189,191,192,193,199,200,
201,202,203,204,205,206,207,208,20
9,210,211,212,213,214,215,217,222,
Page 8 Source Listing DIVHOA
2025-03-12 18:22 Symbol Table DIVHOA.F
Name Object Declared Type Bytes Dimen Elements Attributes References
230,232,239,240,241,242,243,250,25
1,260,261,262,263,264,265,266,267,
268,269,270,271,272,273,276,277,27
8,279,280,281,282,283,284,285
JDIM2 Param 73 I(4) 4 scalar 161,162,164,165,166,178,179,180,18
1,182,183,189,191,192,193,199,200,
201,202,203,204,205,206,207,208,20
9,210,211,212,213,214,215,217,222,
230,232,239,240,241,242,243,250,25
1,260,261,262,263,264,265,266,267,
268,269,270,271,272,273,276,277,27
8,279,280,281,282,283,284,285
JGSTL Param 68 I(4) 4 scalar 73
JGSTR Param 68 I(4) 4 scalar 73
JM Param 56 I(4) 4 scalar 70,73,124,125,126,127,128,132,133,
138,141,256
JNPES Param 64 I(4) 4 scalar 70,73,108,109,110,119,120
JTAIL Param 70 I(4) 4 scalar
L Local 318 I(4) 4 scalar 318,321,322,335,340,358,362,363,36
5,374,385,393,401,421,424,448,449,
450,453,454,456
LM Param 56 I(4) 4 scalar 133,141,164,165,174,191,192,217,23
0,231,240,241,242,243,318,335
LP1 Param 141 I(4) 4 scalar 174
LSM Param 56 I(4) 4 scalar
MAPPINGS Common 137 5024 SAVE
MASKS Common 160 6894720 SAVE
MPPCOM Common 82 1464 SAVE
PCEW Local 265 R(4) 4 2 17955 414,423
PCNE Local 285 R(4) 4 2 17955 376,434
PCNS Local 265 R(4) 4 2 17955 415,426
PCSE Local 285 R(4) 4 2 17955 387,442
PCXC Local 277 R(4) 4 2 17955 393,402,403
PEW Local 264 R(4) 4 2 17955
PNE Local 282 R(4) 4 2 17955 289,372,373,393,395
PNS Local 264 R(4) 4 2 17955
PPNE Local 284 R(4) 4 2 17955 373
PPSE Local 284 R(4) 4 2 17955 384
PSE Local 282 R(4) 4 2 17955 291,383,384,394,395
PVNE Local 272 R(4) 4 2 17955
PVNEK Local 432 R(4) 4 scalar 432,433,434
PVRBLS Common 198 5530140 SAVE
PVSE Local 272 R(4) 4 2 17955
PVSEK Local 440 R(4) 4 scalar 440,441,442
RDPD Local 260 R(4) 4 2 17955 341,452
SINGLRST Local 149 L(4) 4 scalar
TEMPCOM Common 123 6603768 SAVE
TEW Local 279 R(4) 4 2 17955 423,450
TNE Local 280 R(4) 4 2 17955 434,451
TNS Local 267 R(4) 4 2 17955 426,450,451
TOPO Common 131 17478548 SAVE
TSE Local 280 R(4) 4 2 17955 442,451,452
TTK Local 449 R(4) 4 scalar 449
UDY Local 278 R(4) 4 2 17955 421,422,423,432,440
UP Local 271 R(4) 4 2 17955
Page 9 Source Listing DIVHOA
2025-03-12 18:22 Symbol Table DIVHOA.F
Name Object Declared Type Bytes Dimen Elements Attributes References
VDX Local 278 R(4) 4 2 17955 424,425,426,432,440
VM Local 273 R(4) 4 2 17955
VP Local 271 R(4) 4 2 17955
VRBLS Common 188 13143060 SAVE
ZERO2 Subr 288 288,289,290,291,292,293,294,295,29
6
TYPE COMPONENTS/COMMON VARIABLES
Name Type Bytes Offset Dimen Elements Attributes References
ACCLIQ R(4) 4 1292760 2 17955 COM
ACPREC R(4) 4 1220940 2 17955 COM
AETA R(4) 4 396 1 45 COM 358
AFSI R(4) 4 5458320 2 17955 COM
AKHS R(4) 4 646380 2 17955 COM
AKMS R(4) 4 574560 2 17955 COM
CLDEFI R(4) 4 1077300 2 17955 COM
CPGFU R(4) 4 150844 2 17955 COM
CPGFV R(4) 4 4 scalar COM
CUPREC R(4) 4 1364580 2 17955 COM
CURV R(4) 4 222664 2 17955 COM
CWM R(4) 4 0 3 807975 COM
DDMPU R(4) 4 509944 2 17955 COM
DDMPV R(4) 4 581764 2 17955 COM
DETA R(4) 4 36 1 45 COM 340,401
DFL R(4) 4 940 1 46 COM 365
DIV R(4) 4 6607440 3 807975 COM 321,401,454,456
DT R(4) 4 48 scalar COM
DX R(4) 4 7204 2 17955 COM 424
DY R(4) 4 0 scalar COM 421
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 9839340 3 790020 COM
F R(4) 4 438124 2 17955 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 653584 2 17955 COM
FCP R(4) 4 294484 2 17955 COM 452
FDIV R(4) 4 366304 2 17955 COM 456
FIRST L(4) 4 24 scalar COM
FIS R(4) 4 12999420 2 17955 COM 305
G2LI I(4) 4 0 1 239 COM
G2LJ I(4) 4 1912 1 389 COM
HBM2 R(4) 4 6751080 2 17955 COM 448
HBM3 R(4) 4 6822900 2 17955 COM
HTM R(4) 4 287280 3 807975 COM 365,448
HTMG R(4) 4 743768 3 4183695 COM
IBROW I(4) 4 404 scalar COM
Page 10 Source Listing DIVHOA
2025-03-12 18:22 Symbol Table DIVHOA.F
Name Type Bytes Offset Dimen Elements Attributes References
ICHUNKTAB I(4) 4 620 1 8 COM
IDAT I(4) 4 8 1 3 COM
IDTAD I(4) 4 72 scalar COM
IE_GLB_TABLE I(4) 4 32 1 8 COM
IE_LOC_TABLE I(4) 4 556 1 8 COM
IHE I(4) 4 0 1 399 COM 371,372,374,375,382,383,385,386,40
2,432,440,450,454
IHEG I(4) 4 0 1 387 COM
IHRST I(4) 4 20 scalar COM
IHW I(4) 4 1596 1 399 COM 403,450,451,452,455,456
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 1064 1 100 COM
IOUT I(4) 4 44 scalar COM
IQUILT_GROUP I(4) 4 1060 scalar COM
IRAD I(4) 4 6384 1 45 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 8 COM
IS_LOC_TABLE I(4) 4 492 1 8 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 3192 1 399 COM 347
IVEG I(4) 4 3096 1 387 COM
IVW I(4) 4 4788 1 399 COM 347,393,394,409,410
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 96 1 8 COM
JE_LOC_TABLE I(4) 4 588 1 8 COM
JS_GLB_TABLE I(4) 4 64 1 8 COM
JS_LOC_TABLE I(4) 4 524 1 8 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 3304080 2 17955 COM
LIST I(4) 4 40 scalar COM
Page 11 Source Listing DIVHOA
2025-03-12 18:22 Symbol Table DIVHOA.F
Name Type Bytes Offset Dimen Elements Attributes References
MPI_COMM_COMP I(4) 4 652 scalar COM
MPI_COMM_INTER I(4) 4 656 scalar COM
MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM
MYIE I(4) 4 52 scalar COM 320,329
MYIE1 I(4) 4 56 scalar COM 400,447
MYIE1_P1 I(4) 4 120 scalar COM 431,439
MYIE1_P2 I(4) 4 124 scalar COM 346
MYIE1_P3 I(4) 4 128 scalar COM 370,381
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 392
MYIE_P2 I(4) 4 104 scalar COM 408,420
MYIE_P3 I(4) 4 108 scalar COM
MYIE_P4 I(4) 4 112 scalar COM 304,311,339,353
MYIE_P5 I(4) 4 116 scalar COM
MYIS I(4) 4 40 scalar COM 320,329
MYIS1 I(4) 4 44 scalar COM 400,447
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 392,431,439
MYIS_P2 I(4) 4 68 scalar COM 346,408,420
MYIS_P3 I(4) 4 72 scalar COM 370,381
MYIS_P4 I(4) 4 76 scalar COM 304,311,339,353
MYIS_P5 I(4) 4 80 scalar COM
MYJE I(4) 4 236 scalar COM 319,328
MYJE1 I(4) 4 240 scalar COM
MYJE1_P1 I(4) 4 280 scalar COM 391,438
MYJE1_P2 I(4) 4 284 scalar COM 345,407,419
MYJE1_P3 I(4) 4 288 scalar COM 369
MYJE1_P4 I(4) 4 292 scalar COM
MYJE2 I(4) 4 244 scalar COM 399,446
MYJE2_P1 I(4) 4 296 scalar COM 430
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 380
MYJE_P4 I(4) 4 272 scalar COM 303,310,338,352
MYJE_P5 I(4) 4 276 scalar COM
MYJS I(4) 4 140 scalar COM 319,328
MYJS1 I(4) 4 144 scalar COM
MYJS1_P1 I(4) 4 184 scalar COM 391,430
Page 12 Source Listing DIVHOA
2025-03-12 18:22 Symbol Table DIVHOA.F
Name Type Bytes Offset Dimen Elements Attributes References
MYJS1_P2 I(4) 4 188 scalar COM 345,407,419
MYJS1_P3 I(4) 4 192 scalar COM 380
MYJS1_P4 I(4) 4 196 scalar COM
MYJS2 I(4) 4 148 scalar COM 399,446
MYJS2_P1 I(4) 4 200 scalar COM 438
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 369
MYJS_P4 I(4) 4 176 scalar COM 303,310,338,352
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:22 Symbol Table DIVHOA.F
Name Type Bytes Offset Dimen Elements Attributes References
OMGALF R(4) 4 3375540 3 807975 COM 322,450,453
PD R(4) 4 0 2 17955 COM 306,313
PDSL R(4) 4 0 2 17955 COM 296,306,313,340,358
PREC R(4) 4 1149120 2 17955 COM
PSDT R(4) 4 71820 2 17955 COM
PSHLTR R(4) 4 2154600 2 17955 COM
PT R(4) 4 20 scalar COM 358
Q R(4) 4 9767520 3 807975 COM 362
Q10 R(4) 4 1795500 2 17955 COM
Q2 R(4) 4 2226420 3 807975 COM
Q30 R(4) 4 1508220 2 17955 COM
QS R(4) 4 502740 2 17955 COM
QSHLTR R(4) 4 2082780 2 17955 COM
QWBS R(4) 4 861840 2 17955 COM
QZ0 R(4) 4 359100 2 17955 COM
R R(4) 4 16 scalar COM 362
RDETA R(4) 4 216 1 45 COM
RES R(4) 4 13071240 2 17955 COM 313
RESTRT L(4) 4 28 scalar COM
RF R(4) 4 718200 2 17955 COM
RTOP R(4) 4 143640 3 807975 COM 362,363,374,385
RUN L(4) 4 4 scalar COM
SI R(4) 4 1005480 2 17955 COM
SICE R(4) 4 215460 2 17955 COM
SIGMA L(4) 4 0 scalar COM 301
SM R(4) 4 143640 2 17955 COM
SNO R(4) 4 933660 2 17955 COM
SR R(4) 4 3375900 2 17955 COM
SUBPOST L(4) 4 104 scalar COM
T R(4) 4 71820 3 807975 COM 362,449,453
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 1723680 2 17955 COM
TH30 R(4) 4 1436400 2 17955 COM
THS R(4) 4 430920 2 17955 COM
THZ0 R(4) 4 287280 2 17955 COM
TSHLTR R(4) 4 2010960 2 17955 COM
TTVG R(4) 4 371884 2 92971 COM
TWBS R(4) 4 790020 2 17955 COM
U R(4) 4 3303720 3 807975 COM 421
Page 14 Source Listing DIVHOA
2025-03-12 18:22 Symbol Table DIVHOA.F
Name Type Bytes Offset Dimen Elements Attributes References
U00 R(4) 4 3231900 2 17955 COM
U10 R(4) 4 1867320 2 17955 COM
U30 R(4) 4 1580040 2 17955 COM
UL R(4) 4 3303720 1 90 COM
USTAR R(4) 4 71820 2 17955 COM
UZ0 R(4) 4 143640 2 17955 COM
V R(4) 4 6535620 3 807975 COM 424
V10 R(4) 4 1939140 2 17955 COM
V30 R(4) 4 1651860 2 17955 COM
VBM2 R(4) 4 0 2 17955 COM
VBM3 R(4) 4 71820 2 17955 COM 393
VTM R(4) 4 3519180 3 807975 COM 393
VZ0 R(4) 4 215460 2 17955 COM
WPDAR R(4) 4 79024 2 17955 COM 401
Z0 R(4) 4 0 2 17955 COM
Page 15 Source Listing DIVHOA
2025-03-12 18:22 Subprograms/Common Blocks DIVHOA.F
SUBPROGRAMS/COMMON BLOCKS
Name Object Declared Type Bytes Dimen Elements Attributes References
CLDWTR Common 229 3447720 SAVE
CONTIN Common 238 12999420 SAVE
CTLBLK Common 151 112 SAVE
DIVHOA Subr 2
DYNAM Common 172 725404 SAVE
GLB_TABLE Common 118 128 SAVE
INDX Common 249 6564 SAVE
INDXG Common 255 8084 SAVE
MAPPINGS Common 137 5024 SAVE
MASKS Common 160 6894720 SAVE
MPPCOM Common 82 1464 SAVE
PVRBLS Common 198 5530140 SAVE
TEMPCOM Common 123 6603768 SAVE
TOPO Common 131 17478548 SAVE
VRBLS Common 188 13143060 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:22 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:22 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