Page 1 Source Listing PGCOR 2025-03-12 18:21 /tmp/ifort0IQJQv.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" 72 INCLUDE "mpp.h" 73 # 1 "./sp.h" 1 74 # 4 75 76 # 51 "PGCOR.F" 2 77 C----------------------------------------------------------------------- 136 P A R A M E T E R 137 & (IMJM=IM*JM-JM/2,JAM=6+2*(JM-10),LP1=LM+1) Page 2 Source Listing PGCOR 2025-03-12 18:21 PGCOR.F 138 C----------------------------------------------------------------------- 139 L O G I C A L 140 & RUN,FIRST,RESTRT,SIGMA 141 C---------------------------------------------------------------------- 142 INCLUDE "CTLBLK.comm" 143 C----------------------------------------------------------------------- 153 INCLUDE "MASKS.comm" 154 C----------------------------------------------------------------------- 165 INCLUDE "DYNAM.comm" 166 C----------------------------------------------------------------------- 182 INCLUDE "VRBLS.comm" 192 INCLUDE "PVRBLS.comm" 222 INCLUDE "CLDWTR.comm" 223 C----------------------------------------------------------------------- 231 INCLUDE "CONTIN.comm" 232 C----------------------------------------------------------------------- 242 INCLUDE "INDX.comm" 243 C----------------------------------------------------------------------- 255 D I M E N S I O N 256 & FILO (IDIM1:IDIM2,JDIM1:JDIM2),RDPD (IDIM1:IDIM2,JDIM1:JDIM2) 257 &,ADPDX (IDIM1:IDIM2,JDIM1:JDIM2),RDPDX (IDIM1:IDIM2,JDIM1:JDIM2) 258 &,ADPDY (IDIM1:IDIM2,JDIM1:JDIM2),RDPDY (IDIM1:IDIM2,JDIM1:JDIM2) 259 &,FIUP (IDIM1:IDIM2,JDIM1:JDIM2),ADPDNE(IDIM1:IDIM2,JDIM1:JDIM2) 260 &,ADPDSE(IDIM1:IDIM2,JDIM1:JDIM2) 261 &,PEW (IDIM1:IDIM2,JDIM1:JDIM2),PNS (IDIM1:IDIM2,JDIM1:JDIM2) 262 &,PCEW (IDIM1:IDIM2,JDIM1:JDIM2),PCNS (IDIM1:IDIM2,JDIM1:JDIM2) 263 &,DPFEW (IDIM1:IDIM2,JDIM1:JDIM2),DPFNS (IDIM1:IDIM2,JDIM1:JDIM2) 264 &,FNS (IDIM1:IDIM2,JDIM1:JDIM2),TNS (IDIM1:IDIM2,JDIM1:JDIM2) 265 &,DPNE (IDIM1:IDIM2,JDIM1:JDIM2),DPSE (IDIM1:IDIM2,JDIM1:JDIM2) 266 &,DCNE (IDIM1:IDIM2,JDIM1:JDIM2),DCSE (IDIM1:IDIM2,JDIM1:JDIM2) 267 &,DPFNE (IDIM1:IDIM2,JDIM1:JDIM2),DPFSE (IDIM1:IDIM2,JDIM1:JDIM2) 268 &,VM (IDIM1:IDIM2,JDIM1:JDIM2),F0 (IDIM1:IDIM2,JDIM1:JDIM2) 269 &,UP (IDIM1:IDIM2,JDIM1:JDIM2),VP (IDIM1:IDIM2,JDIM1:JDIM2) 270 &,PVNE (IDIM1:IDIM2,JDIM1:JDIM2),PVSE (IDIM1:IDIM2,JDIM1:JDIM2) 271 &,HM (IDIM1:IDIM2,JDIM1:JDIM2) 272 C 273 D I M E N S I O N 274 & DPDE(IDIM1:IDIM2,JDIM1:JDIM2),FIM (IDIM1:IDIM2,JDIM1:JDIM2) 275 &,APEL(IDIM1:IDIM2,JDIM1:JDIM2),PCXC(IDIM1:IDIM2,JDIM1:JDIM2) 276 &,UDY (IDIM1:IDIM2,JDIM1:JDIM2),VDX (IDIM1:IDIM2,JDIM1:JDIM2) 277 &,TEW (IDIM1:IDIM2,JDIM1:JDIM2),FEW (IDIM1:IDIM2,JDIM1:JDIM2) 278 &,TNE (IDIM1:IDIM2,JDIM1:JDIM2),TSE (IDIM1:IDIM2,JDIM1:JDIM2) 279 &,FNE (IDIM1:IDIM2,JDIM1:JDIM2),FSE (IDIM1:IDIM2,JDIM1:JDIM2) 280 &,PNE (IDIM1:IDIM2,JDIM1:JDIM2),PSE (IDIM1:IDIM2,JDIM1:JDIM2) 281 &,CNE (IDIM1:IDIM2,JDIM1:JDIM2),CSE (IDIM1:IDIM2,JDIM1:JDIM2) 282 &,PPNE(IDIM1:IDIM2,JDIM1:JDIM2),PPSE(IDIM1:IDIM2,JDIM1:JDIM2) 283 &,PCNE(IDIM1:IDIM2,JDIM1:JDIM2),PCSE(IDIM1:IDIM2,JDIM1:JDIM2) 284 C----------------------------------------------------------------------- 285 C----------------------------------------------------------------------- 286 CALL ZERO2(DPDE) 287 CALL ZERO2(FIM) 288 CALL ZERO2(APEL) 289 CALL ZERO2(PCXC) 290 CALL ZERO2(UDY) 291 CALL ZERO2(VDX) 292 CALL ZERO2(TEW) 293 CALL ZERO2(FEW) Page 3 Source Listing PGCOR 2025-03-12 18:21 PGCOR.F 294 CALL ZERO2(TNE) 295 CALL ZERO2(TSE) 296 CALL ZERO2(FNE) 297 CALL ZERO2(FSE) 298 CALL ZERO2(PNE) 299 CALL ZERO2(CNE) 300 CALL ZERO2(PSE) 301 CALL ZERO2(CSE) 302 CALL ZERO2(PPNE) 303 CALL ZERO2(PCNE) 304 CALL ZERO2(PPSE) 305 CALL ZERO2(PCSE) 306 call zero2(pdsl) 307 call zero2(adpdne) 308 C----------------------------------------------------------------------- 309 C--------------PREPARATORY CALCULATIONS--------------------------------- 310 C----------------------------------------------------------------------- 311 IF(SIGMA)THEN 312 !$omp parallel do 313 DO 50 J=MYJS_P4,MYJE_P4 314 DO 50 I=MYIS_P4,MYIE_P4 315 FILO(I,J)=FIS(I,J) 316 PDSL(I,J)=PD(I,J) 317 50 CONTINUE 318 ELSE 319 !$omp parallel do 320 DO 100 J=MYJS_P4,MYJE_P4 321 DO 100 I=MYIS_P4,MYIE_P4 322 FILO(I,J)=0. 323 PDSL(I,J)=RES(I,J)*PD(I,J) 324 100 CONTINUE 325 ENDIF 326 C 327 !$omp parallel do 328 DO J=MYJS_P4,MYJE_P4 329 DO I=MYIS_P4,MYIE_P4 330 ADPDX(I,J)=0. 331 ADPDY(I,J)=0. 332 ENDDO 333 ENDDO 334 C--------------MAIN VERTICAL INTEGRATION LOOP--------------------------- 335 DO 400 L=LM,1,-1 336 C----------------------------------------------------------------------- 337 !$omp parallel do 338 DO 210 J=MYJS_P4,MYJE_P4 339 DO 210 I=MYIS_P4,MYIE_P4 340 DPDE(I,J)=DETA(L)*PDSL(I,J) 341 210 CONTINUE 342 C 343 !$omp parallel do 344 DO 215 J=MYJS,MYJE 345 DO 215 I=MYIS,MYIE 346 RDPD(I,J)=1./DPDE(I,J) 347 215 CONTINUE 348 C 349 !$omp parallel do 350 DO 220 J=MYJS1_P2,MYJE1_P2 Page 4 Source Listing PGCOR 2025-03-12 18:21 PGCOR.F 351 DO 220 I=MYIS_P2,MYIE1_P2 352 ADPDX(I,J)=DPDE(I+IVW(J),J)+DPDE(I+IVE(J),J) 353 ADPDY(I,J)=DPDE(I,J-1)+DPDE(I,J+1) 354 RDPDX(I,J)=1./ADPDX(I,J) 355 RDPDY(I,J)=1./ADPDY(I,J) 356 220 CONTINUE 357 C----------------------------------------------------------------------- 358 !$omp parallel do 359 DO 230 J=MYJS_P4,MYJE_P4 360 DO 230 I=MYIS_P4,MYIE_P4 361 APEL(I,J)=PT+AETA(L)*PDSL(I,J) 362 RTOP(I,J,L)=R*T(I,J,L)*(1.+0.608*Q(I,J,L))/APEL(I,J) 363 FIUPK=FILO(I,J)+RTOP(I,J,L)*DPDE(I,J) 364 FIM(I,J)=FILO(I,J)+FIUPK 365 FILO(I,J)=DFL(L)+HTM(I,J,L)*(FIUPK-DFL(L)) 366 230 CONTINUE 367 C--------------DIAGONAL CONTRIBUTIONS TO PRESSURE GRADIENT FORCE-------- 368 !$omp parallel do 369 DO 240 J=MYJS_P3,MYJE_P3 370 DO 240 I=MYIS_P3,MYIE_P3 371 ADPDNE(I,J)=DPDE(I+IHE(J),J+1)+DPDE(I,J) 372 PNE(I,J)=2.*(FIM(I+IHE(J),J+1)-FIM(I,J)) 373 PPNE(I,J)=PNE(I,J)*ADPDNE(I,J) 374 CNE(I,J)=2.*(RTOP(I+IHE(J),J+1,L)+RTOP(I,J,L)) 375 1 *(APEL(I+IHE(J),J+1)-APEL(I,J)) 376 PCNE(I,J)=CNE(I,J)*ADPDNE(I,J) 377 240 CONTINUE 378 C 379 !$omp parallel do 380 DO 250 J=MYJS1_P3,MYJE_P3 381 DO 250 I=MYIS_P3,MYIE1_P3 382 ADPDSE(I,J)=DPDE(I+IHE(J),J-1)+DPDE(I,J) 383 PSE(I,J)=2.*(FIM(I+IHE(J),J-1)-FIM(I,J)) 384 PPSE(I,J)=PSE(I,J)*ADPDSE(I,J) 385 CSE(I,J)=2.*(RTOP(I+IHE(J),J-1,L)+RTOP(I,J,L)) 386 1 *(APEL(I+IHE(J),J-1)-APEL(I,J)) 387 PCSE(I,J)=CSE(I,J)*ADPDSE(I,J) 388 250 CONTINUE 389 C--------------LAT & LONG PRESSURE FORCE COMPONENTS--------------------- 390 !$omp parallel do private(dcnek,dcsek,dpnek,dpsek) 391 DO 280 J=MYJS1_P2,MYJE1_P2 392 DO 280 I=MYIS_P2,MYIE_P2 393 DPNEK=PNE(I+IVW(J),J)+PNE(I,J-1) 394 DPSEK=PSE(I+IVW(J),J)+PSE(I,J+1) 395 PEW(I,J)=DPNEK+DPSEK 396 PNS(I,J)=DPNEK-DPSEK 397 DCNEK=CNE(I+IVW(J),J)+CNE(I,J-1) 398 DCSEK=CSE(I+IVW(J),J)+CSE(I,J+1) 399 PCEW(I,J)=(DCNEK+DCSEK)*ADPDX(I,J) 400 PCNS(I,J)=(DCNEK-DCSEK)*ADPDY(I,J) 401 280 CONTINUE 402 C--------------UPDATE U AND V (CORIOLIS & PGF)-------------------------- 403 !$omp parallel do private(dpfnek,dpfsek) 404 DO 290 J=MYJS2_P2,MYJE2_P2 405 DO 290 I=MYIS_P2,MYIE1_P2 406 DPFNEK=((PPNE(I+IVW(J),J)+PPNE(I,J-1)) 407 1 +(PCNE(I+IVW(J),J)+PCNE(I,J-1)))*2. Page 5 Source Listing PGCOR 2025-03-12 18:21 PGCOR.F 408 DPFSEK=((PPSE(I+IVW(J),J)+PPSE(I,J+1)) 409 1 +(PCSE(I+IVW(J),J)+PCSE(I,J+1)))*2. 410 DPFEW(I,J)=DPFNEK+DPFSEK 411 DPFNS(I,J)=DPFNEK-DPFSEK 412 290 CONTINUE 413 C 414 !$omp parallel do private(f0k,upk,utk,vpk,vtk) 415 DO 300 J=MYJS2_P2,MYJE2_P2 416 DO 300 I=MYIS_P2,MYIE1_P2 417 F0K=U(I,J,L)*CURV(I,J)+F(I,J) 418 VM(I,J)=VTM(I,J,L)*VBM2(I,J) 419 UPK=((DPFEW(I,J)+PCEW(I,J))*RDPDX(I,J) 420 1 +PEW(I,J))*CPGFU(I,J)+F0K*V(I,J,L)+U(I,J,L) 421 VPK=((DPFNS(I,J)+PCNS(I,J))*RDPDY(I,J) 422 1 +PNS(I,J))*CPGFV-F0K*U(I,J,L)+V(I,J,L) 423 UTK=U(I,J,L) 424 VTK=V(I,J,L) 425 U(I,J,L)=((F0K*VPK+UPK)/(F0K*F0K+1.)-U(I,J,L)) 426 1 *VM(I,J)+U(I,J,L) 427 V(I,J,L)=(VPK-F0K*U(I,J,L)-V(I,J,L)) 428 1 *VM(I,J)+V(I,J,L) 429 300 CONTINUE 430 C----------------------------------------------------------------------- 431 400 CONTINUE 432 C----------------------------------------------------------------------- 433 RETURN 434 END ENTRY POINTS Name pgcor_ Page 6 Source Listing PGCOR 2025-03-12 18:21 Symbol Table PGCOR.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 324 320,321 210 Label 341 338,339 215 Label 347 344,345 220 Label 356 350,351 230 Label 366 359,360 240 Label 377 369,370 250 Label 388 380,381 280 Label 401 391,392 290 Label 412 404,405 300 Label 429 415,416 400 Label 431 335 50 Label 317 313,314 ADPDNE Local 259 R(4) 4 2 17955 307,371,373,376 ADPDSE Local 260 R(4) 4 2 17955 382,384,387 ADPDX Local 257 R(4) 4 2 17955 330,352,354,399 ADPDY Local 258 R(4) 4 2 17955 331,353,355,400 APEL Local 275 R(4) 4 2 17955 288,361,362,375,386 CLDWTR Common 225 3447720 SAVE CNE Local 281 R(4) 4 2 17955 299,374,376,397 CONTIN Common 234 12999420 SAVE CSE Local 281 R(4) 4 2 17955 301,385,387,398 CTLBLK Common 147 112 SAVE DCNE Local 266 R(4) 4 2 17955 DCNEK Local 397 R(4) 4 scalar 397,399,400 DCSE Local 266 R(4) 4 2 17955 DCSEK Local 398 R(4) 4 scalar 398,399,400 DPDE Local 274 R(4) 4 2 17955 286,340,346,352,353,363,371,382 DPFEW Local 263 R(4) 4 2 17955 410,419 DPFNE Local 267 R(4) 4 2 17955 DPFNEK Local 406 R(4) 4 scalar 406,410,411 DPFNS Local 263 R(4) 4 2 17955 411,421 DPFSE Local 267 R(4) 4 2 17955 DPFSEK Local 408 R(4) 4 scalar 408,410,411 DPNE Local 265 R(4) 4 2 17955 DPNEK Local 393 R(4) 4 scalar 393,395,396 DPSE Local 265 R(4) 4 2 17955 DPSEK Local 394 R(4) 4 scalar 394,395,396 DYNAM Common 168 725404 SAVE F0 Local 268 R(4) 4 2 17955 F0K Local 417 R(4) 4 scalar 417,420,422,425,427 FEW Local 277 R(4) 4 2 17955 293 FILO Local 256 R(4) 4 2 17955 315,322,363,364,365 FIM Local 274 R(4) 4 2 17955 287,364,372,383 FIUP Local 259 R(4) 4 2 17955 FIUPK Local 363 R(4) 4 scalar 363,364,365 FNE Local 279 R(4) 4 2 17955 296 FNS Local 264 R(4) 4 2 17955 FSE Local 279 R(4) 4 2 17955 297 GLB_TABLE Common 114 128 SAVE HM Local 271 R(4) 4 2 17955 I Local 314 I(4) 4 scalar 314,315,316,321,322,323,329,330,33 Page 7 Source Listing PGCOR 2025-03-12 18:21 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References 1,339,340,345,346,351,352,353,354, 355,360,361,362,363,364,365,370,37 1,372,373,374,375,376,381,382,383, 384,385,386,387,392,393,394,395,39 6,397,398,399,400,405,406,407,408, 409,410,411,416,417,418,419,420,42 1,422,423,424,425,426,427,428 IDIM1 Param 68 I(4) 4 scalar 157,158,160,161,162,174,175,176,17 7,178,179,185,187,188,189,195,196, 197,198,199,200,201,202,203,204,20 5,206,207,208,209,210,211,213,218, 226,228,235,236,237,238,239,248,25 6,257,258,259,260,261,262,263,264, 265,266,267,268,269,270,271,274,27 5,276,277,278,279,280,281,282,283 IDIM2 Param 68 I(4) 4 scalar 157,158,160,161,162,174,175,176,17 7,178,179,185,187,188,189,195,196, 197,198,199,200,201,202,203,204,20 5,206,207,208,209,210,211,213,218, 226,228,235,236,237,238,239,248,25 6,257,258,259,260,261,262,263,264, 265,266,267,268,269,270,271,274,27 5,276,277,278,279,280,281,282,283 IGSTL Param 63 I(4) 4 scalar 68 IGSTR Param 63 I(4) 4 scalar 68 IM Param 52 I(4) 4 scalar 65,68,120,121,122,123,124,128,129, 134,137,252 IMJM Param 137 I(4) 4 scalar INDX Common 245 6564 SAVE INDXG Common 251 8084 SAVE INPES Param 60 I(4) 4 scalar 65,68,104,105,106,115,116 ITAIL Param 65 I(4) 4 scalar J Local 313 I(4) 4 scalar 313,315,316,320,322,323,328,330,33 1,338,340,344,346,350,352,353,354, 355,359,361,362,363,364,365,369,37 1,372,373,374,375,376,380,382,383, 384,385,386,387,391,393,394,395,39 6,397,398,399,400,404,406,407,408, 409,410,411,415,417,418,419,420,42 1,422,423,424,425,426,427,428 JAM Param 137 I(4) 4 scalar 172 JDIM1 Param 69 I(4) 4 scalar 157,158,160,161,162,174,175,176,17 7,178,179,185,187,188,189,195,196, 197,198,199,200,201,202,203,204,20 5,206,207,208,209,210,211,213,218, 226,228,235,236,237,238,239,246,24 7,256,257,258,259,260,261,262,263, 264,265,266,267,268,269,270,271,27 4,275,276,277,278,279,280,281,282, 283 JDIM2 Param 69 I(4) 4 scalar 157,158,160,161,162,174,175,176,17 7,178,179,185,187,188,189,195,196, 197,198,199,200,201,202,203,204,20 5,206,207,208,209,210,211,213,218, 226,228,235,236,237,238,239,246,24 Page 8 Source Listing PGCOR 2025-03-12 18:21 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References 7,256,257,258,259,260,261,262,263, 264,265,266,267,268,269,270,271,27 4,275,276,277,278,279,280,281,282, 283 JGSTL Param 64 I(4) 4 scalar 69 JGSTR Param 64 I(4) 4 scalar 69 JM Param 52 I(4) 4 scalar 66,69,120,121,122,123,124,128,129, 134,137,252 JNPES Param 60 I(4) 4 scalar 66,69,104,105,106,115,116 JTAIL Param 66 I(4) 4 scalar L Local 335 I(4) 4 scalar 335,340,361,362,363,365,374,385,41 7,418,420,422,423,424,425,426,427, 428 LM Param 52 I(4) 4 scalar 129,137,160,161,170,187,188,213,22 6,227,236,237,238,239,335 LP1 Param 137 I(4) 4 scalar 170 LSM Param 52 I(4) 4 scalar MAPPINGS Common 133 5024 SAVE MASKS Common 156 6894720 SAVE MPPCOM Common 78 1464 SAVE PCEW Local 262 R(4) 4 2 17955 399,419 PCNE Local 283 R(4) 4 2 17955 303,376,407 PCNS Local 262 R(4) 4 2 17955 400,421 PCSE Local 283 R(4) 4 2 17955 305,387,409 PCXC Local 275 R(4) 4 2 17955 289 PEW Local 261 R(4) 4 2 17955 395,420 PGCOR Subr 2 PNE Local 280 R(4) 4 2 17955 298,372,373,393 PNS Local 261 R(4) 4 2 17955 396,422 PPNE Local 282 R(4) 4 2 17955 302,373,406 PPSE Local 282 R(4) 4 2 17955 304,384,408 PSE Local 280 R(4) 4 2 17955 300,383,384,394 PVNE Local 270 R(4) 4 2 17955 PVRBLS Common 194 5530140 SAVE PVSE Local 270 R(4) 4 2 17955 RDPD Local 256 R(4) 4 2 17955 346 RDPDX Local 257 R(4) 4 2 17955 354,419 RDPDY Local 258 R(4) 4 2 17955 355,421 SINGLRST Local 145 L(4) 4 scalar TEMPCOM Common 119 6603768 SAVE TEW Local 277 R(4) 4 2 17955 292 TNE Local 278 R(4) 4 2 17955 294 TNS Local 264 R(4) 4 2 17955 TOPO Common 127 17478548 SAVE TSE Local 278 R(4) 4 2 17955 295 UDY Local 276 R(4) 4 2 17955 290 UP Local 269 R(4) 4 2 17955 UPK Local 419 R(4) 4 scalar 419,425 UTK Local 423 R(4) 4 scalar 423 VDX Local 276 R(4) 4 2 17955 291 VM Local 268 R(4) 4 2 17955 418,426,428 VP Local 269 R(4) 4 2 17955 VPK Local 421 R(4) 4 scalar 421,425,427 VRBLS Common 184 13143060 SAVE VTK Local 424 R(4) 4 scalar 424 Page 9 Source Listing PGCOR 2025-03-12 18:21 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References ZERO2 Subr 286 286,287,288,289,290,291,292,293,29 4,295,296,297,298,299,300,301,302, 303,304,305,306,307 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 1292760 2 17955 COM ACPREC R(4) 4 1220940 2 17955 COM AETA R(4) 4 396 1 45 COM 361 AFSI R(4) 4 5458320 2 17955 COM AKHS R(4) 4 646380 2 17955 COM AKMS R(4) 4 574560 2 17955 COM CLDEFI R(4) 4 1077300 2 17955 COM CPGFU R(4) 4 150844 2 17955 COM 420 CPGFV R(4) 4 4 scalar COM 422 CUPREC R(4) 4 1364580 2 17955 COM CURV R(4) 4 222664 2 17955 COM 417 CWM R(4) 4 0 3 807975 COM DDMPU R(4) 4 509944 2 17955 COM DDMPV R(4) 4 581764 2 17955 COM DETA R(4) 4 36 1 45 COM 340 DFL R(4) 4 940 1 46 COM 365 DIV R(4) 4 6607440 3 807975 COM DT R(4) 4 48 scalar COM DX R(4) 4 7204 2 17955 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 9839340 3 790020 COM F R(4) 4 438124 2 17955 COM 417 F4D R(4) 4 24 scalar COM F4Q R(4) 4 28 scalar COM F4Q2 R(4) 4 576 1 45 COM FAD R(4) 4 653584 2 17955 COM FCP R(4) 4 294484 2 17955 COM FDIV R(4) 4 366304 2 17955 COM FIRST L(4) 4 24 scalar COM FIS R(4) 4 12999420 2 17955 COM 315 G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM HBM2 R(4) 4 6751080 2 17955 COM HBM3 R(4) 4 6822900 2 17955 COM HTM R(4) 4 287280 3 807975 COM 365 HTMG R(4) 4 743768 3 4183695 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 Page 10 Source Listing PGCOR 2025-03-12 18:21 Symbol Table PGCOR.F Name Type Bytes Offset Dimen Elements Attributes References IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 COM IHE I(4) 4 0 1 399 COM 371,372,374,375,382,383,385,386 IHEG I(4) 4 0 1 387 COM IHRST I(4) 4 20 scalar COM IHW I(4) 4 1596 1 399 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 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 352 IVEG I(4) 4 3096 1 387 COM IVW I(4) 4 4788 1 399 COM 352,393,394,397,398,406,407,408,40 9 IVWG I(4) 4 4644 1 387 COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM LC I(4) 4 3304080 2 17955 COM LIST I(4) 4 40 scalar COM 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 Page 11 Source Listing PGCOR 2025-03-12 18:21 Symbol Table PGCOR.F Name Type Bytes Offset Dimen Elements Attributes References MYIE I(4) 4 52 scalar COM 345 MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM 351,405,416 MYIE1_P3 I(4) 4 128 scalar COM 381 MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM 392 MYIE_P3 I(4) 4 108 scalar COM 370 MYIE_P4 I(4) 4 112 scalar COM 314,321,329,339,360 MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM 345 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 351,392,405,416 MYIS_P3 I(4) 4 72 scalar COM 370,381 MYIS_P4 I(4) 4 76 scalar COM 314,321,329,339,360 MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM 344 MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM 350,391 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 404,415 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 369,380 MYJE_P4 I(4) 4 272 scalar COM 313,320,328,338,359 MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 344 MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM 350,391 MYJS1_P3 I(4) 4 192 scalar COM 380 MYJS1_P4 I(4) 4 196 scalar COM Page 12 Source Listing PGCOR 2025-03-12 18:21 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 404,415 MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM 369 MYJS_P4 I(4) 4 176 scalar COM 313,320,328,338,359 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 3375540 3 807975 COM PD R(4) 4 0 2 17955 COM 316,323 PDSL R(4) 4 0 2 17955 COM 306,316,323,340,361 Page 13 Source Listing PGCOR 2025-03-12 18:21 Symbol Table PGCOR.F Name Type Bytes Offset Dimen Elements Attributes References PREC R(4) 4 1149120 2 17955 COM PSDT R(4) 4 71820 2 17955 COM PSHLTR R(4) 4 2154600 2 17955 COM PT R(4) 4 20 scalar COM 361 Q R(4) 4 9767520 3 807975 COM 362 Q10 R(4) 4 1795500 2 17955 COM Q2 R(4) 4 2226420 3 807975 COM Q30 R(4) 4 1508220 2 17955 COM QS R(4) 4 502740 2 17955 COM QSHLTR R(4) 4 2082780 2 17955 COM QWBS R(4) 4 861840 2 17955 COM QZ0 R(4) 4 359100 2 17955 COM R R(4) 4 16 scalar COM 362 RDETA R(4) 4 216 1 45 COM RES R(4) 4 13071240 2 17955 COM 323 RESTRT L(4) 4 28 scalar COM RF R(4) 4 718200 2 17955 COM RTOP R(4) 4 143640 3 807975 COM 362,363,374,385 RUN L(4) 4 4 scalar COM SI R(4) 4 1005480 2 17955 COM SICE R(4) 4 215460 2 17955 COM SIGMA L(4) 4 0 scalar COM 311 SM R(4) 4 143640 2 17955 COM SNO R(4) 4 933660 2 17955 COM SR R(4) 4 3375900 2 17955 COM SUBPOST L(4) 4 104 scalar COM T R(4) 4 71820 3 807975 COM 362 TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TH10 R(4) 4 1723680 2 17955 COM TH30 R(4) 4 1436400 2 17955 COM THS R(4) 4 430920 2 17955 COM THZ0 R(4) 4 287280 2 17955 COM TSHLTR R(4) 4 2010960 2 17955 COM TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 790020 2 17955 COM U R(4) 4 3303720 3 807975 COM 417,420,422,423,425,426,427 U00 R(4) 4 3231900 2 17955 COM U10 R(4) 4 1867320 2 17955 COM U30 R(4) 4 1580040 2 17955 COM Page 14 Source Listing PGCOR 2025-03-12 18:21 Symbol Table PGCOR.F Name Type Bytes Offset Dimen Elements Attributes References 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 420,422,424,427,428 V10 R(4) 4 1939140 2 17955 COM V30 R(4) 4 1651860 2 17955 COM VBM2 R(4) 4 0 2 17955 COM 418 VBM3 R(4) 4 71820 2 17955 COM VTM R(4) 4 3519180 3 807975 COM 418 VZ0 R(4) 4 215460 2 17955 COM WPDAR R(4) 4 79024 2 17955 COM Z0 R(4) 4 0 2 17955 COM Page 15 Source Listing PGCOR 2025-03-12 18:21 Subprograms/Common Blocks PGCOR.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 225 3447720 SAVE CONTIN Common 234 12999420 SAVE CTLBLK Common 147 112 SAVE DYNAM Common 168 725404 SAVE GLB_TABLE Common 114 128 SAVE INDX Common 245 6564 SAVE INDXG Common 251 8084 SAVE MAPPINGS Common 133 5024 SAVE MASKS Common 156 6894720 SAVE MPPCOM Common 78 1464 SAVE PGCOR Subr 2 PVRBLS Common 194 5530140 SAVE TEMPCOM Common 119 6603768 SAVE TOPO Common 127 17478548 SAVE VRBLS Common 184 13143060 SAVE COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous Page 16 Source Listing PGCOR 2025-03-12 18:21 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:21 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