Page 1 Source Listing E1E290
2025-03-12 18:21 /tmp/ifortBE6jwg.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
2025-03-12 18:21 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
2025-03-12 18:21 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
2025-03-12 18:21 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
2025-03-12 18:21 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
2025-03-12 18:21 Entry Points E1E290.F
ENTRY POINTS
Name
e1e290_
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
1322 Label 276 266,267
1344 Label 282 280
208 Label 305 300
209 Label 314 306,307
211 Label 319 315,316
230 Label 327 323
240 Label 338 328,329
241 Label 345 339,340
242 Label 361 351,352
244 Label 350 347
AINT Func 269 scalar 269
AVEPHI Dummy 3 R(4) 4 2 2070 ARG,INOUT 268
DTE1 Dummy 2 R(4) 4 2 2070 ARG,INOUT 303,312,325,331,333,335,337,342,34
4,349,354,356,358,360
DTE2 Dummy 2 R(4) 4 2 2070 ARG,INOUT 275
DU Local 242 R(4) 4 2 2070 270,274,313,332,333,336,337,343,34
4,355,356,359,360
E1E290 Subr 2
EMISS Dummy 2 R(4) 4 2 2070 ARG,INOUT 274,281
FXOE1 Dummy 2 R(4) 4 2 2070 ARG,INOUT 302,309,311,318
FXOE2 Dummy 2 R(4) 4 2 2070 ARG,INOUT 273
FYO Local 242 R(4) 4 2 2070 269,270,271,273,309,311,318
G1 Dummy 2 R(4) 4 2 2070 ARG,INOUT 324,326,330
G2 Dummy 2 R(4) 4 2 2025 ARG,INOUT 334
G3 Dummy 2 R(4) 4 2 2070 ARG,INOUT 326,341
G4 Dummy 2 R(4) 4 2 2070 ARG,INOUT 348,353
G5 Dummy 2 R(4) 4 2 2025 ARG,INOUT 357
GLB_TABLE Common 157 128 SAVE
HCON Common 38 872
I Local 267 I(4) 4 scalar 267,268,269,270,271,273,274,275,28
0,281,300,302,303,304,307,309,311,
312,313,316,318,323,324,325,326,32
9,330,331,332,333,334,335,336,337,
340,341,342,343,344,347,348,349,35
2,353,354,355,356,357,358,359,360
IDIM1 Param 98 I(4) 4 scalar 238,239,241,242,243,244,249,250,25
1,252
IDIM2 Param 98 I(4) 4 scalar 238,239,241,242,243,244,249,250,25
1,252
IGSTL Param 93 I(4) 4 scalar 98
IGSTR Param 93 I(4) 4 scalar 98
IM Param 82 I(4) 4 scalar 95,98,163,164,165,166,167,171,172,
177,180
IMAX Param 180 I(4) 4 scalar 180,193,232
Page 7 Source Listing E1E290
2025-03-12 18:21 Symbol Table E1E290.F
Name Object Declared Type Bytes Dimen Elements Attributes References
INLTE Param 192 I(4) 4 scalar 192
INLTEP Param 192 I(4) 4 scalar
INPES Param 90 I(4) 4 scalar 95,98,147,148,149,158,159
IT1 Local 241 I(4) 4 2 6165 302,309,311,318,324,325,330,331,33
2,333,334,335,336,337,341,342,343,
344,348,349,353,354,355,356,357,35
8,359,360
ITAIL Param 95 I(4) 4 scalar
IVAL Local 241 I(4) 4 2 2070 273,274,275
JDIM1 Param 99 I(4) 4 scalar
JDIM2 Param 99 I(4) 4 scalar
JGSTL Param 94 I(4) 4 scalar 99
JGSTR Param 94 I(4) 4 scalar 99
JM Param 82 I(4) 4 scalar 96,99,163,164,165,166,167,171,172,
177
JNPES Param 90 I(4) 4 scalar 96,99,147,148,149,158,159
JTAIL Param 96 I(4) 4 scalar
K Local 266 I(4) 4 scalar 266,268,269,270,271,273,274,275,30
6,309,311,312,313,328,330,331,332,
333,334,335,336,337,351,353,354,35
5,356,357,358,359,360
KO2 Param 195 I(4) 4 scalar 196
KO21 Param 196 I(4) 4 scalar
KO2M Param 196 I(4) 4 scalar
KP Local 315 I(4) 4 scalar 315,318,339,341,342,343,344
L Param 179 I(4) 4 scalar 183,184,185,188,190,251,252,281,30
6,315,328,351
LL Param 185 I(4) 4 scalar 185,186,341,342,343,344
LL3P Param 190 I(4) 4 scalar 193,241
LL3PI Param 193 I(4) 4 scalar
LLM1 Param 186 I(4) 4 scalar
LLM2 Param 186 I(4) 4 scalar
LLM3 Param 186 I(4) 4 scalar
LLP1 Param 185 I(4) 4 scalar 193,318
LLP1I Param 193 I(4) 4 scalar
LLP2 Param 185 I(4) 4 scalar
LLP3 Param 185 I(4) 4 scalar
LM Param 82 I(4) 4 scalar 172,179
LM1 Param 184 I(4) 4 scalar
LM2 Param 184 I(4) 4 scalar
LM3 Param 184 I(4) 4 scalar
LOG10 Func 268 scalar 268
LP1 Param 183 I(4) 4 scalar 187,188,189,193,232,238,239,241,24
2,243,244,249,250,251,252,266,281,
339
LP121 Param 189 I(4) 4 scalar
LP1I Param 193 I(4) 4 scalar
LP1M Param 187 I(4) 4 scalar 187
LP1M1 Param 187 I(4) 4 scalar
LP1V Param 188 I(4) 4 scalar 232
LP2 Param 183 I(4) 4 scalar 311,334,335,336,337,357,358,359,36
0
LP3 Param 183 I(4) 4 scalar
LSM Param 82 I(4) 4 scalar
MAPPINGS Common 176 5024 SAVE
Page 8 Source Listing E1E290
2025-03-12 18:21 Symbol Table E1E290.F
Name Object Declared Type Bytes Dimen Elements Attributes References
MAX Func 273 scalar 273,302,309,311,318
MPPCOM Common 121 1464 SAVE
NB Param 191 I(4) 4 scalar 194
NB1 Param 194 I(4) 4 scalar
NBLM Param 182 I(4) 4 scalar
NBLW Param 181 I(4) 4 scalar
NBLX Param 181 I(4) 4 scalar
NBLY Param 181 I(4) 4 scalar 182,189,235,236
NCOL Param 180 I(4) 4 scalar
NNLTE Param 192 I(4) 4 scalar
PHYCON Common 33 80
T Dummy 3 R(4) 4 2 2070 ARG,INOUT
TABCOM Common 232 133920
TEMP Dummy 3 R(4) 4 2 2070 ARG,INOUT
TEMPCOM Common 162 6603768 SAVE
TMP3 Local 244 R(4) 4 2 2070 268,269,270
TMP5 Local 244 R(4) 4 1 45
TMP9 Local 244 R(4) 4 1 45
TOPO Common 170 17478548 SAVE
WW1 Local 243 R(4) 4 2 2070 303,312,324,330,332,334,336,341,34
3,348,353,355,357,359
WW2 Local 243 R(4) 4 2 2070 304,313,324,325,330,331,334,335,34
1,342,348,349,353,354,357,358
TYPE COMPONENTS/COMMON VARIABLES
Name Type Bytes Offset Dimen Elements Attributes References
AMOLWT R(4) 4 0 scalar COM
CSUBP R(4) 4 4 scalar COM
DIFFCTR R(4) 4 8 scalar COM
DSRCE R(4) 4 132240 2 420 COM
EIGHT R(4) 4 20 scalar COM
EM1 R(4) 4 9600 2 5040 COM
EM1V R(4) 4 9600 1 5040 COM 324,325,330,331,332,333,334,335,33
6,337,341,342,343,344
EM1VW R(4) 4 29760 1 5040 COM 348,349,353,354,355,356,357,358,35
9,360
EM1WDE R(4) 4 29760 2 5040 COM
EM3 R(4) 4 110400 2 5040 COM
FIFTY R(4) 4 12 scalar COM
FIVE R(4) 4 24 scalar COM
FOUR R(4) 4 28 scalar COM
G R(4) 4 12 scalar COM
G2LI I(4) 4 0 1 239 COM
G2LJ I(4) 4 1912 1 389 COM
GINV R(4) 4 68 scalar COM
GP0INV R(4) 4 76 scalar COM
GRAVDR R(4) 4 16 scalar COM
H101M16 R(4) 4 808 scalar COM
H102M5 R(4) 4 784 scalar COM
H1036E2 R(4) 4 756 scalar COM
H114M11 R(4) 4 384 scalar COM
H1174M7 R(4) 4 268 scalar COM
Page 9 Source Listing E1E290
2025-03-12 18:21 Symbol Table E1E290.F
Name Type Bytes Offset Dimen Elements Attributes References
H11M10 R(4) 4 296 scalar COM
H11M11 R(4) 4 388 scalar COM
H1224E3 R(4) 4 112 scalar COM
H1226E1 R(4) 4 652 scalar COM
H128M5 R(4) 4 240 scalar COM
H129M2 R(4) 4 732 scalar COM
H12M12 R(4) 4 472 scalar COM
H12M13 R(4) 4 492 scalar COM
H12M31 R(4) 4 560 scalar COM
H135M13 R(4) 4 488 scalar COM
H1386E2 R(4) 4 748 scalar COM
H1439M5 R(4) 4 236 scalar COM
H14M10 R(4) 4 292 scalar COM
H14M11 R(4) 4 380 scalar COM
H14M12 R(4) 4 468 scalar COM
H14M14 R(4) 4 508 scalar COM
H14M30 R(4) 4 548 scalar COM
H15E2 R(4) 4 136 scalar COM
H15M11 R(4) 4 376 scalar COM
H15M14 R(4) 4 504 scalar COM
H15M5 R(4) 4 824 scalar COM
H161E1 R(4) 4 800 scalar COM
H165E5 R(4) 4 84 scalar COM
H16E1 R(4) 4 792 scalar COM 268
H16M12 R(4) 4 464 scalar COM
H181E1 R(4) 4 148 scalar COM
H18E1 R(4) 4 152 scalar COM
H18E3 R(4) 4 832 scalar COM
H18M11 R(4) 4 372 scalar COM
H1E11 R(4) 4 72 scalar COM
H1E13 R(4) 4 68 scalar COM
H1E15 R(4) 4 64 scalar COM
H1E4 R(4) 4 96 scalar COM
H1E6 R(4) 4 612 scalar COM
H1E8 R(4) 4 76 scalar COM
H1M10 R(4) 4 300 scalar COM
H1M11 R(4) 4 392 scalar COM
H1M13 R(4) 4 496 scalar COM
H1M16 R(4) 4 856 scalar COM
H1M17 R(4) 4 512 scalar COM
H1M18 R(4) 4 516 scalar COM
H1M19 R(4) 4 520 scalar COM
H1M2 R(4) 4 620 scalar COM
H1M20 R(4) 4 524 scalar COM
H1M21 R(4) 4 528 scalar COM
H1M22 R(4) 4 532 scalar COM
H1M23 R(4) 4 536 scalar COM
H1M24 R(4) 4 540 scalar COM
H1M3 R(4) 4 208 scalar COM
H1M4 R(4) 4 220 scalar COM
H1M5 R(4) 4 244 scalar COM
H1M6 R(4) 4 260 scalar COM
H1M60 R(4) 4 584 scalar COM
H1M8 R(4) 4 284 scalar COM
H1P082 R(4) 4 740 scalar COM
Page 10 Source Listing E1E290
2025-03-12 18:21 Symbol Table E1E290.F
Name Type Bytes Offset Dimen Elements Attributes References
H1P25892 R(4) 4 180 scalar COM
H1P4 R(4) 4 176 scalar COM
H1P41819 R(4) 4 704 scalar COM
H1P4387 R(4) 4 172 scalar COM
H1P8 R(4) 4 168 scalar COM
H2075E3 R(4) 4 108 scalar COM
H20788E3 R(4) 4 104 scalar COM
H2118M2 R(4) 4 760 scalar COM
H21M12 R(4) 4 460 scalar COM
H21M31 R(4) 4 556 scalar COM
H235M3 R(4) 4 724 scalar COM
H23E2 R(4) 4 132 scalar COM
H23M10 R(4) 4 288 scalar COM
H23M11 R(4) 4 364 scalar COM
H24E3 R(4) 4 100 scalar COM
H24M11 R(4) 4 360 scalar COM
H24M12 R(4) 4 456 scalar COM
H25452M6 R(4) 4 256 scalar COM
H257M8 R(4) 4 280 scalar COM
H25E2 R(4) 4 816 scalar COM
H25M31 R(4) 4 552 scalar COM
H26E2 R(4) 4 696 scalar COM
H26M30 R(4) 4 544 scalar COM
H28571M2 R(4) 4 852 scalar COM
H285M4 R(4) 4 216 scalar COM
H28E1 R(4) 4 868 scalar COM 271
H28M11 R(4) 4 356 scalar COM
H28M12 R(4) 4 452 scalar COM
H29316E2 R(4) 4 648 scalar COM
H2945E2 R(4) 4 128 scalar COM
H29M12 R(4) 4 448 scalar COM
H2E2 R(4) 4 688 scalar COM
H2E6 R(4) 4 616 scalar COM
H2M11 R(4) 4 368 scalar COM
H2P5 R(4) 4 164 scalar COM
H2P8 R(4) 4 160 scalar COM
H2P9 R(4) 4 156 scalar COM
H3082E2 R(4) 4 120 scalar COM
H3116E1 R(4) 4 656 scalar COM
H323M4 R(4) 4 768 scalar COM
H327M8 R(4) 4 276 scalar COM
H32M11 R(4) 4 348 scalar COM
H35E1 R(4) 4 140 scalar COM
H35M11 R(4) 4 344 scalar COM
H36M13 R(4) 4 484 scalar COM
H37412M5 R(4) 4 232 scalar COM
H37M11 R(4) 4 340 scalar COM
H37M12 R(4) 4 440 scalar COM
H38M12 R(4) 4 436 scalar COM
H391M7 R(4) 4 264 scalar COM
H394M5 R(4) 4 228 scalar COM
H3E2 R(4) 4 124 scalar COM
H3M11 R(4) 4 352 scalar COM
H3M12 R(4) 4 444 scalar COM
H3M14 R(4) 4 500 scalar COM
Page 11 Source Listing E1E290
2025-03-12 18:21 Symbol Table E1E290.F
Name Type Bytes Offset Dimen Elements Attributes References
H3M3 R(4) 4 804 scalar COM
H3M4 R(4) 4 860 scalar COM
H3P5 R(4) 4 828 scalar COM
H3P6 R(4) 4 144 scalar COM
H41666M2 R(4) 4 636 scalar COM
H42M11 R(4) 4 336 scalar COM
H42M2 R(4) 4 764 scalar COM
H44194M2 R(4) 4 700 scalar COM
H44871M2 R(4) 4 200 scalar COM
H44M11 R(4) 4 332 scalar COM
H44M12 R(4) 4 428 scalar COM
H451M6 R(4) 4 788 scalar COM
H45M12 R(4) 4 424 scalar COM
H45M32 R(4) 4 572 scalar COM
H46M13 R(4) 4 480 scalar COM
H488E4 R(4) 4 92 scalar COM
H48M11 R(4) 4 328 scalar COM
H4999M6 R(4) 4 252 scalar COM
H4E5 R(4) 4 80 scalar COM
H4M12 R(4) 4 432 scalar COM
H4M33 R(4) 4 576 scalar COM
H53M11 R(4) 4 324 scalar COM
H559M3 R(4) 4 204 scalar COM
H55M32 R(4) 4 568 scalar COM
H5725E4 R(4) 4 88 scalar COM
H5E2 R(4) 4 116 scalar COM
H625M2 R(4) 4 668 scalar COM
H62M12 R(4) 4 416 scalar COM
H62M34 R(4) 4 580 scalar COM
H658M2 R(4) 4 752 scalar COM
H65M12 R(4) 4 412 scalar COM
H67390E2 R(4) 4 772 scalar COM
H6938M5 R(4) 4 224 scalar COM
H69766E5 R(4) 4 720 scalar COM
H6M12 R(4) 4 420 scalar COM
H6P08108 R(4) 4 836 scalar COM
H71E26 R(4) 4 60 scalar COM
H72M11 R(4) 4 320 scalar COM
H74M12 R(4) 4 408 scalar COM
H75826M4 R(4) 4 736 scalar COM
H77M11 R(4) 4 316 scalar COM
H77M12 R(4) 4 404 scalar COM
H7M6 R(4) 4 248 scalar COM
H8121E1 R(4) 4 684 scalar COM
H82M11 R(4) 4 308 scalar COM
H83E26 R(4) 4 56 scalar COM
H83M11 R(4) 4 304 scalar COM
H8725M8 R(4) 4 272 scalar COM
H8M11 R(4) 4 312 scalar COM
H8M13 R(4) 4 476 scalar COM
H93M12 R(4) 4 400 scalar COM
H96M12 R(4) 4 396 scalar COM
H987M4 R(4) 4 212 scalar COM
H9M32 R(4) 4 564 scalar COM
H9P94 R(4) 4 660 scalar COM
Page 12 Source Listing E1E290
2025-03-12 18:21 Symbol Table E1E290.F
Name Type Bytes Offset Dimen Elements Attributes References
HAF R(4) 4 44 scalar COM 281
HM13EZ R(4) 4 592 scalar COM
HM1597E1 R(4) 4 812 scalar COM
HM161E1 R(4) 4 796 scalar COM
HM1797E1 R(4) 4 680 scalar COM
HM181E1 R(4) 4 604 scalar COM
HM19EZ R(4) 4 596 scalar COM
HM1E1 R(4) 4 600 scalar COM
HM1E2 R(4) 4 608 scalar COM
HM1EZ R(4) 4 692 scalar COM
HM2M2 R(4) 4 644 scalar COM
HM6666M2 R(4) 4 628 scalar COM
HM8E1 R(4) 4 864 scalar COM
HMP5 R(4) 4 640 scalar COM
HMP575 R(4) 4 588 scalar COM
HMP66667 R(4) 4 624 scalar COM
HMP805 R(4) 4 840 scalar COM
HNINETY R(4) 4 4 scalar COM
HP1 R(4) 4 196 scalar COM 270,304,313
HP118666 R(4) 4 820 scalar COM
HP144 R(4) 4 712 scalar COM
HP166666 R(4) 4 632 scalar COM
HP219 R(4) 4 708 scalar COM
HP228 R(4) 4 672 scalar COM
HP26 R(4) 4 728 scalar COM
HP369 R(4) 4 192 scalar COM
HP3795 R(4) 4 776 scalar COM
HP5048 R(4) 4 780 scalar COM
HP518 R(4) 4 188 scalar COM
HP526315 R(4) 4 848 scalar COM
HP6 R(4) 4 664 scalar COM
HP602409 R(4) 4 844 scalar COM
HP60241 R(4) 4 676 scalar COM
HP8 R(4) 4 184 scalar COM
HP805 R(4) 4 744 scalar COM
HP816 R(4) 4 716 scalar COM
HTMG R(4) 4 743768 3 4183695 COM
HUNDRED R(4) 4 0 scalar COM
IBROW I(4) 4 404 scalar COM
ICHUNKTAB I(4) 4 620 1 8 COM
IE_GLB_TABLE I(4) 4 32 1 8 COM
IE_LOC_TABLE I(4) 4 556 1 8 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
IND I(4) 4 0 1 237 COM
INDX2 I(4) 4 948 1 2116 COM
INUMQ I(4) 4 1064 1 100 COM
IQUILT_GROUP I(4) 4 1060 scalar COM
IRCOL I(4) 4 400 scalar COM
IRPAD1 I(4) 4 432 scalar COM
IRPAD2 I(4) 4 436 scalar COM
Page 13 Source Listing E1E290
2025-03-12 18:21 Symbol Table E1E290.F
Name Type Bytes Offset Dimen Elements Attributes References
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
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
KMAXV I(4) 4 9412 1 46 COM
KMAXVM I(4) 4 9596 scalar COM
L2GI I(4) 4 956 1 239 COM
L2GJ I(4) 4 3468 1 389 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
MYIE I(4) 4 52 scalar COM 267,280,300,307,316,323,329,340,34
7,352
MYIE1 I(4) 4 56 scalar COM
MYIE1_P1 I(4) 4 120 scalar COM
MYIE1_P2 I(4) 4 124 scalar COM
MYIE1_P3 I(4) 4 128 scalar COM
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
MYIE_P3 I(4) 4 108 scalar COM
MYIE_P4 I(4) 4 112 scalar COM
MYIE_P5 I(4) 4 116 scalar COM
MYIS I(4) 4 40 scalar COM 267,280,300,307,316,323,329,340,34
7,352
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
MYIS_P3 I(4) 4 72 scalar COM
MYIS_P4 I(4) 4 76 scalar COM
Page 14 Source Listing E1E290
2025-03-12 18:21 Symbol Table E1E290.F
Name Type Bytes Offset Dimen Elements Attributes References
MYIS_P5 I(4) 4 80 scalar COM
MYJE I(4) 4 236 scalar COM
MYJE1 I(4) 4 240 scalar COM
MYJE1_P1 I(4) 4 280 scalar COM
MYJE1_P2 I(4) 4 284 scalar COM
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
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
MYJE_P4 I(4) 4 272 scalar COM
MYJE_P5 I(4) 4 276 scalar COM
MYJS I(4) 4 140 scalar COM
MYJS1 I(4) 4 144 scalar COM
MYJS1_P1 I(4) 4 184 scalar COM
MYJS1_P2 I(4) 4 188 scalar COM
MYJS1_P3 I(4) 4 192 scalar COM
MYJS1_P4 I(4) 4 196 scalar COM
MYJS2 I(4) 4 148 scalar COM
MYJS2_P1 I(4) 4 200 scalar COM
MYJS2_P2 I(4) 4 204 scalar COM
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
MYJS_P4 I(4) 4 176 scalar COM
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
Page 15 Source Listing E1E290
2025-03-12 18:21 Symbol Table E1E290.F
Name Type Bytes Offset Dimen Elements Attributes References
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
NPES I(4) 4 4 scalar COM
O3DIFCTR R(4) 4 20 scalar COM
ONE R(4) 4 40 scalar COM
P0 R(4) 4 24 scalar COM
P0INV R(4) 4 72 scalar COM
P0X2 R(4) 4 36 scalar COM
P0XZP2 R(4) 4 28 scalar COM
P0XZP8 R(4) 4 32 scalar COM
QUARTR R(4) 4 48 scalar COM
RADCON R(4) 4 40 scalar COM
RADCON1 R(4) 4 64 scalar COM
RATCO2MW R(4) 4 56 scalar COM
RATH2OMW R(4) 4 60 scalar COM
RGAS R(4) 4 44 scalar COM
RGASSP R(4) 4 48 scalar COM
SECPDA R(4) 4 52 scalar COM
SIXTY R(4) 4 8 scalar COM
SOURCE R(4) 4 130560 2 420 COM
T1 R(4) 4 49920 1 5040 COM 274
T2 R(4) 4 70080 1 5040 COM 274
T4 R(4) 4 90240 1 5040 COM 275
TABLE1 R(4) 4 49920 2 5040 COM
TABLE2 R(4) 4 70080 2 5040 COM
TABLE3 R(4) 4 90240 2 5040 COM
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
TEN R(4) 4 16 scalar COM 269,303,312
THREE R(4) 4 32 scalar COM
Page 16 Source Listing E1E290
2025-03-12 18:21 Symbol Table E1E290.F
Name Type Bytes Offset Dimen Elements Attributes References
TTVG R(4) 4 371884 2 92971 COM
TWO R(4) 4 36 scalar COM
ZERO R(4) 4 52 scalar COM
Page 17 Source Listing E1E290
2025-03-12 18:21 Subprograms/Common Blocks E1E290.F
SUBPROGRAMS/COMMON BLOCKS
Name Object Declared Type Bytes Dimen Elements Attributes References
E1E290 Subr 2
GLB_TABLE Common 157 128 SAVE
HCON Common 38 872
MAPPINGS Common 176 5024 SAVE
MPPCOM Common 121 1464 SAVE
PHYCON Common 33 80
TABCOM Common 232 133920
TEMPCOM Common 162 6603768 SAVE
TOPO Common 170 17478548 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
-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
Page 18 Source Listing E1E290
2025-03-12 18:21 E1E290.F
-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
-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
Page 19 Source Listing E1E290
2025-03-12 18:21 E1E290.F
-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 : E1E290.lst
no -o
COMPILER: Intel(R) Fortran 19.1-1655