Page 1 Source Listing GFDLRD 2014-12-17 20:46 /tmpnwprd/ifortuCihju.i 1 # 1 "GFDLRD.F" 2 BLOCK DATA GFDLRD 3 # 1 "./sp.h" 1 4 # 4 5 6 # 3 "GFDLRD.F" 2 7 C 8 C.... BLOCK DATA INTIALIZES QUANTITIES NEEDED BY THE GFDL CODES. 9 C.... BD2,BD3,BD4,BD5,BLCKFS ALL COMBINED INTO 1 BLOCKDATA FOR FRONTEND. 10 C 11 C BLOCK DATA BD1 GIVES INPUT DATA (TEMPS,PRESSURES,MIXING RATIOS, 12 C CLOUD AMTS AND HEIGHTS) FOR TESTING THE RADIATION CODE AS A 13 C STANDALONE MODEL. 14 COMMON/PHYCON/AMOLWT,CSUBP,DIFFCTR,G,GRAVDR,O3DIFCTR,P0, 15 * P0XZP2,P0XZP8,P0X2,RADCON,RGAS,RGASSP,SECPDA 16 COMMON/PHYCON/RATCO2MW,RATH2OMW 17 COMMON/PHYCON/RADCON1 18 COMMON/PHYCON/GINV,P0INV,GP0INV 19 COMMON/HCON/HUNDRED,HNINETY,SIXTY,FIFTY,TEN,EIGHT,FIVE, 20 * FOUR,THREE,TWO,ONE,HAF,QUARTR,ZERO 21 COMMON/HCON/H83E26,H71E26,H1E15,H1E13,H1E11,H1E8,H4E5, 22 * H165E5,H5725E4,H488E4,H1E4,H24E3,H20788E3, 23 * H2075E3,H1224E3,H5E2,H3082E2,H3E2,H2945E2, 24 * H23E2,H15E2,H35E1,H3P6,H181E1,H18E1,H2P9,H2P8, 25 * H2P5,H1P8,H1P4387,H1P4,H1P25892,HP8,HP518, 26 * HP369,HP1 27 COMMON/HCON/H44871M2,H559M3,H1M3,H987M4,H285M4,H1M4, 28 * H6938M5,H394M5,H37412M5,H1439M5,H128M5,H1M5, 29 * H7M6,H4999M6,H25452M6,H1M6,H391M7,H1174M7, 30 * H8725M8,H327M8,H257M8,H1M8,H23M10,H14M10, 31 * H11M10,H1M10,H83M11,H82M11,H8M11,H77M11, 32 * H72M11,H53M11,H48M11,H44M11,H42M11,H37M11, 33 * H35M11,H32M11,H3M11,H28M11,H24M11,H23M11, 34 * H2M11,H18M11,H15M11,H14M11,H114M11,H11M11, 35 * H1M11,H96M12,H93M12,H77M12,H74M12,H65M12, 36 * H62M12,H6M12,H45M12,H44M12,H4M12,H38M12, 37 * H37M12,H3M12,H29M12,H28M12,H24M12,H21M12, 38 * H16M12,H14M12,H12M12,H8M13,H46M13,H36M13, 39 * H135M13,H12M13,H1M13,H3M14,H15M14,H14M14, 40 * H1M17,H1M18,H1M19,H1M20,H1M21,H1M22,H1M23, 41 * H1M24,H26M30,H14M30,H25M31,H21M31,H12M31, 42 * H9M32,H55M32,H45M32,H4M33,H62M34,H1M60 43 COMMON/HCON/HMP575,HM13EZ,HM19EZ,HM1E1,HM181E1,HM1E2 44 COMMON/HCON/H1E6,H2E6,H1M2,HMP66667,HM6666M2,HP166666, 45 * H41666M2,HMP5,HM2M2,H29316E2,H1226E1,H3116E1, 46 * H9P94,HP6,H625M2,HP228,HP60241,HM1797E1, 47 * H8121E1,H2E2,HM1EZ,H26E2,H44194M2,H1P41819 48 COMMON/HCON/HP219,HP144,HP816,H69766E5,H235M3,HP26, 49 * H129M2,H75826M4,H1P082,HP805,H1386E2, 50 * H658M2,H1036E2,H2118M2,H42M2,H323M4, 51 * H67390E2,HP3795,HP5048,H102M5,H451M6 52 COMMON/HCON/H16E1,HM161E1,H161E1,H3M3,H101M16, 53 * HM1597E1,H25E2,HP118666,H15M5,H3P5,H18E3, 54 * H6P08108,HMP805,HP602409,HP526315, 55 * H28571M2,H1M16 56 COMMON/HCON/H3M4 57 COMMON/HCON/HM8E1 Page 2 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 58 COMMON/HCON/H28E1 59 C----------------------------------------------------------------------- 60 INCLUDE "parmeta" 61 C----------------------------------------------------------------------- 62 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 63 C IMAX = NO. POINTS ALONG THE LAT. CIRCLE USED IN CALCS. 64 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 65 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 66 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 67 C BANDTA FOR DEFINITION 68 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 69 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 70 C BDCOMB FOR DEFINITION 71 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 72 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 73 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 74 C FROM THE ABOVE PARAMETERS. 97 PARAMETER (L=LM) 98 PARAMETER (IMAX=IM,NCOL=IMAX) 99 PARAMETER (NBLW=163,NBLX=47,NBLY=15) 100 PARAMETER (NBLM=NBLY-1) 101 PARAMETER (LP1=L+1,LP2=L+2,LP3=L+3) 102 PARAMETER (LM1=L-1,LM2=L-2,LM3=L-3) 103 PARAMETER (LL=2*L,LLP1=LL+1,LLP2=LL+2,LLP3=LL+3) 104 PARAMETER (LLM1=LL-1,LLM2=LL-2,LLM3=LL-3) 105 PARAMETER (LP1M=LP1*LP1,LP1M1=LP1M-1) 106 PARAMETER (LP1V=LP1*(1+2*L/2)) 107 PARAMETER (LP121=LP1*NBLY) 108 PARAMETER (LL3P=3*L+2) 109 PARAMETER (NB=12) 110 PARAMETER (INLTE=3,INLTEP=INLTE+1,NNLTE=56) 111 PARAMETER (LP1I=IMAX*LP1,LLP1I=IMAX*LLP1,LL3PI=IMAX*LL3P) 112 PARAMETER (NB1=NB-1) 113 PARAMETER (KO2=12) 114 PARAMETER (KO21=KO2+1,KO2M=KO2-1) 115 C PARAMETER SETTINGS FOR THE LONGWAVE AND SHORTWAVE RADIATION CODE: 116 C IMAX = NO. POINTS SENT TO RADFS 117 C L = NO. VERTICAL LEVELS (ALSO LAYERS) IN MODEL 118 C***NOTE: THE USER NORMALLY WILL MODIFY ONLY THE IMAX AND L PARAMETERS 119 C NBLW = NO. FREQ. BANDS FOR APPROX COMPUTATIONS. SEE 120 C BANDTA FOR DEFINITION 121 C NBLX = NO. FREQ BANDS FOR APPROX CTS COMPUTATIONS 122 C NBLY = NO. FREQ. BANDS FOR EXACT CTS COMPUTATIONS. SEE 123 C BDCOMB FOR DEFINITION 124 C INLTE = NO. LEVELS USED FOR NLTE CALCS. 125 C NNLTE = INDEX NO. OF FREQ. BAND IN NLTE CALCS. 126 C NB,KO2 ARE SHORTWAVE PARAMETERS; OTHER QUANTITIES ARE DERIVED 127 C FROM THE ABOVE PARAMETERS. 128 C THIS COMMON BLOCK IS FOR THE INPUT DATA WHEN IT IS DERIVED 129 C INTERNALLY. IN RADMN,THESE DATA ARE TRANSFERRED INTO THE 130 C REAL INPUT COMMON BLOCK,RADISW 131 COMMON/INPUT/ICH,ICM,ICT,ICB,DTEMP(LP1),PPRESS(LP1),RR(L),QQO3(L), 132 1 CH,CM,CL,EMCH,EMCM,EMCL 133 C COMMON/SWINPT/COCA(LP1),CWCA(LP1),CWCB(LP1),CCOSZ,CTAUDA, 134 C * CSOLAR 135 C COMMON BLOCK BANDTA CONTAINS RANDOM BAND PARAMETERS FOR THE LW 136 C CALCULATIONS USING 10 CM-1 WIDE BANDS.THE 15 UM CO2 COMPLEX Page 3 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 137 C IS 2 BANDS,560-670 AND 670-800 CM-1. OZONE COEFFICIENTS ARE 138 C IN 3 BANDS,670-800 (14.1 UM),990-1070 AND 1070-1200 (9.6 UM). 139 C THE (NBLW) BANDS NOW INCLUDE: 140 C 56 BANDS, 10 CM-1 WIDE 0 - 560 CM-1 141 C 2 BANDS, 15 UM COMPLEX 560 - 670 CM-1 142 C 670 - 800 CM-1 143 C 3 "CONTINUUM" BANDS 800 - 900 CM-1 144 C 900 - 990 CM-1 145 C 1070 - 1200 CM-1 146 C 1 BAND FOR 9.6 UM BAND 990 - 1070 CM-1 147 C 100 BANDS, 10 CM-1 WIDE 1200 - 2200 CM-1 148 C 1 BAND FOR 4.3 UM SRC 2270 - 2380 CM-1 149 C THUS NBLW PRESENTLY EQUALS 163 150 C ALL BANDS ARE ARRANGED IN ORDER OF INCREASING WAVENUMBER 151 C 152 C ARNDM = RANDOM "A" PARAMETER FOR (NBLW) BANDS 153 C BRNDM = RANDOM "B" PARAMETER FOR (NBLW) BANDS 154 C BETAD = CONTINUUM COEFFICIENTS FOR (NBLW) BANDS 155 C AP,BP = CAPPHI COEFFICIENTS FOR (NBLW) BANDS 156 C ATP,BTP = CAPPSI COEFFICIENTS FOR (NBLW) BANDS 157 C BANDLO = LOWEST FREQUENCY IN EACH OF (NBLW) FREQ. BANDS 158 C BANDHI = HIGHEST FREQUENCY IN EACH OF (NBLW) FREQ. BANDS 159 C AO3RND = RANDOM "A" PARAMETER FOR OZONE IN (3) OZONE 160 C BANDS 161 C BO3RND = RANDOM "B" PARAMETER FOR OZONE IN (3) OZONE 162 C BANDS 163 C AB15 = THE PRODUCT ARNDM*BRNDM FOR THE TWO BANDS 164 C REPRESENTING THE 15 UM BAND COMPLEX OF CO2 165 C DATA FOR ARNDM,BRNDM,AP,BP,ATP,BTP,AO3RND,BO3RND ARE OBTAINED BY 166 C USING THE AFGL 1982 CATALOG. CONTINUUM COEFFICIENTS ARE FROM 167 C ROBERTS (1976). 168 COMMON / BANDTA / ARNDM(NBLW),BRNDM(NBLW),BETAD(NBLW),AP(NBLW), 169 1 BP(NBLW),ATP(NBLW),BTP(NBLW),BANDLO(NBLW), 170 2 BANDHI(NBLW),AO3RND(3),BO3RND(3),AB15(2) 171 C 172 C COMMON BLOCK BDWIDE CONTAINS RANDOM BAND PARAMETERS FOR SPECIFIC 173 C WIDE BANDS. AT PRESENT,THE INFORMATION CONSISTS OF 1) RANDOM 174 C MODEL PARAMETERS FOR THE 15 UM BAND,560-800 CM-1; 2) THE 175 C CONTINUUM COEFFICIENT FOR THE 800-990,1070-1200 CM-1 BAND 176 C SPECIFICALLY: 177 C AWIDE = RANDOM "A" PARAMETER FOR BAND 178 C BWIDE = RANDOM "B" PARAMETER FOR BAND 179 C BETAWD = CONTINUUM COEFFICIENTS FOR BAND 180 C APWD,BPWD = CAPPHI COEFFICIENTS FOR BAND 181 C ATPWD,BTPWD = CAPPSI COEFFICIENTS FOR BAND 182 C BDLOWD = LOWEST FREQUENCY IN EACH FREQ BAND 183 C BDHIWD = HIGHEST FREQUENCY IN EACH FREQ BAND 184 C AB15WD = THE PRODUCT ARNDM*BRNDM FOR THE ONE BAND 185 C REPRESENTING THE 15 UM BAND COMPLEX OF CO2 186 C BETINW = CONT.COEFFICIENT FOR A SPECIFIED WIDE 187 C FREQ.BAND (800-990 AND 1070-1200 CM-1). 188 C SKO2D = 1./BETINW, USED IN SPA88 FOR CONT. COEFFS 189 C SKC1R = BETAWD/BETINW, USED FOR CONT. COEFF. FOR 190 C 15 UM BAND IN FST88 191 C SKO3R = RATIO OF CONT. COEFF. FOR 9.9 UM BAND TO 192 C BETINW, USED FOR 9.6 UM CONT COEFF IN FST88 193 C DATA FOR AWIDE,BWIDE,APWD,BPWD,ATPWD,BTPWD,AO3WD,BO3WD ARE Page 4 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 194 C OBTAINED BY USING THE AFGL 1982 CATALOG. CONTINUUM COEFFICIENTS 195 C ARE FROM ROBERTS (1976). 196 COMMON / BDWIDE / AWIDE,BWIDE,BETAWD, 197 1 APWD,BPWD,ATPWD,BTPWD, 198 2 BDLOWD,BDHIWD,BETINW, 199 3 AB15WD,SKO2D,SKC1R,SKO3R 200 C 201 C COMMON BLOCK BDCOMB CONTAINS RANDOM BAND PARAMETERS FOR THE LW 202 C CALCULATIONS USING COMBINED WIDE FREQUENCY BANDS BETWEEN 160 AND 203 C 1200 CM-1,AS WELL AS THE 2270-2380 BAND FOR SOURCE CALC. 204 C BANDS 1-8: COMBINED WIDE FREQUENCY BANDS FOR 160-560 CM-1 205 C BANDS 9-14: FREQUENCY BANDS,AS IN BANDTA (NARROW BANDS) 206 C FOR 560-1200 CM-1 207 C BAND 15: FREQUENCY BAND 2270-2380 CM-1,USED FOR SOURCE 208 C CALCULATION ONLY 209 C THUS NBLY PRESENTLY EQUALS 15 210 C 211 C BANDS ARE ARRANGED IN ORDER OF INCREASING WAVENUMBER 212 C ACOMB = RANDOM "A" PARAMETER FOR (NBLY) BANDS 213 C BCOMB = RANDOM "B" PARAMETER FOR (NBLY) BANDS 214 C BETACM = CONTINUUM COEFFICIENTS FOR (NBLY) BANDS 215 C APCM,BPCM = CAPPHI COEFFICIENTS FOR (NBLY) BANDS 216 C ATPCM,BTPCM = CAPPSI COEFFICIENTS FOR (NBLY) BANDS 217 C BDLOCM = LOWEST FREQUENCY IN EACH OF (NBLY) FREQ. BANDS 218 C BDHICM = HIGHEST FREQUENCY IN EACH OF (NBLY) FREQ. BANDS 219 C AO3CM = RANDOM "A" PARAMETER FOR OZONE IN (3) OZONE 220 C BANDS 221 C BO3CM = RANDOM "B" PARAMETER FOR OZONE IN (3) OZONE 222 C BANDS 223 C AB15CM = THE PRODUCT ARNDM*BRNDM FOR THE TWO BANDS 224 C REPRESENTING THE 15 UM BAND COMPLEX OF CO2 225 C BETINC = CONT.COEFFICIENT FOR A SPECIFIED WIDE 226 C FREQ.BAND (800-990 AND 1070-1200 CM-1). 227 C IBAND = INDEX NO OF THE 40 WIDE BANDS USED IN 228 C COMBINED WIDE BAND CALCULATIONS. IN OTHER 229 C WORDS,INDEX TELLING WHICH OF THE 40 WIDE 230 C BANDS BETWEEN 160-560 CM-1 ARE INCLUDED IN 231 C EACH OF THE FIRST 8 COMBINED WIDE BANDS 232 C DATA FOR ACOMB,BCOMB,APCM,BPCM,ATPCM,BTPCM,AO3CM,BO3CM ARE 233 C OBTAINED BY USING THE AFGL 1982 CATALOG. CONTINUUM COEFFICIENTS 234 C ARE FROM ROBERTS (1976). IBAND INDEX VALUES ARE OBTAINED BY 235 C EXPERIMENTATION. 236 COMMON / BDCOMB / IBAND(40),ACOMB(NBLY),BCOMB(NBLY), 237 1 BETACM(NBLY),APCM(NBLY),BPCM(NBLY),ATPCM(NBLY), 238 2 BTPCM(NBLY),BDLOCM(NBLY),BDHICM(NBLY),BETINC, 239 3 AO3CM(3),BO3CM(3),AB15CM(2) 240 C 241 C THE FOLLOWING COMMON BLOCKS CONTAIN PRETABULATED CO2 TRANSMISSION 242 C FUNCTIONS, EVALUATED USING THE METHODS OF FELS AND 243 C SCHWARZKOPF (1981) AND SCHWARZKOPF AND FELS (1985), 244 C***COMMON CO2BD3 CONTAINS CO2 TRANSMISSION FUNCTIONS AND TEMPERATURE 245 C AND PRESSURE DERIVATIVES FOR THE 560-800 CM-1 BAND. ALSO INCLUDED 246 C ARE THE STANDARD TEMPERATURES AND THE WEIGHTING FUNCTION. THESE 247 C DATA ARE IN BLOCK DATA BD3: 248 C CO251 = TRANSMISSION FCTNS FOR T0 (STD. PROFILE) 249 C WITH P(SFC)=1013.25 MB 250 C CO258 = TRANSMISSION FCTNS. FOR T0 (STD. PROFILE) Page 5 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 251 C WITH P(SFC)= ^810 MB 252 C CDT51 = FIRST TEMPERATURE DERIVATIVE OF CO251 253 C CDT58 = FIRST TEMPERATURE DERIVATIVE OF CO258 254 C C2D51 = SECOND TEMPERATURE DERIVATIVE OF CO251 255 C C2D58 = SECOND TEMPERATURE DERIVATIVE OF CO251 256 C CO2M51 = TRANSMISSION FCTNS FOR T0 FOR ADJACENT PRESSURE 257 C LEVELS, WITH NO PRESSURE QUADRATURE. USED FOR 258 C NEARBY LAYER COMPUTATIONS. P(SFC)=1013.25 MB 259 C CO2M58 = SAME AS CO2M51,WITH P(SFC)= ^810 MB 260 C CDTM51 = FIRST TEMPERATURE DERIVATIVE OF CO2M51 261 C CDTM58 = FIRST TEMPERATURE DERIVATIVE OF CO2M58 262 C C2DM51 = SECOND TEMPERATURE DERIVATIVE OF CO2M51 263 C C2DM58 = SECOND TEMPERATURE DERIVATIVE OF CO2M58 264 C STEMP = STANDARD TEMPERATURES FOR MODEL PRESSURE LEVEL 265 C STRUCTURE WITH P(SFC)=1013.25 MB 266 C GTEMP = WEIGHTING FUNCTION FOR MODEL PRESSURE LEVEL 267 C STRUCTURE WITH P(SFC)=1013.25 MB. 268 C B0 = TEMP. COEFFICIENT USED FOR CO2 TRANS. FCTN. 269 C CORRECTION FOR T(K). (SEE REF. 4 AND BD3) 270 C B1 = TEMP. COEFFICIENT, USED ALONG WITH B0 271 C B2 = TEMP. COEFFICIENT, USED ALONG WITH B0 272 C B3 = TEMP. COEFFICIENT, USED ALONG WITH B0 273 C 274 COMMON/CO2BD3/CO251(LP1,LP1),CO258(LP1,LP1),CDT51(LP1,LP1), 275 1 CDT58(LP1,LP1),C2D51(LP1,LP1),C2D58(LP1,LP1),CO2M51(L), 276 2 CO2M58(L),CDTM51(L),CDTM58(L),C2DM51(L),C2DM58(L), 277 3 STEMP(LP1),GTEMP(LP1),B0,B1,B2,B3 278 C 279 C***COMMON CO2BD2 CONTAINS CO2 TRANSMISSION FUNCTIONS AND TEMPERATURE 280 C AND PRESSURE DERIVATIVES FOR THE 560-670 CM-1 PART OF THE 15 UM 281 C CO2 BAND. THESE DATA ARE IN BLOCK DATA BD2. 282 C CO231 = TRANSMISSION FCTNS FOR T0 (STD. PROFILE) 283 C WITH P(SFC)=1013.25 MB 284 C CO238 = TRANSMISSION FCTNS. FOR T0 (STD. PROFILE) 285 C WITH P(SFC)= ^810 MB 286 C CDT31 = FIRST TEMPERATURE DERIVATIVE OF CO231 287 C CDT38 = FIRST TEMPERATURE DERIVATIVE OF CO238 288 C C2D31 = SECOND TEMPERATURE DERIVATIVE OF CO231 289 C C2D38 = SECOND TEMPERATURE DERIVATIVE OF CO231 290 C 291 COMMON / CO2BD2 / CO231(LP1),CO238(LP1),CDT31(LP1), 292 1 CDT38(LP1),C2D31(LP1),C2D38(LP1) 293 C 294 C***COMMON CO2BD4 CONTAINS CO2 TRANSMISSION FUNCTIONS AND TEMPERATURE 295 C AND PRESSURE DERIVATIVES FOR THE 670-800 CM-1 PART OF THE 15 UM 296 C CO2 BAND. THESE DATA ARE IN BLOCK DATA BD4. 297 C CO271 = TRANSMISSION FCTNS FOR T0 (STD. PROFILE) 298 C WITH P(SFC)=1013.25 MB 299 C CO278 = TRANSMISSION FCTNS. FOR T0 (STD. PROFILE) 300 C WITH P(SFC)= ^810 MB 301 C CDT71 = FIRST TEMPERATURE DERIVATIVE OF CO271 302 C CDT78 = FIRST TEMPERATURE DERIVATIVE OF CO278 303 C C2D71 = SECOND TEMPERATURE DERIVATIVE OF CO271 304 C C2D78 = SECOND TEMPERATURE DERIVATIVE OF CO271 305 C 306 COMMON / CO2BD4 / CO271(LP1),CO278(LP1),CDT71(LP1), 307 1 CDT78(LP1),C2D71(LP1),C2D78(LP1) Page 6 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 308 C 309 C***COMMON CO2BD5 CONTAINS CO2 TRANSMISSION FUNCTIONS FOR THE 2270- 310 C 2380 PART OF THE 4.3 UM CO2 BAND. THESE DATA ARE IN BLOCK DATA BD5. 311 C CO211 = TRANSMISSION FCTNS FOR T0 (STD. PROFILE) 312 C WITH P(SFC)=1013.25 MB 313 C CO218 = TRANSMISSION FCTNS. FOR T0 (STD. PROFILE) 314 C WITH P(SFC)= ^810 MB 315 C 316 COMMON / CO2BD5 / CO211(LP1),CO218(LP1) 317 C 318 COMMON/TBLTMP/ DELCM(NBLY) 319 C*** NOTE: THE DATA,EQUIVALENCE AND DIMENSION STATEMENTS FOR QUANTITIES 320 C EQUIVALENCED TO COMMON BLOCK BANDTA DEPEND ON THE VALUE OF THE 321 C PARAMETER NBLW. 322 C 323 DIMENSION ARNDM1(64),ARNDM2(64),ARNDM3(35) 324 DIMENSION BRNDM1(64),BRNDM2(64),BRNDM3(35) 325 DIMENSION AP1(64),AP2(64),AP3(35) 326 DIMENSION BP1(64),BP2(64),BP3(35) 327 DIMENSION ATP1(64),ATP2(64),ATP3(35) 328 DIMENSION BTP1(64),BTP2(64),BTP3(35) 329 DIMENSION BETAD1(64),BETAD2(64),BETAD3(35) 330 DIMENSION BANDL1(64),BANDL2(64),BANDL3(35) 331 DIMENSION BANDH1(64),BANDH2(64),BANDH3(35) 332 EQUIVALENCE (ARNDM1(1),ARNDM(1)),(ARNDM2(1),ARNDM(65)), 333 1 (ARNDM3(1),ARNDM(129)) 334 EQUIVALENCE (BRNDM1(1),BRNDM(1)),(BRNDM2(1),BRNDM(65)), 335 1 (BRNDM3(1),BRNDM(129)) 336 EQUIVALENCE (AP1(1),AP(1)),(AP2(1),AP(65)), 337 1 (AP3(1),AP(129)) 338 EQUIVALENCE (BP1(1),BP(1)),(BP2(1),BP(65)), 339 1 (BP3(1),BP(129)) 340 EQUIVALENCE (ATP1(1),ATP(1)),(ATP2(1),ATP(65)), 341 1 (ATP3(1),ATP(129)) 342 EQUIVALENCE (BTP1(1),BTP(1)),(BTP2(1),BTP(65)), 343 1 (BTP3(1),BTP(129)) 344 EQUIVALENCE (BETAD1(1),BETAD(1)),(BETAD2(1),BETAD(65)), 345 1 (BETAD3(1),BETAD(129)) 346 EQUIVALENCE (BANDL1(1),BANDLO(1)),(BANDL2(1),BANDLO(65)), 347 1 (BANDL3(1),BANDLO(129)) 348 EQUIVALENCE (BANDH1(1),BANDHI(1)),(BANDH2(1),BANDHI(65)), 349 1 (BANDH3(1),BANDHI(129)) 350 C 351 C***THE FOLLOWING DATA STATEMENTS ARE BAND PARAMETERS OBTAINED USING 352 C THE 1982 AFGL CATALOG ON THE SPECIFIED BANDS 353 DATA ARNDM1 / 354 * 0.354693E+00, 0.269857E+03, 0.167062E+03, 0.201314E+04, 355 * 0.964533E+03, 0.547971E+04, 0.152933E+04, 0.599429E+04, 356 * 0.699329E+04, 0.856721E+04, 0.962489E+04, 0.233348E+04, 357 * 0.127091E+05, 0.104383E+05, 0.504249E+04, 0.181227E+05, 358 * 0.856480E+03, 0.136354E+05, 0.288635E+04, 0.170200E+04, 359 * 0.209761E+05, 0.126797E+04, 0.110096E+05, 0.336436E+03, 360 * 0.491663E+04, 0.863701E+04, 0.540389E+03, 0.439786E+04, 361 * 0.347836E+04, 0.130557E+03, 0.465332E+04, 0.253086E+03, 362 * 0.257387E+04, 0.488041E+03, 0.892991E+03, 0.117148E+04, 363 * 0.125880E+03, 0.458852E+03, 0.142975E+03, 0.446355E+03, 364 * 0.302887E+02, 0.394451E+03, 0.438112E+02, 0.348811E+02, Page 7 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 365 * 0.615503E+02, 0.143165E+03, 0.103958E+02, 0.725108E+02, 366 * 0.316628E+02, 0.946456E+01, 0.542675E+02, 0.351557E+02, 367 * 0.301797E+02, 0.381010E+01, 0.126319E+02, 0.548010E+01, 368 * 0.600199E+01, 0.640803E+00, 0.501549E-01, 0.167961E-01, 369 * 0.178110E-01, 0.170166E+00, 0.273514E-01, 0.983767E+00/ 370 DATA ARNDM2 / 371 * 0.753946E+00, 0.941763E-01, 0.970547E+00, 0.268862E+00, 372 * 0.564373E+01, 0.389794E+01, 0.310955E+01, 0.128235E+01, 373 * 0.196414E+01, 0.247113E+02, 0.593435E+01, 0.377552E+02, 374 * 0.305173E+02, 0.852479E+01, 0.116780E+03, 0.101490E+03, 375 * 0.138939E+03, 0.324228E+03, 0.683729E+02, 0.471304E+03, 376 * 0.159684E+03, 0.427101E+03, 0.114716E+03, 0.106190E+04, 377 * 0.294607E+03, 0.762948E+03, 0.333199E+03, 0.830645E+03, 378 * 0.162512E+04, 0.525676E+03, 0.137739E+04, 0.136252E+04, 379 * 0.147164E+04, 0.187196E+04, 0.131118E+04, 0.103975E+04, 380 * 0.621637E+01, 0.399459E+02, 0.950648E+02, 0.943161E+03, 381 * 0.526821E+03, 0.104150E+04, 0.905610E+03, 0.228142E+04, 382 * 0.806270E+03, 0.691845E+03, 0.155237E+04, 0.192241E+04, 383 * 0.991871E+03, 0.123907E+04, 0.457289E+02, 0.146146E+04, 384 * 0.319382E+03, 0.436074E+03, 0.374214E+03, 0.778217E+03, 385 * 0.140227E+03, 0.562540E+03, 0.682685E+02, 0.820292E+02, 386 * 0.178779E+03, 0.186150E+03, 0.383864E+03, 0.567416E+01/ 387 DATA ARNDM3 / 388 * 0.225129E+03, 0.473099E+01, 0.753149E+02, 0.233689E+02, 389 * 0.339802E+02, 0.108855E+03, 0.380016E+02, 0.151039E+01, 390 * 0.660346E+02, 0.370165E+01, 0.234169E+02, 0.440206E+00, 391 * 0.615283E+01, 0.304077E+02, 0.117769E+01, 0.125248E+02, 392 * 0.142652E+01, 0.241831E+00, 0.483721E+01, 0.226357E-01, 393 * 0.549835E+01, 0.597067E+00, 0.404553E+00, 0.143584E+01, 394 * 0.294291E+00, 0.466273E+00, 0.156048E+00, 0.656185E+00, 395 * 0.172727E+00, 0.118349E+00, 0.141598E+00, 0.588581E-01, 396 * 0.919409E-01, 0.155521E-01, 0.537083E-02/ 397 DATA BRNDM1 / 398 * 0.789571E-01, 0.920256E-01, 0.696960E-01, 0.245544E+00, 399 * 0.188503E+00, 0.266127E+00, 0.271371E+00, 0.330917E+00, 400 * 0.190424E+00, 0.224498E+00, 0.282517E+00, 0.130675E+00, 401 * 0.212579E+00, 0.227298E+00, 0.138585E+00, 0.187106E+00, 402 * 0.194527E+00, 0.177034E+00, 0.115902E+00, 0.118499E+00, 403 * 0.142848E+00, 0.216869E+00, 0.149848E+00, 0.971585E-01, 404 * 0.151532E+00, 0.865628E-01, 0.764246E-01, 0.100035E+00, 405 * 0.171133E+00, 0.134737E+00, 0.105173E+00, 0.860832E-01, 406 * 0.148921E+00, 0.869234E-01, 0.106018E+00, 0.184865E+00, 407 * 0.767454E-01, 0.108981E+00, 0.123094E+00, 0.177287E+00, 408 * 0.848146E-01, 0.119356E+00, 0.133829E+00, 0.954505E-01, 409 * 0.155405E+00, 0.164167E+00, 0.161390E+00, 0.113287E+00, 410 * 0.714720E-01, 0.741598E-01, 0.719590E-01, 0.140616E+00, 411 * 0.355356E-01, 0.832779E-01, 0.128680E+00, 0.983013E-01, 412 * 0.629660E-01, 0.643346E-01, 0.717082E-01, 0.629730E-01, 413 * 0.875182E-01, 0.857907E-01, 0.358808E+00, 0.178840E+00/ 414 DATA BRNDM2 / 415 * 0.254265E+00, 0.297901E+00, 0.153916E+00, 0.537774E+00, 416 * 0.267906E+00, 0.104254E+00, 0.400723E+00, 0.389670E+00, 417 * 0.263701E+00, 0.338116E+00, 0.351528E+00, 0.267764E+00, 418 * 0.186419E+00, 0.238237E+00, 0.210408E+00, 0.176869E+00, 419 * 0.114715E+00, 0.173299E+00, 0.967770E-01, 0.172565E+00, 420 * 0.162085E+00, 0.157782E+00, 0.886832E-01, 0.242999E+00, 421 * 0.760298E-01, 0.164248E+00, 0.221428E+00, 0.166799E+00, Page 8 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 422 * 0.312514E+00, 0.380600E+00, 0.353828E+00, 0.269500E+00, 423 * 0.254759E+00, 0.285408E+00, 0.159764E+00, 0.721058E-01, 424 * 0.170528E+00, 0.231595E+00, 0.307184E+00, 0.564136E-01, 425 * 0.159884E+00, 0.147907E+00, 0.185666E+00, 0.183567E+00, 426 * 0.182482E+00, 0.230650E+00, 0.175348E+00, 0.195978E+00, 427 * 0.255323E+00, 0.198517E+00, 0.195500E+00, 0.208356E+00, 428 * 0.309603E+00, 0.112011E+00, 0.102570E+00, 0.128276E+00, 429 * 0.168100E+00, 0.177836E+00, 0.105533E+00, 0.903330E-01, 430 * 0.126036E+00, 0.101430E+00, 0.124546E+00, 0.221406E+00/ 431 DATA BRNDM3 / 432 * 0.137509E+00, 0.911365E-01, 0.724508E-01, 0.795788E-01, 433 * 0.137411E+00, 0.549175E-01, 0.787714E-01, 0.165544E+00, 434 * 0.136484E+00, 0.146729E+00, 0.820496E-01, 0.846211E-01, 435 * 0.785821E-01, 0.122527E+00, 0.125359E+00, 0.101589E+00, 436 * 0.155756E+00, 0.189239E+00, 0.999086E-01, 0.480993E+00, 437 * 0.100233E+00, 0.153754E+00, 0.130780E+00, 0.136136E+00, 438 * 0.159353E+00, 0.156634E+00, 0.272265E+00, 0.186874E+00, 439 * 0.192090E+00, 0.135397E+00, 0.131497E+00, 0.127463E+00, 440 * 0.227233E+00, 0.190562E+00, 0.214005E+00/ 441 DATA AP1 / 442 * -0.675950E-02, -0.909459E-02, -0.800214E-02, -0.658673E-02, 443 * -0.245580E-02, -0.710464E-02, -0.205565E-02, -0.446529E-02, 444 * -0.440265E-02, -0.593625E-02, -0.201913E-02, -0.349169E-02, 445 * -0.209324E-02, -0.127980E-02, -0.388007E-02, -0.140542E-02, 446 * 0.518346E-02, -0.159375E-02, 0.250508E-02, 0.132182E-01, 447 * -0.903779E-03, 0.110959E-01, 0.924528E-03, 0.207428E-01, 448 * 0.364166E-02, 0.365229E-02, 0.884367E-02, 0.617260E-02, 449 * 0.701340E-02, 0.184265E-01, 0.992822E-02, 0.908582E-02, 450 * 0.106581E-01, 0.276268E-02, 0.158414E-01, 0.145747E-01, 451 * 0.453080E-02, 0.214767E-01, 0.553895E-02, 0.195031E-01, 452 * 0.237016E-01, 0.112371E-01, 0.275977E-01, 0.188833E-01, 453 * 0.131079E-01, 0.130019E-01, 0.385122E-01, 0.111768E-01, 454 * 0.622620E-02, 0.194397E-01, 0.134360E-01, 0.207829E-01, 455 * 0.147960E-01, 0.744479E-02, 0.107564E-01, 0.181562E-01, 456 * 0.170062E-01, 0.233303E-01, 0.256735E-01, 0.274745E-01, 457 * 0.279259E-01, 0.197002E-01, 0.140268E-01, 0.185933E-01/ 458 DATA AP2 / 459 * 0.169525E-01, 0.214410E-01, 0.136577E-01, 0.169510E-01, 460 * 0.173025E-01, 0.958346E-02, 0.255024E-01, 0.308943E-01, 461 * 0.196031E-01, 0.183608E-01, 0.149419E-01, 0.206358E-01, 462 * 0.140654E-01, 0.172797E-01, 0.145470E-01, 0.982987E-02, 463 * 0.116695E-01, 0.811333E-02, 0.965823E-02, 0.649977E-02, 464 * 0.462192E-02, 0.545929E-02, 0.680407E-02, 0.291235E-02, 465 * -0.974773E-03, 0.341591E-02, 0.376198E-02, 0.770610E-03, 466 * -0.940864E-04, 0.514532E-02, 0.232371E-02, -0.177741E-02, 467 * -0.374892E-03, -0.370485E-03, -0.221435E-02, -0.490000E-02, 468 * 0.588664E-02, 0.931411E-03, -0.456043E-03, -0.545576E-02, 469 * -0.421136E-02, -0.353742E-02, -0.174276E-02, -0.361246E-02, 470 * -0.337822E-02, -0.867030E-03, -0.118001E-02, -0.222405E-02, 471 * -0.725144E-03, 0.118483E-02, 0.995087E-02, 0.273812E-03, 472 * 0.417298E-02, 0.764294E-02, 0.631568E-02, -0.213528E-02, 473 * 0.746130E-02, 0.110337E-02, 0.153157E-01, 0.504532E-02, 474 * 0.406047E-02, 0.192895E-02, 0.202058E-02, 0.126420E-01/ 475 DATA AP3 / 476 * 0.310028E-02, 0.214779E-01, 0.560165E-02, 0.661070E-02, 477 * 0.694966E-02, 0.539194E-02, 0.103745E-01, 0.180150E-01, 478 * 0.747133E-02, 0.114927E-01, 0.115213E-01, 0.160709E-02, Page 9 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 479 * 0.154278E-01, 0.112067E-01, 0.148690E-01, 0.154442E-01, 480 * 0.123977E-01, 0.237539E-01, 0.162820E-01, 0.269484E-01, 481 * 0.178081E-01, 0.143221E-01, 0.262468E-01, 0.217065E-01, 482 * 0.107083E-01, 0.281220E-01, 0.115565E-01, 0.231244E-01, 483 * 0.225197E-01, 0.178624E-01, 0.327708E-01, 0.116657E-01, 484 * 0.277452E-01, 0.301647E-01, 0.349782E-01/ 485 DATA BP1 / 486 * 0.717848E-05, 0.169280E-04, 0.126710E-04, 0.758397E-05, 487 * -0.533900E-05, 0.143490E-04, -0.595854E-05, 0.296465E-05, 488 * 0.323446E-05, 0.115359E-04, -0.692861E-05, 0.131477E-04, 489 * -0.624945E-05, -0.756955E-06, 0.107458E-05, -0.159796E-05, 490 * -0.290529E-04, -0.170918E-05, -0.193934E-04, -0.707209E-04, 491 * -0.148154E-04, -0.383162E-04, -0.186050E-04, -0.951796E-04, 492 * -0.210944E-04, -0.330590E-04, -0.373087E-04, -0.408972E-04, 493 * -0.396759E-04, -0.827756E-04, -0.573773E-04, -0.325384E-04, 494 * -0.449411E-04, -0.271450E-04, -0.752791E-04, -0.549699E-04, 495 * -0.225655E-04, -0.102034E-03, -0.740322E-05, -0.668846E-04, 496 * -0.106063E-03, -0.304840E-04, -0.796023E-04, 0.504880E-04, 497 * 0.486384E-04, -0.531946E-04, -0.147771E-03, -0.406785E-04, 498 * 0.615750E-05, -0.486264E-04, -0.419335E-04, -0.819467E-04, 499 * -0.709498E-04, 0.326984E-05, -0.369743E-04, -0.526848E-04, 500 * -0.550050E-04, -0.684057E-04, -0.447093E-04, -0.778390E-04, 501 * -0.982953E-04, -0.772497E-04, -0.119430E-05, -0.655187E-04/ 502 DATA BP2 / 503 * -0.339078E-04, 0.716657E-04, -0.335893E-04, 0.220239E-04, 504 * -0.491012E-04, -0.393325E-04, -0.626461E-04, -0.795479E-04, 505 * -0.599181E-04, -0.578153E-04, -0.597559E-05, -0.866750E-04, 506 * -0.486783E-04, -0.580912E-04, -0.647368E-04, -0.350643E-04, 507 * -0.566635E-04, -0.385738E-04, -0.463782E-04, -0.321485E-04, 508 * -0.177300E-04, -0.250201E-04, -0.365492E-04, -0.165218E-04, 509 * -0.649177E-05, -0.218458E-04, -0.984604E-05, -0.120034E-04, 510 * -0.110119E-06, -0.164405E-04, -0.141396E-04, 0.315347E-05, 511 * -0.141544E-05, -0.297320E-05, -0.216248E-05, 0.839264E-05, 512 * -0.178197E-04, -0.106225E-04, -0.468195E-05, 0.997043E-05, 513 * 0.679709E-05, 0.324610E-05, -0.367325E-05, 0.671058E-05, 514 * 0.509293E-05, -0.437392E-05, -0.787922E-06, -0.271503E-06, 515 * -0.437940E-05, -0.128205E-04, -0.417830E-04, -0.561134E-05, 516 * -0.209940E-04, -0.414366E-04, -0.289765E-04, 0.680406E-06, 517 * -0.558644E-05, -0.530395E-05, -0.622242E-04, -0.159979E-05, 518 * -0.140286E-04, -0.128463E-04, -0.929499E-05, -0.327886E-04/ 519 DATA BP3 / 520 * -0.189353E-04, -0.737589E-04, -0.323471E-04, -0.272502E-04, 521 * -0.321731E-04, -0.326958E-04, -0.509157E-04, -0.681890E-04, 522 * -0.362182E-04, -0.354405E-04, -0.578392E-04, 0.238627E-05, 523 * -0.709028E-04, -0.518717E-04, -0.491859E-04, -0.718017E-04, 524 * -0.418978E-05, -0.940819E-04, -0.630375E-04, -0.478469E-04, 525 * -0.751896E-04, -0.267113E-04, -0.109019E-03, -0.890983E-04, 526 * -0.177301E-04, -0.120216E-03, 0.220464E-04, -0.734277E-04, 527 * -0.868068E-04, -0.652319E-04, -0.136982E-03, -0.279933E-06, 528 * -0.791824E-04, -0.111781E-03, -0.748263E-04/ 529 DATA ATP1 / 530 * -0.722782E-02, -0.901531E-02, -0.821263E-02, -0.808024E-02, 531 * -0.320169E-02, -0.661305E-02, -0.287272E-02, -0.486143E-02, 532 * -0.242857E-02, -0.530288E-02, -0.146813E-02, -0.566474E-03, 533 * -0.102192E-02, 0.300643E-03, -0.331655E-02, 0.648220E-03, 534 * 0.552446E-02, -0.933046E-03, 0.205703E-02, 0.130638E-01, 535 * -0.229828E-02, 0.715648E-02, 0.444446E-03, 0.193500E-01, Page 10 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 536 * 0.364119E-02, 0.252713E-02, 0.102420E-01, 0.494224E-02, 537 * 0.584934E-02, 0.146255E-01, 0.921986E-02, 0.768012E-02, 538 * 0.916105E-02, 0.276223E-02, 0.125245E-01, 0.131146E-01, 539 * 0.793016E-02, 0.201536E-01, 0.658631E-02, 0.171711E-01, 540 * 0.228470E-01, 0.131306E-01, 0.226658E-01, 0.176086E-01, 541 * 0.149987E-01, 0.143060E-01, 0.313189E-01, 0.117070E-01, 542 * 0.133522E-01, 0.244259E-01, 0.148393E-01, 0.223982E-01, 543 * 0.151792E-01, 0.180474E-01, 0.106299E-01, 0.191016E-01, 544 * 0.171776E-01, 0.229724E-01, 0.275530E-01, 0.302731E-01, 545 * 0.281662E-01, 0.199525E-01, 0.192588E-01, 0.173220E-01/ 546 DATA ATP2 / 547 * 0.195220E-01, 0.169371E-01, 0.193212E-01, 0.145558E-01, 548 * 0.189654E-01, 0.122030E-01, 0.186206E-01, 0.228842E-01, 549 * 0.139343E-01, 0.164006E-01, 0.137276E-01, 0.154005E-01, 550 * 0.114575E-01, 0.129956E-01, 0.115305E-01, 0.929260E-02, 551 * 0.106359E-01, 0.771623E-02, 0.106075E-01, 0.597630E-02, 552 * 0.493960E-02, 0.532554E-02, 0.646175E-02, 0.302693E-02, 553 * 0.150899E-02, 0.310333E-02, 0.533734E-02, 0.239094E-03, 554 * 0.356782E-02, 0.707574E-02, 0.215758E-02, -0.527589E-03, 555 * 0.643893E-03, -0.101916E-02, -0.383336E-02, -0.445966E-02, 556 * 0.880190E-02, 0.245662E-02, -0.560923E-03, -0.582201E-02, 557 * -0.323233E-02, -0.454197E-02, -0.240905E-02, -0.343160E-02, 558 * -0.335156E-02, -0.623846E-03, 0.393633E-03, -0.271593E-02, 559 * -0.675874E-03, 0.920642E-03, 0.102168E-01, -0.250663E-03, 560 * 0.437126E-02, 0.767434E-02, 0.569931E-02, -0.929326E-03, 561 * 0.659414E-02, 0.280687E-02, 0.127614E-01, 0.780789E-02, 562 * 0.374807E-02, 0.274288E-02, 0.534940E-02, 0.104349E-01/ 563 DATA ATP3 / 564 * 0.294379E-02, 0.177846E-01, 0.523249E-02, 0.125339E-01, 565 * 0.548538E-02, 0.577403E-02, 0.101532E-01, 0.170375E-01, 566 * 0.758396E-02, 0.113402E-01, 0.106960E-01, 0.107782E-01, 567 * 0.136148E-01, 0.992064E-02, 0.167276E-01, 0.149603E-01, 568 * 0.136259E-01, 0.234521E-01, 0.166806E-01, 0.298505E-01, 569 * 0.167592E-01, 0.186679E-01, 0.233062E-01, 0.228467E-01, 570 * 0.128947E-01, 0.293979E-01, 0.219815E-01, 0.220663E-01, 571 * 0.272710E-01, 0.237139E-01, 0.331743E-01, 0.208799E-01, 572 * 0.281472E-01, 0.318440E-01, 0.370962E-01/ 573 DATA BTP1 / 574 * 0.149748E-04, 0.188007E-04, 0.196530E-04, 0.124747E-04, 575 * -0.215751E-07, 0.128357E-04, -0.265798E-05, 0.606262E-05, 576 * 0.287668E-05, 0.974612E-05, -0.833451E-05, 0.584410E-05, 577 * -0.452879E-05, -0.782537E-05, 0.786165E-05, -0.768351E-05, 578 * -0.196168E-04, 0.177297E-06, -0.129258E-04, -0.642798E-04, 579 * -0.986297E-05, -0.257145E-04, -0.141996E-04, -0.865089E-04, 580 * -0.141691E-04, -0.272578E-04, -0.295198E-04, -0.308878E-04, 581 * -0.313193E-04, -0.669272E-04, -0.475777E-04, -0.221332E-04, 582 * -0.419930E-04, -0.102519E-04, -0.590184E-04, -0.574771E-04, 583 * -0.240809E-04, -0.913994E-04, -0.908886E-05, -0.721074E-04, 584 * -0.902837E-04, -0.447582E-04, -0.664544E-04, -0.143150E-04, 585 * -0.511866E-05, -0.559352E-04, -0.104734E-03, -0.305206E-04, 586 * 0.103303E-04, -0.613019E-04, -0.320040E-04, -0.738909E-04, 587 * -0.388263E-04, 0.306515E-04, -0.352214E-04, -0.253940E-04, 588 * -0.521369E-04, -0.746260E-04, -0.744124E-04, -0.881905E-04, 589 * -0.933645E-04, -0.664045E-04, -0.570712E-05, -0.566312E-04/ 590 DATA BTP2 / 591 * -0.364967E-04, 0.393501E-06, -0.234050E-04, -0.141317E-04, 592 * -0.525480E-04, -0.172241E-04, -0.410843E-04, -0.358348E-04, Page 11 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 593 * -0.256168E-04, -0.509482E-04, -0.180570E-04, -0.555356E-04, 594 * -0.271464E-04, -0.274040E-04, -0.480889E-04, -0.275751E-04, 595 * -0.415681E-04, -0.383770E-04, -0.280139E-04, -0.287919E-04, 596 * -0.125865E-04, -0.265467E-04, -0.172765E-04, -0.164611E-04, 597 * 0.189183E-04, -0.171219E-04, -0.132766E-04, -0.344611E-05, 598 * -0.442832E-05, -0.185779E-04, -0.139755E-04, 0.168083E-05, 599 * -0.395287E-05, -0.297871E-05, 0.434383E-05, 0.131741E-04, 600 * -0.192637E-04, -0.549551E-05, 0.122553E-05, 0.204627E-04, 601 * 0.154027E-04, 0.953462E-05, 0.131125E-05, 0.732839E-05, 602 * 0.755405E-05, -0.305552E-05, -0.434858E-05, 0.308409E-05, 603 * -0.164787E-05, -0.818533E-05, -0.355041E-04, -0.504696E-05, 604 * -0.229022E-04, -0.356891E-04, -0.230346E-04, 0.518835E-05, 605 * -0.160187E-04, -0.104617E-04, -0.464754E-04, -0.115807E-04, 606 * -0.130230E-04, -0.603491E-05, -0.125324E-04, -0.165516E-04/ 607 DATA BTP3 / 608 * -0.991679E-05, -0.529432E-04, -0.200199E-04, -0.181977E-04, 609 * -0.220940E-04, -0.204483E-04, -0.432584E-04, -0.449109E-04, 610 * -0.247305E-04, -0.174253E-04, -0.484446E-04, 0.354150E-04, 611 * -0.425581E-04, -0.406562E-04, -0.505495E-04, -0.651856E-04, 612 * -0.153953E-04, -0.894294E-04, -0.616551E-04, -0.846504E-04, 613 * -0.699414E-04, -0.376203E-04, -0.940985E-04, -0.753050E-04, 614 * -0.183710E-04, -0.123907E-03, -0.279347E-04, -0.736381E-04, 615 * -0.103588E-03, -0.754117E-04, -0.140991E-03, -0.366687E-04, 616 * -0.927785E-04, -0.125321E-03, -0.115290E-03/ 617 DATA BETAD1 / 618 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 619 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 620 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 621 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 622 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 623 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 624 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 625 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 626 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 627 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 628 * 0.234879E+03, 0.217419E+03, 0.201281E+03, 0.186364E+03, 629 * 0.172576E+03, 0.159831E+03, 0.148051E+03, 0.137163E+03, 630 * 0.127099E+03, 0.117796E+03, 0.109197E+03, 0.101249E+03, 631 * 0.939031E+02, 0.871127E+02, 0.808363E+02, 0.750349E+02, 632 * 0.497489E+02, 0.221212E+02, 0.113124E+02, 0.754174E+01, 633 * 0.589554E+01, 0.495227E+01, 0.000000E+00, 0.000000E+00/ 634 DATA BETAD2 / 635 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 636 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 637 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 638 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 639 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 640 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 641 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 642 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 643 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 644 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 645 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 646 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 647 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 648 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 649 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, Page 12 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 650 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00/ 651 DATA BETAD3 / 652 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 653 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 654 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 655 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 656 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 657 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 658 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 659 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 660 * 0.000000E+00, 0.000000E+00, 0.000000E+00/ 661 DATA BANDL1 / 662 * 0.000000E+00, 0.100000E+02, 0.200000E+02, 0.300000E+02, 663 * 0.400000E+02, 0.500000E+02, 0.600000E+02, 0.700000E+02, 664 * 0.800000E+02, 0.900000E+02, 0.100000E+03, 0.110000E+03, 665 * 0.120000E+03, 0.130000E+03, 0.140000E+03, 0.150000E+03, 666 * 0.160000E+03, 0.170000E+03, 0.180000E+03, 0.190000E+03, 667 * 0.200000E+03, 0.210000E+03, 0.220000E+03, 0.230000E+03, 668 * 0.240000E+03, 0.250000E+03, 0.260000E+03, 0.270000E+03, 669 * 0.280000E+03, 0.290000E+03, 0.300000E+03, 0.310000E+03, 670 * 0.320000E+03, 0.330000E+03, 0.340000E+03, 0.350000E+03, 671 * 0.360000E+03, 0.370000E+03, 0.380000E+03, 0.390000E+03, 672 * 0.400000E+03, 0.410000E+03, 0.420000E+03, 0.430000E+03, 673 * 0.440000E+03, 0.450000E+03, 0.460000E+03, 0.470000E+03, 674 * 0.480000E+03, 0.490000E+03, 0.500000E+03, 0.510000E+03, 675 * 0.520000E+03, 0.530000E+03, 0.540000E+03, 0.550000E+03, 676 * 0.560000E+03, 0.670000E+03, 0.800000E+03, 0.900000E+03, 677 * 0.990000E+03, 0.107000E+04, 0.120000E+04, 0.121000E+04/ 678 DATA BANDL2 / 679 * 0.122000E+04, 0.123000E+04, 0.124000E+04, 0.125000E+04, 680 * 0.126000E+04, 0.127000E+04, 0.128000E+04, 0.129000E+04, 681 * 0.130000E+04, 0.131000E+04, 0.132000E+04, 0.133000E+04, 682 * 0.134000E+04, 0.135000E+04, 0.136000E+04, 0.137000E+04, 683 * 0.138000E+04, 0.139000E+04, 0.140000E+04, 0.141000E+04, 684 * 0.142000E+04, 0.143000E+04, 0.144000E+04, 0.145000E+04, 685 * 0.146000E+04, 0.147000E+04, 0.148000E+04, 0.149000E+04, 686 * 0.150000E+04, 0.151000E+04, 0.152000E+04, 0.153000E+04, 687 * 0.154000E+04, 0.155000E+04, 0.156000E+04, 0.157000E+04, 688 * 0.158000E+04, 0.159000E+04, 0.160000E+04, 0.161000E+04, 689 * 0.162000E+04, 0.163000E+04, 0.164000E+04, 0.165000E+04, 690 * 0.166000E+04, 0.167000E+04, 0.168000E+04, 0.169000E+04, 691 * 0.170000E+04, 0.171000E+04, 0.172000E+04, 0.173000E+04, 692 * 0.174000E+04, 0.175000E+04, 0.176000E+04, 0.177000E+04, 693 * 0.178000E+04, 0.179000E+04, 0.180000E+04, 0.181000E+04, 694 * 0.182000E+04, 0.183000E+04, 0.184000E+04, 0.185000E+04/ 695 DATA BANDL3 / 696 * 0.186000E+04, 0.187000E+04, 0.188000E+04, 0.189000E+04, 697 * 0.190000E+04, 0.191000E+04, 0.192000E+04, 0.193000E+04, 698 * 0.194000E+04, 0.195000E+04, 0.196000E+04, 0.197000E+04, 699 * 0.198000E+04, 0.199000E+04, 0.200000E+04, 0.201000E+04, 700 * 0.202000E+04, 0.203000E+04, 0.204000E+04, 0.205000E+04, 701 * 0.206000E+04, 0.207000E+04, 0.208000E+04, 0.209000E+04, 702 * 0.210000E+04, 0.211000E+04, 0.212000E+04, 0.213000E+04, 703 * 0.214000E+04, 0.215000E+04, 0.216000E+04, 0.217000E+04, 704 * 0.218000E+04, 0.219000E+04, 0.227000E+04/ 705 DATA BANDH1 / 706 * 0.100000E+02, 0.200000E+02, 0.300000E+02, 0.400000E+02, Page 13 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 707 * 0.500000E+02, 0.600000E+02, 0.700000E+02, 0.800000E+02, 708 * 0.900000E+02, 0.100000E+03, 0.110000E+03, 0.120000E+03, 709 * 0.130000E+03, 0.140000E+03, 0.150000E+03, 0.160000E+03, 710 * 0.170000E+03, 0.180000E+03, 0.190000E+03, 0.200000E+03, 711 * 0.210000E+03, 0.220000E+03, 0.230000E+03, 0.240000E+03, 712 * 0.250000E+03, 0.260000E+03, 0.270000E+03, 0.280000E+03, 713 * 0.290000E+03, 0.300000E+03, 0.310000E+03, 0.320000E+03, 714 * 0.330000E+03, 0.340000E+03, 0.350000E+03, 0.360000E+03, 715 * 0.370000E+03, 0.380000E+03, 0.390000E+03, 0.400000E+03, 716 * 0.410000E+03, 0.420000E+03, 0.430000E+03, 0.440000E+03, 717 * 0.450000E+03, 0.460000E+03, 0.470000E+03, 0.480000E+03, 718 * 0.490000E+03, 0.500000E+03, 0.510000E+03, 0.520000E+03, 719 * 0.530000E+03, 0.540000E+03, 0.550000E+03, 0.560000E+03, 720 * 0.670000E+03, 0.800000E+03, 0.900000E+03, 0.990000E+03, 721 * 0.107000E+04, 0.120000E+04, 0.121000E+04, 0.122000E+04/ 722 DATA BANDH2 / 723 * 0.123000E+04, 0.124000E+04, 0.125000E+04, 0.126000E+04, 724 * 0.127000E+04, 0.128000E+04, 0.129000E+04, 0.130000E+04, 725 * 0.131000E+04, 0.132000E+04, 0.133000E+04, 0.134000E+04, 726 * 0.135000E+04, 0.136000E+04, 0.137000E+04, 0.138000E+04, 727 * 0.139000E+04, 0.140000E+04, 0.141000E+04, 0.142000E+04, 728 * 0.143000E+04, 0.144000E+04, 0.145000E+04, 0.146000E+04, 729 * 0.147000E+04, 0.148000E+04, 0.149000E+04, 0.150000E+04, 730 * 0.151000E+04, 0.152000E+04, 0.153000E+04, 0.154000E+04, 731 * 0.155000E+04, 0.156000E+04, 0.157000E+04, 0.158000E+04, 732 * 0.159000E+04, 0.160000E+04, 0.161000E+04, 0.162000E+04, 733 * 0.163000E+04, 0.164000E+04, 0.165000E+04, 0.166000E+04, 734 * 0.167000E+04, 0.168000E+04, 0.169000E+04, 0.170000E+04, 735 * 0.171000E+04, 0.172000E+04, 0.173000E+04, 0.174000E+04, 736 * 0.175000E+04, 0.176000E+04, 0.177000E+04, 0.178000E+04, 737 * 0.179000E+04, 0.180000E+04, 0.181000E+04, 0.182000E+04, 738 * 0.183000E+04, 0.184000E+04, 0.185000E+04, 0.186000E+04/ 739 DATA BANDH3 / 740 * 0.187000E+04, 0.188000E+04, 0.189000E+04, 0.190000E+04, 741 * 0.191000E+04, 0.192000E+04, 0.193000E+04, 0.194000E+04, 742 * 0.195000E+04, 0.196000E+04, 0.197000E+04, 0.198000E+04, 743 * 0.199000E+04, 0.200000E+04, 0.201000E+04, 0.202000E+04, 744 * 0.203000E+04, 0.204000E+04, 0.205000E+04, 0.206000E+04, 745 * 0.207000E+04, 0.208000E+04, 0.209000E+04, 0.210000E+04, 746 * 0.211000E+04, 0.212000E+04, 0.213000E+04, 0.214000E+04, 747 * 0.215000E+04, 0.216000E+04, 0.217000E+04, 0.218000E+04, 748 * 0.219000E+04, 0.220000E+04, 0.238000E+04/ 749 DATA AO3RND / 750 * 0.543368E+02, 0.234676E+04, 0.384881E+02/ 751 DATA BO3RND / 752 * 0.526064E+01, 0.922424E+01, 0.496515E+01/ 753 DATA AWIDE / 754 * 0.309801E+01/ 755 DATA BWIDE / 756 * 0.495357E-01/ 757 DATA APWD / 758 * 0.177115E-01/ 759 DATA BPWD / 760 * -0.545226E-04/ 761 DATA ATPWD / 762 * 0.187967E-01/ 763 DATA BTPWD / Page 14 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 764 * -0.567449E-04/ 765 DATA BETAWD / 766 * 0.347839E+02/ 767 DATA BETINW / 768 * 0.766811E+01/ 769 DATA BDLOWD / 770 * 0.560000E+03/ 771 DATA BDHIWD / 772 * 0.800000E+03/ 773 DATA ACOMB / 774 * 0.152070E+05, 0.332194E+04, 0.527177E+03, 0.163124E+03, 775 * 0.268808E+03, 0.534591E+02, 0.268071E+02, 0.123133E+02, 776 * 0.600199E+01, 0.640803E+00, 0.501549E-01, 0.167961E-01, 777 * 0.178110E-01, 0.170166E+00, 0.537083E-02/ 778 DATA BCOMB / 779 * 0.152538E+00, 0.118677E+00, 0.103660E+00, 0.100119E+00, 780 * 0.127518E+00, 0.118409E+00, 0.904061E-01, 0.642011E-01, 781 * 0.629660E-01, 0.643346E-01, 0.717082E-01, 0.629730E-01, 782 * 0.875182E-01, 0.857907E-01, 0.214005E+00/ 783 DATA APCM / 784 * -0.671879E-03, 0.654345E-02, 0.143657E-01, 0.923593E-02, 785 * 0.117022E-01, 0.159596E-01, 0.181600E-01, 0.145013E-01, 786 * 0.170062E-01, 0.233303E-01, 0.256735E-01, 0.274745E-01, 787 * 0.279259E-01, 0.197002E-01, 0.349782E-01/ 788 DATA BPCM / 789 * -0.113520E-04, -0.323965E-04, -0.448417E-04, -0.230779E-04, 790 * -0.361981E-04, -0.145117E-04, 0.198349E-04, -0.486529E-04, 791 * -0.550050E-04, -0.684057E-04, -0.447093E-04, -0.778390E-04, 792 * -0.982953E-04, -0.772497E-04, -0.748263E-04/ 793 DATA ATPCM / 794 * -0.106346E-02, 0.641531E-02, 0.137362E-01, 0.922513E-02, 795 * 0.136162E-01, 0.169791E-01, 0.206959E-01, 0.166223E-01, 796 * 0.171776E-01, 0.229724E-01, 0.275530E-01, 0.302731E-01, 797 * 0.281662E-01, 0.199525E-01, 0.370962E-01/ 798 DATA BTPCM / 799 * -0.735731E-05, -0.294149E-04, -0.505592E-04, -0.280894E-04, 800 * -0.492972E-04, -0.341508E-04, -0.362947E-04, -0.250487E-04, 801 * -0.521369E-04, -0.746260E-04, -0.744124E-04, -0.881905E-04, 802 * -0.933645E-04, -0.664045E-04, -0.115290E-03/ 803 DATA BETACM / 804 * 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, 805 * 0.188625E+03, 0.144293E+03, 0.174098E+03, 0.909366E+02, 806 * 0.497489E+02, 0.221212E+02, 0.113124E+02, 0.754174E+01, 807 * 0.589554E+01, 0.495227E+01, 0.000000E+00/ 808 DATA DELCM / 809 * 0.300000E+02, 0.110000E+03, 0.600000E+02, 0.400000E+02, 810 * 0.200000E+02, 0.500000E+02, 0.400000E+02, 0.500000E+02, 811 * 0.110000E+03, 0.130000E+03, 0.100000E+03, 0.900000E+02, 812 * 0.800000E+02, 0.130000E+03, 0.110000E+03/ 813 DATA IBAND / 814 * 2, 1, 2, 2, 1, 2, 1, 3, 2, 2, 815 * 3, 2, 2, 4, 2, 4, 2, 3, 3, 2, 816 * 4, 3, 4, 3, 7, 5, 6, 7, 6, 5, 817 * 7, 6, 7, 8, 6, 6, 8, 8, 8, 8/ 818 DATA CH,CM,CL,ICH,ICM,ICT,ICB/.159,.07,.269,5,11,12,14/ 819 DATA EMCH,EMCM,EMCL/1.,1.,1./ 820 C DATA COCA/0.,.210,.540,.660,.100,14*0./ Page 15 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 821 C DATA CWCA/0.,.190,.460,.500,0.,14*0./ 822 C DATA CWCB/0.,.040,.200,.300,0.,14*0./ 823 C***THE FOLLOWING DATA ARE LEVEL-INDEPENDENT 824 CCCCC DATA RCO2/3.3E-4/ 825 DATA G/980.665/ 826 C DATA CTAUDA/.5/ 827 C DATA CSOLAR/1.96/ 828 C DATA CCOSZ/.5/ 829 C B0,B1,B2,B3 ARE COEFFICIENTS USED TO CORRECT FOR THE USE OF 250K IN 830 C THE PLANCK FUNCTION USED IN EVALUATING PLANCK-WEIGHTED CO2 831 C TRANSMISSION FUNCTIONS. (SEE REF. 4) 832 DATA B0,B1,B2,B3/-.51926410E-4,-.18113332E-3, 833 1 -.10680132E-5,-.67303519E-7/ 834 C ******************************************************************* 835 C * * 836 C * B L C K F S FROM G F D L * 837 C * UNUSED DATA CLEANED OUT - NOV 86 AND MAR 89 ..K.A.CAMPANA.... * 838 C * * 839 C ******************************************************************* 840 C 841 C FOR SEASONAL VARIATION 842 C SEASON=1,2,3,4 FOR WINTER,SPRING,SUMMER,FALL ONLY (NOT ACTIVE) 843 C SEASON=5 - SEASONAL VARIATION(I.E.INTERPOLATE TO DAY OF FCST) 844 C 845 INTEGER SEASON 846 COMMON/DIUCON/SEASON,FCSTDA,JTIME(5),DAZ(12),JDNMC, 847 . FJDNMC,TSLAG,RLAG,TIMIN,TPI,HPI,YEAR,DAY,DHR,IXXXX 848 DATA SEASON/5/ 849 DATA TSLAG/45.25/, RLAG/14.8125/ 850 DATA DAY/86400./, YEAR/365.25/ 851 DATA TPI/6.283185308/, HPI/1.570796327/ 852 DATA JTIME/0,1,0,0,0/ 853 DATA DHR/2./ 854 DATA DAZ/0.,31.,59.,90.,120.,151.,181.,212.,243.,273.,304.,334./ 855 C 856 C SEA SURFACE ALBEDO DATA 857 C 858 COMMON/SSALB/ALBD(21,20),ZA(20),TRN(21),DZA(19) 859 DIMENSION ALB1(21,7),ALB2(21,7),ALB3(21,6) 860 EQUIVALENCE (ALB1(1,1),ALBD(1,1)),(ALB2(1,1),ALBD(1,8)), 861 . (ALB3(1,1),ALBD(1,15)) 862 DATA ALB1/ .061,.062,.072,.087,.115,.163,.235,.318,.395,.472,.542, 863 . .604,.655,.693,.719,.732,.730,.681,.581,.453,.425,.061,.062,.070, 864 . .083,.108,.145,.198,.263,.336,.415,.487,.547,.595,.631,.656,.670, 865 . .652,.602,.494,.398,.370,.061,.061,.068,.079,.098,.130,.174,.228, 866 . .290,.357,.424,.498,.556,.588,.603,.592,.556,.488,.393,.342,.325, 867 . .061,.061,.065,.073,.086,.110,.150,.192,.248,.306,.360,.407,.444, 868 . .469,.480,.474,.444,.386,.333,.301,.290,.061,.061,.065,.070,.082, 869 . .101,.131,.168,.208,.252,.295,.331,.358,.375,.385,.377,.356,.320, 870 . .288,.266,.255,.061,.061,.063,.068,.077,.092,.114,.143,.176,.210, 871 . .242,.272,.288,.296,.300,.291,.273,.252,.237,.266,.220,.061,.061, 872 . .062,.066,.072,.084,.103,.127,.151,.176,.198,.219,.236,.245,.250, 873 . .246,.235,.222,.211,.205,.200/ 874 DATA ALB2/ .061,.061,.061,.065,.071,.079,.094,.113,.134,.154,.173, 875 . .185,.190,.193,.193,.190,.188,.185,.182,.180,.178,.061,.061,.061, 876 . .064,.067,.072,.083,.099,.117,.135,.150,.160,.164,.165,.164,.162, 877 . .160,.159,.158,.157,.157,.061,.061,.061,.062,.065,.068,.074,.084, Page 16 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F 878 . .097,.111,.121,.127,.130,.131,.131,.130,.129,.127,.126,.125,.122, 879 . .061,.061,.061,.061,.062,.064,.070,.076,.085,.094,.101,.105,.107, 880 . .106,.103,.100,.097,.096,.095,.095,.095,.061,.061,.061,.060,.061, 881 . .062,.065,.070,.075,.081,.086,.089,.090,.088,.084,.080,.077,.075, 882 . .074,.074,.074,.061,.061,.060,.060,.060,.061,.063,.065,.068,.072, 883 . .076,.077,.076,.074,.071,.067,.064,.062,.061,.061,.061,.061,.061, 884 . .060,.060,.060,.060,.061,.062,.065,.068,.069,.069,.068,.065,.061, 885 . .058,.055,.054,.053,.052,.052/ 886 DATA ALB3/ .061,.061,.060,.060,.060,.060,.060,.060,.062,.065,.065, 887 . .063,.060,.057,.054,.050,.047,.046,.045,.044,.044,.061,.061,.060, 888 . .060,.060,.059,.059,.059,.059,.059,.058,.055,.051,.047,.043,.039, 889 . .035,.033,.032,.031,.031,.061,.061,.060,.060,.060,.059,.059,.058, 890 . .057,.056,.054,.051,.047,.043,.039,.036,.033,.030,.028,.027,.026, 891 . .061,.061,.060,.060,.060,.059,.059,.058,.057,.055,.052,.049,.045, 892 . .040,.036,.032,.029,.027,.026,.025,.025,.061,.061,.060,.060,.060, 893 . .059,.059,.058,.056,.053,.050,.046,.042,.038,.034,.031,.028,.026, 894 . .025,.025,.025,.061,.061,.060,.060,.059,.058,.058,.057,.055,.053, 895 . .050,.046,.042,.038,.034,.030,.028,.029,.025,.025,.025/ 896 DATA ZA/90.,88.,86.,84.,82.,80.,78.,76.,74.,70.,66.,62.,58.,54., 897 . 50.,40.,30.,20.,10.,0.0/ 898 DATA TRN/.00,.05,.10,.15,.20,.25,.30,.35,.40,.45,.50,.55,.60,.65, 899 . .70,.75,.80,.85,.90,.95,1.00/ 900 DATA DZA/8*2.0,6*4.0,5*10.0/ 901 C 902 COMMON /SWRSAV/ ABCFF(NB),PWTS(NB),CFCO2,CFO3,REFLO3,RRAYAV 903 C---SPECIFICATION OF DATA STATEMENTS: 904 C ABCFF=ABSORPTION COEFFICIENTS FOR BANDS IN K-DISTRI- 905 C BUTION. ORIGINALLY GIVEN BY LACIS AND HANSEN, REVISED BY 906 C RAMASWAMY 907 C PWTS=CORRESPONDING WEIGHTS ASSIGNED TO BANDS IN THE 908 C K-DISTRIBUTION 909 C REFLO3,RRAYAV= REFLECTION COEFFICIENTS GIVEN BY 910 C LACIS AND HANSEN TO ACCOUNT FOR EFFECTS OF RAYLEIGH SCATTERING 911 C IN THE VISIBLE FREQUENCIES (BAND 1) 912 C CFCO2,CFO3=CONVERSION FACTORS FROM GM/CM**2 TO CM-ATM(STP) 913 C 914 C---THE FOLLOWING ARE THE COEFFICIENTS FOR THE 12-BAND SHORTWAVE 915 C RADIATION CODE, SPECIFIED BY RAMASWAMY. 916 DATA ABCFF/2*4.0E-5,.002,.035,.377,1.95,9.40,44.6,190., 917 1 989.,2706.,39011./ 918 DATA PWTS/.5000,.121416,.0698,.1558,.0631,.0362,.0243,.0158,.0087, 919 1 .001467,.002342,.001075/ 920 C---THE ORIGINAL 9-BAND LACIS-HANSEN COEFFICIENTS ARE GIVEN HERE; IT 921 C THE USER INSISTS ON USING THESE VALUES, SHE MUST ALSO CHANGE 922 C THE PARAMETER NB FROM 12 TO 9. THIS PARAMETER IS DEFINED IN 923 C RDPARM.H . NO OTHER CHANGES ARE REQUIRED! 924 C DATA ABCFF/2*4.0E-5,.002,.035,.377,1.95,9.40,44.6,190./ 925 C DATA PWTS/.5000,.1470,.0698,.1443,.0584,.0335,.0225,.0158,.0087/ 926 C 927 DATA CFCO2,CFO3/508.96,466.64/ 928 DATA REFLO3/1.9/ 929 DATA RRAYAV/0.144/ 930 END Page 17 Source Listing GFDLRD 2014-12-17 20:46 Symbol Table GFDLRD.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References AB15 Scalar 144 R(4) 4 1 2 COM AB15CM Scalar 213 R(4) 4 1 2 COM AB15WD Scalar 173 R(4) 4 scalar COM ABCFF Scalar 876 R(4) 4 1 12 COM 890 ACOMB Scalar 210 R(4) 4 1 15 COM 747 ALB1 Scalar 833 R(4) 4 2 147 COM 836 ALB2 Scalar 833 R(4) 4 2 147 COM 848 ALB3 Scalar 833 R(4) 4 2 126 COM 860 ALBD Scalar 832 R(4) 4 2 420 COM AMOLWT Scalar 10 R(4) 4 scalar COM AO3CM Scalar 213 R(4) 4 1 3 COM AO3RND Scalar 144 R(4) 4 1 3 COM 723 AP Scalar 142 R(4) 4 1 163 COM AP1 Scalar 299 R(4) 4 1 64 COM 415 AP2 Scalar 299 R(4) 4 1 64 COM 432 AP3 Scalar 299 R(4) 4 1 35 COM 449 APCM Scalar 211 R(4) 4 1 15 COM 757 APWD Scalar 171 R(4) 4 scalar COM 731 ARNDM Scalar 142 R(4) 4 1 163 COM ARNDM1 Scalar 297 R(4) 4 1 64 COM 327 ARNDM2 Scalar 297 R(4) 4 1 64 COM 344 ARNDM3 Scalar 297 R(4) 4 1 35 COM 361 ATP Scalar 143 R(4) 4 1 163 COM ATP1 Scalar 301 R(4) 4 1 64 COM 503 ATP2 Scalar 301 R(4) 4 1 64 COM 520 ATP3 Scalar 301 R(4) 4 1 35 COM 537 ATPCM Scalar 211 R(4) 4 1 15 COM 767 ATPWD Scalar 171 R(4) 4 scalar COM 735 AWIDE Scalar 170 R(4) 4 scalar COM 727 B0 Scalar 251 R(4) 4 scalar COM 806 B1 Scalar 251 R(4) 4 scalar COM 806 B2 Scalar 251 R(4) 4 scalar COM 806 B3 Scalar 251 R(4) 4 scalar COM 806 BANDH1 Scalar 305 R(4) 4 1 64 COM 679 BANDH2 Scalar 305 R(4) 4 1 64 COM 696 BANDH3 Scalar 305 R(4) 4 1 35 COM 713 BANDHI Scalar 144 R(4) 4 1 163 COM BANDL1 Scalar 304 R(4) 4 1 64 COM 635 BANDL2 Scalar 304 R(4) 4 1 64 COM 652 BANDL3 Scalar 304 R(4) 4 1 35 COM 669 BANDLO Scalar 143 R(4) 4 1 163 COM BANDTA Common 142 5900 BCOMB Scalar 210 R(4) 4 1 15 COM 752 BDCOMB Common 210 736 BDHICM Scalar 212 R(4) 4 1 15 COM BDHIWD Scalar 172 R(4) 4 scalar COM 745 BDLOCM Scalar 212 R(4) 4 1 15 COM BDLOWD Scalar 172 R(4) 4 scalar COM 743 BDWIDE Common 170 56 BETACM Scalar 211 R(4) 4 1 15 COM 777 BETAD Scalar 142 R(4) 4 1 163 COM Page 18 Source Listing GFDLRD 2014-12-17 20:46 Symbol Table GFDLRD.F Name Object Declared Type Bytes Dimen Elements Attributes References BETAD1 Scalar 303 R(4) 4 1 64 COM 591 BETAD2 Scalar 303 R(4) 4 1 64 COM 608 BETAD3 Scalar 303 R(4) 4 1 35 COM 625 BETAWD Scalar 170 R(4) 4 scalar COM 739 BETINC Scalar 212 R(4) 4 scalar COM BETINW Scalar 172 R(4) 4 scalar COM 741 BO3CM Scalar 213 R(4) 4 1 3 COM BO3RND Scalar 144 R(4) 4 1 3 COM 725 BP Scalar 143 R(4) 4 1 163 COM BP1 Scalar 300 R(4) 4 1 64 COM 459 BP2 Scalar 300 R(4) 4 1 64 COM 476 BP3 Scalar 300 R(4) 4 1 35 COM 493 BPCM Scalar 211 R(4) 4 1 15 COM 762 BPWD Scalar 171 R(4) 4 scalar COM 733 BRNDM Scalar 142 R(4) 4 1 163 COM BRNDM1 Scalar 298 R(4) 4 1 64 COM 371 BRNDM2 Scalar 298 R(4) 4 1 64 COM 388 BRNDM3 Scalar 298 R(4) 4 1 35 COM 405 BTP Scalar 143 R(4) 4 1 163 COM BTP1 Scalar 302 R(4) 4 1 64 COM 547 BTP2 Scalar 302 R(4) 4 1 64 COM 564 BTP3 Scalar 302 R(4) 4 1 35 COM 581 BTPCM Scalar 212 R(4) 4 1 15 COM 772 BTPWD Scalar 171 R(4) 4 scalar COM 737 BWIDE Scalar 170 R(4) 4 scalar COM 729 C2D31 Scalar 266 R(4) 4 1 46 COM C2D38 Scalar 266 R(4) 4 1 46 COM C2D51 Scalar 249 R(4) 4 2 2116 COM C2D58 Scalar 249 R(4) 4 2 2116 COM C2D71 Scalar 281 R(4) 4 1 46 COM C2D78 Scalar 281 R(4) 4 1 46 COM C2DM51 Scalar 250 R(4) 4 1 45 COM C2DM58 Scalar 250 R(4) 4 1 45 COM CDT31 Scalar 265 R(4) 4 1 46 COM CDT38 Scalar 266 R(4) 4 1 46 COM CDT51 Scalar 248 R(4) 4 2 2116 COM CDT58 Scalar 249 R(4) 4 2 2116 COM CDT71 Scalar 280 R(4) 4 1 46 COM CDT78 Scalar 281 R(4) 4 1 46 COM CDTM51 Scalar 250 R(4) 4 1 45 COM CDTM58 Scalar 250 R(4) 4 1 45 COM CFCO2 Scalar 876 R(4) 4 scalar COM 901 CFO3 Scalar 876 R(4) 4 scalar COM 901 CH Scalar 106 R(4) 4 scalar COM 792 CL Scalar 106 R(4) 4 scalar COM 792 CM Scalar 106 R(4) 4 scalar COM 792 CO211 Scalar 290 R(4) 4 1 46 COM CO218 Scalar 290 R(4) 4 1 46 COM CO231 Scalar 265 R(4) 4 1 46 COM CO238 Scalar 265 R(4) 4 1 46 COM CO251 Scalar 248 R(4) 4 2 2116 COM CO258 Scalar 248 R(4) 4 2 2116 COM CO271 Scalar 280 R(4) 4 1 46 COM CO278 Scalar 280 R(4) 4 1 46 COM CO2BD2 Common 265 1104 Page 19 Source Listing GFDLRD 2014-12-17 20:46 Symbol Table GFDLRD.F Name Object Declared Type Bytes Dimen Elements Attributes References CO2BD3 Common 248 52248 CO2BD4 Common 280 1104 CO2BD5 Common 290 368 CO2M51 Scalar 249 R(4) 4 1 45 COM CO2M58 Scalar 250 R(4) 4 1 45 COM CSUBP Scalar 10 R(4) 4 scalar COM DAY Scalar 821 R(4) 4 scalar COM 824 DAZ Scalar 820 R(4) 4 1 12 COM 828 DELCM Scalar 292 R(4) 4 1 15 COM 782 DHR Scalar 821 R(4) 4 scalar COM 827 DIFFCTR Scalar 10 R(4) 4 scalar COM DIUCON Common 820 120 DTEMP Scalar 105 R(4) 4 1 46 COM DZA Scalar 832 R(4) 4 1 19 COM 874 EIGHT Scalar 15 R(4) 4 scalar COM EMCH Scalar 106 R(4) 4 scalar COM 793 EMCL Scalar 106 R(4) 4 scalar COM 793 EMCM Scalar 106 R(4) 4 scalar COM 793 FCSTDA Scalar 820 R(4) 4 scalar COM FIFTY Scalar 15 R(4) 4 scalar COM FIVE Scalar 15 R(4) 4 scalar COM FJDNMC Scalar 821 R(4) 4 scalar COM FOUR Scalar 16 R(4) 4 scalar COM G Scalar 10 R(4) 4 scalar COM 799 GFDLRD Block 1 scalar GINV Scalar 14 R(4) 4 scalar COM GP0INV Scalar 14 R(4) 4 scalar COM GRAVDR Scalar 10 R(4) 4 scalar COM GTEMP Scalar 251 R(4) 4 1 46 COM H101M16 Scalar 48 R(4) 4 scalar COM H102M5 Scalar 47 R(4) 4 scalar COM H1036E2 Scalar 46 R(4) 4 scalar COM H114M11 Scalar 30 R(4) 4 scalar COM H1174M7 Scalar 25 R(4) 4 scalar COM H11M10 Scalar 27 R(4) 4 scalar COM H11M11 Scalar 30 R(4) 4 scalar COM H1224E3 Scalar 19 R(4) 4 scalar COM H1226E1 Scalar 41 R(4) 4 scalar COM H128M5 Scalar 24 R(4) 4 scalar COM H129M2 Scalar 45 R(4) 4 scalar COM H12M12 Scalar 34 R(4) 4 scalar COM H12M13 Scalar 35 R(4) 4 scalar COM H12M31 Scalar 37 R(4) 4 scalar COM H135M13 Scalar 35 R(4) 4 scalar COM H1386E2 Scalar 45 R(4) 4 scalar COM H1439M5 Scalar 24 R(4) 4 scalar COM H14M10 Scalar 26 R(4) 4 scalar COM H14M11 Scalar 30 R(4) 4 scalar COM H14M12 Scalar 34 R(4) 4 scalar COM H14M14 Scalar 35 R(4) 4 scalar COM H14M30 Scalar 37 R(4) 4 scalar COM H15E2 Scalar 20 R(4) 4 scalar COM H15M11 Scalar 30 R(4) 4 scalar COM H15M14 Scalar 35 R(4) 4 scalar COM H15M5 Scalar 49 R(4) 4 scalar COM Page 20 Source Listing GFDLRD 2014-12-17 20:46 Symbol Table GFDLRD.F Name Object Declared Type Bytes Dimen Elements Attributes References H161E1 Scalar 48 R(4) 4 scalar COM H165E5 Scalar 18 R(4) 4 scalar COM H16E1 Scalar 48 R(4) 4 scalar COM H16M12 Scalar 34 R(4) 4 scalar COM H181E1 Scalar 20 R(4) 4 scalar COM H18E1 Scalar 20 R(4) 4 scalar COM H18E3 Scalar 49 R(4) 4 scalar COM H18M11 Scalar 30 R(4) 4 scalar COM H1E11 Scalar 17 R(4) 4 scalar COM H1E13 Scalar 17 R(4) 4 scalar COM H1E15 Scalar 17 R(4) 4 scalar COM H1E4 Scalar 18 R(4) 4 scalar COM H1E6 Scalar 40 R(4) 4 scalar COM H1E8 Scalar 17 R(4) 4 scalar COM H1M10 Scalar 27 R(4) 4 scalar COM H1M11 Scalar 31 R(4) 4 scalar COM H1M13 Scalar 35 R(4) 4 scalar COM H1M16 Scalar 51 R(4) 4 scalar COM H1M17 Scalar 36 R(4) 4 scalar COM H1M18 Scalar 36 R(4) 4 scalar COM H1M19 Scalar 36 R(4) 4 scalar COM H1M2 Scalar 40 R(4) 4 scalar COM H1M20 Scalar 36 R(4) 4 scalar COM H1M21 Scalar 36 R(4) 4 scalar COM H1M22 Scalar 36 R(4) 4 scalar COM H1M23 Scalar 36 R(4) 4 scalar COM H1M24 Scalar 37 R(4) 4 scalar COM H1M3 Scalar 23 R(4) 4 scalar COM H1M4 Scalar 23 R(4) 4 scalar COM H1M5 Scalar 24 R(4) 4 scalar COM H1M6 Scalar 25 R(4) 4 scalar COM H1M60 Scalar 38 R(4) 4 scalar COM H1M8 Scalar 26 R(4) 4 scalar COM H1P082 Scalar 45 R(4) 4 scalar COM H1P25892 Scalar 21 R(4) 4 scalar COM H1P4 Scalar 21 R(4) 4 scalar COM H1P41819 Scalar 43 R(4) 4 scalar COM H1P4387 Scalar 21 R(4) 4 scalar COM H1P8 Scalar 21 R(4) 4 scalar COM H2075E3 Scalar 19 R(4) 4 scalar COM H20788E3 Scalar 18 R(4) 4 scalar COM H2118M2 Scalar 46 R(4) 4 scalar COM H21M12 Scalar 33 R(4) 4 scalar COM H21M31 Scalar 37 R(4) 4 scalar COM H235M3 Scalar 44 R(4) 4 scalar COM H23E2 Scalar 20 R(4) 4 scalar COM H23M10 Scalar 26 R(4) 4 scalar COM H23M11 Scalar 29 R(4) 4 scalar COM H24E3 Scalar 18 R(4) 4 scalar COM H24M11 Scalar 29 R(4) 4 scalar COM H24M12 Scalar 33 R(4) 4 scalar COM H25452M6 Scalar 25 R(4) 4 scalar COM H257M8 Scalar 26 R(4) 4 scalar COM H25E2 Scalar 49 R(4) 4 scalar COM H25M31 Scalar 37 R(4) 4 scalar COM Page 21 Source Listing GFDLRD 2014-12-17 20:46 Symbol Table GFDLRD.F Name Object Declared Type Bytes Dimen Elements Attributes References H26E2 Scalar 43 R(4) 4 scalar COM H26M30 Scalar 37 R(4) 4 scalar COM H28571M2 Scalar 51 R(4) 4 scalar COM H285M4 Scalar 23 R(4) 4 scalar COM H28E1 Scalar 54 R(4) 4 scalar COM H28M11 Scalar 29 R(4) 4 scalar COM H28M12 Scalar 33 R(4) 4 scalar COM H29316E2 Scalar 41 R(4) 4 scalar COM H2945E2 Scalar 19 R(4) 4 scalar COM H29M12 Scalar 33 R(4) 4 scalar COM H2E2 Scalar 43 R(4) 4 scalar COM H2E6 Scalar 40 R(4) 4 scalar COM H2M11 Scalar 30 R(4) 4 scalar COM H2P5 Scalar 21 R(4) 4 scalar COM H2P8 Scalar 20 R(4) 4 scalar COM H2P9 Scalar 20 R(4) 4 scalar COM H3082E2 Scalar 19 R(4) 4 scalar COM H3116E1 Scalar 41 R(4) 4 scalar COM H323M4 Scalar 46 R(4) 4 scalar COM H327M8 Scalar 26 R(4) 4 scalar COM H32M11 Scalar 29 R(4) 4 scalar COM H35E1 Scalar 20 R(4) 4 scalar COM H35M11 Scalar 29 R(4) 4 scalar COM H36M13 Scalar 34 R(4) 4 scalar COM H37412M5 Scalar 24 R(4) 4 scalar COM H37M11 Scalar 28 R(4) 4 scalar COM H37M12 Scalar 33 R(4) 4 scalar COM H38M12 Scalar 32 R(4) 4 scalar COM H391M7 Scalar 25 R(4) 4 scalar COM H394M5 Scalar 24 R(4) 4 scalar COM H3E2 Scalar 19 R(4) 4 scalar COM H3M11 Scalar 29 R(4) 4 scalar COM H3M12 Scalar 33 R(4) 4 scalar COM H3M14 Scalar 35 R(4) 4 scalar COM H3M3 Scalar 48 R(4) 4 scalar COM H3M4 Scalar 52 R(4) 4 scalar COM H3P5 Scalar 49 R(4) 4 scalar COM H3P6 Scalar 20 R(4) 4 scalar COM H41666M2 Scalar 41 R(4) 4 scalar COM H42M11 Scalar 28 R(4) 4 scalar COM H42M2 Scalar 46 R(4) 4 scalar COM H44194M2 Scalar 43 R(4) 4 scalar COM H44871M2 Scalar 23 R(4) 4 scalar COM H44M11 Scalar 28 R(4) 4 scalar COM H44M12 Scalar 32 R(4) 4 scalar COM H451M6 Scalar 47 R(4) 4 scalar COM H45M12 Scalar 32 R(4) 4 scalar COM H45M32 Scalar 38 R(4) 4 scalar COM H46M13 Scalar 34 R(4) 4 scalar COM H488E4 Scalar 18 R(4) 4 scalar COM H48M11 Scalar 28 R(4) 4 scalar COM H4999M6 Scalar 25 R(4) 4 scalar COM H4E5 Scalar 17 R(4) 4 scalar COM H4M12 Scalar 32 R(4) 4 scalar COM H4M33 Scalar 38 R(4) 4 scalar COM Page 22 Source Listing GFDLRD 2014-12-17 20:46 Symbol Table GFDLRD.F Name Object Declared Type Bytes Dimen Elements Attributes References H53M11 Scalar 28 R(4) 4 scalar COM H559M3 Scalar 23 R(4) 4 scalar COM H55M32 Scalar 38 R(4) 4 scalar COM H5725E4 Scalar 18 R(4) 4 scalar COM H5E2 Scalar 19 R(4) 4 scalar COM H625M2 Scalar 42 R(4) 4 scalar COM H62M12 Scalar 32 R(4) 4 scalar COM H62M34 Scalar 38 R(4) 4 scalar COM H658M2 Scalar 46 R(4) 4 scalar COM H65M12 Scalar 31 R(4) 4 scalar COM H67390E2 Scalar 47 R(4) 4 scalar COM H6938M5 Scalar 24 R(4) 4 scalar COM H69766E5 Scalar 44 R(4) 4 scalar COM H6M12 Scalar 32 R(4) 4 scalar COM H6P08108 Scalar 50 R(4) 4 scalar COM H71E26 Scalar 17 R(4) 4 scalar COM H72M11 Scalar 28 R(4) 4 scalar COM H74M12 Scalar 31 R(4) 4 scalar COM H75826M4 Scalar 45 R(4) 4 scalar COM H77M11 Scalar 27 R(4) 4 scalar COM H77M12 Scalar 31 R(4) 4 scalar COM H7M6 Scalar 25 R(4) 4 scalar COM H8121E1 Scalar 43 R(4) 4 scalar COM H82M11 Scalar 27 R(4) 4 scalar COM H83E26 Scalar 17 R(4) 4 scalar COM H83M11 Scalar 27 R(4) 4 scalar COM H8725M8 Scalar 26 R(4) 4 scalar COM H8M11 Scalar 27 R(4) 4 scalar COM H8M13 Scalar 34 R(4) 4 scalar COM H93M12 Scalar 31 R(4) 4 scalar COM H96M12 Scalar 31 R(4) 4 scalar COM H987M4 Scalar 23 R(4) 4 scalar COM H9M32 Scalar 38 R(4) 4 scalar COM H9P94 Scalar 42 R(4) 4 scalar COM HAF Scalar 16 R(4) 4 scalar COM HCON Common 15 872 HM13EZ Scalar 39 R(4) 4 scalar COM HM1597E1 Scalar 49 R(4) 4 scalar COM HM161E1 Scalar 48 R(4) 4 scalar COM HM1797E1 Scalar 42 R(4) 4 scalar COM HM181E1 Scalar 39 R(4) 4 scalar COM HM19EZ Scalar 39 R(4) 4 scalar COM HM1E1 Scalar 39 R(4) 4 scalar COM HM1E2 Scalar 39 R(4) 4 scalar COM HM1EZ Scalar 43 R(4) 4 scalar COM HM2M2 Scalar 41 R(4) 4 scalar COM HM6666M2 Scalar 40 R(4) 4 scalar COM HM8E1 Scalar 53 R(4) 4 scalar COM HMP5 Scalar 41 R(4) 4 scalar COM HMP575 Scalar 39 R(4) 4 scalar COM HMP66667 Scalar 40 R(4) 4 scalar COM HMP805 Scalar 50 R(4) 4 scalar COM HNINETY Scalar 15 R(4) 4 scalar COM HP1 Scalar 22 R(4) 4 scalar COM HP118666 Scalar 49 R(4) 4 scalar COM Page 23 Source Listing GFDLRD 2014-12-17 20:46 Symbol Table GFDLRD.F Name Object Declared Type Bytes Dimen Elements Attributes References HP144 Scalar 44 R(4) 4 scalar COM HP166666 Scalar 40 R(4) 4 scalar COM HP219 Scalar 44 R(4) 4 scalar COM HP228 Scalar 42 R(4) 4 scalar COM HP26 Scalar 44 R(4) 4 scalar COM HP369 Scalar 22 R(4) 4 scalar COM HP3795 Scalar 47 R(4) 4 scalar COM HP5048 Scalar 47 R(4) 4 scalar COM HP518 Scalar 21 R(4) 4 scalar COM HP526315 Scalar 50 R(4) 4 scalar COM HP6 Scalar 42 R(4) 4 scalar COM HP602409 Scalar 50 R(4) 4 scalar COM HP60241 Scalar 42 R(4) 4 scalar COM HP8 Scalar 21 R(4) 4 scalar COM HP805 Scalar 45 R(4) 4 scalar COM HP816 Scalar 44 R(4) 4 scalar COM HPI Scalar 821 R(4) 4 scalar COM 825 HUNDRED Scalar 15 R(4) 4 scalar COM IBAND Scalar 210 I(4) 4 1 40 COM 787 ICB Scalar 105 I(4) 4 scalar COM 792 ICH Scalar 105 I(4) 4 scalar COM 792 ICM Scalar 105 I(4) 4 scalar COM 792 ICT Scalar 105 I(4) 4 scalar COM 792 IDIM1 Param 19 I(4) 4 scalar IDIM2 Param 19 I(4) 4 scalar IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IM Param 3 I(4) 4 scalar 16,19,72 IMAX Param 72 I(4) 4 scalar 72,85 INLTE Param 84 I(4) 4 scalar 84 INLTEP Param 84 I(4) 4 scalar INPES Param 11 I(4) 4 scalar 16,19 INPUT Common 105 768 ITAIL Param 16 I(4) 4 scalar IXXXX Scalar 821 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar JDIM2 Param 20 I(4) 4 scalar JDNMC Scalar 820 I(4) 4 scalar 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 JNPES Param 11 I(4) 4 scalar 17,20 JTAIL Param 17 I(4) 4 scalar JTIME Scalar 820 I(4) 4 1 5 COM 826 KO2 Param 87 I(4) 4 scalar 88 KO21 Param 88 I(4) 4 scalar KO2M Param 88 I(4) 4 scalar L Param 71 I(4) 4 scalar 75,76,77,80,82,105,249,250 LL Param 77 I(4) 4 scalar 77,78 LL3P Param 82 I(4) 4 scalar 85 LL3PI Param 85 I(4) 4 scalar LLM1 Param 78 I(4) 4 scalar LLM2 Param 78 I(4) 4 scalar LLM3 Param 78 I(4) 4 scalar LLP1 Param 77 I(4) 4 scalar 85 Page 24 Source Listing GFDLRD 2014-12-17 20:46 Symbol Table GFDLRD.F Name Object Declared Type Bytes Dimen Elements Attributes References LLP1I Param 85 I(4) 4 scalar LLP2 Param 77 I(4) 4 scalar LLP3 Param 77 I(4) 4 scalar LM Param 3 I(4) 4 scalar 71 LM1 Param 76 I(4) 4 scalar LM2 Param 76 I(4) 4 scalar LM3 Param 76 I(4) 4 scalar LP1 Param 75 I(4) 4 scalar 79,80,81,85,105,248,249,251,265,26 6,280,281,290 LP121 Param 81 I(4) 4 scalar LP1I Param 85 I(4) 4 scalar LP1M Param 79 I(4) 4 scalar 79 LP1M1 Param 79 I(4) 4 scalar LP1V Param 80 I(4) 4 scalar LP2 Param 75 I(4) 4 scalar LP3 Param 75 I(4) 4 scalar LSM Param 3 I(4) 4 scalar NB Param 83 I(4) 4 scalar 86,876 NB1 Param 86 I(4) 4 scalar NBLM Param 74 I(4) 4 scalar NBLW Param 73 I(4) 4 scalar 142,143,144 NBLX Param 73 I(4) 4 scalar NBLY Param 73 I(4) 4 scalar 74,81,210,211,212,292 NCOL Param 72 I(4) 4 scalar NNLTE Param 84 I(4) 4 scalar O3DIFCTR Scalar 10 R(4) 4 scalar COM ONE Scalar 16 R(4) 4 scalar COM P0 Scalar 10 R(4) 4 scalar COM P0INV Scalar 14 R(4) 4 scalar COM P0X2 Scalar 11 R(4) 4 scalar COM P0XZP2 Scalar 11 R(4) 4 scalar COM P0XZP8 Scalar 11 R(4) 4 scalar COM PHYCON Common 10 80 PPRESS Scalar 105 R(4) 4 1 46 COM PWTS Scalar 876 R(4) 4 1 12 COM 892 QQO3 Scalar 105 R(4) 4 1 45 COM QUARTR Scalar 16 R(4) 4 scalar COM RADCON Scalar 11 R(4) 4 scalar COM RADCON1 Scalar 13 R(4) 4 scalar COM RATCO2MW Scalar 12 R(4) 4 scalar COM RATH2OMW Scalar 12 R(4) 4 scalar COM REFLO3 Scalar 876 R(4) 4 scalar COM 902 RGAS Scalar 11 R(4) 4 scalar COM RGASSP Scalar 11 R(4) 4 scalar COM RLAG Scalar 821 R(4) 4 scalar COM 823 RR Scalar 105 R(4) 4 1 45 COM RRAYAV Scalar 876 R(4) 4 scalar COM 903 SEASON Scalar 819 I(4) 4 scalar COM 822 SECPDA Scalar 11 R(4) 4 scalar COM SIXTY Scalar 15 R(4) 4 scalar COM SKC1R Scalar 173 R(4) 4 scalar COM SKO2D Scalar 173 R(4) 4 scalar COM SKO3R Scalar 173 R(4) 4 scalar COM SSALB Common 832 1920 STEMP Scalar 251 R(4) 4 1 46 COM Page 25 Source Listing GFDLRD 2014-12-17 20:46 Symbol Table GFDLRD.F Name Object Declared Type Bytes Dimen Elements Attributes References SWRSAV Common 876 112 TBLTMP Common 292 60 TEN Scalar 15 R(4) 4 scalar COM THREE Scalar 16 R(4) 4 scalar COM TIMIN Scalar 821 R(4) 4 scalar COM TPI Scalar 821 R(4) 4 scalar COM 825 TRN Scalar 832 R(4) 4 1 21 COM 872 TSLAG Scalar 821 R(4) 4 scalar COM 823 TWO Scalar 16 R(4) 4 scalar COM YEAR Scalar 821 R(4) 4 scalar COM 824 ZA Scalar 832 R(4) 4 1 20 COM 870 ZERO Scalar 16 R(4) 4 scalar COM Page 26 Source Listing GFDLRD 2014-12-17 20:46 Subprograms/Common Blocks GFDLRD.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References BANDTA Common 142 5900 BDCOMB Common 210 736 BDWIDE Common 170 56 CO2BD2 Common 265 1104 CO2BD3 Common 248 52248 CO2BD4 Common 280 1104 CO2BD5 Common 290 368 DIUCON Common 820 120 GFDLRD Block 1 scalar HCON Common 15 872 INPUT Common 105 768 PHYCON Common 10 80 SSALB Common 832 1920 SWRSAV Common 876 112 TBLTMP Common 292 60 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ Page 27 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, Page 28 Source Listing GFDLRD 2014-12-17 20:46 GFDLRD.F /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : GFDLRD.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100