Page 1 Source Listing E2SPEC 2014-12-17 20:46 /tmpnwprd/ifortW1GS39.i 1 # 1 "E2SPEC.F" 2 SUBROUTINE E2SPEC(EMISS,AVEPHI,FXOSP,DTSP) 3 C 4 C SUBROUTINE E2SPEC COMPUTES THE EXCHANGE TERMS IN THE FLUX EQUATION 5 C FOR LONGWAVE RADIATION FOR 2 TERMS USED FOR NEARBY LAYER COMPU- 6 C TATIONS. THE METHOD IS A TABLE LOOKUP ON A PRE- 7 C COMPUTED E2 FUNCTION (DEFINED IN REF. (4)). 8 C CALCULATIONS ARE DONE IN THE FREQUENCY RANGE: 9 C 0-560,1200-2200 CM-1 10 C MOTIVATION FOR THESE CALCULATIONS IS IN REFERENCES (1) AND (4). 11 C INPUTS: (COMMON BLOCKS) 12 C TABLE1,TABLE2,TABLE3, TABCOM 13 C AVEPHI TFCOM 14 C FXOSP,DTSP ARGUMENT LIST 15 C OUTPUTS: 16 C EMISS TFCOM 17 C 18 C CALLED BY : FST88 19 C CALLS : 20 C 21 C 22 COMMON/PHYCON/AMOLWT,CSUBP,DIFFCTR,G,GRAVDR,O3DIFCTR,P0, 23 * P0XZP2,P0XZP8,P0X2,RADCON,RGAS,RGASSP,SECPDA 24 COMMON/PHYCON/RATCO2MW,RATH2OMW 25 COMMON/PHYCON/RADCON1 26 COMMON/PHYCON/GINV,P0INV,GP0INV 27 COMMON/HCON/HUNDRED,HNINETY,SIXTY,FIFTY,TEN,EIGHT,FIVE, 28 * FOUR,THREE,TWO,ONE,HAF,QUARTR,ZERO 29 COMMON/HCON/H83E26,H71E26,H1E15,H1E13,H1E11,H1E8,H4E5, 30 * H165E5,H5725E4,H488E4,H1E4,H24E3,H20788E3, 31 * H2075E3,H1224E3,H5E2,H3082E2,H3E2,H2945E2, 32 * H23E2,H15E2,H35E1,H3P6,H181E1,H18E1,H2P9,H2P8, 33 * H2P5,H1P8,H1P4387,H1P4,H1P25892,HP8,HP518, 34 * HP369,HP1 35 COMMON/HCON/H44871M2,H559M3,H1M3,H987M4,H285M4,H1M4, 36 * H6938M5,H394M5,H37412M5,H1439M5,H128M5,H1M5, 37 * H7M6,H4999M6,H25452M6,H1M6,H391M7,H1174M7, 38 * H8725M8,H327M8,H257M8,H1M8,H23M10,H14M10, 39 * H11M10,H1M10,H83M11,H82M11,H8M11,H77M11, 40 * H72M11,H53M11,H48M11,H44M11,H42M11,H37M11, 41 * H35M11,H32M11,H3M11,H28M11,H24M11,H23M11, 42 * H2M11,H18M11,H15M11,H14M11,H114M11,H11M11, 43 * H1M11,H96M12,H93M12,H77M12,H74M12,H65M12, 44 * H62M12,H6M12,H45M12,H44M12,H4M12,H38M12, 45 * H37M12,H3M12,H29M12,H28M12,H24M12,H21M12, 46 * H16M12,H14M12,H12M12,H8M13,H46M13,H36M13, 47 * H135M13,H12M13,H1M13,H3M14,H15M14,H14M14, 48 * H1M17,H1M18,H1M19,H1M20,H1M21,H1M22,H1M23, 49 * H1M24,H26M30,H14M30,H25M31,H21M31,H12M31, 50 * H9M32,H55M32,H45M32,H4M33,H62M34,H1M60 51 COMMON/HCON/HMP575,HM13EZ,HM19EZ,HM1E1,HM181E1,HM1E2 52 COMMON/HCON/H1E6,H2E6,H1M2,HMP66667,HM6666M2,HP166666, 53 * H41666M2,HMP5,HM2M2,H29316E2,H1226E1,H3116E1, 54 * H9P94,HP6,H625M2,HP228,HP60241,HM1797E1, 55 * H8121E1,H2E2,HM1EZ,H26E2,H44194M2,H1P41819 56 COMMON/HCON/HP219,HP144,HP816,H69766E5,H235M3,HP26, 57 * H129M2,H75826M4,H1P082,HP805,H1386E2, Page 2 Source Listing E2SPEC 2014-12-17 20:46 E2SPEC.F 58 * H658M2,H1036E2,H2118M2,H42M2,H323M4, 59 * H67390E2,HP3795,HP5048,H102M5,H451M6 60 COMMON/HCON/H16E1,HM161E1,H161E1,H3M3,H101M16, 61 * HM1597E1,H25E2,HP118666,H15M5,H3P5,H18E3, 62 * H6P08108,HMP805,HP602409,HP526315, 63 * H28571M2,H1M16 64 COMMON/HCON/H3M4 65 COMMON/HCON/HM8E1 66 COMMON/HCON/H28E1 67 C----------------------------------------------------------------------- 68 INCLUDE "parmeta" 91 INCLUDE "mpp.h" 92 # 1 "./sp.h" 1 93 # 4 94 95 # 70 "E2SPEC.F" 2 96 C----------------------------------------------------------------------- 97 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 98 C IMAX = NO. POINTS ALONG THE LAT. CIRCLE USED IN CALCS. 99 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 100 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 101 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 102 C BANDTA FOR DEFINITION 103 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 104 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 105 C BDCOMB FOR DEFINITION 106 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 107 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 108 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 109 C FROM THE ABOVE PARAMETERS. 168 PARAMETER (L=LM) 169 PARAMETER (IMAX=IM,NCOL=IMAX) 170 PARAMETER (NBLW=163,NBLX=47,NBLY=15) 171 PARAMETER (NBLM=NBLY-1) 172 PARAMETER (LP1=L+1,LP2=L+2,LP3=L+3) 173 PARAMETER (LM1=L-1,LM2=L-2,LM3=L-3) 174 PARAMETER (LL=2*L,LLP1=LL+1,LLP2=LL+2,LLP3=LL+3) 175 PARAMETER (LLM1=LL-1,LLM2=LL-2,LLM3=LL-3) 176 PARAMETER (LP1M=LP1*LP1,LP1M1=LP1M-1) 177 PARAMETER (LP1V=LP1*(1+2*L/2)) 178 PARAMETER (LP121=LP1*NBLY) 179 PARAMETER (LL3P=3*L+2) 180 PARAMETER (NB=12) 181 PARAMETER (INLTE=3,INLTEP=INLTE+1,NNLTE=56) 182 PARAMETER (LP1I=IMAX*LP1,LLP1I=IMAX*LLP1,LL3PI=IMAX*LL3P) 183 PARAMETER (NB1=NB-1) 184 PARAMETER (KO2=12) 185 PARAMETER (KO21=KO2+1,KO2M=KO2-1) 186 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 187 C IMAX = NO. POINTS SENT TO RADFS 188 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 189 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 190 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 191 C BANDTA FOR DEFINITION 192 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 193 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 194 C BDCOMB FOR DEFINITION Page 3 Source Listing E2SPEC 2014-12-17 20:46 E2SPEC.F 195 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 196 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 197 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 198 C FROM THE ABOVE PARAMETERS. 199 C COMMON BLOCK TABCOM CONTAINS QUANTITIES PRECOMPUTED IN SUBROUTINE 200 C TABLE FOR USE IN THE LONGWAVE RADIATION PROGRAM: 201 C EM1 = E1 FUNCTION, EVALUATED OVER THE 0-560 AND 202 C 1200-2200 CM-1 INTERVALS 203 C EM1WDE = E1 FUNCTION, EVALUATED OVER THE 160-560 CM-1 204 C INTERVAL 205 C TABLE1 = E2 FUNCTION, EVALUATED OVER THE 0-560 AND 206 C 1200-2200 CM-1 INTERVALS 207 C TABLE2 = TEMPERATURE DERIVATIVE OF TABLE1 208 C TABLE3 = MASS DERIVATIVE OF TABLE1 209 C EM3 = E3 FUNCTION, EVALUATED OVER THE 0-560 AND 210 C 1200-2200 CM-1 INTERVALS 211 C SOURCE = PLANCK FUNCTION, EVALUATED AT SPECIFIED TEMPS. FOR 212 C BANDS USED IN CTS CALCULATIONS 213 C DSRCE = TEMPERATURE DERIVATIVE OF SOURCE 214 C IND = INDEX, WITH VALUE IND(I)=I. USED IN FST88 215 C INDX2 = INDEX VALUES USED IN OBTAINING "LOWER TRIANGLE" 216 C ELEMENTS OF AVEPHI,ETC.,IN FST88 217 C KMAXV = INDEX VALUES USED IN OBTAINING "UPPER TRIANGLE" 218 C ELEMENTS OF AVEPHI,ETC.,IN FST88 219 C KMAXVM = KMAXV(L),USED FOR DO LOOP INDICES 220 C 221 COMMON / TABCOM / IND(IMAX),INDX2(LP1V),KMAXV(LP1), 222 1 KMAXVM 223 COMMON/TABCOM/EM1(28,180),EM1WDE(28,180),TABLE1(28,180), 224 1 TABLE2(28,180),TABLE3(28,180),EM3(28,180),SOURCE(28,NBLY), 225 2 DSRCE(28,NBLY) 226 C 227 DIMENSION AVEPHI(IDIM1:IDIM2,LP1),EMISS(IDIM1:IDIM2,LP1) 228 DIMENSION IVAL(IDIM1:IDIM2,LP1), 229 1 FYO(IDIM1:IDIM2,LP1),DU(IDIM1:IDIM2,LP1), 230 2 TMP3(IDIM1:IDIM2,LP1) 231 C---VARIABLES EQUIVALENCED TO COMMON BLOCK VARIABLES 232 DIMENSION T1(5040),T2(5040),T4(5040) 233 C---VARIABLES IN THE ARGUMENT LIST 234 DIMENSION FXOSP(IDIM1:IDIM2,2),DTSP(IDIM1:IDIM2,2) 235 C 236 EQUIVALENCE (T1(1),TABLE1(1,1)),(T2(1),TABLE2(1,1)), 237 1 (T4(1),TABLE3(1,1)) 238 C---FIRST WE OBTAIN THE EMISSIVITIES AS A FUNCTION OF TEMPERATURE 239 C (INDEX FXO) AND WATER AMOUNT (INDEX FYO). THIS PART OF THE CODE 240 C THUS GENERATES THE E2 FUNCTION. 241 C 242 DO 132 K=1,2 243 DO 132 I=MYIS,MYIE 244 TMP3(I,K)=LOG10(AVEPHI(I,K))+H16E1 245 FYO(I,K)=AINT(TMP3(I,K)*TEN) 246 DU(I,K)=TMP3(I,K)-HP1*FYO(I,K) 247 C IVAL(I,K)=H28E1*FYO(I,K)+FXOSP(I,K) 248 IVAL(I,K)=max(H28E1*FYO(I,K)+FXOSP(I,K),1.0) 249 EMISS(I,K)=T1(IVAL(I,K))+DU(I,K)*T2(IVAL(I,K))+ 250 1 DTSP(I,K)*T4(IVAL(I,K)) 251 132 CONTINUE Page 4 Source Listing E2SPEC 2014-12-17 20:46 E2SPEC.F 252 RETURN 253 END ENTRY POINTS Name e2spec_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 132 Label 167 158,159 AINT Func 161 scalar 161 AMOLWT Scalar 21 R(4) 4 scalar COM AVEPHI Dummy 1 R(4) 4 2 2070 ARG,INOUT 160 CSUBP Scalar 21 R(4) 4 scalar COM DIFFCTR Scalar 21 R(4) 4 scalar COM DSRCE Scalar 141 R(4) 4 2 420 COM DTSP Dummy 1 R(4) 4 2 90 ARG,INOUT 166 DU Local 145 R(4) 4 2 2070 162,165 E2SPEC Subr 1 EIGHT Scalar 26 R(4) 4 scalar COM EM1 Scalar 139 R(4) 4 2 5040 COM EM1WDE Scalar 139 R(4) 4 2 5040 COM EM3 Scalar 140 R(4) 4 2 5040 COM EMISS Dummy 1 R(4) 4 2 2070 ARG,INOUT 165 FIFTY Scalar 26 R(4) 4 scalar COM FIVE Scalar 26 R(4) 4 scalar COM FOUR Scalar 27 R(4) 4 scalar COM FXOSP Dummy 1 R(4) 4 2 90 ARG,INOUT 164 FYO Local 145 R(4) 4 2 2070 161,162,164 G Scalar 21 R(4) 4 scalar COM G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GINV Scalar 25 R(4) 4 scalar COM GLB_TABLE Common 37 128 GP0INV Scalar 25 R(4) 4 scalar COM GRAVDR Scalar 21 R(4) 4 scalar COM H101M16 Scalar 59 R(4) 4 scalar COM H102M5 Scalar 58 R(4) 4 scalar COM H1036E2 Scalar 57 R(4) 4 scalar COM H114M11 Scalar 41 R(4) 4 scalar COM H1174M7 Scalar 36 R(4) 4 scalar COM H11M10 Scalar 38 R(4) 4 scalar COM H11M11 Scalar 41 R(4) 4 scalar COM H1224E3 Scalar 30 R(4) 4 scalar COM H1226E1 Scalar 52 R(4) 4 scalar COM H128M5 Scalar 35 R(4) 4 scalar COM H129M2 Scalar 56 R(4) 4 scalar COM H12M12 Scalar 45 R(4) 4 scalar COM H12M13 Scalar 46 R(4) 4 scalar COM H12M31 Scalar 48 R(4) 4 scalar COM H135M13 Scalar 46 R(4) 4 scalar COM Page 5 Source Listing E2SPEC 2014-12-17 20:46 Symbol Table E2SPEC.F Name Object Declared Type Bytes Dimen Elements Attributes References H1386E2 Scalar 56 R(4) 4 scalar COM H1439M5 Scalar 35 R(4) 4 scalar COM H14M10 Scalar 37 R(4) 4 scalar COM H14M11 Scalar 41 R(4) 4 scalar COM H14M12 Scalar 45 R(4) 4 scalar COM H14M14 Scalar 46 R(4) 4 scalar COM H14M30 Scalar 48 R(4) 4 scalar COM H15E2 Scalar 31 R(4) 4 scalar COM H15M11 Scalar 41 R(4) 4 scalar COM H15M14 Scalar 46 R(4) 4 scalar COM H15M5 Scalar 60 R(4) 4 scalar COM H161E1 Scalar 59 R(4) 4 scalar COM H165E5 Scalar 29 R(4) 4 scalar COM H16E1 Scalar 59 R(4) 4 scalar COM 160 H16M12 Scalar 45 R(4) 4 scalar COM H181E1 Scalar 31 R(4) 4 scalar COM H18E1 Scalar 31 R(4) 4 scalar COM H18E3 Scalar 60 R(4) 4 scalar COM H18M11 Scalar 41 R(4) 4 scalar COM H1E11 Scalar 28 R(4) 4 scalar COM H1E13 Scalar 28 R(4) 4 scalar COM H1E15 Scalar 28 R(4) 4 scalar COM H1E4 Scalar 29 R(4) 4 scalar COM H1E6 Scalar 51 R(4) 4 scalar COM H1E8 Scalar 28 R(4) 4 scalar COM H1M10 Scalar 38 R(4) 4 scalar COM H1M11 Scalar 42 R(4) 4 scalar COM H1M13 Scalar 46 R(4) 4 scalar COM H1M16 Scalar 62 R(4) 4 scalar COM H1M17 Scalar 47 R(4) 4 scalar COM H1M18 Scalar 47 R(4) 4 scalar COM H1M19 Scalar 47 R(4) 4 scalar COM H1M2 Scalar 51 R(4) 4 scalar COM H1M20 Scalar 47 R(4) 4 scalar COM H1M21 Scalar 47 R(4) 4 scalar COM H1M22 Scalar 47 R(4) 4 scalar COM H1M23 Scalar 47 R(4) 4 scalar COM H1M24 Scalar 48 R(4) 4 scalar COM H1M3 Scalar 34 R(4) 4 scalar COM H1M4 Scalar 34 R(4) 4 scalar COM H1M5 Scalar 35 R(4) 4 scalar COM H1M6 Scalar 36 R(4) 4 scalar COM H1M60 Scalar 49 R(4) 4 scalar COM H1M8 Scalar 37 R(4) 4 scalar COM H1P082 Scalar 56 R(4) 4 scalar COM H1P25892 Scalar 32 R(4) 4 scalar COM H1P4 Scalar 32 R(4) 4 scalar COM H1P41819 Scalar 54 R(4) 4 scalar COM H1P4387 Scalar 32 R(4) 4 scalar COM H1P8 Scalar 32 R(4) 4 scalar COM H2075E3 Scalar 30 R(4) 4 scalar COM H20788E3 Scalar 29 R(4) 4 scalar COM H2118M2 Scalar 57 R(4) 4 scalar COM H21M12 Scalar 44 R(4) 4 scalar COM H21M31 Scalar 48 R(4) 4 scalar COM Page 6 Source Listing E2SPEC 2014-12-17 20:46 Symbol Table E2SPEC.F Name Object Declared Type Bytes Dimen Elements Attributes References H235M3 Scalar 55 R(4) 4 scalar COM H23E2 Scalar 31 R(4) 4 scalar COM H23M10 Scalar 37 R(4) 4 scalar COM H23M11 Scalar 40 R(4) 4 scalar COM H24E3 Scalar 29 R(4) 4 scalar COM H24M11 Scalar 40 R(4) 4 scalar COM H24M12 Scalar 44 R(4) 4 scalar COM H25452M6 Scalar 36 R(4) 4 scalar COM H257M8 Scalar 37 R(4) 4 scalar COM H25E2 Scalar 60 R(4) 4 scalar COM H25M31 Scalar 48 R(4) 4 scalar COM H26E2 Scalar 54 R(4) 4 scalar COM H26M30 Scalar 48 R(4) 4 scalar COM H28571M2 Scalar 62 R(4) 4 scalar COM H285M4 Scalar 34 R(4) 4 scalar COM H28E1 Scalar 65 R(4) 4 scalar COM 164 H28M11 Scalar 40 R(4) 4 scalar COM H28M12 Scalar 44 R(4) 4 scalar COM H29316E2 Scalar 52 R(4) 4 scalar COM H2945E2 Scalar 30 R(4) 4 scalar COM H29M12 Scalar 44 R(4) 4 scalar COM H2E2 Scalar 54 R(4) 4 scalar COM H2E6 Scalar 51 R(4) 4 scalar COM H2M11 Scalar 41 R(4) 4 scalar COM H2P5 Scalar 32 R(4) 4 scalar COM H2P8 Scalar 31 R(4) 4 scalar COM H2P9 Scalar 31 R(4) 4 scalar COM H3082E2 Scalar 30 R(4) 4 scalar COM H3116E1 Scalar 52 R(4) 4 scalar COM H323M4 Scalar 57 R(4) 4 scalar COM H327M8 Scalar 37 R(4) 4 scalar COM H32M11 Scalar 40 R(4) 4 scalar COM H35E1 Scalar 31 R(4) 4 scalar COM H35M11 Scalar 40 R(4) 4 scalar COM H36M13 Scalar 45 R(4) 4 scalar COM H37412M5 Scalar 35 R(4) 4 scalar COM H37M11 Scalar 39 R(4) 4 scalar COM H37M12 Scalar 44 R(4) 4 scalar COM H38M12 Scalar 43 R(4) 4 scalar COM H391M7 Scalar 36 R(4) 4 scalar COM H394M5 Scalar 35 R(4) 4 scalar COM H3E2 Scalar 30 R(4) 4 scalar COM H3M11 Scalar 40 R(4) 4 scalar COM H3M12 Scalar 44 R(4) 4 scalar COM H3M14 Scalar 46 R(4) 4 scalar COM H3M3 Scalar 59 R(4) 4 scalar COM H3M4 Scalar 63 R(4) 4 scalar COM H3P5 Scalar 60 R(4) 4 scalar COM H3P6 Scalar 31 R(4) 4 scalar COM H41666M2 Scalar 52 R(4) 4 scalar COM H42M11 Scalar 39 R(4) 4 scalar COM H42M2 Scalar 57 R(4) 4 scalar COM H44194M2 Scalar 54 R(4) 4 scalar COM H44871M2 Scalar 34 R(4) 4 scalar COM H44M11 Scalar 39 R(4) 4 scalar COM Page 7 Source Listing E2SPEC 2014-12-17 20:46 Symbol Table E2SPEC.F Name Object Declared Type Bytes Dimen Elements Attributes References H44M12 Scalar 43 R(4) 4 scalar COM H451M6 Scalar 58 R(4) 4 scalar COM H45M12 Scalar 43 R(4) 4 scalar COM H45M32 Scalar 49 R(4) 4 scalar COM H46M13 Scalar 45 R(4) 4 scalar COM H488E4 Scalar 29 R(4) 4 scalar COM H48M11 Scalar 39 R(4) 4 scalar COM H4999M6 Scalar 36 R(4) 4 scalar COM H4E5 Scalar 28 R(4) 4 scalar COM H4M12 Scalar 43 R(4) 4 scalar COM H4M33 Scalar 49 R(4) 4 scalar COM H53M11 Scalar 39 R(4) 4 scalar COM H559M3 Scalar 34 R(4) 4 scalar COM H55M32 Scalar 49 R(4) 4 scalar COM H5725E4 Scalar 29 R(4) 4 scalar COM H5E2 Scalar 30 R(4) 4 scalar COM H625M2 Scalar 53 R(4) 4 scalar COM H62M12 Scalar 43 R(4) 4 scalar COM H62M34 Scalar 49 R(4) 4 scalar COM H658M2 Scalar 57 R(4) 4 scalar COM H65M12 Scalar 42 R(4) 4 scalar COM H67390E2 Scalar 58 R(4) 4 scalar COM H6938M5 Scalar 35 R(4) 4 scalar COM H69766E5 Scalar 55 R(4) 4 scalar COM H6M12 Scalar 43 R(4) 4 scalar COM H6P08108 Scalar 61 R(4) 4 scalar COM H71E26 Scalar 28 R(4) 4 scalar COM H72M11 Scalar 39 R(4) 4 scalar COM H74M12 Scalar 42 R(4) 4 scalar COM H75826M4 Scalar 56 R(4) 4 scalar COM H77M11 Scalar 38 R(4) 4 scalar COM H77M12 Scalar 42 R(4) 4 scalar COM H7M6 Scalar 36 R(4) 4 scalar COM H8121E1 Scalar 54 R(4) 4 scalar COM H82M11 Scalar 38 R(4) 4 scalar COM H83E26 Scalar 28 R(4) 4 scalar COM H83M11 Scalar 38 R(4) 4 scalar COM H8725M8 Scalar 37 R(4) 4 scalar COM H8M11 Scalar 38 R(4) 4 scalar COM H8M13 Scalar 45 R(4) 4 scalar COM H93M12 Scalar 42 R(4) 4 scalar COM H96M12 Scalar 42 R(4) 4 scalar COM H987M4 Scalar 34 R(4) 4 scalar COM H9M32 Scalar 49 R(4) 4 scalar COM H9P94 Scalar 53 R(4) 4 scalar COM HAF Scalar 27 R(4) 4 scalar COM HCON Common 26 872 HM13EZ Scalar 50 R(4) 4 scalar COM HM1597E1 Scalar 60 R(4) 4 scalar COM HM161E1 Scalar 59 R(4) 4 scalar COM HM1797E1 Scalar 53 R(4) 4 scalar COM HM181E1 Scalar 50 R(4) 4 scalar COM HM19EZ Scalar 50 R(4) 4 scalar COM HM1E1 Scalar 50 R(4) 4 scalar COM HM1E2 Scalar 50 R(4) 4 scalar COM Page 8 Source Listing E2SPEC 2014-12-17 20:46 Symbol Table E2SPEC.F Name Object Declared Type Bytes Dimen Elements Attributes References HM1EZ Scalar 54 R(4) 4 scalar COM HM2M2 Scalar 52 R(4) 4 scalar COM HM6666M2 Scalar 51 R(4) 4 scalar COM HM8E1 Scalar 64 R(4) 4 scalar COM HMP5 Scalar 52 R(4) 4 scalar COM HMP575 Scalar 50 R(4) 4 scalar COM HMP66667 Scalar 51 R(4) 4 scalar COM HMP805 Scalar 61 R(4) 4 scalar COM HNINETY Scalar 26 R(4) 4 scalar COM HP1 Scalar 33 R(4) 4 scalar COM 162 HP118666 Scalar 60 R(4) 4 scalar COM HP144 Scalar 55 R(4) 4 scalar COM HP166666 Scalar 51 R(4) 4 scalar COM HP219 Scalar 55 R(4) 4 scalar COM HP228 Scalar 53 R(4) 4 scalar COM HP26 Scalar 55 R(4) 4 scalar COM HP369 Scalar 33 R(4) 4 scalar COM HP3795 Scalar 58 R(4) 4 scalar COM HP5048 Scalar 58 R(4) 4 scalar COM HP518 Scalar 32 R(4) 4 scalar COM HP526315 Scalar 61 R(4) 4 scalar COM HP6 Scalar 53 R(4) 4 scalar COM HP602409 Scalar 61 R(4) 4 scalar COM HP60241 Scalar 53 R(4) 4 scalar COM HP8 Scalar 32 R(4) 4 scalar COM HP805 Scalar 56 R(4) 4 scalar COM HP816 Scalar 55 R(4) 4 scalar COM HTMG Scalar 52 R(4) 4 3 4183695 COM HUNDRED Scalar 26 R(4) 4 scalar COM I Local 159 I(4) 4 scalar 159,160,161,162,164,165,166 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 143,144,145,146,150 IDIM2 Param 19 I(4) 4 scalar 143,144,145,146,150 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,85 IMAX Param 85 I(4) 4 scalar 85,98,137 IND Scalar 137 I(4) 4 1 237 COM INDX2 Scalar 137 I(4) 4 1 2116 COM INLTE Param 97 I(4) 4 scalar 97 INLTEP Param 97 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 Page 9 Source Listing E2SPEC 2014-12-17 20:46 Symbol Table E2SPEC.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 IVAL Local 144 I(4) 4 2 2070 164,165,166 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 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 158 I(4) 4 scalar 158,160,161,162,164,165,166 KMAXV Scalar 137 I(4) 4 1 46 COM KMAXVM Scalar 138 I(4) 4 scalar COM KO2 Param 100 I(4) 4 scalar 101 KO21 Param 101 I(4) 4 scalar KO2M Param 101 I(4) 4 scalar L Param 84 I(4) 4 scalar 88,89,90,93,95 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL Param 90 I(4) 4 scalar 90,91 LL3P Param 95 I(4) 4 scalar 98 LL3PI Param 98 I(4) 4 scalar LLM1 Param 91 I(4) 4 scalar LLM2 Param 91 I(4) 4 scalar LLM3 Param 91 I(4) 4 scalar LLP1 Param 90 I(4) 4 scalar 98 LLP1I Param 98 I(4) 4 scalar LLP2 Param 90 I(4) 4 scalar LLP3 Param 90 I(4) 4 scalar LM Param 3 I(4) 4 scalar 52,84 LM1 Param 89 I(4) 4 scalar LM2 Param 89 I(4) 4 scalar LM3 Param 89 I(4) 4 scalar Page 10 Source Listing E2SPEC 2014-12-17 20:46 Symbol Table E2SPEC.F Name Object Declared Type Bytes Dimen Elements Attributes References LOG10 Func 160 scalar 160 LP1 Param 88 I(4) 4 scalar 92,93,94,98,137,143,144,145,146 LP121 Param 94 I(4) 4 scalar LP1I Param 98 I(4) 4 scalar LP1M Param 92 I(4) 4 scalar 92 LP1M1 Param 92 I(4) 4 scalar LP1V Param 93 I(4) 4 scalar 137 LP2 Param 88 I(4) 4 scalar LP3 Param 88 I(4) 4 scalar LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MAX Func 164 scalar 164 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 159 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 159 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 Page 11 Source Listing E2SPEC 2014-12-17 20:46 Symbol Table E2SPEC.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 96 I(4) 4 scalar 99 NB1 Param 99 I(4) 4 scalar NBLM Param 87 I(4) 4 scalar Page 12 Source Listing E2SPEC 2014-12-17 20:46 Symbol Table E2SPEC.F Name Object Declared Type Bytes Dimen Elements Attributes References NBLW Param 86 I(4) 4 scalar NBLX Param 86 I(4) 4 scalar NBLY Param 86 I(4) 4 scalar 87,94,140,141 NCOL Param 85 I(4) 4 scalar NNLTE Param 97 I(4) 4 scalar NPES Scalar 2 I(4) 4 scalar COM O3DIFCTR Scalar 21 R(4) 4 scalar COM ONE Scalar 27 R(4) 4 scalar COM P0 Scalar 21 R(4) 4 scalar COM P0INV Scalar 25 R(4) 4 scalar COM P0X2 Scalar 22 R(4) 4 scalar COM P0XZP2 Scalar 22 R(4) 4 scalar COM P0XZP8 Scalar 22 R(4) 4 scalar COM PHYCON Common 21 80 QUARTR Scalar 27 R(4) 4 scalar COM RADCON Scalar 22 R(4) 4 scalar COM RADCON1 Scalar 24 R(4) 4 scalar COM RATCO2MW Scalar 23 R(4) 4 scalar COM RATH2OMW Scalar 23 R(4) 4 scalar COM RGAS Scalar 22 R(4) 4 scalar COM RGASSP Scalar 22 R(4) 4 scalar COM SECPDA Scalar 22 R(4) 4 scalar COM SIXTY Scalar 26 R(4) 4 scalar COM SOURCE Scalar 140 R(4) 4 2 420 COM T1 Scalar 148 R(4) 4 1 5040 COM 165 T2 Scalar 148 R(4) 4 1 5040 COM 165 T4 Scalar 148 R(4) 4 1 5040 COM 166 TABCOM Common 137 133920 TABLE1 Scalar 139 R(4) 4 2 5040 COM TABLE2 Scalar 140 R(4) 4 2 5040 COM TABLE3 Scalar 140 R(4) 4 2 5040 COM 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 26 R(4) 4 scalar COM 161 THREE Scalar 27 R(4) 4 scalar COM TMP3 Local 146 R(4) 4 2 2070 160,161,162 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM TWO Scalar 27 R(4) 4 scalar COM Page 13 Source Listing E2SPEC 2014-12-17 20:46 Symbol Table E2SPEC.F Name Object Declared Type Bytes Dimen Elements Attributes References ZERO Scalar 27 R(4) 4 scalar COM Page 14 Source Listing E2SPEC 2014-12-17 20:46 Subprograms/Common Blocks E2SPEC.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References E2SPEC Subr 1 GLB_TABLE Common 37 128 HCON Common 26 872 MAPPINGS Common 56 5024 MPPCOM Common 1 1464 PHYCON Common 21 80 TABCOM Common 137 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 15 Source Listing E2SPEC 2014-12-17 20:46 E2SPEC.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 : E2SPEC.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100