Page 1 Source Listing PGCOR 2014-12-17 20:47 /tmpnwprd/ifortzeTss9.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 2014-12-17 20:47 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 2014-12-17 20:47 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 2014-12-17 20:47 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 2014-12-17 20:47 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 2014-12-17 20:47 Symbol Table PGCOR.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 141 137,138 210 Label 158 155,156 215 Label 164 161,162 220 Label 173 167,168 230 Label 183 176,177 240 Label 194 186,187 250 Label 205 197,198 280 Label 218 208,209 290 Label 229 221,222 300 Label 246 232,233 400 Label 248 152 50 Label 134 130,131 ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACPREC Scalar 12 R(4) 4 2 17955 COM ADPDNE Local 76 R(4) 4 2 17955 124,188,190,193 ADPDSE Local 77 R(4) 4 2 17955 199,201,204 ADPDX Local 74 R(4) 4 2 17955 147,169,171,216 ADPDY Local 75 R(4) 4 2 17955 148,170,172,217 AETA Scalar 4 R(4) 4 1 45 COM 178 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 APEL Local 92 R(4) 4 2 17955 105,178,179,192,203 CLDEFI Scalar 11 R(4) 4 2 17955 COM CLDWTR Common 2 3447720 CNE Local 98 R(4) 4 2 17955 116,191,193,214 CONTIN Common 2 12999420 CPGFU Scalar 9 R(4) 4 2 17955 COM 237 CPGFV Scalar 3 R(4) 4 scalar COM 239 CSE Local 98 R(4) 4 2 17955 118,202,204,215 CTLBLK Common 4 112 CUPREC Scalar 13 R(4) 4 2 17955 COM CURV Scalar 9 R(4) 4 2 17955 COM 234 CWM Scalar 3 R(4) 4 3 807975 COM DCNE Local 83 R(4) 4 2 17955 DCNEK Local 214 R(4) 4 scalar 214,216,217 DCSE Local 83 R(4) 4 2 17955 DCSEK Local 215 R(4) 4 scalar 215,216,217 DDMPU Scalar 12 R(4) 4 2 17955 COM DDMPV Scalar 12 R(4) 4 2 17955 COM DETA Scalar 4 R(4) 4 1 45 COM 157 DFL Scalar 4 R(4) 4 1 46 COM 182 DIV Scalar 6 R(4) 4 3 807975 COM DPDE Local 91 R(4) 4 2 17955 103,157,163,169,170,180,188,199 DPFEW Local 80 R(4) 4 2 17955 227,236 DPFNE Local 84 R(4) 4 2 17955 DPFNEK Local 223 R(4) 4 scalar 223,227,228 DPFNS Local 80 R(4) 4 2 17955 228,238 DPFSE Local 84 R(4) 4 2 17955 DPFSEK Local 225 R(4) 4 scalar 225,227,228 DPNE Local 82 R(4) 4 2 17955 Page 7 Source Listing PGCOR 2014-12-17 20:47 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References DPNEK Local 210 R(4) 4 scalar 210,212,213 DPSE Local 82 R(4) 4 2 17955 DPSEK Local 211 R(4) 4 scalar 211,212,213 DT Scalar 6 R(4) 4 scalar COM DX Scalar 8 R(4) 4 2 17955 COM DY Scalar 3 R(4) 4 scalar COM DYNAM Common 2 725404 EF4T Scalar 3 R(4) 4 scalar COM EM Scalar 6 R(4) 4 1 760 COM EMT Scalar 6 R(4) 4 1 760 COM EN Scalar 3 R(4) 4 scalar COM ENT Scalar 3 R(4) 4 scalar COM ETA Scalar 4 R(4) 4 1 46 COM ETADT Scalar 7 R(4) 4 3 790020 COM F Scalar 11 R(4) 4 2 17955 COM 234 F0 Local 85 R(4) 4 2 17955 F0K Local 234 R(4) 4 scalar 234,237,239,242,244 F4D Scalar 3 R(4) 4 scalar COM F4Q Scalar 3 R(4) 4 scalar COM F4Q2 Scalar 4 R(4) 4 1 45 COM FAD Scalar 13 R(4) 4 2 17955 COM FCP Scalar 10 R(4) 4 2 17955 COM FDIV Scalar 10 R(4) 4 2 17955 COM FEW Local 94 R(4) 4 2 17955 110 FILO Local 73 R(4) 4 2 17955 132,139,180,181,182 FIM Local 91 R(4) 4 2 17955 104,181,189,200 FIRST Scalar 56 L(4) 4 scalar COM FIS Scalar 7 R(4) 4 2 17955 COM 132 FIUP Local 76 R(4) 4 2 17955 FIUPK Local 180 R(4) 4 scalar 180,181,182 FNE Local 96 R(4) 4 2 17955 113 FNS Local 81 R(4) 4 2 17955 FSE Local 96 R(4) 4 2 17955 114 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HBM2 Scalar 8 R(4) 4 2 17955 COM HBM3 Scalar 8 R(4) 4 2 17955 COM HM Local 88 R(4) 4 2 17955 HTM Scalar 6 R(4) 4 3 807975 COM 182 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 131 I(4) 4 scalar 131,132,133,138,139,140,146,147,14 8,156,157,162,163,168,169,170,171, 172,177,178,179,180,181,182,187,18 8,189,190,191,192,193,198,199,200, 201,202,203,204,209,210,211,212,21 3,214,215,216,217,222,223,224,225, 226,227,228,233,234,235,236,237,23 8,239,240,241,242,243,244,245 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,21,26,73,74,75,76,77,78, 79,80,81,82,83,84,85,86,87,88,91,9 Page 8 Source Listing PGCOR 2014-12-17 20:47 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References 2,93,94,95,96,97,98,99,100 IDIM2 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,21,26,73,74,75,76,77,78, 79,80,81,82,83,84,85,86,87,88,91,9 2,93,94,95,96,97,98,99,100 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 188,189,191,192,199,200,202,203 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 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,53,57 IMJM Param 53 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 ITEMP Scalar 47 I(4) 4 2 91719 COM 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 169 IVEG Scalar 9 I(4) 4 1 387 COM IVW Scalar 4 I(4) 4 1 399 COM 169,210,211,214,215,223,224,225,22 6 IVWG Scalar 9 I(4) 4 1 387 COM J Local 130 I(4) 4 scalar 130,132,133,137,139,140,145,147,14 8,155,157,161,163,167,169,170,171, 172,176,178,179,180,181,182,186,18 8,189,190,191,192,193,197,199,200, 201,202,203,204,208,210,211,212,21 3,214,215,216,217,221,223,224,225, 226,227,228,232,234,235,236,237,23 Page 9 Source Listing PGCOR 2014-12-17 20:47 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References 8,239,240,241,242,243,244,245 JAM Param 53 I(4) 4 scalar 6 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,21,26,73,74,75,76,77,78, 79,80,81,82,83,84,85,86,87,88,91,9 2,93,94,95,96,97,98,99,100 JDIM2 Param 20 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,21,26,73,74,75,76,77,78, 79,80,81,82,83,84,85,86,87,88,91,9 2,93,94,95,96,97,98,99,100 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,53,57 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 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 L Local 152 I(4) 4 scalar 152,157,178,179,180,182,191,202,23 4,235,237,239,240,241,242,243,244, 245 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 LM Param 3 I(4) 4 scalar 3,4,5,6,7,21,52,53,152 LP1 Param 53 I(4) 4 scalar 4 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 MYIE Scalar 4 I(4) 4 scalar COM 162 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM 168,222,233 MYIE1_P3 Scalar 8 I(4) 4 scalar COM 198 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 MYIE_P2 Scalar 7 I(4) 4 scalar COM 209 Page 10 Source Listing PGCOR 2014-12-17 20:47 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References MYIE_P3 Scalar 7 I(4) 4 scalar COM 187 MYIE_P4 Scalar 7 I(4) 4 scalar COM 131,138,146,156,177 MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 162 MYIS1 Scalar 4 I(4) 4 scalar COM 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 MYIS_P2 Scalar 5 I(4) 4 scalar COM 168,209,222,233 MYIS_P3 Scalar 5 I(4) 4 scalar COM 187,198 MYIS_P4 Scalar 5 I(4) 4 scalar COM 131,138,146,156,177 MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 161 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM 167,208 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 MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM 221,232 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 MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM 186,197 MYJE_P4 Scalar 16 I(4) 4 scalar COM 130,137,145,155,176 MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 161 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM 167,208 MYJS1_P3 Scalar 12 I(4) 4 scalar COM 197 MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM 221,232 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 Page 11 Source Listing PGCOR 2014-12-17 20:47 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM 186 MYJS_P4 Scalar 11 I(4) 4 scalar COM 130,137,145,155,176 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 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 OMGALF Scalar 5 R(4) 4 3 807975 COM PCEW Local 79 R(4) 4 2 17955 216,236 PCNE Local 100 R(4) 4 2 17955 120,193,224 PCNS Local 79 R(4) 4 2 17955 217,238 PCSE Local 100 R(4) 4 2 17955 122,204,226 PCXC Local 92 R(4) 4 2 17955 106 PD Scalar 3 R(4) 4 2 17955 COM 133,140 PDSL Scalar 3 R(4) 4 2 17955 COM 123,133,140,157,178 PEW Local 78 R(4) 4 2 17955 212,237 PGCOR Subr 1 PNE Local 97 R(4) 4 2 17955 115,189,190,210 PNS Local 78 R(4) 4 2 17955 213,239 PPNE Local 99 R(4) 4 2 17955 119,190,223 Page 12 Source Listing PGCOR 2014-12-17 20:47 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References PPSE Local 99 R(4) 4 2 17955 121,201,225 PREC Scalar 12 R(4) 4 2 17955 COM PSDT Scalar 3 R(4) 4 2 17955 COM PSE Local 97 R(4) 4 2 17955 117,200,201,211 PSHLTR Scalar 19 R(4) 4 2 17955 COM PT Scalar 3 R(4) 4 scalar COM 178 PVNE Local 87 R(4) 4 2 17955 PVRBLS Common 2 5530140 PVSE Local 87 R(4) 4 2 17955 Q Scalar 6 R(4) 4 3 807975 COM 179 Q10 Scalar 16 R(4) 4 2 17955 COM Q2 Scalar 21 R(4) 4 3 807975 COM Q30 Scalar 14 R(4) 4 2 17955 COM QS Scalar 6 R(4) 4 2 17955 COM 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 R Scalar 3 R(4) 4 scalar COM 179 RDETA Scalar 4 R(4) 4 1 45 COM RDPD Local 73 R(4) 4 2 17955 163 RDPDX Local 74 R(4) 4 2 17955 171,236 RDPDY Local 75 R(4) 4 2 17955 172,238 RES Scalar 7 R(4) 4 2 17955 COM 140 RESTRT Scalar 56 L(4) 4 scalar COM RF Scalar 8 R(4) 4 2 17955 COM RTOP Scalar 4 R(4) 4 3 807975 COM 179,180,191,202 RUN Scalar 56 L(4) 4 scalar COM SI Scalar 10 R(4) 4 2 17955 COM SICE Scalar 4 R(4) 4 2 17955 COM SIGMA Scalar 56 L(4) 4 scalar COM 128 SINGLRST Local 2 L(4) 4 scalar SM Scalar 4 R(4) 4 2 17955 COM SNO Scalar 10 R(4) 4 2 17955 COM SR Scalar 5 R(4) 4 2 17955 COM SUBPOST Scalar 2 L(4) 4 scalar COM T Scalar 5 R(4) 4 3 807975 COM 179 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 TEW Local 94 R(4) 4 2 17955 109 Page 13 Source Listing PGCOR 2014-12-17 20:47 Symbol Table PGCOR.F Name Object Declared Type Bytes Dimen Elements Attributes References TH10 Scalar 16 R(4) 4 2 17955 COM TH30 Scalar 14 R(4) 4 2 17955 COM THS Scalar 6 R(4) 4 2 17955 COM THZ0 Scalar 5 R(4) 4 2 17955 COM TNE Local 95 R(4) 4 2 17955 111 TNS Local 81 R(4) 4 2 17955 TOPO Common 50 17478548 TSE Local 95 R(4) 4 2 17955 112 TSHLTR Scalar 18 R(4) 4 2 17955 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 234,237,239,240,242,243,244 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 UDY Local 93 R(4) 4 2 17955 107 UL Scalar 4 R(4) 4 1 90 COM UP Local 86 R(4) 4 2 17955 UPK Local 236 R(4) 4 scalar 236,242 USTAR Scalar 3 R(4) 4 2 17955 COM UTK Local 240 R(4) 4 scalar 240 UZ0 Scalar 4 R(4) 4 2 17955 COM V Scalar 6 R(4) 4 3 807975 COM 237,239,241,244,245 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 235 VBM3 Scalar 3 R(4) 4 2 17955 COM VDX Local 93 R(4) 4 2 17955 108 VM Local 85 R(4) 4 2 17955 235,243,245 VP Local 86 R(4) 4 2 17955 VPK Local 238 R(4) 4 scalar 238,242,244 VRBLS Common 2 13143060 VTK Local 241 R(4) 4 scalar 241 VTM Scalar 7 R(4) 4 3 807975 COM 235 VZ0 Scalar 4 R(4) 4 2 17955 COM WPDAR Scalar 8 R(4) 4 2 17955 COM Z0 Scalar 3 R(4) 4 2 17955 COM ZERO2 Subr 103 103,104,105,106,107,108,109,110,11 1,112,113,114,115,116,117,118,119, 120,121,122,123,124 Page 14 Source Listing PGCOR 2014-12-17 20:47 Subprograms/Common Blocks PGCOR.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 2 3447720 CONTIN Common 2 12999420 CTLBLK Common 4 112 DYNAM Common 2 725404 GLB_TABLE Common 37 128 INDX Common 2 6564 INDXG Common 8 8084 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPPCOM Common 1 1464 PGCOR Subr 1 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__ Page 15 Source Listing PGCOR 2014-12-17 20:47 PGCOR.F -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -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/, Page 16 Source Listing PGCOR 2014-12-17 20:47 PGCOR.F /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : PGCOR.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100