Page 1 Source Listing E1E290 2014-12-17 20:46 /tmpnwprd/ifortdwuj86.i 1 # 1 "E1E290.F" 2 SUBROUTINE E1E290(G1,G2,G3,G4,G5,EMISS,FXOE1,DTE1,FXOE2,DTE2, 3 1 AVEPHI,TEMP,T) 4 C 5 C SUBROUTINE E1E290 COMPUTES THE EXCHANGE TERMS IN THE FLUX EQUATION 6 C FOR LONGWAVE RADIATION FOR ALL TERMS EXCEPT THE EXCHANGE WITH THE 7 C TOP OF THE ATMOSPHERE. THE METHOD IS A TABLE LOOKUP ON A PRE- 8 C COMPUTED E2 FUNCTION (DEFINED IN REF. (4)). 9 C THE E1 FUNCTION CALCULATIONS (FORMERLY DONE IN SUBROUTINE 10 C E1V88 COMPUTE THE FLUX RESULTING FROM THE EXCHANGE OF PHOTONS 11 C BETWEEN A LAYER AND THE TOP OF THE ATMOSPHERE. THE METHOD IS A 12 C TABLE LOOKUP ON A PRE-COMPUTED E1 FUNCTION. 13 C CALCULATIONS ARE DONE IN TWO FREQUENCY RANGES: 14 C 1) 0-560,1200-2200 CM-1 FOR Q(APPROX) 15 C 2) 160-560 CM-1 FOR Q(APPROX,CTS). 16 C MOTIVATION FOR THESE CALCULATIONS IS IN REFERENCES (1) AND (4). 17 C INPUTS: (COMMON BLOCKS) 18 C TABLE1,TABLE2,TABLE3,EM1,EM1WDE TABCOM 19 C AVEPHI TFCOM 20 C TEMP RADISW 21 C T KDACOM 22 C FXOE1,DTE1 ARGUMENT LIST 23 C FXOE2,DTE2 ARGUMENT LIST 24 C OUTPUTS: 25 C EMISS TFCOM 26 C G1,G2,G3 ARGUMENT LIST,FOR 1ST FREQ. RANGE 27 C G4,G5 ARGUMENT LIST,FOR 2ND FREQ. RANGE 28 C 29 C CALLED BY : FST88 30 C CALLS : 31 C 32 C 33 COMMON/PHYCON/AMOLWT,CSUBP,DIFFCTR,G,GRAVDR,O3DIFCTR,P0, 34 * P0XZP2,P0XZP8,P0X2,RADCON,RGAS,RGASSP,SECPDA 35 COMMON/PHYCON/RATCO2MW,RATH2OMW 36 COMMON/PHYCON/RADCON1 37 COMMON/PHYCON/GINV,P0INV,GP0INV 38 COMMON/HCON/HUNDRED,HNINETY,SIXTY,FIFTY,TEN,EIGHT,FIVE, 39 * FOUR,THREE,TWO,ONE,HAF,QUARTR,ZERO 40 COMMON/HCON/H83E26,H71E26,H1E15,H1E13,H1E11,H1E8,H4E5, 41 * H165E5,H5725E4,H488E4,H1E4,H24E3,H20788E3, 42 * H2075E3,H1224E3,H5E2,H3082E2,H3E2,H2945E2, 43 * H23E2,H15E2,H35E1,H3P6,H181E1,H18E1,H2P9,H2P8, 44 * H2P5,H1P8,H1P4387,H1P4,H1P25892,HP8,HP518, 45 * HP369,HP1 46 COMMON/HCON/H44871M2,H559M3,H1M3,H987M4,H285M4,H1M4, 47 * H6938M5,H394M5,H37412M5,H1439M5,H128M5,H1M5, 48 * H7M6,H4999M6,H25452M6,H1M6,H391M7,H1174M7, 49 * H8725M8,H327M8,H257M8,H1M8,H23M10,H14M10, 50 * H11M10,H1M10,H83M11,H82M11,H8M11,H77M11, 51 * H72M11,H53M11,H48M11,H44M11,H42M11,H37M11, 52 * H35M11,H32M11,H3M11,H28M11,H24M11,H23M11, 53 * H2M11,H18M11,H15M11,H14M11,H114M11,H11M11, 54 * H1M11,H96M12,H93M12,H77M12,H74M12,H65M12, 55 * H62M12,H6M12,H45M12,H44M12,H4M12,H38M12, 56 * H37M12,H3M12,H29M12,H28M12,H24M12,H21M12, 57 * H16M12,H14M12,H12M12,H8M13,H46M13,H36M13, Page 2 Source Listing E1E290 2014-12-17 20:46 E1E290.F 58 * H135M13,H12M13,H1M13,H3M14,H15M14,H14M14, 59 * H1M17,H1M18,H1M19,H1M20,H1M21,H1M22,H1M23, 60 * H1M24,H26M30,H14M30,H25M31,H21M31,H12M31, 61 * H9M32,H55M32,H45M32,H4M33,H62M34,H1M60 62 COMMON/HCON/HMP575,HM13EZ,HM19EZ,HM1E1,HM181E1,HM1E2 63 COMMON/HCON/H1E6,H2E6,H1M2,HMP66667,HM6666M2,HP166666, 64 * H41666M2,HMP5,HM2M2,H29316E2,H1226E1,H3116E1, 65 * H9P94,HP6,H625M2,HP228,HP60241,HM1797E1, 66 * H8121E1,H2E2,HM1EZ,H26E2,H44194M2,H1P41819 67 COMMON/HCON/HP219,HP144,HP816,H69766E5,H235M3,HP26, 68 * H129M2,H75826M4,H1P082,HP805,H1386E2, 69 * H658M2,H1036E2,H2118M2,H42M2,H323M4, 70 * H67390E2,HP3795,HP5048,H102M5,H451M6 71 COMMON/HCON/H16E1,HM161E1,H161E1,H3M3,H101M16, 72 * HM1597E1,H25E2,HP118666,H15M5,H3P5,H18E3, 73 * H6P08108,HMP805,HP602409,HP526315, 74 * H28571M2,H1M16 75 COMMON/HCON/H3M4 76 COMMON/HCON/HM8E1 77 COMMON/HCON/H28E1 78 C----------------------------------------------------------------------- 79 INCLUDE "parmeta" 102 INCLUDE "mpp.h" 103 # 1 "./sp.h" 1 104 # 4 105 106 # 81 "E1E290.F" 2 107 C----------------------------------------------------------------------- 108 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 109 C IMAX = NO. POINTS ALONG THE LAT. CIRCLE USED IN CALCS. 110 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 111 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 112 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 113 C BANDTA FOR DEFINITION 114 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 115 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 116 C BDCOMB FOR DEFINITION 117 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 118 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 119 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 120 C FROM THE ABOVE PARAMETERS. 179 PARAMETER (L=LM) 180 PARAMETER (IMAX=IM,NCOL=IMAX) 181 PARAMETER (NBLW=163,NBLX=47,NBLY=15) 182 PARAMETER (NBLM=NBLY-1) 183 PARAMETER (LP1=L+1,LP2=L+2,LP3=L+3) 184 PARAMETER (LM1=L-1,LM2=L-2,LM3=L-3) 185 PARAMETER (LL=2*L,LLP1=LL+1,LLP2=LL+2,LLP3=LL+3) 186 PARAMETER (LLM1=LL-1,LLM2=LL-2,LLM3=LL-3) 187 PARAMETER (LP1M=LP1*LP1,LP1M1=LP1M-1) 188 PARAMETER (LP1V=LP1*(1+2*L/2)) 189 PARAMETER (LP121=LP1*NBLY) 190 PARAMETER (LL3P=3*L+2) 191 PARAMETER (NB=12) 192 PARAMETER (INLTE=3,INLTEP=INLTE+1,NNLTE=56) 193 PARAMETER (LP1I=IMAX*LP1,LLP1I=IMAX*LLP1,LL3PI=IMAX*LL3P) 194 PARAMETER (NB1=NB-1) Page 3 Source Listing E1E290 2014-12-17 20:46 E1E290.F 195 PARAMETER (KO2=12) 196 PARAMETER (KO21=KO2+1,KO2M=KO2-1) 197 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 198 C IMAX = NO. POINTS SENT TO RADFS 199 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 200 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 201 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 202 C BANDTA FOR DEFINITION 203 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 204 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 205 C BDCOMB FOR DEFINITION 206 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 207 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 208 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 209 C FROM THE ABOVE PARAMETERS. 210 C COMMON BLOCK TABCOM CONTAINS QUANTITIES PRECOMPUTED IN SUBROUTINE 211 C TABLE FOR USE IN THE LONGWAVE RADIATION PROGRAM: 212 C EM1 = E1 FUNCTION, EVALUATED OVER THE 0-560 AND 213 C 1200-2200 CM-1 INTERVALS 214 C EM1WDE = E1 FUNCTION, EVALUATED OVER THE 160-560 CM-1 215 C INTERVAL 216 C TABLE1 = E2 FUNCTION, EVALUATED OVER THE 0-560 AND 217 C 1200-2200 CM-1 INTERVALS 218 C TABLE2 = TEMPERATURE DERIVATIVE OF TABLE1 219 C TABLE3 = MASS DERIVATIVE OF TABLE1 220 C EM3 = E3 FUNCTION, EVALUATED OVER THE 0-560 AND 221 C 1200-2200 CM-1 INTERVALS 222 C SOURCE = PLANCK FUNCTION, EVALUATED AT SPECIFIED TEMPS. FOR 223 C BANDS USED IN CTS CALCULATIONS 224 C DSRCE = TEMPERATURE DERIVATIVE OF SOURCE 225 C IND = INDEX, WITH VALUE IND(I)=I. USED IN FST88 226 C INDX2 = INDEX VALUES USED IN OBTAINING "LOWER TRIANGLE" 227 C ELEMENTS OF AVEPHI,ETC.,IN FST88 228 C KMAXV = INDEX VALUES USED IN OBTAINING "UPPER TRIANGLE" 229 C ELEMENTS OF AVEPHI,ETC.,IN FST88 230 C KMAXVM = KMAXV(L),USED FOR DO LOOP INDICES 231 C 232 COMMON / TABCOM / IND(IMAX),INDX2(LP1V),KMAXV(LP1), 233 1 KMAXVM 234 COMMON/TABCOM/EM1(28,180),EM1WDE(28,180),TABLE1(28,180), 235 1 TABLE2(28,180),TABLE3(28,180),EM3(28,180),SOURCE(28,NBLY), 236 2 DSRCE(28,NBLY) 237 C 238 DIMENSION TEMP(IDIM1:IDIM2,LP1),T(IDIM1:IDIM2,LP1) 239 DIMENSION AVEPHI(IDIM1:IDIM2,LP1),EMISS(IDIM1:IDIM2,LP1) 240 C 241 DIMENSION IT1(IDIM1:IDIM2,LL3P),IVAL(IDIM1:IDIM2,LP1), 242 5 FYO(IDIM1:IDIM2,LP1),DU(IDIM1:IDIM2,LP1), 243 6 WW1(IDIM1:IDIM2,LP1),WW2(IDIM1:IDIM2,LP1), 244 7 TMP3(IDIM1:IDIM2,LP1),TMP5(IDIM1:IDIM2),TMP9(IDIM1:IDIM2) 245 C---VARIABLES EQUIVALENCED TO COMMON BLOCK VARIABLES 246 DIMENSION T1(5040),T2(5040),T4(5040) 247 DIMENSION EM1V(5040),EM1VW(5040) 248 C---VARIABLES IN THE ARGUMENT LIST 249 DIMENSION FXOE1(IDIM1:IDIM2,LP1),DTE1(IDIM1:IDIM2,LP1), 250 1 FXOE2(IDIM1:IDIM2,LP1),DTE2(IDIM1:IDIM2,LP1), 251 2 G1(IDIM1:IDIM2,LP1),G2(IDIM1:IDIM2,L),G3(IDIM1:IDIM2,LP1), Page 4 Source Listing E1E290 2014-12-17 20:46 E1E290.F 252 & G4(IDIM1:IDIM2,LP1),G5(IDIM1:IDIM2,L) 253 C 254 EQUIVALENCE (EM1V(1),EM1(1,1)),(EM1VW(1),EM1WDE(1,1)) 255 EQUIVALENCE (T1(1),TABLE1(1,1)),(T2(1),TABLE2(1,1)), 256 1 (T4(1),TABLE3(1,1)) 257 C---FIRST WE OBTAIN THE EMISSIVITIES AS A FUNCTION OF TEMPERATURE 258 C (INDEX FXO) AND WATER AMOUNT (INDEX FYO). THIS PART OF THE CODE 259 C THUS GENERATES THE E2 FUNCTION. THE FXO INDICES HAVE BEEN 260 C OBTAINED IN FST88, FOR CONVENIENCE. 261 C 262 C---THIS SUBROUTINE EVALUATES THE K=1 CASE ONLY-- 263 C 264 C---THIS LOOP REPLACES LOOPS GOING FROMI=1,IMAX AND KP=2,LP1 PLUS 265 C THE SPECIAL CASE FOR THE LP1TH LAYER. 266 DO 1322 K=1,LP1 267 DO 1322 I=MYIS,MYIE 268 TMP3(I,K)=LOG10(AVEPHI(I,K))+H16E1 269 FYO(I,K)=AINT(TMP3(I,K)*TEN) 270 DU(I,K)=TMP3(I,K)-HP1*FYO(I,K) 271 FYO(I,K)=H28E1*FYO(I,K) 272 C WNE 12-11 IVAL(I,K)=FYO(I,K)+FXOE2(I,K) 273 IVAL(I,K)=max(FYO(I,K)+FXOE2(I,K),1.0) 274 EMISS(I,K)=T1(IVAL(I,K))+DU(I,K)*T2(IVAL(I,K)) 275 1 +DTE2(I,K)*T4(IVAL(I,K)) 276 1322 CONTINUE 277 C 278 C---THE SPECIAL CASE EMISS(I,L) (LAYER KP) IS OBTAINED NOW 279 C BY AVERAGING THE VALUES FOR L AND LP1: 280 DO 1344 I=MYIS,MYIE 281 EMISS(I,L)=HAF*(EMISS(I,L)+EMISS(I,LP1)) 282 1344 CONTINUE 283 C 284 C CALCULATIONS FOR THE KP=1 LAYER ARE NOT PERFORMED, AS 285 C THE RADIATION CODE ASSUMES THAT THE TOP FLUX LAYER (ABOVE THE 286 C TOP DATA LEVEL) IS ISOTHERMAL, AND HENCE CONTRIBUTES NOTHING 287 C TO THE FLUXES AT OTHER LEVELS. 288 C 289 C***THE FOLLOWING IS THE CALCULATION FOR THE E1 FUNCTION, FORMERLY 290 C DONE IN SUBROUTINE E1V88. THE MOVE TO E1E288 IS DUE TO THE 291 C SAVINGS IN OBTAINING INDEX VALUES (THE TEMP. INDICES HAVE 292 C BEEN OBTAINED IN FST88, WHILE THE U-INDICES ARE OBTAINED 293 C IN THE E2 CALCS.,WITH K=1). 294 C 295 C 296 C FOR TERMS INVOLVING TOP LAYER, DU IS NOT KNOWN; IN FACT, WE 297 C USE INDEX 2 TO REPERSENT INDEX 1 IN PREV. CODE. THIS MEANS THAT 298 C THE IT1 INDEX 1 AND LLP1 HAS TO BE CALCULATED SEPARATELY. THE 299 C INDEX LLP2 GIVES THE SAME VALUE AS 1; IT CAN BE OMITTED. 300 DO 208 I=MYIS,MYIE 301 C 12-11 WNE IT1(I,1)=FXOE1(I,1) 302 IT1(I,1)=max(FXOE1(I,1),1.0) 303 WW1(I,1)=TEN-DTE1(I,1) 304 WW2(I,1)=HP1 305 208 CONTINUE 306 DO 209 K=1,L 307 DO 209 I=MYIS,MYIE 308 C 12-11 WNE IT1(I,K+1)=FYO(I,K)+FXOE1(I,K+1) Page 5 Source Listing E1E290 2014-12-17 20:46 E1E290.F 309 IT1(I,K+1)=max(FYO(I,K)+FXOE1(I,K+1),1.0) 310 C 12-11 WNE IT1(I,LP2+K-1)=FYO(I,K)+FXOE1(I,K) 311 IT1(I,LP2+K-1)=max(FYO(I,K)+FXOE1(I,K),1.0) 312 WW1(I,K+1)=TEN-DTE1(I,K+1) 313 WW2(I,K+1)=HP1-DU(I,K) 314 209 CONTINUE 315 DO 211 KP=1,L 316 DO 211 I=MYIS,MYIE 317 C 12-11 WNE IT1(I,KP+LLP1)=FYO(I,KP)+FXOE1(I,1) 318 IT1(I,KP+LLP1)=max(FYO(I,KP)+FXOE1(I,1),1.0) 319 211 CONTINUE 320 C 321 C 322 C G3(I,1) HAS THE SAME VALUES AS G1 (AND DID ALL ALONG) 323 DO 230 I=MYIS,MYIE 324 G1(I,1)=WW1(I,1)*WW2(I,1)*EM1V(IT1(I,1))+ 325 1 WW2(I,1)*DTE1(I,1)*EM1V(IT1(I,1)+1) 326 G3(I,1)=G1(I,1) 327 230 CONTINUE 328 DO 240 K=1,L 329 DO 240 I=MYIS,MYIE 330 G1(I,K+1)=WW1(I,K+1)*WW2(I,K+1)*EM1V(IT1(I,K+1))+ 331 1 WW2(I,K+1)*DTE1(I,K+1)*EM1V(IT1(I,K+1)+1)+ 332 2 WW1(I,K+1)*DU(I,K)*EM1V(IT1(I,K+1)+28)+ 333 3 DTE1(I,K+1)*DU(I,K)*EM1V(IT1(I,K+1)+29) 334 G2(I,K)=WW1(I,K)*WW2(I,K+1)*EM1V(IT1(I,K+LP2-1))+ 335 1 WW2(I,K+1)*DTE1(I,K)*EM1V(IT1(I,K+LP2-1)+1)+ 336 1 WW1(I,K)*DU(I,K)*EM1V(IT1(I,K+LP2-1)+28)+ 337 2 DTE1(I,K)*DU(I,K)*EM1V(IT1(I,K+LP2-1)+29) 338 240 CONTINUE 339 DO 241 KP=2,LP1 340 DO 241 I=MYIS,MYIE 341 G3(I,KP)=WW1(I,1)*WW2(I,KP)*EM1V(IT1(I,LL+KP))+ 342 1 WW2(I,KP)*DTE1(I,1)*EM1V(IT1(I,LL+KP)+1)+ 343 2 WW1(I,1)*DU(I,KP-1)*EM1V(IT1(I,LL+KP)+28)+ 344 3 DTE1(I,1)*DU(I,KP-1)*EM1V(IT1(I,LL+KP)+29) 345 241 CONTINUE 346 C 347 DO 244 I=MYIS,MYIE 348 G4(I,1)=WW1(I,1)*WW2(I,1)*EM1VW(IT1(I,1))+ 349 1 WW2(I,1)*DTE1(I,1)*EM1VW(IT1(I,1)+1) 350 244 CONTINUE 351 DO 242 K=1,L 352 DO 242 I=MYIS,MYIE 353 G4(I,K+1)=WW1(I,K+1)*WW2(I,K+1)*EM1VW(IT1(I,K+1))+ 354 1 WW2(I,K+1)*DTE1(I,K+1)*EM1VW(IT1(I,K+1)+1)+ 355 2 WW1(I,K+1)*DU(I,K)*EM1VW(IT1(I,K+1)+28)+ 356 3 DTE1(I,K+1)*DU(I,K)*EM1VW(IT1(I,K+1)+29) 357 G5(I,K)=WW1(I,K)*WW2(I,K+1)*EM1VW(IT1(I,K+LP2-1))+ 358 1 WW2(I,K+1)*DTE1(I,K)*EM1VW(IT1(I,K+LP2-1)+1)+ 359 1 WW1(I,K)*DU(I,K)*EM1VW(IT1(I,K+LP2-1)+28)+ 360 2 DTE1(I,K)*DU(I,K)*EM1VW(IT1(I,K+LP2-1)+29) 361 242 CONTINUE 362 C 363 RETURN 364 END Page 6 Source Listing E1E290 2014-12-17 20:46 Entry Points E1E290.F ENTRY POINTS Name e1e290_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1322 Label 192 182,183 1344 Label 198 196 208 Label 221 216 209 Label 230 222,223 211 Label 235 231,232 230 Label 243 239 240 Label 254 244,245 241 Label 261 255,256 242 Label 277 267,268 244 Label 266 263 AINT Func 185 scalar 185 AMOLWT Scalar 32 R(4) 4 scalar COM AVEPHI Dummy 2 R(4) 4 2 2070 ARG,INOUT 184 CSUBP Scalar 32 R(4) 4 scalar COM DIFFCTR Scalar 32 R(4) 4 scalar COM DSRCE Scalar 152 R(4) 4 2 420 COM DTE1 Dummy 1 R(4) 4 2 2070 ARG,INOUT 219,228,241,247,249,251,253,258,26 0,265,270,272,274,276 DTE2 Dummy 1 R(4) 4 2 2070 ARG,INOUT 191 DU Local 158 R(4) 4 2 2070 186,190,229,248,249,252,253,259,26 0,271,272,275,276 E1E290 Subr 1 EIGHT Scalar 37 R(4) 4 scalar COM EM1 Scalar 150 R(4) 4 2 5040 COM EM1V Scalar 163 R(4) 4 1 5040 COM 240,241,246,247,248,249,250,251,25 2,253,257,258,259,260 EM1VW Scalar 163 R(4) 4 1 5040 COM 264,265,269,270,271,272,273,274,27 5,276 EM1WDE Scalar 150 R(4) 4 2 5040 COM EM3 Scalar 151 R(4) 4 2 5040 COM EMISS Dummy 1 R(4) 4 2 2070 ARG,INOUT 190,197 FIFTY Scalar 37 R(4) 4 scalar COM FIVE Scalar 37 R(4) 4 scalar COM FOUR Scalar 38 R(4) 4 scalar COM FXOE1 Dummy 1 R(4) 4 2 2070 ARG,INOUT 218,225,227,234 FXOE2 Dummy 1 R(4) 4 2 2070 ARG,INOUT 189 FYO Local 158 R(4) 4 2 2070 185,186,187,189,225,227,234 G Scalar 32 R(4) 4 scalar COM G1 Dummy 1 R(4) 4 2 2070 ARG,INOUT 240,242,246 G2 Dummy 1 R(4) 4 2 2025 ARG,INOUT 250 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM G3 Dummy 1 R(4) 4 2 2070 ARG,INOUT 242,257 G4 Dummy 1 R(4) 4 2 2070 ARG,INOUT 264,269 Page 7 Source Listing E1E290 2014-12-17 20:46 Symbol Table E1E290.F Name Object Declared Type Bytes Dimen Elements Attributes References G5 Dummy 1 R(4) 4 2 2025 ARG,INOUT 273 GINV Scalar 36 R(4) 4 scalar COM GLB_TABLE Common 37 128 GP0INV Scalar 36 R(4) 4 scalar COM GRAVDR Scalar 32 R(4) 4 scalar COM H101M16 Scalar 70 R(4) 4 scalar COM H102M5 Scalar 69 R(4) 4 scalar COM H1036E2 Scalar 68 R(4) 4 scalar COM H114M11 Scalar 52 R(4) 4 scalar COM H1174M7 Scalar 47 R(4) 4 scalar COM H11M10 Scalar 49 R(4) 4 scalar COM H11M11 Scalar 52 R(4) 4 scalar COM H1224E3 Scalar 41 R(4) 4 scalar COM H1226E1 Scalar 63 R(4) 4 scalar COM H128M5 Scalar 46 R(4) 4 scalar COM H129M2 Scalar 67 R(4) 4 scalar COM H12M12 Scalar 56 R(4) 4 scalar COM H12M13 Scalar 57 R(4) 4 scalar COM H12M31 Scalar 59 R(4) 4 scalar COM H135M13 Scalar 57 R(4) 4 scalar COM H1386E2 Scalar 67 R(4) 4 scalar COM H1439M5 Scalar 46 R(4) 4 scalar COM H14M10 Scalar 48 R(4) 4 scalar COM H14M11 Scalar 52 R(4) 4 scalar COM H14M12 Scalar 56 R(4) 4 scalar COM H14M14 Scalar 57 R(4) 4 scalar COM H14M30 Scalar 59 R(4) 4 scalar COM H15E2 Scalar 42 R(4) 4 scalar COM H15M11 Scalar 52 R(4) 4 scalar COM H15M14 Scalar 57 R(4) 4 scalar COM H15M5 Scalar 71 R(4) 4 scalar COM H161E1 Scalar 70 R(4) 4 scalar COM H165E5 Scalar 40 R(4) 4 scalar COM H16E1 Scalar 70 R(4) 4 scalar COM 184 H16M12 Scalar 56 R(4) 4 scalar COM H181E1 Scalar 42 R(4) 4 scalar COM H18E1 Scalar 42 R(4) 4 scalar COM H18E3 Scalar 71 R(4) 4 scalar COM H18M11 Scalar 52 R(4) 4 scalar COM H1E11 Scalar 39 R(4) 4 scalar COM H1E13 Scalar 39 R(4) 4 scalar COM H1E15 Scalar 39 R(4) 4 scalar COM H1E4 Scalar 40 R(4) 4 scalar COM H1E6 Scalar 62 R(4) 4 scalar COM H1E8 Scalar 39 R(4) 4 scalar COM H1M10 Scalar 49 R(4) 4 scalar COM H1M11 Scalar 53 R(4) 4 scalar COM H1M13 Scalar 57 R(4) 4 scalar COM H1M16 Scalar 73 R(4) 4 scalar COM H1M17 Scalar 58 R(4) 4 scalar COM H1M18 Scalar 58 R(4) 4 scalar COM H1M19 Scalar 58 R(4) 4 scalar COM H1M2 Scalar 62 R(4) 4 scalar COM H1M20 Scalar 58 R(4) 4 scalar COM H1M21 Scalar 58 R(4) 4 scalar COM Page 8 Source Listing E1E290 2014-12-17 20:46 Symbol Table E1E290.F Name Object Declared Type Bytes Dimen Elements Attributes References H1M22 Scalar 58 R(4) 4 scalar COM H1M23 Scalar 58 R(4) 4 scalar COM H1M24 Scalar 59 R(4) 4 scalar COM H1M3 Scalar 45 R(4) 4 scalar COM H1M4 Scalar 45 R(4) 4 scalar COM H1M5 Scalar 46 R(4) 4 scalar COM H1M6 Scalar 47 R(4) 4 scalar COM H1M60 Scalar 60 R(4) 4 scalar COM H1M8 Scalar 48 R(4) 4 scalar COM H1P082 Scalar 67 R(4) 4 scalar COM H1P25892 Scalar 43 R(4) 4 scalar COM H1P4 Scalar 43 R(4) 4 scalar COM H1P41819 Scalar 65 R(4) 4 scalar COM H1P4387 Scalar 43 R(4) 4 scalar COM H1P8 Scalar 43 R(4) 4 scalar COM H2075E3 Scalar 41 R(4) 4 scalar COM H20788E3 Scalar 40 R(4) 4 scalar COM H2118M2 Scalar 68 R(4) 4 scalar COM H21M12 Scalar 55 R(4) 4 scalar COM H21M31 Scalar 59 R(4) 4 scalar COM H235M3 Scalar 66 R(4) 4 scalar COM H23E2 Scalar 42 R(4) 4 scalar COM H23M10 Scalar 48 R(4) 4 scalar COM H23M11 Scalar 51 R(4) 4 scalar COM H24E3 Scalar 40 R(4) 4 scalar COM H24M11 Scalar 51 R(4) 4 scalar COM H24M12 Scalar 55 R(4) 4 scalar COM H25452M6 Scalar 47 R(4) 4 scalar COM H257M8 Scalar 48 R(4) 4 scalar COM H25E2 Scalar 71 R(4) 4 scalar COM H25M31 Scalar 59 R(4) 4 scalar COM H26E2 Scalar 65 R(4) 4 scalar COM H26M30 Scalar 59 R(4) 4 scalar COM H28571M2 Scalar 73 R(4) 4 scalar COM H285M4 Scalar 45 R(4) 4 scalar COM H28E1 Scalar 76 R(4) 4 scalar COM 187 H28M11 Scalar 51 R(4) 4 scalar COM H28M12 Scalar 55 R(4) 4 scalar COM H29316E2 Scalar 63 R(4) 4 scalar COM H2945E2 Scalar 41 R(4) 4 scalar COM H29M12 Scalar 55 R(4) 4 scalar COM H2E2 Scalar 65 R(4) 4 scalar COM H2E6 Scalar 62 R(4) 4 scalar COM H2M11 Scalar 52 R(4) 4 scalar COM H2P5 Scalar 43 R(4) 4 scalar COM H2P8 Scalar 42 R(4) 4 scalar COM H2P9 Scalar 42 R(4) 4 scalar COM H3082E2 Scalar 41 R(4) 4 scalar COM H3116E1 Scalar 63 R(4) 4 scalar COM H323M4 Scalar 68 R(4) 4 scalar COM H327M8 Scalar 48 R(4) 4 scalar COM H32M11 Scalar 51 R(4) 4 scalar COM H35E1 Scalar 42 R(4) 4 scalar COM H35M11 Scalar 51 R(4) 4 scalar COM H36M13 Scalar 56 R(4) 4 scalar COM Page 9 Source Listing E1E290 2014-12-17 20:46 Symbol Table E1E290.F Name Object Declared Type Bytes Dimen Elements Attributes References H37412M5 Scalar 46 R(4) 4 scalar COM H37M11 Scalar 50 R(4) 4 scalar COM H37M12 Scalar 55 R(4) 4 scalar COM H38M12 Scalar 54 R(4) 4 scalar COM H391M7 Scalar 47 R(4) 4 scalar COM H394M5 Scalar 46 R(4) 4 scalar COM H3E2 Scalar 41 R(4) 4 scalar COM H3M11 Scalar 51 R(4) 4 scalar COM H3M12 Scalar 55 R(4) 4 scalar COM H3M14 Scalar 57 R(4) 4 scalar COM H3M3 Scalar 70 R(4) 4 scalar COM H3M4 Scalar 74 R(4) 4 scalar COM H3P5 Scalar 71 R(4) 4 scalar COM H3P6 Scalar 42 R(4) 4 scalar COM H41666M2 Scalar 63 R(4) 4 scalar COM H42M11 Scalar 50 R(4) 4 scalar COM H42M2 Scalar 68 R(4) 4 scalar COM H44194M2 Scalar 65 R(4) 4 scalar COM H44871M2 Scalar 45 R(4) 4 scalar COM H44M11 Scalar 50 R(4) 4 scalar COM H44M12 Scalar 54 R(4) 4 scalar COM H451M6 Scalar 69 R(4) 4 scalar COM H45M12 Scalar 54 R(4) 4 scalar COM H45M32 Scalar 60 R(4) 4 scalar COM H46M13 Scalar 56 R(4) 4 scalar COM H488E4 Scalar 40 R(4) 4 scalar COM H48M11 Scalar 50 R(4) 4 scalar COM H4999M6 Scalar 47 R(4) 4 scalar COM H4E5 Scalar 39 R(4) 4 scalar COM H4M12 Scalar 54 R(4) 4 scalar COM H4M33 Scalar 60 R(4) 4 scalar COM H53M11 Scalar 50 R(4) 4 scalar COM H559M3 Scalar 45 R(4) 4 scalar COM H55M32 Scalar 60 R(4) 4 scalar COM H5725E4 Scalar 40 R(4) 4 scalar COM H5E2 Scalar 41 R(4) 4 scalar COM H625M2 Scalar 64 R(4) 4 scalar COM H62M12 Scalar 54 R(4) 4 scalar COM H62M34 Scalar 60 R(4) 4 scalar COM H658M2 Scalar 68 R(4) 4 scalar COM H65M12 Scalar 53 R(4) 4 scalar COM H67390E2 Scalar 69 R(4) 4 scalar COM H6938M5 Scalar 46 R(4) 4 scalar COM H69766E5 Scalar 66 R(4) 4 scalar COM H6M12 Scalar 54 R(4) 4 scalar COM H6P08108 Scalar 72 R(4) 4 scalar COM H71E26 Scalar 39 R(4) 4 scalar COM H72M11 Scalar 50 R(4) 4 scalar COM H74M12 Scalar 53 R(4) 4 scalar COM H75826M4 Scalar 67 R(4) 4 scalar COM H77M11 Scalar 49 R(4) 4 scalar COM H77M12 Scalar 53 R(4) 4 scalar COM H7M6 Scalar 47 R(4) 4 scalar COM H8121E1 Scalar 65 R(4) 4 scalar COM H82M11 Scalar 49 R(4) 4 scalar COM Page 10 Source Listing E1E290 2014-12-17 20:46 Symbol Table E1E290.F Name Object Declared Type Bytes Dimen Elements Attributes References H83E26 Scalar 39 R(4) 4 scalar COM H83M11 Scalar 49 R(4) 4 scalar COM H8725M8 Scalar 48 R(4) 4 scalar COM H8M11 Scalar 49 R(4) 4 scalar COM H8M13 Scalar 56 R(4) 4 scalar COM H93M12 Scalar 53 R(4) 4 scalar COM H96M12 Scalar 53 R(4) 4 scalar COM H987M4 Scalar 45 R(4) 4 scalar COM H9M32 Scalar 60 R(4) 4 scalar COM H9P94 Scalar 64 R(4) 4 scalar COM HAF Scalar 38 R(4) 4 scalar COM 197 HCON Common 37 872 HM13EZ Scalar 61 R(4) 4 scalar COM HM1597E1 Scalar 71 R(4) 4 scalar COM HM161E1 Scalar 70 R(4) 4 scalar COM HM1797E1 Scalar 64 R(4) 4 scalar COM HM181E1 Scalar 61 R(4) 4 scalar COM HM19EZ Scalar 61 R(4) 4 scalar COM HM1E1 Scalar 61 R(4) 4 scalar COM HM1E2 Scalar 61 R(4) 4 scalar COM HM1EZ Scalar 65 R(4) 4 scalar COM HM2M2 Scalar 63 R(4) 4 scalar COM HM6666M2 Scalar 62 R(4) 4 scalar COM HM8E1 Scalar 75 R(4) 4 scalar COM HMP5 Scalar 63 R(4) 4 scalar COM HMP575 Scalar 61 R(4) 4 scalar COM HMP66667 Scalar 62 R(4) 4 scalar COM HMP805 Scalar 72 R(4) 4 scalar COM HNINETY Scalar 37 R(4) 4 scalar COM HP1 Scalar 44 R(4) 4 scalar COM 186,220,229 HP118666 Scalar 71 R(4) 4 scalar COM HP144 Scalar 66 R(4) 4 scalar COM HP166666 Scalar 62 R(4) 4 scalar COM HP219 Scalar 66 R(4) 4 scalar COM HP228 Scalar 64 R(4) 4 scalar COM HP26 Scalar 66 R(4) 4 scalar COM HP369 Scalar 44 R(4) 4 scalar COM HP3795 Scalar 69 R(4) 4 scalar COM HP5048 Scalar 69 R(4) 4 scalar COM HP518 Scalar 43 R(4) 4 scalar COM HP526315 Scalar 72 R(4) 4 scalar COM HP6 Scalar 64 R(4) 4 scalar COM HP602409 Scalar 72 R(4) 4 scalar COM HP60241 Scalar 64 R(4) 4 scalar COM HP8 Scalar 43 R(4) 4 scalar COM HP805 Scalar 67 R(4) 4 scalar COM HP816 Scalar 66 R(4) 4 scalar COM HTMG Scalar 52 R(4) 4 3 4183695 COM HUNDRED Scalar 37 R(4) 4 scalar COM I Local 183 I(4) 4 scalar 183,184,185,186,187,189,190,191,19 6,197,216,218,219,220,223,225,227, 228,229,232,234,239,240,241,242,24 5,246,247,248,249,250,251,252,253, 256,257,258,259,260,263,264,265,26 8,269,270,271,272,273,274,275,276 Page 11 Source Listing E1E290 2014-12-17 20:46 Symbol Table E1E290.F Name Object Declared Type Bytes Dimen Elements Attributes References IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 154,155,157,158,159,160,165,166,16 7,168 IDIM2 Param 19 I(4) 4 scalar 154,155,157,158,159,160,165,166,16 7,168 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 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 16,19,43,44,45,46,47,51,52,57,96 IMAX Param 96 I(4) 4 scalar 96,109,148 IND Scalar 148 I(4) 4 1 237 COM INDX2 Scalar 148 I(4) 4 1 2116 COM INLTE Param 108 I(4) 4 scalar 108 INLTEP Param 108 I(4) 4 scalar INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar 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 IT1 Local 157 I(4) 4 2 6165 218,225,227,234,240,241,246,247,24 8,249,250,251,252,253,257,258,259, 260,264,265,269,270,271,272,273,27 4,275,276 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 IVAL Local 157 I(4) 4 2 2070 189,190,191 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 JDIM2 Param 20 I(4) 4 scalar 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 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 Page 12 Source Listing E1E290 2014-12-17 20:46 Symbol Table E1E290.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 K Local 182 I(4) 4 scalar 182,184,185,186,187,189,190,191,22 2,225,227,228,229,244,246,247,248, 249,250,251,252,253,267,269,270,27 1,272,273,274,275,276 KMAXV Scalar 148 I(4) 4 1 46 COM KMAXVM Scalar 149 I(4) 4 scalar COM KO2 Param 111 I(4) 4 scalar 112 KO21 Param 112 I(4) 4 scalar KO2M Param 112 I(4) 4 scalar KP Local 231 I(4) 4 scalar 231,234,255,257,258,259,260 L Param 95 I(4) 4 scalar 99,100,101,104,106,167,168,197,222 ,231,244,267 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL Param 101 I(4) 4 scalar 101,102,257,258,259,260 LL3P Param 106 I(4) 4 scalar 109,157 LL3PI Param 109 I(4) 4 scalar LLM1 Param 102 I(4) 4 scalar LLM2 Param 102 I(4) 4 scalar LLM3 Param 102 I(4) 4 scalar LLP1 Param 101 I(4) 4 scalar 109,234 LLP1I Param 109 I(4) 4 scalar LLP2 Param 101 I(4) 4 scalar LLP3 Param 101 I(4) 4 scalar LM Param 3 I(4) 4 scalar 52,95 LM1 Param 100 I(4) 4 scalar LM2 Param 100 I(4) 4 scalar LM3 Param 100 I(4) 4 scalar LOG10 Func 184 scalar 184 LP1 Param 99 I(4) 4 scalar 103,104,105,109,148,154,155,157,15 8,159,160,165,166,167,168,182,197, 255 LP121 Param 105 I(4) 4 scalar LP1I Param 109 I(4) 4 scalar LP1M Param 103 I(4) 4 scalar 103 LP1M1 Param 103 I(4) 4 scalar LP1V Param 104 I(4) 4 scalar 148 LP2 Param 99 I(4) 4 scalar 227,250,251,252,253,273,274,275,27 6 LP3 Param 99 I(4) 4 scalar LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MAX Func 189 scalar 189,218,225,227,234 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 Page 13 Source Listing E1E290 2014-12-17 20:46 Symbol Table E1E290.F Name Object Declared Type Bytes Dimen Elements Attributes References MYIE Scalar 4 I(4) 4 scalar COM 183,196,216,223,232,239,245,256,26 3,268 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 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 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 183,196,216,223,232,239,245,256,26 3,268 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 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 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 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 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 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 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 Page 14 Source Listing E1E290 2014-12-17 20:46 Symbol Table E1E290.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 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 NB Param 107 I(4) 4 scalar 110 NB1 Param 110 I(4) 4 scalar NBLM Param 98 I(4) 4 scalar NBLW Param 97 I(4) 4 scalar NBLX Param 97 I(4) 4 scalar NBLY Param 97 I(4) 4 scalar 98,105,151,152 NCOL Param 96 I(4) 4 scalar NNLTE Param 108 I(4) 4 scalar NPES Scalar 2 I(4) 4 scalar COM O3DIFCTR Scalar 32 R(4) 4 scalar COM ONE Scalar 38 R(4) 4 scalar COM P0 Scalar 32 R(4) 4 scalar COM P0INV Scalar 36 R(4) 4 scalar COM P0X2 Scalar 33 R(4) 4 scalar COM P0XZP2 Scalar 33 R(4) 4 scalar COM P0XZP8 Scalar 33 R(4) 4 scalar COM PHYCON Common 32 80 Page 15 Source Listing E1E290 2014-12-17 20:46 Symbol Table E1E290.F Name Object Declared Type Bytes Dimen Elements Attributes References QUARTR Scalar 38 R(4) 4 scalar COM RADCON Scalar 33 R(4) 4 scalar COM RADCON1 Scalar 35 R(4) 4 scalar COM RATCO2MW Scalar 34 R(4) 4 scalar COM RATH2OMW Scalar 34 R(4) 4 scalar COM RGAS Scalar 33 R(4) 4 scalar COM RGASSP Scalar 33 R(4) 4 scalar COM SECPDA Scalar 33 R(4) 4 scalar COM SIXTY Scalar 37 R(4) 4 scalar COM SOURCE Scalar 151 R(4) 4 2 420 COM T Dummy 2 R(4) 4 2 2070 ARG,INOUT T1 Scalar 162 R(4) 4 1 5040 COM 190 T2 Scalar 162 R(4) 4 1 5040 COM 190 T4 Scalar 162 R(4) 4 1 5040 COM 191 TABCOM Common 148 133920 TABLE1 Scalar 150 R(4) 4 2 5040 COM TABLE2 Scalar 151 R(4) 4 2 5040 COM TABLE3 Scalar 151 R(4) 4 2 5040 COM TEMP Dummy 2 R(4) 4 2 2070 ARG,INOUT 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 TEN Scalar 37 R(4) 4 scalar COM 185,219,228 THREE Scalar 38 R(4) 4 scalar COM TMP3 Local 160 R(4) 4 2 2070 184,185,186 TMP5 Local 160 R(4) 4 1 45 TMP9 Local 160 R(4) 4 1 45 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM TWO Scalar 38 R(4) 4 scalar COM WW1 Local 159 R(4) 4 2 2070 219,228,240,246,248,250,252,257,25 9,264,269,271,273,275 WW2 Local 159 R(4) 4 2 2070 220,229,240,241,246,247,250,251,25 7,258,264,265,269,270,273,274 ZERO Scalar 38 R(4) 4 scalar COM Page 16 Source Listing E1E290 2014-12-17 20:46 Subprograms/Common Blocks E1E290.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References E1E290 Subr 1 GLB_TABLE Common 37 128 HCON Common 37 872 MAPPINGS Common 56 5024 MPPCOM Common 1 1464 PHYCON Common 32 80 TABCOM Common 148 133920 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 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 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ Page 17 Source Listing E1E290 2014-12-17 20:46 E1E290.F -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/ -list filename : E1E290.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100