Page 1 Source Listing PGCOR 2025-03-12 18:22 /tmp/ifortPhVPgA.i 1 # 1 "PGCOR.F" 2 SUBROUTINE PGCOR 3 C ****************************************************************** 4 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 5 C . . . 6 C SUBPROGRAM: PGCOR PRESSURE GRADIENT/CORIOLIS CALC 7 C PRGRMMR: JANJIC ORG: W/NP22 DATE: 93-10-28 8 C 9 C ABSTRACT: 10 C PGCOR CALCULATES THE PRESSURE GRADIENT FORCE, UPDATES THE 11 C VELOCITY COMPONENTS DUE TO THE EFFECT OF THE PRESSURE GRADIENT 12 C AND CORIOLIS FORCES. 13 C 14 C PROGRAM HISTORY LOG: 15 C 87-06-?? JANJIC - ORIGINATOR 16 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL 17 C 96-03-29 BLACK - ADDED EXTERNAL EDGE 18 C 97-03-17 MESINGER - SPLIT FROM PFDHT 19 C 98-10-28 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 20 C 21 C USAGE: CALL PFDHT FROM MAIN PROGRAM EBU 22 C INPUT ARGUMENT LIST: 23 C NONE 24 C 25 C OUTPUT ARGUMENT LIST: 26 C NONE 27 C 28 C OUTPUT FILES: 29 C NONE 30 C 31 C SUBPROGRAMS CALLED: 32 C 33 C UNIQUE: NONE 34 C 35 C LIBRARY: NONE 36 C 37 C COMMON BLOCKS: CTLBLK 38 C MASKS 39 C DYNAM 40 C VRBLS 41 C CONTIN 42 C INDX 43 C 44 C ATTRIBUTES: 45 C LANGUAGE: FORTRAN 90 46 C MACHINE : IBM SP 47 C$$$ 48 C*********************************************************************** 49 INCLUDE "parmeta" 73 INCLUDE "mpp.h" 74 # 1 "./sp.h" 1 75 # 4 76 77 # 51 "PGCOR.F" 2 78 C----------------------------------------------------------------------- 137 P A R A M E T E R 138 & (IMJM=IM*JM-JM/2,JAM=6+2*(JM-10),LP1=LM+1) Page 2 Source Listing PGCOR 2025-03-12 18:22 PGCOR.F 139 C----------------------------------------------------------------------- 140 L O G I C A L 141 & RUN,FIRST,RESTRT,SIGMA 142 C---------------------------------------------------------------------- 143 INCLUDE "CTLBLK.comm" 144 C----------------------------------------------------------------------- 154 INCLUDE "MASKS.comm" 155 C----------------------------------------------------------------------- 166 INCLUDE "DYNAM.comm" 167 C----------------------------------------------------------------------- 183 INCLUDE "VRBLS.comm" 193 INCLUDE "PVRBLS.comm" 223 INCLUDE "CLDWTR.comm" 224 C----------------------------------------------------------------------- 232 INCLUDE "CONTIN.comm" 233 C----------------------------------------------------------------------- 243 INCLUDE "INDX.comm" 244 C----------------------------------------------------------------------- 256 D I M E N S I O N 257 & FILO (IDIM1:IDIM2,JDIM1:JDIM2),RDPD (IDIM1:IDIM2,JDIM1:JDIM2) 258 &,ADPDX (IDIM1:IDIM2,JDIM1:JDIM2),RDPDX (IDIM1:IDIM2,JDIM1:JDIM2) 259 &,ADPDY (IDIM1:IDIM2,JDIM1:JDIM2),RDPDY (IDIM1:IDIM2,JDIM1:JDIM2) 260 &,FIUP (IDIM1:IDIM2,JDIM1:JDIM2),ADPDNE(IDIM1:IDIM2,JDIM1:JDIM2) 261 &,ADPDSE(IDIM1:IDIM2,JDIM1:JDIM2) 262 &,PEW (IDIM1:IDIM2,JDIM1:JDIM2),PNS (IDIM1:IDIM2,JDIM1:JDIM2) 263 &,PCEW (IDIM1:IDIM2,JDIM1:JDIM2),PCNS (IDIM1:IDIM2,JDIM1:JDIM2) 264 &,DPFEW (IDIM1:IDIM2,JDIM1:JDIM2),DPFNS (IDIM1:IDIM2,JDIM1:JDIM2) 265 &,FNS (IDIM1:IDIM2,JDIM1:JDIM2),TNS (IDIM1:IDIM2,JDIM1:JDIM2) 266 &,DPNE (IDIM1:IDIM2,JDIM1:JDIM2),DPSE (IDIM1:IDIM2,JDIM1:JDIM2) 267 &,DCNE (IDIM1:IDIM2,JDIM1:JDIM2),DCSE (IDIM1:IDIM2,JDIM1:JDIM2) 268 &,DPFNE (IDIM1:IDIM2,JDIM1:JDIM2),DPFSE (IDIM1:IDIM2,JDIM1:JDIM2) 269 &,VM (IDIM1:IDIM2,JDIM1:JDIM2),F0 (IDIM1:IDIM2,JDIM1:JDIM2) 270 &,UP (IDIM1:IDIM2,JDIM1:JDIM2),VP (IDIM1:IDIM2,JDIM1:JDIM2) 271 &,PVNE (IDIM1:IDIM2,JDIM1:JDIM2),PVSE (IDIM1:IDIM2,JDIM1:JDIM2) 272 &,HM (IDIM1:IDIM2,JDIM1:JDIM2) 273 C 274 D I M E N S I O N 275 & DPDE(IDIM1:IDIM2,JDIM1:JDIM2),FIM (IDIM1:IDIM2,JDIM1:JDIM2) 276 &,APEL(IDIM1:IDIM2,JDIM1:JDIM2),PCXC(IDIM1:IDIM2,JDIM1:JDIM2) 277 &,UDY (IDIM1:IDIM2,JDIM1:JDIM2),VDX (IDIM1:IDIM2,JDIM1:JDIM2) 278 &,TEW (IDIM1:IDIM2,JDIM1:JDIM2),FEW (IDIM1:IDIM2,JDIM1:JDIM2) 279 &,TNE (IDIM1:IDIM2,JDIM1:JDIM2),TSE (IDIM1:IDIM2,JDIM1:JDIM2) 280 &,FNE (IDIM1:IDIM2,JDIM1:JDIM2),FSE (IDIM1:IDIM2,JDIM1:JDIM2) 281 &,PNE (IDIM1:IDIM2,JDIM1:JDIM2),PSE (IDIM1:IDIM2,JDIM1:JDIM2) 282 &,CNE (IDIM1:IDIM2,JDIM1:JDIM2),CSE (IDIM1:IDIM2,JDIM1:JDIM2) 283 &,PPNE(IDIM1:IDIM2,JDIM1:JDIM2),PPSE(IDIM1:IDIM2,JDIM1:JDIM2) 284 &,PCNE(IDIM1:IDIM2,JDIM1:JDIM2),PCSE(IDIM1:IDIM2,JDIM1:JDIM2) 285 C----------------------------------------------------------------------- 286 C----------------------------------------------------------------------- 287 CALL ZERO2(DPDE) 288 CALL ZERO2(FIM) 289 CALL ZERO2(APEL) 290 CALL ZERO2(PCXC) 291 CALL ZERO2(UDY) 292 CALL ZERO2(VDX) 293 CALL ZERO2(TEW) 294 CALL ZERO2(FEW) Page 3 Source Listing PGCOR 2025-03-12 18:22 PGCOR.F 295 CALL ZERO2(TNE) 296 CALL ZERO2(TSE) 297 CALL ZERO2(FNE) 298 CALL ZERO2(FSE) 299 CALL ZERO2(PNE) 300 CALL ZERO2(CNE) 301 CALL ZERO2(PSE) 302 CALL ZERO2(CSE) 303 CALL ZERO2(PPNE) 304 CALL ZERO2(PCNE) 305 CALL ZERO2(PPSE) 306 CALL ZERO2(PCSE) 307 call zero2(pdsl) 308 call zero2(adpdne) 309 C----------------------------------------------------------------------- 310 C--------------PREPARATORY CALCULATIONS--------------------------------- 311 C----------------------------------------------------------------------- 312 IF(SIGMA)THEN 313 !$omp parallel do 314 DO 50 J=MYJS_P4,MYJE_P4 315 DO 50 I=MYIS_P4,MYIE_P4 316 FILO(I,J)=FIS(I,J) 317 PDSL(I,J)=PD(I,J) 318 50 CONTINUE 319 ELSE 320 !$omp parallel do 321 DO 100 J=MYJS_P4,MYJE_P4 322 DO 100 I=MYIS_P4,MYIE_P4 323 FILO(I,J)=0. 324 PDSL(I,J)=RES(I,J)*PD(I,J) 325 100 CONTINUE 326 ENDIF 327 C 328 !$omp parallel do 329 DO J=MYJS_P4,MYJE_P4 330 DO I=MYIS_P4,MYIE_P4 331 ADPDX(I,J)=0. 332 ADPDY(I,J)=0. 333 ENDDO 334 ENDDO 335 C--------------MAIN VERTICAL INTEGRATION LOOP--------------------------- 336 DO 400 L=LM,1,-1 337 C----------------------------------------------------------------------- 338 !$omp parallel do 339 DO 210 J=MYJS_P4,MYJE_P4 340 DO 210 I=MYIS_P4,MYIE_P4 341 DPDE(I,J)=DETA(L)*PDSL(I,J) 342 210 CONTINUE 343 C 344 !$omp parallel do 345 DO 215 J=MYJS,MYJE 346 DO 215 I=MYIS,MYIE 347 RDPD(I,J)=1./DPDE(I,J) 348 215 CONTINUE 349 C 350 !$omp parallel do 351 DO 220 J=MYJS1_P2,MYJE1_P2 Page 4 Source Listing PGCOR 2025-03-12 18:22 PGCOR.F 352 DO 220 I=MYIS_P2,MYIE1_P2 353 ADPDX(I,J)=DPDE(I+IVW(J),J)+DPDE(I+IVE(J),J) 354 ADPDY(I,J)=DPDE(I,J-1)+DPDE(I,J+1) 355 RDPDX(I,J)=1./ADPDX(I,J) 356 RDPDY(I,J)=1./ADPDY(I,J) 357 220 CONTINUE 358 C----------------------------------------------------------------------- 359 !$omp parallel do 360 DO 230 J=MYJS_P4,MYJE_P4 361 DO 230 I=MYIS_P4,MYIE_P4 362 APEL(I,J)=PT+AETA(L)*PDSL(I,J) 363 RTOP(I,J,L)=R*T(I,J,L)*(1.+0.608*Q(I,J,L))/APEL(I,J) 364 FIUPK=FILO(I,J)+RTOP(I,J,L)*DPDE(I,J) 365 FIM(I,J)=FILO(I,J)+FIUPK 366 FILO(I,J)=DFL(L)+HTM(I,J,L)*(FIUPK-DFL(L)) 367 230 CONTINUE 368 C--------------DIAGONAL CONTRIBUTIONS TO PRESSURE GRADIENT FORCE-------- 369 !$omp parallel do 370 DO 240 J=MYJS_P3,MYJE_P3 371 DO 240 I=MYIS_P3,MYIE_P3 372 ADPDNE(I,J)=DPDE(I+IHE(J),J+1)+DPDE(I,J) 373 PNE(I,J)=2.*(FIM(I+IHE(J),J+1)-FIM(I,J)) 374 PPNE(I,J)=PNE(I,J)*ADPDNE(I,J) 375 CNE(I,J)=2.*(RTOP(I+IHE(J),J+1,L)+RTOP(I,J,L)) 376 1 *(APEL(I+IHE(J),J+1)-APEL(I,J)) 377 PCNE(I,J)=CNE(I,J)*ADPDNE(I,J) 378 240 CONTINUE 379 C 380 !$omp parallel do 381 DO 250 J=MYJS1_P3,MYJE_P3 382 DO 250 I=MYIS_P3,MYIE1_P3 383 ADPDSE(I,J)=DPDE(I+IHE(J),J-1)+DPDE(I,J) 384 PSE(I,J)=2.*(FIM(I+IHE(J),J-1)-FIM(I,J)) 385 PPSE(I,J)=PSE(I,J)*ADPDSE(I,J) 386 CSE(I,J)=2.*(RTOP(I+IHE(J),J-1,L)+RTOP(I,J,L)) 387 1 *(APEL(I+IHE(J),J-1)-APEL(I,J)) 388 PCSE(I,J)=CSE(I,J)*ADPDSE(I,J) 389 250 CONTINUE 390 C--------------LAT & LONG PRESSURE FORCE COMPONENTS--------------------- 391 !$omp parallel do private(dcnek,dcsek,dpnek,dpsek) 392 DO 280 J=MYJS1_P2,MYJE1_P2 393 DO 280 I=MYIS_P2,MYIE_P2 394 DPNEK=PNE(I+IVW(J),J)+PNE(I,J-1) 395 DPSEK=PSE(I+IVW(J),J)+PSE(I,J+1) 396 PEW(I,J)=DPNEK+DPSEK 397 PNS(I,J)=DPNEK-DPSEK 398 DCNEK=CNE(I+IVW(J),J)+CNE(I,J-1) 399 DCSEK=CSE(I+IVW(J),J)+CSE(I,J+1) 400 PCEW(I,J)=(DCNEK+DCSEK)*ADPDX(I,J) 401 PCNS(I,J)=(DCNEK-DCSEK)*ADPDY(I,J) 402 280 CONTINUE 403 C--------------UPDATE U AND V (CORIOLIS & PGF)-------------------------- 404 !$omp parallel do private(dpfnek,dpfsek) 405 DO 290 J=MYJS2_P2,MYJE2_P2 406 DO 290 I=MYIS_P2,MYIE1_P2 407 DPFNEK=((PPNE(I+IVW(J),J)+PPNE(I,J-1)) 408 1 +(PCNE(I+IVW(J),J)+PCNE(I,J-1)))*2. Page 5 Source Listing PGCOR 2025-03-12 18:22 PGCOR.F 409 DPFSEK=((PPSE(I+IVW(J),J)+PPSE(I,J+1)) 410 1 +(PCSE(I+IVW(J),J)+PCSE(I,J+1)))*2. 411 DPFEW(I,J)=DPFNEK+DPFSEK 412 DPFNS(I,J)=DPFNEK-DPFSEK 413 290 CONTINUE 414 C 415 !$omp parallel do private(f0k,upk,utk,vpk,vtk) 416 DO 300 J=MYJS2_P2,MYJE2_P2 417 DO 300 I=MYIS_P2,MYIE1_P2 418 F0K=U(I,J,L)*CURV(I,J)+F(I,J) 419 VM(I,J)=VTM(I,J,L)*VBM2(I,J) 420 UPK=((DPFEW(I,J)+PCEW(I,J))*RDPDX(I,J) 421 1 +PEW(I,J))*CPGFU(I,J)+F0K*V(I,J,L)+U(I,J,L) 422 VPK=((DPFNS(I,J)+PCNS(I,J))*RDPDY(I,J) 423 1 +PNS(I,J))*CPGFV-F0K*U(I,J,L)+V(I,J,L) 424 UTK=U(I,J,L) 425 VTK=V(I,J,L) 426 U(I,J,L)=((F0K*VPK+UPK)/(F0K*F0K+1.)-U(I,J,L)) 427 1 *VM(I,J)+U(I,J,L) 428 V(I,J,L)=(VPK-F0K*U(I,J,L)-V(I,J,L)) 429 1 *VM(I,J)+V(I,J,L) 430 300 CONTINUE 431 C----------------------------------------------------------------------- 432 400 CONTINUE 433 C----------------------------------------------------------------------- 434 RETURN 435 END ENTRY POINTS Name pgcor_ Page 6 Source Listing PGCOR 2025-03-12 18:22 Symbol Table PGCOR.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 325 321,322 210 Label 342 339,340 215 Label 348 345,346 220 Label 357 351,352 230 Label 367 360,361 240 Label 378 370,371 250 Label 389 381,382 280 Label 402 392,393 290 Label 413 405,406 300 Label 430 416,417 400 Label 432 336 50 Label 318 314,315 ADPDNE Local 260 R(4) 4 2 6319 308,372,374,377 ADPDSE Local 261 R(4) 4 2 6319 383,385,388 ADPDX Local 258 R(4) 4 2 6319 331,353,355,400 ADPDY Local 259 R(4) 4 2 6319 332,354,356,401 APEL Local 276 R(4) 4 2 6319 289,362,363,376,387 CLDWTR Common 226 1213608 SAVE CNE Local 282 R(4) 4 2 6319 300,375,377,398 CONTIN Common 235 4574956 SAVE CSE Local 282 R(4) 4 2 6319 302,386,388,399 CTLBLK Common 148 112 SAVE DCNE Local 267 R(4) 4 2 6319 DCNEK Local 398 R(4) 4 scalar 398,400,401 DCSE Local 267 R(4) 4 2 6319 DCSEK Local 399 R(4) 4 scalar 399,400,401 DPDE Local 275 R(4) 4 2 6319 287,341,347,353,354,364,372,383 DPFEW Local 264 R(4) 4 2 6319 411,420 DPFNE Local 268 R(4) 4 2 6319 DPFNEK Local 407 R(4) 4 scalar 407,411,412 DPFNS Local 264 R(4) 4 2 6319 412,422 DPFSE Local 268 R(4) 4 2 6319 DPFSEK Local 409 R(4) 4 scalar 409,411,412 DPNE Local 266 R(4) 4 2 6319 DPNEK Local 394 R(4) 4 scalar 394,396,397 DPSE Local 266 R(4) 4 2 6319 DPSEK Local 395 R(4) 4 scalar 395,396,397 DYNAM Common 169 259964 SAVE F0 Local 269 R(4) 4 2 6319 F0K Local 418 R(4) 4 scalar 418,421,423,426,428 FEW Local 278 R(4) 4 2 6319 294 FILO Local 257 R(4) 4 2 6319 316,323,364,365,366 FIM Local 275 R(4) 4 2 6319 288,365,373,384 FIUP Local 260 R(4) 4 2 6319 FIUPK Local 364 R(4) 4 scalar 364,365,366 FNE Local 280 R(4) 4 2 6319 297 FNS Local 265 R(4) 4 2 6319 FSE Local 280 R(4) 4 2 6319 298 GLB_TABLE Common 115 336 SAVE HM Local 272 R(4) 4 2 6319 I Local 315 I(4) 4 scalar 315,316,317,322,323,324,330,331,33 Page 7 Source Listing PGCOR 2025-03-12 18:22 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References 2,340,341,346,347,352,353,354,355, 356,361,362,363,364,365,366,371,37 2,373,374,375,376,377,382,383,384, 385,386,387,388,393,394,395,396,39 7,398,399,400,401,406,407,408,409, 410,411,412,417,418,419,420,421,42 2,423,424,425,426,427,428,429 IDIM1 Param 69 I(4) 4 scalar 158,159,161,162,163,175,176,177,17 8,179,180,186,188,189,190,196,197, 198,199,200,201,202,203,204,205,20 6,207,208,209,210,211,212,214,219, 227,229,236,237,238,239,240,249,25 7,258,259,260,261,262,263,264,265, 266,267,268,269,270,271,272,275,27 6,277,278,279,280,281,282,283,284 IDIM2 Param 69 I(4) 4 scalar 158,159,161,162,163,175,176,177,17 8,179,180,186,188,189,190,196,197, 198,199,200,201,202,203,204,205,20 6,207,208,209,210,211,212,214,219, 227,229,236,237,238,239,240,249,25 7,258,259,260,261,262,263,264,265, 266,267,268,269,270,271,272,275,27 6,277,278,279,280,281,282,283,284 IGSTL Param 64 I(4) 4 scalar 69 IGSTR Param 64 I(4) 4 scalar 69 IM Param 52 I(4) 4 scalar 66,69,121,122,123,124,125,129,130, 135,138,253 IMJM Param 138 I(4) 4 scalar INDX Common 246 1708 SAVE INDXG Common 252 8084 SAVE INPES Param 61 I(4) 4 scalar 66,69,105,106,107,116,117 ITAIL Param 66 I(4) 4 scalar J Local 314 I(4) 4 scalar 314,316,317,321,323,324,329,331,33 2,339,341,345,347,351,353,354,355, 356,360,362,363,364,365,366,370,37 2,373,374,375,376,377,381,383,384, 385,386,387,388,392,394,395,396,39 7,398,399,400,401,405,407,408,409, 410,411,412,416,418,419,420,421,42 2,423,424,425,426,427,428,429 JAM Param 138 I(4) 4 scalar 173 JDIM1 Param 70 I(4) 4 scalar 158,159,161,162,163,175,176,177,17 8,179,180,186,188,189,190,196,197, 198,199,200,201,202,203,204,205,20 6,207,208,209,210,211,212,214,219, 227,229,236,237,238,239,240,247,24 8,257,258,259,260,261,262,263,264, 265,266,267,268,269,270,271,272,27 5,276,277,278,279,280,281,282,283, 284 JDIM2 Param 70 I(4) 4 scalar 158,159,161,162,163,175,176,177,17 8,179,180,186,188,189,190,196,197, 198,199,200,201,202,203,204,205,20 6,207,208,209,210,211,212,214,219, 227,229,236,237,238,239,240,247,24 Page 8 Source Listing PGCOR 2025-03-12 18:22 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References 8,257,258,259,260,261,262,263,264, 265,266,267,268,269,270,271,272,27 5,276,277,278,279,280,281,282,283, 284 JGSTL Param 65 I(4) 4 scalar 70 JGSTR Param 65 I(4) 4 scalar 70 JM Param 52 I(4) 4 scalar 67,70,121,122,123,124,125,129,130, 135,138,253 JNPES Param 61 I(4) 4 scalar 67,70,105,106,107,116,117 JTAIL Param 67 I(4) 4 scalar L Local 336 I(4) 4 scalar 336,341,362,363,364,366,375,386,41 8,419,421,423,424,425,426,427,428, 429 LM Param 52 I(4) 4 scalar 130,138,161,162,171,188,189,214,22 7,228,237,238,239,240,336 LP1 Param 138 I(4) 4 scalar 171 LSM Param 52 I(4) 4 scalar MAPPINGS Common 134 5024 SAVE MASKS Common 157 2426496 SAVE MPPCOM Common 79 1724 SAVE PCEW Local 263 R(4) 4 2 6319 400,420 PCNE Local 284 R(4) 4 2 6319 304,377,408 PCNS Local 263 R(4) 4 2 6319 401,422 PCSE Local 284 R(4) 4 2 6319 306,388,410 PCXC Local 276 R(4) 4 2 6319 290 PEW Local 262 R(4) 4 2 6319 396,421 PGCOR Subr 2 PNE Local 281 R(4) 4 2 6319 299,373,374,394 PNS Local 262 R(4) 4 2 6319 397,423 PPNE Local 283 R(4) 4 2 6319 303,374,407 PPSE Local 283 R(4) 4 2 6319 305,385,409 PSE Local 281 R(4) 4 2 6319 301,384,385,395 PVNE Local 271 R(4) 4 2 6319 PVRBLS Common 195 1946252 SAVE PVSE Local 271 R(4) 4 2 6319 RDPD Local 257 R(4) 4 2 6319 347 RDPDX Local 258 R(4) 4 2 6319 355,420 RDPDY Local 259 R(4) 4 2 6319 356,422 SINGLRST Local 146 L(4) 4 scalar TEMPCOM Common 120 6603768 SAVE TEW Local 278 R(4) 4 2 6319 293 TNE Local 279 R(4) 4 2 6319 295 TNS Local 265 R(4) 4 2 6319 TOPO Common 128 17478548 SAVE TSE Local 279 R(4) 4 2 6319 296 UDY Local 277 R(4) 4 2 6319 291 UP Local 270 R(4) 4 2 6319 UPK Local 420 R(4) 4 scalar 420,426 UTK Local 424 R(4) 4 scalar 424 VDX Local 277 R(4) 4 2 6319 292 VM Local 269 R(4) 4 2 6319 419,427,429 VP Local 270 R(4) 4 2 6319 VPK Local 422 R(4) 4 scalar 422,426,428 VRBLS Common 185 4625508 SAVE VTK Local 425 R(4) 4 scalar 425 Page 9 Source Listing PGCOR 2025-03-12 18:22 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References ZERO2 Subr 287 287,288,289,290,291,292,293,294,29 5,296,297,298,299,300,301,302,303, 304,305,306,307,308 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 454968 2 6319 COM ACPREC R(4) 4 429692 2 6319 COM AETA R(4) 4 396 1 45 COM 362 AFSI R(4) 4 1920976 2 6319 COM AKHS R(4) 4 227484 2 6319 COM AKMS R(4) 4 202208 2 6319 COM CLDEFI R(4) 4 379140 2 6319 COM CPGFU R(4) 4 57756 2 6319 COM 421 CPGFV R(4) 4 4 scalar COM 423 CUPREC R(4) 4 480244 2 6319 COM CURV R(4) 4 83032 2 6319 COM 418 CWM R(4) 4 0 3 284355 COM DDMPU R(4) 4 184136 2 6319 COM DDMPV R(4) 4 209412 2 6319 COM DETA R(4) 4 36 1 45 COM 341 DFL R(4) 4 940 1 46 COM 366 DIV R(4) 4 2325392 3 284355 COM DT R(4) 4 48 scalar COM DX R(4) 4 7204 2 6319 COM DY R(4) 4 0 scalar COM EF4T R(4) 4 32 scalar COM EM R(4) 4 1124 1 760 COM EMT R(4) 4 4164 1 760 COM EN R(4) 4 8 scalar COM ENT R(4) 4 12 scalar COM ETA R(4) 4 756 1 46 COM ETADT R(4) 4 3462812 3 278036 COM F R(4) 4 158860 2 6319 COM 418 F4D R(4) 4 24 scalar COM F4Q R(4) 4 28 scalar COM F4Q2 R(4) 4 576 1 45 COM FAD R(4) 4 234688 2 6319 COM FCP R(4) 4 108308 2 6319 COM FDIV R(4) 4 133584 2 6319 COM FIRST L(4) 4 24 scalar COM FIS R(4) 4 4574956 2 6319 COM 316 G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM HBM2 R(4) 4 2375944 2 6319 COM HBM3 R(4) 4 2401220 2 6319 COM HTM R(4) 4 101104 3 284355 COM 366 HTMG R(4) 4 743768 3 4183695 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 828 1 21 COM IDAT I(4) 4 8 1 3 COM IDTAD I(4) 4 72 scalar COM Page 10 Source Listing PGCOR 2025-03-12 18:22 Symbol Table PGCOR.F Name Type Bytes Offset Dimen Elements Attributes References IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM IHE I(4) 4 0 1 89 COM 372,373,375,376,383,384,386,387 IHEG I(4) 4 0 1 387 COM IHRST I(4) 4 20 scalar COM IHW I(4) 4 356 1 89 COM IHWG I(4) 4 1548 1 387 COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1324 1 100 COM IOUT I(4) 4 44 scalar COM IQUILT_GROUP I(4) 4 1320 scalar COM IRAD I(4) 4 1424 1 71 COM IRADG I(4) 4 6192 1 473 COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM IS_GLB_TABLE I(4) 4 0 1 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM IVE I(4) 4 712 1 89 COM 353 IVEG I(4) 4 3096 1 387 COM IVW I(4) 4 1068 1 89 COM 353,394,395,398,399,407,408,409,41 0 IVWG I(4) 4 4644 1 387 COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM JS_GLB_TABLE I(4) 4 168 1 21 COM JS_LOC_TABLE I(4) 4 576 1 21 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM LC I(4) 4 1163056 2 6319 COM LIST I(4) 4 40 scalar COM MPI_COMM_COMP I(4) 4 912 scalar COM MPI_COMM_INTER I(4) 4 916 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 920 1 100 COM Page 11 Source Listing PGCOR 2025-03-12 18:22 Symbol Table PGCOR.F Name Type Bytes Offset Dimen Elements Attributes References MYIE I(4) 4 52 scalar COM 346 MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM 352,406,417 MYIE1_P3 I(4) 4 128 scalar COM 382 MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM 393 MYIE_P3 I(4) 4 108 scalar COM 371 MYIE_P4 I(4) 4 112 scalar COM 315,322,330,340,361 MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM 346 MYIS1 I(4) 4 44 scalar COM 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 MYIS_P2 I(4) 4 68 scalar COM 352,393,406,417 MYIS_P3 I(4) 4 72 scalar COM 371,382 MYIS_P4 I(4) 4 76 scalar COM 315,322,330,340,361 MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM 345 MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM 351,392 MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM 405,416 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 370,381 MYJE_P4 I(4) 4 272 scalar COM 314,321,329,339,360 MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 345 MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM 351,392 MYJS1_P3 I(4) 4 192 scalar COM 381 MYJS1_P4 I(4) 4 196 scalar COM Page 12 Source Listing PGCOR 2025-03-12 18:22 Symbol Table PGCOR.F Name Type Bytes Offset Dimen Elements Attributes References MYJS2 I(4) 4 148 scalar COM MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM 405,416 MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM 370 MYJS_P4 I(4) 4 176 scalar COM 314,321,329,339,360 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 OMGALF R(4) 4 1187972 3 284355 COM PD R(4) 4 0 2 6319 COM 317,324 PDSL R(4) 4 0 2 6319 COM 307,317,324,341,362 Page 13 Source Listing PGCOR 2025-03-12 18:22 Symbol Table PGCOR.F Name Type Bytes Offset Dimen Elements Attributes References PREC R(4) 4 404416 2 6319 COM PSDT R(4) 4 25276 2 6319 COM PSHLTR R(4) 4 758280 2 6319 COM PT R(4) 4 20 scalar COM 362 Q R(4) 4 3437536 3 284355 COM 363 Q10 R(4) 4 631900 2 6319 COM Q2 R(4) 4 783556 3 284355 COM Q30 R(4) 4 530796 2 6319 COM QS R(4) 4 176932 2 6319 COM QSHLTR R(4) 4 733004 2 6319 COM QWBS R(4) 4 303312 2 6319 COM QZ0 R(4) 4 126380 2 6319 COM R R(4) 4 16 scalar COM 363 RDETA R(4) 4 216 1 45 COM RES R(4) 4 4600232 2 6319 COM 324 RESTRT L(4) 4 28 scalar COM RF R(4) 4 252760 2 6319 COM RTOP R(4) 4 50552 3 284355 COM 363,364,375,386 RUN L(4) 4 4 scalar COM SI R(4) 4 353864 2 6319 COM SICE R(4) 4 75828 2 6319 COM SIGMA L(4) 4 0 scalar COM 312 SM R(4) 4 50552 2 6319 COM SNO R(4) 4 328588 2 6319 COM SR R(4) 4 1188332 2 6319 COM SUBPOST L(4) 4 104 scalar COM T R(4) 4 25276 3 284355 COM 363 TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TH10 R(4) 4 606624 2 6319 COM TH30 R(4) 4 505520 2 6319 COM THS R(4) 4 151656 2 6319 COM THZ0 R(4) 4 101104 2 6319 COM TSHLTR R(4) 4 707728 2 6319 COM TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 278036 2 6319 COM U R(4) 4 1162696 3 284355 COM 418,421,423,424,426,427,428 U00 R(4) 4 1137420 2 6319 COM U10 R(4) 4 657176 2 6319 COM U30 R(4) 4 556072 2 6319 COM Page 14 Source Listing PGCOR 2025-03-12 18:22 Symbol Table PGCOR.F Name Type Bytes Offset Dimen Elements Attributes References UL R(4) 4 1162696 1 90 COM USTAR R(4) 4 25276 2 6319 COM UZ0 R(4) 4 50552 2 6319 COM V R(4) 4 2300116 3 284355 COM 421,423,425,428,429 V10 R(4) 4 682452 2 6319 COM V30 R(4) 4 581348 2 6319 COM VBM2 R(4) 4 0 2 6319 COM 419 VBM3 R(4) 4 25276 2 6319 COM VTM R(4) 4 1238524 3 284355 COM 419 VZ0 R(4) 4 75828 2 6319 COM WPDAR R(4) 4 32480 2 6319 COM Z0 R(4) 4 0 2 6319 COM Page 15 Source Listing PGCOR 2025-03-12 18:22 Subprograms/Common Blocks PGCOR.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 226 1213608 SAVE CONTIN Common 235 4574956 SAVE CTLBLK Common 148 112 SAVE DYNAM Common 169 259964 SAVE GLB_TABLE Common 115 336 SAVE INDX Common 246 1708 SAVE INDXG Common 252 8084 SAVE MAPPINGS Common 134 5024 SAVE MASKS Common 157 2426496 SAVE MPPCOM Common 79 1724 SAVE PGCOR Subr 2 PVRBLS Common 195 1946252 SAVE TEMPCOM Common 120 6603768 SAVE TOPO Common 128 17478548 SAVE VRBLS Common 185 4625508 SAVE COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous Page 16 Source Listing PGCOR 2025-03-12 18:22 PGCOR.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 PGCOR 2025-03-12 18:22 PGCOR.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 : PGCOR.lst no -o COMPILER: Intel(R) Fortran 19.1-1655