C THE FOLLOWING COMMON BLOCKS CONTAIN PRETABULATED CO2 TRANSMISSION C FUNCTIONS, EVALUATED USING THE METHODS OF FELS AND C SCHWARZKOPF (1981) AND SCHWARZKOPF AND FELS (1985), C***COMMON CO2BD3 CONTAINS CO2 TRANSMISSION FUNCTIONS AND TEMPERATURE C AND PRESSURE DERIVATIVES FOR THE 560-800 CM-1 BAND. ALSO INCLUDED C ARE THE STANDARD TEMPERATURES AND THE WEIGHTING FUNCTION. THESE C DATA ARE IN BLOCK DATA BD3: C CO251 = TRANSMISSION FCTNS FOR T0 (STD. PROFILE) C WITH P(SFC)=1013.25 MB C CO258 = TRANSMISSION FCTNS. FOR T0 (STD. PROFILE) C WITH P(SFC)= ^810 MB C CDT51 = FIRST TEMPERATURE DERIVATIVE OF CO251 C CDT58 = FIRST TEMPERATURE DERIVATIVE OF CO258 C C2D51 = SECOND TEMPERATURE DERIVATIVE OF CO251 C C2D58 = SECOND TEMPERATURE DERIVATIVE OF CO251 C CO2M51 = TRANSMISSION FCTNS FOR T0 FOR ADJACENT PRESSURE C LEVELS, WITH NO PRESSURE QUADRATURE. USED FOR C NEARBY LAYER COMPUTATIONS. P(SFC)=1013.25 MB C CO2M58 = SAME AS CO2M51,WITH P(SFC)= ^810 MB C CDTM51 = FIRST TEMPERATURE DERIVATIVE OF CO2M51 C CDTM58 = FIRST TEMPERATURE DERIVATIVE OF CO2M58 C C2DM51 = SECOND TEMPERATURE DERIVATIVE OF CO2M51 C C2DM58 = SECOND TEMPERATURE DERIVATIVE OF CO2M58 C STEMP = STANDARD TEMPERATURES FOR MODEL PRESSURE LEVEL C STRUCTURE WITH P(SFC)=1013.25 MB C GTEMP = WEIGHTING FUNCTION FOR MODEL PRESSURE LEVEL C STRUCTURE WITH P(SFC)=1013.25 MB. C B0 = TEMP. COEFFICIENT USED FOR CO2 TRANS. FCTN. C CORRECTION FOR T(K). (SEE REF. 4 AND BD3) C B1 = TEMP. COEFFICIENT, USED ALONG WITH B0 C B2 = TEMP. COEFFICIENT, USED ALONG WITH B0 C B3 = TEMP. COEFFICIENT, USED ALONG WITH B0 C COMMON/CO2BD3/CO251(LP1,LP1),CO258(LP1,LP1),CDT51(LP1,LP1), 1 CDT58(LP1,LP1),C2D51(LP1,LP1),C2D58(LP1,LP1),CO2M51(L), 2 CO2M58(L),CDTM51(L),CDTM58(L),C2DM51(L),C2DM58(L), 3 STEMP(LP1),GTEMP(LP1),B0,B1,B2,B3 save /CO2BD3/ C C***COMMON CO2BD2 CONTAINS CO2 TRANSMISSION FUNCTIONS AND TEMPERATURE C AND PRESSURE DERIVATIVES FOR THE 560-670 CM-1 PART OF THE 15 UM C CO2 BAND. THESE DATA ARE IN BLOCK DATA BD2. C CO231 = TRANSMISSION FCTNS FOR T0 (STD. PROFILE) C WITH P(SFC)=1013.25 MB C CO238 = TRANSMISSION FCTNS. FOR T0 (STD. PROFILE) C WITH P(SFC)= ^810 MB C CDT31 = FIRST TEMPERATURE DERIVATIVE OF CO231 C CDT38 = FIRST TEMPERATURE DERIVATIVE OF CO238 C C2D31 = SECOND TEMPERATURE DERIVATIVE OF CO231 C C2D38 = SECOND TEMPERATURE DERIVATIVE OF CO231 C COMMON / CO2BD2 / CO231(LP1),CO238(LP1),CDT31(LP1), 1 CDT38(LP1),C2D31(LP1),C2D38(LP1) save / CO2BD2 / C C***COMMON CO2BD4 CONTAINS CO2 TRANSMISSION FUNCTIONS AND TEMPERATURE C AND PRESSURE DERIVATIVES FOR THE 670-800 CM-1 PART OF THE 15 UM C CO2 BAND. THESE DATA ARE IN BLOCK DATA BD4. C CO271 = TRANSMISSION FCTNS FOR T0 (STD. PROFILE) C WITH P(SFC)=1013.25 MB C CO278 = TRANSMISSION FCTNS. FOR T0 (STD. PROFILE) C WITH P(SFC)= ^810 MB C CDT71 = FIRST TEMPERATURE DERIVATIVE OF CO271 C CDT78 = FIRST TEMPERATURE DERIVATIVE OF CO278 C C2D71 = SECOND TEMPERATURE DERIVATIVE OF CO271 C C2D78 = SECOND TEMPERATURE DERIVATIVE OF CO271 C COMMON / CO2BD4 / CO271(LP1),CO278(LP1),CDT71(LP1), 1 CDT78(LP1),C2D71(LP1),C2D78(LP1) save / CO2BD4 / C C***COMMON CO2BD5 CONTAINS CO2 TRANSMISSION FUNCTIONS FOR THE 2270- C 2380 PART OF THE 4.3 UM CO2 BAND. THESE DATA ARE IN BLOCK DATA BD5. C CO211 = TRANSMISSION FCTNS FOR T0 (STD. PROFILE) C WITH P(SFC)=1013.25 MB C CO218 = TRANSMISSION FCTNS. FOR T0 (STD. PROFILE) C WITH P(SFC)= ^810 MB C COMMON / CO2BD5 / CO211(LP1),CO218(LP1) save / CO2BD5 / C