Page 1 Source Listing HDIFF 2025-03-12 18:22 /tmp/ifortQnERlg.i 1 # 1 "HDIFF.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE HDIFF 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 C SUBPROGRAM: HDIFF HORIZONTAL DIFFUSION 8 C PRGRMMR: JANJIC ORG: W/NP22 DATE: 93-11-17 9 C 10 C ABSTRACT: 11 C HDIFF CALCULATES THE CONTRIBUTION OF THE HORIZONTAL DIFFUSION 12 C TO THE TENDENCIES OF TEMPERATURE, SPECIFIC HUMIDITY, WIND 13 C COMPONENTS, AND TURBULENT KINETIC ENERGY AND THEN UPDATES THOSE 14 C VARIABLES. A SECOND-ORDER NONLINEAR SCHEME SIMILAR TO 15 C SMAGORINSKY'S IS USED WHERE THE DIFFUSION COEFFICIENT IS 16 C A FUNCTION OF THE DEFORMATION FIELD AND OF THE TURBULENT 17 C KINETIC ENERGY. 18 C 19 C PROGRAM HISTORY LOG: 20 C 87-06-?? JANJIC - ORIGINATOR 21 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL 22 C 96-03-28 BLACK - ADDED EXTERNAL EDGE 23 C 98-10-30 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 24 C 25 C USAGE: CALL HDIFF FROM MAIN PROGRAM EBU 26 C 27 C INPUT ARGUMENT LIST: 28 C NONE 29 C 30 C OUTPUT ARGUMENT LIST: 31 C NONE 32 C 33 C OUTPUT FILES: 34 C NONE 35 C 36 C SUBPROGRAMS CALLED: 37 C 38 C UNIQUE: NONE 39 C 40 C LIBRARY: NONE 41 C 42 C COMMON BLOCKS: CTLBLK 43 C MASKS 44 C PHYS 45 C VRBLS 46 C PVRBLS 47 C INDX 48 C 49 C ATTRIBUTES: 50 C LANGUAGE: FORTRAN 90 51 C MACHINE : IBM SP 52 C$$$ 53 C ****************************************************************** 54 P A R A M E T E R 55 & (DEFC=8.0,DEFM=32.0,SCQ2=50.0 56 &, EPSQ2=0.2,FCDIF=1.0,RFCP=.25/1004.6) 57 C---------------------------------------------------------------------- Page 2 Source Listing HDIFF 2025-03-12 18:22 HDIFF.F 58 INCLUDE "parmeta" 81 INCLUDE "parm.tbl" 83 INCLUDE "mpp.h" 84 # 1 "./sp.h" 1 85 # 4 86 87 # 61 "HDIFF.F" 2 88 C---------------------------------------------------------------------- 147 P A R A M E T E R 148 & (IMJM=IM*JM-JM/2,LP1=LM+1,KSMUD=1) 149 C----------------------------------------------------------------------- 150 L O G I C A L 151 & RUN,FIRST,RESTRT,SIGMA 152 &,SECOND,HEAT,STTDF 153 C---------------------------------------------------------------------- 154 INCLUDE "CTLBLK.comm" 155 C----------------------------------------------------------------------- 165 INCLUDE "MASKS.comm" 166 C----------------------------------------------------------------------- 177 INCLUDE "PHYS.comm" 178 C----------------------------------------------------------------------- 206 INCLUDE "VRBLS.comm" 207 C----------------------------------------------------------------------- 217 INCLUDE "PVRBLS.comm" 247 INCLUDE "CLDWTR.comm" 248 C----------------------------------------------------------------------- 256 INCLUDE "INDX.comm" 257 C----------------------------------------------------------------------- 269 D I M E N S I O N 270 & Q2L (IDIM1:IDIM2,JDIM1:JDIM2),UT (IDIM1:IDIM2,JDIM1:JDIM2) 271 &,HKNE (IDIM1:IDIM2,JDIM1:JDIM2),HKSE (IDIM1:IDIM2,JDIM1:JDIM2) 272 &,VKNE (IDIM1:IDIM2,JDIM1:JDIM2),VKSE (IDIM1:IDIM2,JDIM1:JDIM2) 273 C 274 D I M E N S I O N 275 & TNE (IDIM1:IDIM2,JDIM1:JDIM2),TSE (IDIM1:IDIM2,JDIM1:JDIM2) 276 &,QNE (IDIM1:IDIM2,JDIM1:JDIM2),QSE (IDIM1:IDIM2,JDIM1:JDIM2) 277 &,Q2NE (IDIM1:IDIM2,JDIM1:JDIM2),Q2SE (IDIM1:IDIM2,JDIM1:JDIM2) 278 &,UNE (IDIM1:IDIM2,JDIM1:JDIM2),USE (IDIM1:IDIM2,JDIM1:JDIM2) 279 &,VNE (IDIM1:IDIM2,JDIM1:JDIM2),VSE (IDIM1:IDIM2,JDIM1:JDIM2) 280 &,TDIF (IDIM1:IDIM2,JDIM1:JDIM2),QDIF (IDIM1:IDIM2,JDIM1:JDIM2) 281 &,UDIF (IDIM1:IDIM2,JDIM1:JDIM2),VDIF (IDIM1:IDIM2,JDIM1:JDIM2) 282 &,Q2DIF(IDIM1:IDIM2,JDIM1:JDIM2) 283 &,DEF (IDIM1:IDIM2,JDIM1:JDIM2),CKE (IDIM1:IDIM2,JDIM1:JDIM2) 284 C----------------------------------------------------------------------- 285 C*** 286 C*** DIFFUSING Q2 AT GROUND LEVEL DOESN'T MATTER, USTAR2 IS RECALCULATED 287 C*** 288 C----------------------------------------------------------------------- 289 SECOND=.TRUE. 290 HEAT=.FALSE. 291 C----------------------------------------------------------------------- 292 DO 600 KS=1,KSMUD 293 C--------------MAIN VERTICAL INTEGRATION LOOP--------------------------- 294 !$omp parallel do 295 !$omp& private(cke,def,defsk,deftk,hkne,hkse,q2dif,q2l,q2ne,q2se,qdif, 296 !$omp& qne,qse,tdif,tne,tse,udif,une,use,utk,vdif,vkne,vkse, 297 !$omp& vne,vse,vtk) Page 3 Source Listing HDIFF 2025-03-12 18:22 HDIFF.F 298 C----------------------------------------------------------------------- 299 DO 500 L=1,LM 300 C 301 CALL ZERO2(DEF) 302 CALL ZERO2(Q2NE) 303 CALL ZERO2(Q2SE) 304 CALL ZERO2(QNE) 305 CALL ZERO2(QSE) 306 CALL ZERO2(TNE) 307 CALL ZERO2(TSE) 308 CALL ZERO2(UNE) 309 CALL ZERO2(USE) 310 CALL ZERO2(VSE) 311 CALL ZERO2(VNE) 312 CALL ZERO2(VSE) 313 CALL ZERO2(TDIF) 314 CALL ZERO2(QDIF) 315 CALL ZERO2(UDIF) 316 CALL ZERO2(VDIF) 317 CALL ZERO2(Q2DIF) 318 C----------------------------------------------------------------------- 319 DO 210 J=MYJS_P1,MYJE_P1 320 DO 210 I=MYIS_P1,MYIE_P1 321 Q2L(I,J)=AMAX1(Q2(I,J,L),EPSQ2) 322 210 CONTINUE 323 C--------------DEFORMATIONS--------------------------------------------- 324 DO 220 J=MYJS1_P1,MYJE1_P1 325 DO 220 I=MYIS_P1,MYIE1_P1 326 DEFTK =U(I+IHE(J),J,L)-U(I+IHW(J),J,L)-V(I,J+1,L)+V(I,J-1,L) 327 DEFSK =U(I,J+1,L)-U(I,J-1,L)+V(I+IHE(J),J,L)-V(I+IHW(J),J,L) 328 DEF (I,J)=DEFTK *DEFTK +DEFSK *DEFSK +SCQ2*Q2L(I,J) 329 DEF (I,J)=SQRT(DEF(I,J)+DEF(I,J))*HBM2(I,J) 330 DEF(I,J)=AMAX1(DEF(I,J),DEFC) 331 c DEF(I,J)=AMIN1(DEF(I,J),DEFM) 332 220 CONTINUE 333 C--------------T,Q, Q2 DIAGONAL CONTRIBUTIONS--------------------------- 334 DO 250 J=MYJS_P1,MYJE1_P1 335 DO 250 I=MYIS_P1,MYIE1_P1 336 HKNE(I,J)=(DEF(I,J)+DEF(I+IHE(J),J+1)) 337 1 *HTM(I,J,L)*HTM(I+IHE(J),J+1,L) 338 TNE (I,J)=(T (I+IHE(J),J+1,L)-T (I,J,L))*HKNE(I,J) 339 QNE (I,J)=(Q (I+IHE(J),J+1,L)-Q (I,J,L))*HKNE(I,J) 340 Q2NE(I,J)=(Q2(I+IHE(J),J+1,L)-Q2(I,J,L))*HKNE(I,J) 341 250 CONTINUE 342 C 343 DO 260 J=MYJS1_P1,MYJE_P1 344 DO 260 I=MYIS_P1,MYIE1_P1 345 HKSE(I,J)=(DEF(I+IHE(J),J-1)+DEF(I,J)) 346 1 *HTM(I+IHE(J),J-1,L)*HTM(I,J,L) 347 TSE (I,J)=(T (I+IHE(J),J-1,L)-T (I,J,L))*HKSE(I,J) 348 QSE (I,J)=(Q (I+IHE(J),J-1,L)-Q (I,J,L))*HKSE(I,J) 349 Q2SE(I,J)=(Q2(I+IHE(J),J-1,L)-Q2(I,J,L))*HKSE(I,J) 350 260 CONTINUE 351 C----------------------------------------------------------------------- 352 DO 270 J=MYJS1,MYJE1 353 DO 270 I=MYIS1,MYIE 354 TDIF (I,J)=(TNE (I,J)-TNE (I+IHW(J),J-1) Page 4 Source Listing HDIFF 2025-03-12 18:22 HDIFF.F 355 1 +TSE (I,J)-TSE (I+IHW(J),J+1))*HDAC(I,J) 356 QDIF (I,J)=(QNE (I,J)-QNE (I+IHW(J),J-1) 357 1 +QSE (I,J)-QSE (I+IHW(J),J+1))*HDAC(I,J)*FCDIF 358 Q2DIF(I,J)=(Q2NE(I,J)-Q2NE(I+IHW(J),J-1) 359 1 +Q2SE(I,J)-Q2SE(I+IHW(J),J+1))*HDAC(I,J) 360 270 CONTINUE 361 C--------------2-ND ORDER DIFFUSION------------------------------------- 362 IF(SECOND)THEN 363 DO 280 J=MYJS2,MYJE2 364 DO 280 I=MYIS1,MYIE1 365 T (I,J,L)=T (I,J,L)+TDIF (I,J) 366 Q (I,J,L)=Q (I,J,L)+QDIF (I,J) 367 280 CONTINUE 368 C 369 C----------------------------------------------------------------------- 370 C IF(L.NE.LM)THEN 371 DO 290 J=MYJS2,MYJE2 372 DO 290 I=MYIS1,MYIE1 373 Q2(I,J,L)=Q2(I,J,L)+Q2DIF(I,J) 374 290 CONTINUE 375 C ENDIF 376 C 377 GO TO 360 378 ENDIF 379 C--------------4-TH ORDER DIAGONAL CONTRIBUTIONS------------------------ 380 DO 310 J=MYJS,MYJE1 381 DO 310 I=MYIS,MYIE1 382 TNE (I,J)=(TDIF (I+IHE(J),J+1)-TDIF (I,J))*HKNE(I,J) 383 QNE (I,J)=(QDIF (I+IHE(J),J+1)-QDIF (I,J))*HKNE(I,J) 384 Q2NE(I,J)=(Q2DIF(I+IHE(J),J+1)-Q2DIF(I,J))*HKNE(I,J) 385 310 CONTINUE 386 C 387 DO 320 J=MYJS1,MYJE 388 DO 320 I=MYIS,MYIE1 389 TSE (I,J)=(TDIF (I+IHE(J),J-1)-TDIF (I,J))*HKSE(I,J) 390 QSE (I,J)=(QDIF (I+IHE(J),J-1)-QDIF (I,J))*HKSE(I,J) 391 Q2SE(I,J)=(Q2DIF(I+IHE(J),J-1)-Q2DIF(I,J))*HKSE(I,J) 392 320 CONTINUE 393 C----------------------------------------------------------------------- 394 DO 330 J=MYJS2,MYJE2 395 DO 330 I=MYIS1,MYIE1 396 T(I,J,L)=T(I,J,L)-(TNE (I,J)-TNE (I+IHW(J),J-1) 397 1 +TSE (I,J)-TSE (I+IHW(J),J+1))*HDAC(I,J) 398 Q(I,J,L)=Q(I,J,L)-(QNE (I,J)-QNE (I+IHW(J),J-1) 399 1 +QSE (I,J)-QSE (I+IHW(J),J+1))*HDAC(I,J) 400 2 *FCDIF 401 330 CONTINUE 402 C 403 C----------------------------------------------------------------------- 404 C IF(L.NE.LM)THEN 405 DO 340 J=MYJS2,MYJE2 406 DO 340 I=MYIS1,MYIE1 407 Q2(I,J,L)=Q2(I,J,L)-(Q2NE(I,J)-Q2NE(I+IHW(J),J-1) 408 1 +Q2SE(I,J)-Q2SE(I+IHW(J),J+1))*HDAC(I,J) 409 340 CONTINUE 410 C ENDIF 411 C--------------U,V, DIAGONAL CONTRIBUTIONS------------------------------ Page 5 Source Listing HDIFF 2025-03-12 18:22 HDIFF.F 412 360 DO 410 J=MYJS_P1,MYJE1_P1 413 DO 410 I=MYIS_P1,MYIE1_P1 414 VKNE(I,J)=(DEF(I+IVE(J),J)+DEF(I,J+1)) 415 1 *VTM(I,J,L)*VTM(I+IVE(J),J+1,L) 416 UNE(I,J)=(U(I+IVE(J),J+1,L)-U(I,J,L))*VKNE(I,J) 417 VNE(I,J)=(V(I+IVE(J),J+1,L)-V(I,J,L))*VKNE(I,J) 418 410 CONTINUE 419 C 420 DO 420 J=MYJS1_P1,MYJE_P1 421 DO 420 I=MYIS_P1,MYIE1_P1 422 VKSE(I,J)=(DEF(I,J-1)+DEF(I+IVE(J),J)) 423 1 *VTM(I+IVE(J),J-1,L)*VTM(I,J,L) 424 USE(I,J)=(U(I+IVE(J),J-1,L)-U(I,J,L))*VKSE(I,J) 425 VSE(I,J)=(V(I+IVE(J),J-1,L)-V(I,J,L))*VKSE(I,J) 426 420 CONTINUE 427 C----------------------------------------------------------------------- 428 DO 430 J=MYJS1,MYJE1 429 DO 430 I=MYIS,MYIE1 430 UDIF(I,J)=(UNE(I,J)-UNE(I+IVW(J),J-1) 431 1 +USE(I,J)-USE(I+IVW(J),J+1))*HDACV(I,J) 432 VDIF(I,J)=(VNE(I,J)-VNE(I+IVW(J),J-1) 433 1 +VSE(I,J)-VSE(I+IVW(J),J+1))*HDACV(I,J) 434 430 CONTINUE 435 C--------------2-ND ORDER DIFFUSION------------------------------------- 436 IF(SECOND)THEN 437 DO 440 J=MYJS2,MYJE2 438 DO 440 I=MYIS1,MYIE1 439 U(I,J,L)=U(I,J,L)+UDIF(I,J) 440 V(I,J,L)=V(I,J,L)+VDIF(I,J) 441 440 CONTINUE 442 ELSE 443 c GO TO 500 444 c ENDIF 445 C--------------4-TH ORDER DIAGONAL CONTRIBUTIONS------------------------ 446 DO 450 J=MYJS,MYJE1 447 DO 450 I=MYIS,MYIE1 448 UNE(I,J)=(UDIF(I+IVE(J),J+1)-UDIF(I,J))*VKNE(I,J) 449 VNE(I,J)=(VDIF(I+IVE(J),J+1)-VDIF(I,J))*VKNE(I,J) 450 450 CONTINUE 451 C 452 DO 460 J=MYJS1,MYJE 453 DO 460 I=MYIS,MYIE1 454 USE(I,J)=(UDIF(I+IVE(J),J-1)-UDIF(I,J))*VKSE(I,J) 455 VSE(I,J)=(VDIF(I+IVE(J),J-1)-VDIF(I,J))*VKSE(I,J) 456 460 CONTINUE 457 C----------------------------------------------------------------------- 458 DO 470 J=MYJS2,MYJE2 459 DO 470 I=MYIS1,MYIE1 460 UTK=U(I,J,L) 461 VTK=V(I,J,L) 462 U(I,J,L)=U(I,J,L)-(UNE(I,J)-UNE(I+IVW(J),J-1) 463 1 +USE(I,J)-USE(I+IVW(J),J+1))*HDACV(I,J) 464 V(I,J,L)=V(I,J,L)-(VNE(I,J)-VNE(I+IVW(J),J-1) 465 1 +VSE(I,J)-VSE(I+IVW(J),J+1))*HDACV(I,J) 466 CKE(I,J)=0.5*(U(I,J,L)*U(I,J,L)-UTK*UTK 467 1 +V(I,J,L)*V(I,J,L)-VTK*VTK) 468 470 CONTINUE Page 6 Source Listing HDIFF 2025-03-12 18:22 HDIFF.F 469 C----------------------------------------------------------------------- 470 IF(HEAT)THEN 471 DO 480 J=MYJS2,MYJE2 472 DO 480 I=MYIS1,MYIE1 473 T(I,J,L)=-RFCP*(CKE(I+IHE(J),J)+CKE(I,J+1) 474 1 +CKE(I+IHW(J),J)+CKE(I,J-1))*HBM2(I,J) 475 2 +T(I,J,L) 476 480 CONTINUE 477 ENDIF 478 ENDIF 479 C----------------------------------------------------------------------- 480 500 CONTINUE 481 600 CONTINUE 482 C----------------------------------------------------------------------- 483 RETURN 484 END ENTRY POINTS Name hdiff_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 210 Label 322 319,320 220 Label 332 324,325 250 Label 341 334,335 260 Label 350 343,344 270 Label 360 352,353 280 Label 367 363,364 290 Label 374 371,372 310 Label 385 380,381 320 Label 392 387,388 330 Label 401 394,395 340 Label 409 405,406 360 Label 412 377 410 Label 418 412,413 420 Label 426 420,421 430 Label 434 428,429 440 Label 441 437,438 450 Label 450 446,447 460 Label 456 452,453 470 Label 468 458,459 480 Label 476 471,472 500 Label 480 299 600 Label 481 292 AMAX1 Func 321 scalar 321,330 CKE Local 283 R(4) 4 2 17955 466,473,474 CLDWTR Common 250 3447720 SAVE CTLBLK Common 159 112 SAVE DEF Local 283 R(4) 4 2 17955 301,328,329,330,336,345,414,422 DEFC Param 55 R(4) 4 scalar 330 Page 7 Source Listing HDIFF 2025-03-12 18:22 Symbol Table HDIFF.F Name Object Declared Type Bytes Dimen Elements Attributes References DEFM Param 55 R(4) 4 scalar DEFSK Local 327 R(4) 4 scalar 327,328 DEFTK Local 326 R(4) 4 scalar 326,328 EPSQ2 Param 56 R(4) 4 scalar 321 FCDIF Param 56 R(4) 4 scalar 357,400 GLB_TABLE Common 125 128 SAVE HDIFF Subr 3 HEAT Local 152 L(4) 4 scalar 290,470 HKNE Local 271 R(4) 4 2 17955 336,338,339,340,382,383,384 HKSE Local 271 R(4) 4 2 17955 345,347,348,349,389,390,391 I Local 320 I(4) 4 scalar 320,321,325,326,327,328,329,330,33 5,336,337,338,339,340,344,345,346, 347,348,349,353,354,355,356,357,35 8,359,364,365,366,372,373,381,382, 383,384,388,389,390,391,395,396,39 7,398,399,406,407,408,413,414,415, 416,417,421,422,423,424,425,429,43 0,431,432,433,438,439,440,447,448, 449,453,454,455,459,460,461,462,46 3,464,465,466,467,472,473,474,475 IDIM1 Param 77 I(4) 4 scalar 169,170,172,173,174,191,192,193,19 4,195,196,197,198,199,200,201,210, 212,213,214,220,221,222,223,224,22 5,226,227,228,229,230,231,232,233, 234,235,236,238,243,251,253,262,27 0,271,272,275,276,277,278,279,280, 281,282,283 IDIM2 Param 77 I(4) 4 scalar 169,170,172,173,174,191,192,193,19 4,195,196,197,198,199,200,201,210, 212,213,214,220,221,222,223,224,22 5,226,227,228,229,230,231,232,233, 234,235,236,238,243,251,253,262,27 0,271,272,275,276,277,278,279,280, 281,282,283 IGSTL Param 72 I(4) 4 scalar 77 IGSTR Param 72 I(4) 4 scalar 77 IM Param 61 I(4) 4 scalar 74,77,131,132,133,134,135,139,140, 145,148,266 IMJM Param 148 I(4) 4 scalar INDX Common 259 6564 SAVE INDXG Common 265 8084 SAVE INPES Param 69 I(4) 4 scalar 74,77,115,116,117,126,127 ITAIL Param 74 I(4) 4 scalar ITB Param 82 I(4) 4 scalar 188,203 ITBQ Param 82 I(4) 4 scalar 189,203 J Local 319 I(4) 4 scalar 319,321,324,326,327,328,329,330,33 4,336,337,338,339,340,343,345,346, 347,348,349,352,354,355,356,357,35 8,359,363,365,366,371,373,380,382, 383,384,387,389,390,391,394,396,39 7,398,399,405,407,408,412,414,415, 416,417,420,422,423,424,425,428,43 0,431,432,433,437,439,440,446,448, 449,452,454,455,458,460,461,462,46 3,464,465,466,467,471,473,474,475 Page 8 Source Listing HDIFF 2025-03-12 18:22 Symbol Table HDIFF.F Name Object Declared Type Bytes Dimen Elements Attributes References JDIM1 Param 78 I(4) 4 scalar 169,170,172,173,174,191,192,193,19 4,195,196,197,198,199,200,201,210, 212,213,214,220,221,222,223,224,22 5,226,227,228,229,230,231,232,233, 234,235,236,238,243,251,253,260,26 1,270,271,272,275,276,277,278,279, 280,281,282,283 JDIM2 Param 78 I(4) 4 scalar 169,170,172,173,174,191,192,193,19 4,195,196,197,198,199,200,201,210, 212,213,214,220,221,222,223,224,22 5,226,227,228,229,230,231,232,233, 234,235,236,238,243,251,253,260,26 1,270,271,272,275,276,277,278,279, 280,281,282,283 JGSTL Param 73 I(4) 4 scalar 78 JGSTR Param 73 I(4) 4 scalar 78 JM Param 61 I(4) 4 scalar 75,78,131,132,133,134,135,139,140, 145,148,266 JNPES Param 69 I(4) 4 scalar 75,78,115,116,117,126,127 JTAIL Param 75 I(4) 4 scalar JTB Param 82 I(4) 4 scalar 188,203 JTBQ Param 82 I(4) 4 scalar 203 KS Local 292 I(4) 4 scalar 292 KSMUD Param 148 I(4) 4 scalar 292 L Local 299 I(4) 4 scalar 299,321,326,327,337,338,339,340,34 6,347,348,349,365,366,373,396,398, 407,415,416,417,423,424,425,439,44 0,460,461,462,464,466,467,473,475 LM Param 61 I(4) 4 scalar 140,148,172,173,187,212,213,238,25 1,252,299 LP1 Param 148 I(4) 4 scalar 187 LSM Param 61 I(4) 4 scalar MAPPINGS Common 144 5024 SAVE MASKS Common 168 6894720 SAVE MPPCOM Common 89 1464 SAVE PHYS Common 182 1788916 SAVE PVRBLS Common 219 5530140 SAVE Q2DIF Local 282 R(4) 4 2 17955 317,358,373,384,391 Q2L Local 270 R(4) 4 2 17955 321,328 Q2NE Local 277 R(4) 4 2 17955 302,340,358,384,407 Q2SE Local 277 R(4) 4 2 17955 303,349,359,391,408 QDIF Local 280 R(4) 4 2 17955 314,356,366,383,390 QNE Local 276 R(4) 4 2 17955 304,339,356,383,398 QSE Local 276 R(4) 4 2 17955 305,348,357,390,399 RFCP Param 56 R(4) 4 scalar 473 SCQ2 Param 55 R(4) 4 scalar 328 SECOND Local 152 L(4) 4 scalar 289,362,436 SINGLRST Local 157 L(4) 4 scalar SQRT Func 329 scalar 329 STTDF Local 152 L(4) 4 scalar TDIF Local 280 R(4) 4 2 17955 313,354,365,382,389 TEMPCOM Common 130 6603768 SAVE TNE Local 275 R(4) 4 2 17955 306,338,354,382,396 TOPO Common 138 17478548 SAVE TSE Local 275 R(4) 4 2 17955 307,347,355,389,397 Page 9 Source Listing HDIFF 2025-03-12 18:22 Symbol Table HDIFF.F Name Object Declared Type Bytes Dimen Elements Attributes References UDIF Local 281 R(4) 4 2 17955 315,430,439,448,454 UNE Local 278 R(4) 4 2 17955 308,416,430,448,462 USE Local 278 R(4) 4 2 17955 309,424,431,454,463 UT Local 270 R(4) 4 2 17955 UTK Local 460 R(4) 4 scalar 460,466 VDIF Local 281 R(4) 4 2 17955 316,432,440,449,455 VKNE Local 272 R(4) 4 2 17955 414,416,417,448,449 VKSE Local 272 R(4) 4 2 17955 422,424,425,454,455 VNE Local 279 R(4) 4 2 17955 311,417,432,449,464 VRBLS Common 209 13143060 SAVE VSE Local 279 R(4) 4 2 17955 310,312,425,433,455,465 VTK Local 461 R(4) 4 scalar 461,467 ZERO2 Subr 301 301,302,303,304,305,306,307,308,30 9,310,311,312,313,314,315,316,317 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 264 1 45 COM AFSI R(4) 4 5458320 2 17955 COM AKHS R(4) 4 646380 2 17955 COM AKMS R(4) 4 574560 2 17955 COM ALBASE R(4) 4 1009004 2 17955 COM ALBEDO R(4) 4 1080824 2 17955 COM CI R(4) 4 40 scalar COM CLDEFI R(4) 4 1077300 2 17955 COM CNVBOT R(4) 4 721724 2 17955 COM CNVTOP R(4) 4 649904 2 17955 COM CS R(4) 4 28 scalar COM CUPREC R(4) 4 1364580 2 17955 COM CWM R(4) 4 0 3 807975 COM CZEN R(4) 4 434444 2 17955 COM CZMEAN R(4) 4 1296284 2 17955 COM DETA R(4) 4 84 1 45 COM DFRLG R(4) 4 444 1 46 COM DI R(4) 4 44 scalar COM DS R(4) 4 32 scalar COM DT R(4) 4 48 scalar COM DTD R(4) 4 16 scalar COM DTQ2 R(4) 4 8 scalar COM EPSR R(4) 4 75344 2 17955 COM FIRST L(4) 4 24 scalar COM FIS R(4) 4 12999420 2 17955 COM G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GFFC R(4) 4 865364 2 17955 COM GLAT R(4) 4 290804 2 17955 COM GLON R(4) 4 362624 2 17955 COM HBM2 R(4) 4 6751080 2 17955 COM 329,474 HBM3 R(4) 4 6822900 2 17955 COM HBOT R(4) 4 578084 2 17955 COM Page 10 Source Listing HDIFF 2025-03-12 18:22 Symbol Table HDIFF.F Name Type Bytes Offset Dimen Elements Attributes References HDAC R(4) 4 1152644 2 17955 COM 355,357,359,397,399,408 HDACV R(4) 4 1224464 2 17955 COM 431,433,463,465 HTM R(4) 4 287280 3 807975 COM 337,346 HTMG R(4) 4 743768 3 4183695 COM HTOP R(4) 4 506264 2 17955 COM IBROW I(4) 4 404 scalar COM 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 326,327,336,337,338,339,340,345,34 6,347,348,349,382,383,384,389,390, 391,473 IHEG I(4) 4 0 1 387 COM IHRST I(4) 4 20 scalar COM IHW I(4) 4 1596 1 399 COM 326,327,354,355,356,357,358,359,39 6,397,398,399,407,408,474 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 414,415,416,417,422,423,424,425,44 8,449,454,455 IVEG I(4) 4 3096 1 387 COM IVW I(4) 4 4788 1 399 COM 430,431,432,433,462,463,464,465 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 Page 11 Source Listing HDIFF 2025-03-12 18:22 Symbol Table HDIFF.F Name Type Bytes Offset Dimen Elements Attributes References 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 KTM I(4) 4 0 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 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 MXSNAL R(4) 4 3524 2 17955 COM MYIE I(4) 4 52 scalar COM 353 MYIE1 I(4) 4 56 scalar COM 364,372,381,388,395,406,429,438,44 7,453,459,472 MYIE1_P1 I(4) 4 120 scalar COM 325,335,344,413,421 MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM 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 320 MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM 381,388,429,447,453 MYIS1 I(4) 4 44 scalar COM 353,364,372,395,406,438,459,472 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 320,325,335,344,413,421 MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM 387,452 MYJE1 I(4) 4 240 scalar COM 352,380,428,446 MYJE1_P1 I(4) 4 280 scalar COM 324,334,412 MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM 363,371,394,405,437,458,471 MYJE2_P1 I(4) 4 296 scalar COM 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 Page 12 Source Listing HDIFF 2025-03-12 18:22 Symbol Table HDIFF.F Name Type Bytes Offset Dimen Elements Attributes References 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 319,343,420 MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 380,446 MYJS1 I(4) 4 144 scalar COM 352,387,428,452 MYJS1_P1 I(4) 4 184 scalar COM 324,343,420 MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM 363,371,394,405,437,458,471 MYJS2_P1 I(4) 4 200 scalar COM 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 319,334,412 MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM 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 Page 13 Source Listing HDIFF 2025-03-12 18:22 Symbol Table HDIFF.F Name Type Bytes Offset Dimen Elements Attributes References 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 PD R(4) 4 0 2 17955 COM PL R(4) 4 48 scalar COM PLQ R(4) 4 72 scalar COM PREC R(4) 4 1149120 2 17955 COM PSHLTR R(4) 4 2154600 2 17955 COM PT R(4) 4 4 scalar COM PTBL R(4) 4 1439924 2 10184 COM Q R(4) 4 9767520 3 807975 COM 339,348,366,398 Q10 R(4) 4 1795500 2 17955 COM Q2 R(4) 4 2226420 3 807975 COM 321,340,349,373,407 Q30 R(4) 4 1508220 2 17955 COM QS R(4) 4 502740 2 17955 COM QS0 R(4) 4 628 1 134 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 RADIN R(4) 4 147164 2 17955 COM RADOT R(4) 4 218984 2 17955 COM RDP R(4) 4 64 scalar COM RDPQ R(4) 4 76 scalar COM RDQ R(4) 4 56 scalar COM RDTH R(4) 4 60 scalar COM RDTHE R(4) 4 68 scalar COM RDTHEQ R(4) 4 80 scalar COM RES R(4) 4 13071240 2 17955 COM RESTRT L(4) 4 28 scalar COM RF R(4) 4 718200 2 17955 COM ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM 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 SIGT4 R(4) 4 1368104 2 17955 COM SM R(4) 4 143640 2 17955 COM SNO R(4) 4 933660 2 17955 COM SQS R(4) 4 1164 1 134 COM SR R(4) 4 3375900 2 17955 COM SST R(4) 4 937184 2 17955 COM STHE R(4) 4 2004 1 76 COM STHEQ R(4) 4 2916 1 152 COM SUBPOST L(4) 4 104 scalar COM T R(4) 4 71820 3 807975 COM 338,347,365,396,473,475 Page 14 Source Listing HDIFF 2025-03-12 18:22 Symbol Table HDIFF.F Name Type Bytes Offset Dimen Elements Attributes References TDTD R(4) 4 20 scalar COM TDTQ2 R(4) 4 12 scalar COM 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 TG R(4) 4 793544 2 17955 COM TH10 R(4) 4 1723680 2 17955 COM TH30 R(4) 4 1436400 2 17955 COM THE0 R(4) 4 1700 1 76 COM THE0Q R(4) 4 2308 1 152 COM THL R(4) 4 52 scalar 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 TTBL R(4) 4 1480660 2 10184 COM TTBLQ R(4) 4 1521396 2 66880 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 326,327,416,424,439,460,462,466 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 326,327,417,425,440,461,464,467 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 VTM R(4) 4 3519180 3 807975 COM 415,423 VZ0 R(4) 4 215460 2 17955 COM Z0 R(4) 4 0 2 17955 COM Page 15 Source Listing HDIFF 2025-03-12 18:22 HDIFF.F 485 Page 16 Source Listing HDIFF 2025-03-12 18:22 Subprograms/Common Blocks HDIFF.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 250 3447720 SAVE CTLBLK Common 159 112 SAVE GLB_TABLE Common 125 128 SAVE HDIFF Subr 3 INDX Common 259 6564 SAVE INDXG Common 265 8084 SAVE MAPPINGS Common 144 5024 SAVE MASKS Common 168 6894720 SAVE MPPCOM Common 89 1464 SAVE PHYS Common 182 1788916 SAVE PVRBLS Common 219 5530140 SAVE TEMPCOM Common 130 6603768 SAVE TOPO Common 138 17478548 SAVE VRBLS Common 209 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 -check noformat -check nooutput_conversion Page 17 Source Listing HDIFF 2025-03-12 18:22 HDIFF.F -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 -g2 -iface nomixed_str_len_arg Page 18 Source Listing HDIFF 2025-03-12 18:22 HDIFF.F -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 : HDIFF.lst no -o COMPILER: Intel(R) Fortran 19.1-1655