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