Page 1 Source Listing HDIFF 2014-12-17 20:47 /tmpnwprd/iforts4mCQM.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 2014-12-17 20:47 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 2014-12-17 20:47 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 2014-12-17 20:47 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 2014-12-17 20:47 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 2014-12-17 20:47 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 135 132,133 220 Label 145 137,138 250 Label 154 147,148 260 Label 163 156,157 270 Label 173 165,166 280 Label 180 176,177 290 Label 187 184,185 310 Label 198 193,194 320 Label 205 200,201 330 Label 214 207,208 340 Label 222 218,219 360 Label 225 190 410 Label 231 225,226 420 Label 239 233,234 430 Label 247 241,242 440 Label 254 250,251 450 Label 263 259,260 460 Label 269 265,266 470 Label 281 271,272 480 Label 289 284,285 500 Label 293 112 600 Label 294 105 ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACPREC Scalar 12 R(4) 4 2 17955 COM AETA Scalar 9 R(4) 4 1 45 COM AFSI Scalar 26 R(4) 4 2 17955 COM AKHS Scalar 7 R(4) 4 2 17955 COM AKMS Scalar 7 R(4) 4 2 17955 COM Page 7 Source Listing HDIFF 2014-12-17 20:47 Symbol Table HDIFF.F Name Object Declared Type Bytes Dimen Elements Attributes References ALBASE Scalar 20 R(4) 4 2 17955 COM ALBEDO Scalar 21 R(4) 4 2 17955 COM AMAX1 Func 134 scalar 134,143 CI Scalar 6 R(4) 4 scalar COM CKE Local 96 R(4) 4 2 17955 279,286,287 CLDEFI Scalar 11 R(4) 4 2 17955 COM CLDWTR Common 2 3447720 CNVBOT Scalar 18 R(4) 4 2 17955 COM CNVTOP Scalar 18 R(4) 4 2 17955 COM CS Scalar 6 R(4) 4 scalar COM CTLBLK Common 4 112 CUPREC Scalar 13 R(4) 4 2 17955 COM CWM Scalar 3 R(4) 4 3 807975 COM CZEN Scalar 16 R(4) 4 2 17955 COM CZMEAN Scalar 23 R(4) 4 2 17955 COM DEF Local 96 R(4) 4 2 17955 114,141,142,143,149,158,227,235 DEFC Param 54 R(4) 4 scalar 143 DEFM Param 54 R(4) 4 scalar DEFSK Local 140 R(4) 4 scalar 140,141 DEFTK Local 139 R(4) 4 scalar 139,141 DETA Scalar 9 R(4) 4 1 45 COM DFRLG Scalar 9 R(4) 4 1 46 COM DI Scalar 6 R(4) 4 scalar COM DS Scalar 6 R(4) 4 scalar COM DT Scalar 6 R(4) 4 scalar COM DTD Scalar 5 R(4) 4 scalar COM DTQ2 Scalar 5 R(4) 4 scalar COM EPSQ2 Param 55 R(4) 4 scalar 134 EPSR Scalar 13 R(4) 4 2 17955 COM FCDIF Param 55 R(4) 4 scalar 170,213 FIRST Scalar 66 L(4) 4 scalar COM FIS Scalar 7 R(4) 4 2 17955 COM G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GFFC Scalar 19 R(4) 4 2 17955 COM GLAT Scalar 15 R(4) 4 2 17955 COM GLB_TABLE Common 37 128 GLON Scalar 15 R(4) 4 2 17955 COM HBM2 Scalar 8 R(4) 4 2 17955 COM 142,287 HBM3 Scalar 8 R(4) 4 2 17955 COM HBOT Scalar 17 R(4) 4 2 17955 COM HDAC Scalar 22 R(4) 4 2 17955 COM 168,170,172,210,212,221 HDACV Scalar 22 R(4) 4 2 17955 COM 244,246,276,278 HDIFF Subr 2 HEAT Local 67 L(4) 4 scalar 103,283 HKNE Local 84 R(4) 4 2 17955 149,151,152,153,195,196,197 HKSE Local 84 R(4) 4 2 17955 158,160,161,162,202,203,204 HTM Scalar 6 R(4) 4 3 807975 COM 150,159 HTMG Scalar 52 R(4) 4 3 4183695 COM HTOP Scalar 17 R(4) 4 2 17955 COM I Local 133 I(4) 4 scalar 133,134,138,139,140,141,142,143,14 8,149,150,151,152,153,157,158,159, 160,161,162,166,167,168,169,170,17 1,172,177,178,179,185,186,194,195, 196,197,201,202,203,204,208,209,21 Page 8 Source Listing HDIFF 2014-12-17 20:47 Symbol Table HDIFF.F Name Object Declared Type Bytes Dimen Elements Attributes References 0,211,212,219,220,221,226,227,228, 229,230,234,235,236,237,238,242,24 3,244,245,246,251,252,253,260,261, 262,266,267,268,272,273,274,275,27 6,277,278,279,280,285,286,287,288 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM IDIM1 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,83,84,85, 88,89,90,91,92,93,94,95,96 IDIM2 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,83,84,85, 88,89,90,91,92,93,94,95,96 IDTAD Scalar 6 I(4) 4 scalar COM IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHE Scalar 3 I(4) 4 1 399 COM 139,140,149,150,151,152,153,158,15 9,160,161,162,195,196,197,202,203, 204,286 IHEG Scalar 9 I(4) 4 1 387 COM IHRST Scalar 5 I(4) 4 scalar COM IHW Scalar 3 I(4) 4 1 399 COM 139,140,167,168,169,170,171,172,20 9,210,211,212,220,221,287 IHWG Scalar 9 I(4) 4 1 387 COM ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 9,16,19,43,44,45,46,47,51,52,57,63 IMJM Param 63 I(4) 4 scalar INDX Common 2 6564 INDXG Common 8 8084 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Scalar 5 I(4) 4 scalar COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRAD Scalar 5 I(4) 4 1 45 COM IRADG Scalar 9 I(4) 4 1 473 COM IRCOL Scalar 22 I(4) 4 scalar COM IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 10,25 ITBQ Param 1 I(4) 4 scalar 11,25 ITEMP Scalar 47 I(4) 4 2 91719 COM Page 9 Source Listing HDIFF 2014-12-17 20:47 Symbol Table HDIFF.F Name Object Declared Type Bytes Dimen Elements Attributes References ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM IVE Scalar 4 I(4) 4 1 399 COM 227,228,229,230,235,236,237,238,26 1,262,267,268 IVEG Scalar 9 I(4) 4 1 387 COM IVW Scalar 4 I(4) 4 1 399 COM 243,244,245,246,275,276,277,278 IVWG Scalar 9 I(4) 4 1 387 COM J Local 132 I(4) 4 scalar 132,134,137,139,140,141,142,143,14 7,149,150,151,152,153,156,158,159, 160,161,162,165,167,168,169,170,17 1,172,176,178,179,184,186,193,195, 196,197,200,202,203,204,207,209,21 0,211,212,218,220,221,225,227,228, 229,230,233,235,236,237,238,241,24 3,244,245,246,250,252,253,259,261, 262,265,267,268,271,273,274,275,27 6,277,278,279,280,284,286,287,288 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,83,84,85, 88,89,90,91,92,93,94,95,96 JDIM2 Param 20 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,83,84,85, 88,89,90,91,92,93,94,95,96 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JM Param 3 I(4) 4 scalar 9,17,20,43,44,45,46,47,51,52,57,63 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTB Param 1 I(4) 4 scalar 10,25 JTBQ Param 1 I(4) 4 scalar 25 JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM KS Local 105 I(4) 4 scalar 105 KSMUD Param 63 I(4) 4 scalar 105 KTM Scalar 5 I(4) 4 scalar COM L Local 112 I(4) 4 scalar 112,134,139,140,150,151,152,153,15 9,160,161,162,178,179,186,209,211, 220,228,229,230,236,237,238,252,25 3,273,274,275,277,279,280,286,288 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LC Scalar 5 I(4) 4 2 17955 COM LIST Scalar 5 I(4) 4 scalar COM Page 10 Source Listing HDIFF 2014-12-17 20:47 Symbol Table HDIFF.F Name Object Declared Type Bytes Dimen Elements Attributes References LM Param 3 I(4) 4 scalar 3,4,5,6,7,9,21,52,63,112 LP1 Param 63 I(4) 4 scalar 9 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPPCOM Common 1 1464 MXSNAL Scalar 2 R(4) 4 2 17955 COM MYIE Scalar 4 I(4) 4 scalar COM 166 MYIE1 Scalar 4 I(4) 4 scalar COM 177,185,194,201,208,219,242,251,26 0,266,272,285 MYIE1_P1 Scalar 8 I(4) 4 scalar COM 138,148,157,226,234 MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM 133 MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 194,201,242,260,266 MYIS1 Scalar 4 I(4) 4 scalar COM 166,177,185,208,219,251,272,285 MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM 133,138,148,157,226,234 MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 200,265 MYJE1 Scalar 15 I(4) 4 scalar COM 165,193,241,259 MYJE1_P1 Scalar 17 I(4) 4 scalar COM 137,147,225 MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM 176,184,207,218,250,271,284 MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM Page 11 Source Listing HDIFF 2014-12-17 20:47 Symbol Table HDIFF.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE_P1 Scalar 16 I(4) 4 scalar COM 132,156,233 MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 193,259 MYJS1 Scalar 10 I(4) 4 scalar COM 165,200,241,265 MYJS1_P1 Scalar 12 I(4) 4 scalar COM 137,156,233 MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM 176,184,207,218,250,271,284 MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM 132,147,225 MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NBC Scalar 5 I(4) 4 scalar COM NBOCO Scalar 6 I(4) 4 scalar COM NCNVC Scalar 7 I(4) 4 scalar COM NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 7 I(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM NPHS Scalar 7 I(4) 4 scalar COM Page 12 Source Listing HDIFF 2014-12-17 20:47 Symbol Table HDIFF.F Name Object Declared Type Bytes Dimen Elements Attributes References NPREC Scalar 6 I(4) 4 scalar COM NRADL Scalar 7 I(4) 4 scalar COM NRADS Scalar 7 I(4) 4 scalar COM NSHDE Scalar 6 I(4) 4 scalar COM NSTART Scalar 6 I(4) 4 scalar COM NTDDMP Scalar 6 I(4) 4 scalar COM NTSD Scalar 6 I(4) 4 scalar COM NTSTM Scalar 6 I(4) 4 scalar COM PD Scalar 3 R(4) 4 2 17955 COM PHYS Common 4 1788916 PL Scalar 7 R(4) 4 scalar COM PLQ Scalar 8 R(4) 4 scalar COM PREC Scalar 12 R(4) 4 2 17955 COM PSHLTR Scalar 19 R(4) 4 2 17955 COM PT Scalar 5 R(4) 4 scalar COM PTBL Scalar 25 R(4) 4 2 10184 COM PVRBLS Common 2 5530140 Q Scalar 6 R(4) 4 3 807975 COM 152,161,179,211 Q10 Scalar 16 R(4) 4 2 17955 COM Q2 Scalar 21 R(4) 4 3 807975 COM 134,153,162,186,220 Q2DIF Local 95 R(4) 4 2 17955 130,171,186,197,204 Q2L Local 83 R(4) 4 2 17955 134,141 Q2NE Local 90 R(4) 4 2 17955 115,153,171,197,220 Q2SE Local 90 R(4) 4 2 17955 116,162,172,204,221 Q30 Scalar 14 R(4) 4 2 17955 COM QDIF Local 93 R(4) 4 2 17955 127,169,179,196,203 QNE Local 89 R(4) 4 2 17955 117,152,169,196,211 QS Scalar 6 R(4) 4 2 17955 COM QS0 Scalar 10 R(4) 4 1 134 COM QSE Local 89 R(4) 4 2 17955 118,161,170,203,212 QSHLTR Scalar 18 R(4) 4 2 17955 COM QWBS Scalar 9 R(4) 4 2 17955 COM QZ0 Scalar 5 R(4) 4 2 17955 COM RADIN Scalar 14 R(4) 4 2 17955 COM RADOT Scalar 14 R(4) 4 2 17955 COM RDP Scalar 7 R(4) 4 scalar COM RDPQ Scalar 8 R(4) 4 scalar COM RDQ Scalar 7 R(4) 4 scalar COM RDTH Scalar 7 R(4) 4 scalar COM RDTHE Scalar 7 R(4) 4 scalar COM RDTHEQ Scalar 8 R(4) 4 scalar COM RES Scalar 7 R(4) 4 2 17955 COM RESTRT Scalar 66 L(4) 4 scalar COM RF Scalar 8 R(4) 4 2 17955 COM RFCP Param 55 R(4) 4 scalar 286 ROI Scalar 6 R(4) 4 scalar COM ROS Scalar 6 R(4) 4 scalar COM RUN Scalar 66 L(4) 4 scalar COM SCQ2 Param 54 R(4) 4 scalar 141 SECOND Local 67 L(4) 4 scalar 102,175,249 SI Scalar 10 R(4) 4 2 17955 COM SICE Scalar 4 R(4) 4 2 17955 COM SIGMA Scalar 66 L(4) 4 scalar COM SIGT4 Scalar 23 R(4) 4 2 17955 COM SINGLRST Local 2 L(4) 4 scalar Page 13 Source Listing HDIFF 2014-12-17 20:47 Symbol Table HDIFF.F Name Object Declared Type Bytes Dimen Elements Attributes References SM Scalar 4 R(4) 4 2 17955 COM SNO Scalar 10 R(4) 4 2 17955 COM SQRT Func 142 scalar 142 SQS Scalar 10 R(4) 4 1 134 COM SR Scalar 5 R(4) 4 2 17955 COM SST Scalar 20 R(4) 4 2 17955 COM STHE Scalar 10 R(4) 4 1 76 COM STHEQ Scalar 11 R(4) 4 1 152 COM STTDF Local 67 L(4) 4 scalar SUBPOST Scalar 2 L(4) 4 scalar COM T Scalar 5 R(4) 4 3 807975 COM 151,160,178,209,286,288 TDIF Local 93 R(4) 4 2 17955 126,167,178,195,202 TDTD Scalar 5 R(4) 4 scalar COM TDTQ2 Scalar 5 R(4) 4 scalar COM TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TG Scalar 19 R(4) 4 2 17955 COM TH10 Scalar 16 R(4) 4 2 17955 COM TH30 Scalar 14 R(4) 4 2 17955 COM THE0 Scalar 10 R(4) 4 1 76 COM THE0Q Scalar 11 R(4) 4 1 152 COM THL Scalar 7 R(4) 4 scalar COM THS Scalar 6 R(4) 4 2 17955 COM THZ0 Scalar 5 R(4) 4 2 17955 COM TNE Local 88 R(4) 4 2 17955 119,151,167,195,209 TOPO Common 50 17478548 TSE Local 88 R(4) 4 2 17955 120,160,168,202,210 TSHLTR Scalar 18 R(4) 4 2 17955 COM TTBL Scalar 25 R(4) 4 2 10184 COM TTBLQ Scalar 25 R(4) 4 2 66880 COM TTVG Scalar 51 R(4) 4 2 92971 COM TWBS Scalar 9 R(4) 4 2 17955 COM U Scalar 5 R(4) 4 3 807975 COM 139,140,229,237,252,273,275,279 U00 Scalar 3 R(4) 4 2 17955 COM U10 Scalar 17 R(4) 4 2 17955 COM U30 Scalar 15 R(4) 4 2 17955 COM UDIF Local 94 R(4) 4 2 17955 128,243,252,261,267 UL Scalar 4 R(4) 4 1 90 COM UNE Local 91 R(4) 4 2 17955 121,229,243,261,275 Page 14 Source Listing HDIFF 2014-12-17 20:47 Symbol Table HDIFF.F Name Object Declared Type Bytes Dimen Elements Attributes References USE Local 91 R(4) 4 2 17955 122,237,244,267,276 USTAR Scalar 3 R(4) 4 2 17955 COM UT Local 83 R(4) 4 2 17955 UTK Local 273 R(4) 4 scalar 273,279 UZ0 Scalar 4 R(4) 4 2 17955 COM V Scalar 6 R(4) 4 3 807975 COM 139,140,230,238,253,274,277,280 V10 Scalar 17 R(4) 4 2 17955 COM V30 Scalar 15 R(4) 4 2 17955 COM VBM2 Scalar 3 R(4) 4 2 17955 COM VBM3 Scalar 3 R(4) 4 2 17955 COM VDIF Local 94 R(4) 4 2 17955 129,245,253,262,268 VKNE Local 85 R(4) 4 2 17955 227,229,230,261,262 VKSE Local 85 R(4) 4 2 17955 235,237,238,267,268 VNE Local 92 R(4) 4 2 17955 124,230,245,262,277 VRBLS Common 2 13143060 VSE Local 92 R(4) 4 2 17955 123,125,238,246,268,278 VTK Local 274 R(4) 4 scalar 274,280 VTM Scalar 7 R(4) 4 3 807975 COM 228,236 VZ0 Scalar 4 R(4) 4 2 17955 COM Z0 Scalar 3 R(4) 4 2 17955 COM ZERO2 Subr 114 114,115,116,117,118,119,120,121,12 2,123,124,125,126,127,128,129,130 Page 15 Source Listing HDIFF 2014-12-17 20:47 HDIFF.F 485 Page 16 Source Listing HDIFF 2014-12-17 20:47 Subprograms/Common Blocks HDIFF.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 2 3447720 CTLBLK Common 4 112 GLB_TABLE Common 37 128 HDIFF Subr 2 INDX Common 2 6564 INDXG Common 8 8084 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPPCOM Common 1 1464 PHYS Common 4 1788916 PVRBLS Common 2 5530140 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 VRBLS Common 2 13143060 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 Page 17 Source Listing HDIFF 2014-12-17 20:47 HDIFF.F -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ Page 18 Source Listing HDIFF 2014-12-17 20:47 HDIFF.F -list filename : HDIFF.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100