mo_longwave.f90
MODULE mo_longwave
IMPLICIT NONE
5: ! -----------------------------------------------------------------
!
! * coefficients for the longwave radiation subroutines
!
! -----------------------------------------------------------------
10:
INTEGER, PARAMETER :: nsint=6 ! number of spectral intervals
INTEGER, PARAMETER :: nipd=8 ! number of bands described by pade approximants
INTEGER, PARAMETER :: nipd2=2*nipd
INTEGER, PARAMETER :: ntr=11 ! number of reference temperatures
15: INTEGER, PARAMETER :: ntra=15 ! number of transmission functions
INTEGER, PARAMETER :: nua=29 ! number of absorber amounts
INTEGER, PARAMETER :: ng1=2 ! order of the gaussian quadrature
INTEGER, PARAMETER :: ng1p1=ng1+1
INTEGER :: mxixt
20:
REAL :: rt1(2)
REAL :: wg1(2)
REAL :: at(8,3)
REAL :: bt(8,3)
25: REAL :: cntnu(4)
REAL :: o1h
REAL :: o2h
REAL :: pialf0
REAL :: oct(4)
30: REAL :: tref
REAL :: xp(6,6)
REAL :: tstand
REAL :: ga(11,16,3)
REAL :: gb(11,16,3)
35: REAL :: savod2
REAL :: piaod2
REAL :: odt(4)
REAL :: tintp(11)
REAL :: tstp
40: REAL :: pvgco2
REAL :: pvgh2o
REAL :: pvgo3
REAL :: ct(5,3)
REAL :: dt(5,3)
45: REAL :: gc(11,10,3)
REAL :: gd(11,10,3)
INTEGER, PRIVATE :: IR, IT, IC, IG1, J, K, JC
50: !
!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND
! TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF
DATA TSTAND,TREF / 250.0, 250.0 /
!
55: !-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
DATA (RT1(IG1),IG1=1,2) / -0.577350269, +0.577350269 /
DATA (WG1(IG1),IG1=1,2) / 1.0 , 1.0 /
!
!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
60: DATA TSTP/ 12.5 /, MXIXT / 10 /
!
!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
DATA TINTP / 187.5, 200., 212.5, 225., 237.5, 250., &
& 262.5, 275., 287.5, 300., 312.5 /
65: !
!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE PLANCK FUNCTIONS
!
DATA (( XP( J,K),J=1,6), K=1,6) / &
& 0.46430621E+02, 0.12928299E+03, 0.20732648E+03, &
70: & 0.31398411E+03, 0.18373177E+03,-0.11412303E+03, &
& 0.73604774E+02, 0.27887914E+03, 0.27076947E+03, &
& -0.57322111E+02,-0.64742459E+02, 0.87238280E+02, &
& 0.37050866E+02, 0.20498759E+03, 0.37558029E+03, &
& 0.17401171E+03,-0.13350302E+03,-0.37651795E+02, &
75: & 0.14930141E+02, 0.89161160E+02, 0.17793062E+03, &
& 0.93433860E+02,-0.70646020E+02,-0.26373150E+02, &
& 0.40386780E+02, 0.10855270E+03, 0.50755010E+02, &
& -0.31496190E+02, 0.12791300E+00, 0.18017770E+01, &
& 0.90811926E+01, 0.75073923E+02, 0.24654438E+03, &
80: & 0.39332612E+03, 0.29385281E+03, 0.89107921E+02 /
!
!---------------------------------------------------------------
!
! Temp. coefficients for main absorbers,
85: ! ======================================
!
!---------------------------------------------------------------
! Temp. coefficients for h2o
! - dB/dT-weighting, AFGL80
90: ! - lines + p-continuum (following JJM-code)
! - Lorentzian line shape
! - up-domain : pmax=1000hPa , uh2omax=1.e+02 g/cm^2
! pmin=1hPa , uh2omin=1.e-07 g/cm^2
! - fiu = 1
95: !---------------------------------------------------------------
!-- h2o-b1
DATA (AT(1,IR),IR=1,3) / 0.286830E-02,-0.612233E-03, 0.847118E-04 /
DATA (BT(1,IR),IR=1,3) / -0.840064E-05,-0.358347E-06, 0.205374E-06 /
!-- h2o-b2
100: DATA (AT(2,IR),IR=1,3) / 0.169937E-01,-0.125164E-02,-0.109563E-03 /
DATA (BT(2,IR),IR=1,3) / -0.542907E-04, 0.327173E-05, 0.420676E-06 /
!-- h2o-b3
DATA (AT(3,IR),IR=1,3) / 0.197976E-01, 0.125237E-02,-0.491005E-03 /
DATA (BT(3,IR),IR=1,3) / -0.454960E-04,-0.699650E-05, 0.157833E-05 /
105: !-- h2o-b4
DATA (AT(4,IR),IR=1,3) / 0.270664E-01, 0.275042E-02,-0.784199E-03 /
DATA (BT(4,IR),IR=1,3) / -0.913367E-04,-0.128945E-04, 0.253720E-05 /
!-- h2o-b5
DATA (AT(5,IR),IR=1,3) / 0.144083E-01,-0.262573E-02, 0.222954E-03 /
110: DATA (BT(5,IR),IR=1,3) / -0.409102E-04, 0.158274E-05, 0.973073E-06 /
!-- h2o-b6
DATA (AT(6,IR),IR=1,3) / 0.197976E-01, 0.125237E-02,-0.491005E-03 /
DATA (BT(6,IR),IR=1,3) / -0.454960E-04,-0.699650E-05, 0.157833E-05 /
!
115: ! end of h2o
!
!-----------------------------------------------------
!
! Temp. coefficients for co2
120: ! - dB/dT-weighting, AFGL80
! - Lorentzian line shape
! - up-domain : pmax=1000hPa , uh2omax=1.e+01 g/cm^2
! pmin=1hPa , uh2omin=1.e-08 g/cm^2
! - fiu = 0.8+MAX(0.35,(7-iu)*0.9) in band 2
125: ! 1.0 in band 3&4
!-----------------------------------------------------
!-- co2-b2
DATA (AT(7,IR),IR=1,3) / 0.109981E-02, 0.748750E-03, 0.163574E-04 /
DATA (BT(7,IR),IR=1,3) / 0.804604E-06,-0.614823E-06,-0.177872E-06 /
130: !-- co2-b3b4
DATA (AT(8,IR),IR=1,3) / 0.306865E-01, 0.163090E-02,-0.501273E-03 /
DATA (BT(8,IR),IR=1,3) / -0.114597E-03,-0.139022E-05, 0.181811E-06 /
!
! end of co2
135: !
!-----------------------------------------------------
!
! Temp. coefficients for trace gases,
! ===================================
140: !
!-----------------------------------------------------
!
! Temp. coefficients for n2o
! - dB/dT-weighting, AFGL80
145: ! - Lorentzian line shape
! - up-domain : pmax=1000hPa , uh2omax=1.e-02 g/cm^2
! pmin=1hPa , uh2omin=1.e-11 g/cm^2
! - fiu = 1.0
!-----------------------------------------------------
150: !-- n2o-b2
DATA (CT(1,IR),IR=1,3) / 0.231998E-03,-0.278240E-04, 0.805369E-04 /
DATA (DT(1,IR),IR=1,3) / 0.133803E-05, 0.596368E-07,-0.235287E-06 /
!-- n2o-b3
DATA (CT(2,IR),IR=1,3) / 0.320192E-02, 0.212834E-05,-0.109799E-04 /
155: DATA (DT(2,IR),IR=1,3) / 0.488521E-05, 0.115430E-06,-0.463894E-06 /
!-- n2o-b6
DATA (CT(3,IR),IR=1,3) / -0.261509E-03, 0.557758E-04, 0.115305E-03 /
DATA (DT(3,IR),IR=1,3) / -0.690301E-07,-0.127380E-06,-0.162693E-06 /
!
160: ! end of n2o
!
!-----------------------------------------------------
!
! Temp. coefficients for ch4
165: ! - dB/dT-weighting, HITRAN91
! - Lorentzian line shape
! - up-domain : pmax=1000hPa , uh2omax=1.e-02 g/cm^2
! pmin=1hPa , uh2omin=1.e-11 g/cm^2
! - fiu = 1.0
170: !-----------------------------------------------------
!-- ch4-b3
DATA (CT(4,IR),IR=1,3) / 0.102791E-01, 0.246790E-04, 0.361818E-05 /
DATA (DT(4,IR),IR=1,3) / -0.449768E-04, 0.115778E-07, 0.493876E-06 /
!-- ch4-b6
175: DATA (CT(5,IR),IR=1,3) / -0.808575E-03, 0.213995E-04, 0.182209E-03 /
DATA (DT(5,IR),IR=1,3) / -0.626368E-06, 0.300696E-06, 0.197205E-06 /
!
! end of ch4
!
180: !-----------------------------------------------------
!
!
! MALKMUS RANDOM BAND MODEL PARAMETERS FOR O3
! - GEISA 1984
185: ! - LORENTZIAN LINE SHAPE
!
!-- COEFFICIENTS FOR OZONE ABSORPTION INTERVAL 2 (14 MICRON BAND)
!
DATA SAVOD2,PIAOD2,(ODT(IT),IT=1,4) / 27.8497, 3.3526, -.270E-03, -.182E-05, .154E-02, -.565E-05 /
190: !
!-- COEFFICIENTS FOR OZONE ABSORPTION INTERVAL 4
!
DATA O1H,O2H,PIALF0,(OCT(IT),IT=1,4) / 2230., 100., 2., -.102E-03, -.749E-06, .221E-02, -.551E-05 /
!
195: !-- COEFFICIENTS FOR H2O E-TYPE CONTINUUM ABSORPTION
!
DATA CNTNU / 70.0, 26.77, 8.45, 5.78 /
!
!-- RESIDUAL PRESSURE VALUES FOR PSEUDO VOIGT LINE SHAPE
200: !
! PVGCO2=60.
! PVGH2O=30.
! PVGO3 =400.
!
205: DATA PVGCO2 / 60. /
DATA PVGH2O / 30. /
DATA PVGO3 / 400. /
!
!---------------------------------------------------------------
210: !
! Pade coefficients for main absorbers
! ====================================
!
!---------------------------------------------------------------
215: ! Pade-coefficients for h2o
! - AFGL80 , JJM-fit
! - lines + p-continuum (following JJM-code)
! - Lorentzian line shape
! - up-domain : pmax=1000hPa , uh2omax=1.e+02 g/cm^2
220: ! pmin=1hPa , uh2omin=1.e-07 g/cm^2
! - fiu = 1
!---------------------------------------------------------------
!
!
225: !-- R.D. -- G = - 0.2 SLA
!
!
!----- INTERVAL = 1 ----- T = 187.5
!
230: !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
DATA (GA( 1, 1,IC),IC=1,3) / 0.63499072E-02,-0.99506586E-03, 0.00000000E+00/
DATA (GB( 1, 1,IC),IC=1,3) / 0.63499072E-02, 0.97222852E-01, 0.10000000E+01/
DATA (GA( 1, 2,IC),IC=1,3) / 0.77266491E-02,-0.11661515E-02, 0.00000000E+00/
DATA (GB( 1, 2,IC),IC=1,3) / 0.77266491E-02, 0.10681591E+00, 0.10000000E+01/
235: !
!----- INTERVAL = 1 ----- T = 200.0
!
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
DATA (GA( 2, 1,IC),IC=1,3) / 0.65566348E-02,-0.10184169E-02, 0.00000000E+00/
240: DATA (GB( 2, 1,IC),IC=1,3) / 0.65566348E-02, 0.98862238E-01, 0.10000000E+01/
DATA (GA( 2, 2,IC),IC=1,3) / 0.81323287E-02,-0.11886130E-02, 0.00000000E+00/
DATA (GB( 2, 2,IC),IC=1,3) / 0.81323287E-02, 0.10921298E+00, 0.10000000E+01/
!
!----- INTERVAL = 1 ----- T = 212.5
245: !
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
DATA (GA( 3, 1,IC),IC=1,3) / 0.67849730E-02,-0.10404730E-02, 0.00000000E+00/
DATA (GB( 3, 1,IC),IC=1,3) / 0.67849730E-02, 0.10061504E+00, 0.10000000E+01/
DATA (GA( 3, 2,IC),IC=1,3) / 0.86507620E-02,-0.12139929E-02, 0.00000000E+00/
250: DATA (GB( 3, 2,IC),IC=1,3) / 0.86507620E-02, 0.11198225E+00, 0.10000000E+01/
!
!----- INTERVAL = 1 ----- T = 225.0
!
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
255: DATA (GA( 4, 1,IC),IC=1,3) / 0.70481947E-02,-0.10621792E-02, 0.00000000E+00/
DATA (GB( 4, 1,IC),IC=1,3) / 0.70481947E-02, 0.10256222E+00, 0.10000000E+01/
DATA (GA( 4, 2,IC),IC=1,3) / 0.92776391E-02,-0.12445811E-02, 0.00000000E+00/
DATA (GB( 4, 2,IC),IC=1,3) / 0.92776391E-02, 0.11487826E+00, 0.10000000E+01/
!
260: !----- INTERVAL = 1 ----- T = 237.5
!
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
DATA (GA( 5, 1,IC),IC=1,3) / 0.73585943E-02,-0.10847662E-02, 0.00000000E+00/
DATA (GB( 5, 1,IC),IC=1,3) / 0.73585943E-02, 0.10475952E+00, 0.10000000E+01/
265: DATA (GA( 5, 2,IC),IC=1,3) / 0.99806312E-02,-0.12807672E-02, 0.00000000E+00/
DATA (GB( 5, 2,IC),IC=1,3) / 0.99806312E-02, 0.11751113E+00, 0.10000000E+01/
!
!----- INTERVAL = 1 ----- T = 250.0
!
270: !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
DATA (GA( 6, 1,IC),IC=1,3) / 0.77242818E-02,-0.11094726E-02, 0.00000000E+00/
DATA (GB( 6, 1,IC),IC=1,3) / 0.77242818E-02, 0.10720986E+00, 0.10000000E+01/
DATA (GA( 6, 2,IC),IC=1,3) / 0.10709803E-01,-0.13208251E-02, 0.00000000E+00/
DATA (GB( 6, 2,IC),IC=1,3) / 0.10709803E-01, 0.11951535E+00, 0.10000000E+01/
275: !
!----- INTERVAL = 1 ----- T = 262.5
!
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
DATA (GA( 7, 1,IC),IC=1,3) / 0.81472693E-02,-0.11372949E-02, 0.00000000E+00/
280: DATA (GB( 7, 1,IC),IC=1,3) / 0.81472693E-02, 0.10985370E+00, 0.10000000E+01/
DATA (GA( 7, 2,IC),IC=1,3) / 0.11414739E-01,-0.13619034E-02, 0.00000000E+00/
DATA (GB( 7, 2,IC),IC=1,3) / 0.11414739E-01, 0.12069945E+00, 0.10000000E+01/
!
!----- INTERVAL = 1 ----- T = 275.0
285: !
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
DATA (GA( 8, 1,IC),IC=1,3) / &
& 0.86227527E-02,-0.11687683E-02, 0.00000000E+00/
DATA (GB( 8, 1,IC),IC=1,3) / &
290: & 0.86227527E-02, 0.11257633E+00, 0.10000000E+01/
DATA (GA( 8, 2,IC),IC=1,3) / &
& 0.12058772E-01,-0.14014165E-02, 0.00000000E+00/
DATA (GB( 8, 2,IC),IC=1,3) / &
& 0.12058772E-01, 0.12108524E+00, 0.10000000E+01/
295: !
!----- INTERVAL = 1 ----- T = 287.5
!
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
DATA (GA( 9, 1,IC),IC=1,3) / &
300: & 0.91396814E-02,-0.12038314E-02, 0.00000000E+00/
DATA (GB( 9, 1,IC),IC=1,3) / &
& 0.91396814E-02, 0.11522980E+00, 0.10000000E+01/
DATA (GA( 9, 2,IC),IC=1,3) / &
& 0.12623992E-01,-0.14378639E-02, 0.00000000E+00/
305: DATA (GB( 9, 2,IC),IC=1,3) / &
& 0.12623992E-01, 0.12084229E+00, 0.10000000E+01/
!
!----- INTERVAL = 1 ----- T = 300.0
!
310: !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
DATA (GA(10, 1,IC),IC=1,3) / &
& 0.96825438E-02,-0.12418367E-02, 0.00000000E+00/
DATA (GB(10, 1,IC),IC=1,3) / &
& 0.96825438E-02, 0.11766343E+00, 0.10000000E+01/
315: DATA (GA(10, 2,IC),IC=1,3) / &
& 0.13108146E-01,-0.14708488E-02, 0.00000000E+00/
DATA (GB(10, 2,IC),IC=1,3) / &
& 0.13108146E-01, 0.12019005E+00, 0.10000000E+01/
!
320: !----- INTERVAL = 1 ----- T = 312.5
!
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
DATA (GA(11, 1,IC),IC=1,3) / &
& 0.10233955E-01,-0.12817135E-02, 0.00000000E+00/
325: DATA (GB(11, 1,IC),IC=1,3) / &
& 0.10233955E-01, 0.11975320E+00, 0.10000000E+01/
DATA (GA(11, 2,IC),IC=1,3) / &
& 0.13518390E-01,-0.15006791E-02, 0.00000000E+00/
DATA (GB(11, 2,IC),IC=1,3) / &
330: & 0.13518390E-01, 0.11932684E+00, 0.10000000E+01/
!
!
!
!--- WATER VAPOR --- INTERVAL 2 -- 500-800 CM-1--- FROM ABS225 ---------
335: !
!
!
!
!--- R.D. --- G = 0.02 + 0.50 / ( 1 + 4.5 U )
340: !
!
!----- INTERVAL = 2 ----- T = 187.5
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
345: DATA (GA( 1, 3,IC),IC=1,3) / &
& 0.11644593E+01, 0.41243390E+00, 0.00000000E+00/
DATA (GB( 1, 3,IC),IC=1,3) / &
& 0.11644593E+01, 0.10346097E+01, 0.10000000E+01/
DATA (GA( 1, 4,IC),IC=1,3) / &
350: & 0.12006968E+01, 0.48318936E+00, 0.00000000E+00/
DATA (GB( 1, 4,IC),IC=1,3) / &
& 0.12006968E+01, 0.10626130E+01, 0.10000000E+01/
!
!----- INTERVAL = 2 ----- T = 200.0
355: !
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 2, 3,IC),IC=1,3) / &
& 0.11747203E+01, 0.43407282E+00, 0.00000000E+00/
DATA (GB( 2, 3,IC),IC=1,3) / &
360: & 0.11747203E+01, 0.10433655E+01, 0.10000000E+01/
DATA (GA( 2, 4,IC),IC=1,3) / &
& 0.12108196E+01, 0.50501827E+00, 0.00000000E+00/
DATA (GB( 2, 4,IC),IC=1,3) / &
& 0.12108196E+01, 0.10716026E+01, 0.10000000E+01/
365: !
!----- INTERVAL = 2 ----- T = 212.5
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 3, 3,IC),IC=1,3) / &
370: & 0.11837872E+01, 0.45331413E+00, 0.00000000E+00/
DATA (GB( 3, 3,IC),IC=1,3) / &
& 0.11837872E+01, 0.10511933E+01, 0.10000000E+01/
DATA (GA( 3, 4,IC),IC=1,3) / &
& 0.12196717E+01, 0.52409502E+00, 0.00000000E+00/
375: DATA (GB( 3, 4,IC),IC=1,3) / &
& 0.12196717E+01, 0.10795108E+01, 0.10000000E+01/
!
!----- INTERVAL = 2 ----- T = 225.0
!
380: !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 4, 3,IC),IC=1,3) / &
& 0.11918561E+01, 0.47048604E+00, 0.00000000E+00/
DATA (GB( 4, 3,IC),IC=1,3) / &
& 0.11918561E+01, 0.10582150E+01, 0.10000000E+01/
385: DATA (GA( 4, 4,IC),IC=1,3) / &
& 0.12274493E+01, 0.54085277E+00, 0.00000000E+00/
DATA (GB( 4, 4,IC),IC=1,3) / &
& 0.12274493E+01, 0.10865006E+01, 0.10000000E+01/
!
390: !----- INTERVAL = 2 ----- T = 237.5
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 5, 3,IC),IC=1,3) / &
& 0.11990757E+01, 0.48586286E+00, 0.00000000E+00/
395: DATA (GB( 5, 3,IC),IC=1,3) / &
& 0.11990757E+01, 0.10645317E+01, 0.10000000E+01/
DATA (GA( 5, 4,IC),IC=1,3) / &
& 0.12343189E+01, 0.55565422E+00, 0.00000000E+00/
DATA (GB( 5, 4,IC),IC=1,3) / &
400: & 0.12343189E+01, 0.10927103E+01, 0.10000000E+01/
!
!----- INTERVAL = 2 ----- T = 250.0
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
405: DATA (GA( 6, 3,IC),IC=1,3) / &
& 0.12055643E+01, 0.49968044E+00, 0.00000000E+00/
DATA (GB( 6, 3,IC),IC=1,3) / &
& 0.12055643E+01, 0.10702313E+01, 0.10000000E+01/
DATA (GA( 6, 4,IC),IC=1,3) / &
410: & 0.12404147E+01, 0.56878618E+00, 0.00000000E+00/
DATA (GB( 6, 4,IC),IC=1,3) / &
& 0.12404147E+01, 0.10982489E+01, 0.10000000E+01/
!
!----- INTERVAL = 2 ----- T = 262.5
415: !
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 7, 3,IC),IC=1,3) / &
& 0.12114186E+01, 0.51214132E+00, 0.00000000E+00/
DATA (GB( 7, 3,IC),IC=1,3) / &
420: & 0.12114186E+01, 0.10753907E+01, 0.10000000E+01/
DATA (GA( 7, 4,IC),IC=1,3) / &
& 0.12458431E+01, 0.58047395E+00, 0.00000000E+00/
DATA (GB( 7, 4,IC),IC=1,3) / &
& 0.12458431E+01, 0.11032019E+01, 0.10000000E+01/
425: !
!----- INTERVAL = 2 ----- T = 275.0
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 8, 3,IC),IC=1,3) / &
430: & 0.12167192E+01, 0.52341830E+00, 0.00000000E+00/
DATA (GB( 8, 3,IC),IC=1,3) / &
& 0.12167192E+01, 0.10800762E+01, 0.10000000E+01/
DATA (GA( 8, 4,IC),IC=1,3) / &
& 0.12506907E+01, 0.59089894E+00, 0.00000000E+00/
435: DATA (GB( 8, 4,IC),IC=1,3) / &
& 0.12506907E+01, 0.11076379E+01, 0.10000000E+01/
!
!----- INTERVAL = 2 ----- T = 287.5
!
440: !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 9, 3,IC),IC=1,3) / &
& 0.12215344E+01, 0.53365803E+00, 0.00000000E+00/
DATA (GB( 9, 3,IC),IC=1,3) / &
& 0.12215344E+01, 0.10843446E+01, 0.10000000E+01/
445: DATA (GA( 9, 4,IC),IC=1,3) / &
& 0.12550299E+01, 0.60021475E+00, 0.00000000E+00/
DATA (GB( 9, 4,IC),IC=1,3) / &
& 0.12550299E+01, 0.11116160E+01, 0.10000000E+01/
!
450: !----- INTERVAL = 2 ----- T = 300.0
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA(10, 3,IC),IC=1,3) / &
& 0.12259226E+01, 0.54298448E+00, 0.00000000E+00/
455: DATA (GB(10, 3,IC),IC=1,3) / &
& 0.12259226E+01, 0.10882439E+01, 0.10000000E+01/
DATA (GA(10, 4,IC),IC=1,3) / &
& 0.12589256E+01, 0.60856112E+00, 0.00000000E+00/
DATA (GB(10, 4,IC),IC=1,3) / &
460: & 0.12589256E+01, 0.11151910E+01, 0.10000000E+01/
!
!----- INTERVAL = 2 ----- T = 312.5
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
465: DATA (GA(11, 3,IC),IC=1,3) / &
& 0.12299344E+01, 0.55150227E+00, 0.00000000E+00/
DATA (GB(11, 3,IC),IC=1,3) / &
& 0.12299344E+01, 0.10918144E+01, 0.10000000E+01/
DATA (GA(11, 4,IC),IC=1,3) / &
470: & 0.12624402E+01, 0.61607594E+00, 0.00000000E+00/
DATA (GB(11, 4,IC),IC=1,3) / &
& 0.12624402E+01, 0.11184188E+01, 0.10000000E+01/
!
!
475: !
!
!
!
!- WATER VAPOR - INT. 3 -- 800-970 + 1110-1250 CM-1 -- FIT FROM 215 IS -
480: !
!
!-- WATER VAPOR LINES IN THE WINDOW REGION (800-1250 CM-1)
!
!
485: !
!--- G = 3.875E-03 ---------------
!
!----- INTERVAL = 3 ----- T = 187.5
!
490: !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 1, 7,IC),IC=1,3) / &
& 0.10192131E+02, 0.80737799E+01, 0.00000000E+00/
DATA (GB( 1, 7,IC),IC=1,3) / &
& 0.10192131E+02, 0.82623280E+01, 0.10000000E+01/
495: DATA (GA( 1, 8,IC),IC=1,3) / &
& 0.92439050E+01, 0.77425778E+01, 0.00000000E+00/
DATA (GB( 1, 8,IC),IC=1,3) / &
& 0.92439050E+01, 0.79342219E+01, 0.10000000E+01/
!
500: !----- INTERVAL = 3 ----- T = 200.0
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 2, 7,IC),IC=1,3) / &
& 0.97258602E+01, 0.79171158E+01, 0.00000000E+00/
505: DATA (GB( 2, 7,IC),IC=1,3) / &
& 0.97258602E+01, 0.81072291E+01, 0.10000000E+01/
DATA (GA( 2, 8,IC),IC=1,3) / &
& 0.87567422E+01, 0.75443460E+01, 0.00000000E+00/
DATA (GB( 2, 8,IC),IC=1,3) / &
510: & 0.87567422E+01, 0.77373458E+01, 0.10000000E+01/
!
!----- INTERVAL = 3 ----- T = 212.5
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
515: DATA (GA( 3, 7,IC),IC=1,3) / &
& 0.92992890E+01, 0.77609605E+01, 0.00000000E+00/
DATA (GB( 3, 7,IC),IC=1,3) / &
& 0.92992890E+01, 0.79523834E+01, 0.10000000E+01/
DATA (GA( 3, 8,IC),IC=1,3) / &
520: & 0.83270144E+01, 0.73526151E+01, 0.00000000E+00/
DATA (GB( 3, 8,IC),IC=1,3) / &
& 0.83270144E+01, 0.75467334E+01, 0.10000000E+01/
!
!----- INTERVAL = 3 ----- T = 225.0
525: !
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 4, 7,IC),IC=1,3) / &
& 0.89154021E+01, 0.76087371E+01, 0.00000000E+00/
DATA (GB( 4, 7,IC),IC=1,3) / &
530: & 0.89154021E+01, 0.78012527E+01, 0.10000000E+01/
DATA (GA( 4, 8,IC),IC=1,3) / &
& 0.79528337E+01, 0.71711188E+01, 0.00000000E+00/
DATA (GB( 4, 8,IC),IC=1,3) / &
& 0.79528337E+01, 0.73661786E+01, 0.10000000E+01/
535: !
!----- INTERVAL = 3 ----- T = 237.5
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 5, 7,IC),IC=1,3) / &
540: & 0.85730084E+01, 0.74627112E+01, 0.00000000E+00/
DATA (GB( 5, 7,IC),IC=1,3) / &
& 0.85730084E+01, 0.76561458E+01, 0.10000000E+01/
DATA (GA( 5, 8,IC),IC=1,3) / &
& 0.76286839E+01, 0.70015571E+01, 0.00000000E+00/
545: DATA (GB( 5, 8,IC),IC=1,3) / &
& 0.76286839E+01, 0.71974319E+01, 0.10000000E+01/
!
!----- INTERVAL = 3 ----- T = 250.0
!
550: !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 6, 7,IC),IC=1,3) / &
& 0.82685838E+01, 0.73239981E+01, 0.00000000E+00/
DATA (GB( 6, 7,IC),IC=1,3) / &
& 0.82685838E+01, 0.75182174E+01, 0.10000000E+01/
555: DATA (GA( 6, 8,IC),IC=1,3) / &
& 0.73477879E+01, 0.68442532E+01, 0.00000000E+00/
DATA (GB( 6, 8,IC),IC=1,3) / &
& 0.73477879E+01, 0.70408543E+01, 0.10000000E+01/
!
560: !----- INTERVAL = 3 ----- T = 262.5
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 7, 7,IC),IC=1,3) / &
& 0.79978921E+01, 0.71929934E+01, 0.00000000E+00/
565: DATA (GB( 7, 7,IC),IC=1,3) / &
& 0.79978921E+01, 0.73878952E+01, 0.10000000E+01/
DATA (GA( 7, 8,IC),IC=1,3) / &
& 0.71035818E+01, 0.66987996E+01, 0.00000000E+00/
DATA (GB( 7, 8,IC),IC=1,3) / &
570: & 0.71035818E+01, 0.68960649E+01, 0.10000000E+01/
!
!----- INTERVAL = 3 ----- T = 275.0
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
575: DATA (GA( 8, 7,IC),IC=1,3) / &
& 0.77568055E+01, 0.70697065E+01, 0.00000000E+00/
DATA (GB( 8, 7,IC),IC=1,3) / &
& 0.77568055E+01, 0.72652133E+01, 0.10000000E+01/
DATA (GA( 8, 8,IC),IC=1,3) / &
580: & 0.68903312E+01, 0.65644820E+01, 0.00000000E+00/
DATA (GB( 8, 8,IC),IC=1,3) / &
& 0.68903312E+01, 0.67623672E+01, 0.10000000E+01/
!
!----- INTERVAL = 3 ----- T = 287.5
585: !
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 9, 7,IC),IC=1,3) / &
& 0.75416266E+01, 0.69539626E+01, 0.00000000E+00/
DATA (GB( 9, 7,IC),IC=1,3) / &
590: & 0.75416266E+01, 0.71500151E+01, 0.10000000E+01/
DATA (GA( 9, 8,IC),IC=1,3) / &
& 0.67032875E+01, 0.64405267E+01, 0.00000000E+00/
DATA (GB( 9, 8,IC),IC=1,3) / &
& 0.67032875E+01, 0.66389989E+01, 0.10000000E+01/
595: !
!----- INTERVAL = 3 ----- T = 300.0
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA(10, 7,IC),IC=1,3) / &
600: & 0.73491694E+01, 0.68455144E+01, 0.00000000E+00/
DATA (GB(10, 7,IC),IC=1,3) / &
& 0.73491694E+01, 0.70420667E+01, 0.10000000E+01/
DATA (GA(10, 8,IC),IC=1,3) / &
& 0.65386461E+01, 0.63262376E+01, 0.00000000E+00/
605: DATA (GB(10, 8,IC),IC=1,3) / &
& 0.65386461E+01, 0.65252707E+01, 0.10000000E+01/
!
!----- INTERVAL = 3 ----- T = 312.5
!
610: !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA(11, 7,IC),IC=1,3) / &
& 0.71767400E+01, 0.67441020E+01, 0.00000000E+00/
DATA (GB(11, 7,IC),IC=1,3) / &
& 0.71767400E+01, 0.69411177E+01, 0.10000000E+01/
615: DATA (GA(11, 8,IC),IC=1,3) / &
& 0.63934377E+01, 0.62210701E+01, 0.00000000E+00/
DATA (GB(11, 8,IC),IC=1,3) / &
& 0.63934377E+01, 0.64206412E+01, 0.10000000E+01/
!
620: !
!-- WATER VAPOR -- 970-1110 CM-1 ---------------------------------------
!
!-- G = 3.6E-03
!
625: !----- INTERVAL = 4 ----- T = 187.5
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 1, 9,IC),IC=1,3) / &
& 0.24870635E+02, 0.10542131E+02, 0.00000000E+00/
630: DATA (GB( 1, 9,IC),IC=1,3) / &
& 0.24870635E+02, 0.10656640E+02, 0.10000000E+01/
DATA (GA( 1,10,IC),IC=1,3) / &
& 0.24586283E+02, 0.10490353E+02, 0.00000000E+00/
DATA (GB( 1,10,IC),IC=1,3) / &
635: & 0.24586283E+02, 0.10605856E+02, 0.10000000E+01/
!
!----- INTERVAL = 4 ----- T = 200.0
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
640: DATA (GA( 2, 9,IC),IC=1,3) / &
& 0.24725591E+02, 0.10515895E+02, 0.00000000E+00/
DATA (GB( 2, 9,IC),IC=1,3) / &
& 0.24725591E+02, 0.10630910E+02, 0.10000000E+01/
DATA (GA( 2,10,IC),IC=1,3) / &
645: & 0.24441465E+02, 0.10463512E+02, 0.00000000E+00/
DATA (GB( 2,10,IC),IC=1,3) / &
& 0.24441465E+02, 0.10579514E+02, 0.10000000E+01/
!
!----- INTERVAL = 4 ----- T = 212.5
650: !
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 3, 9,IC),IC=1,3) / &
& 0.24600320E+02, 0.10492949E+02, 0.00000000E+00/
DATA (GB( 3, 9,IC),IC=1,3) / &
655: & 0.24600320E+02, 0.10608399E+02, 0.10000000E+01/
DATA (GA( 3,10,IC),IC=1,3) / &
& 0.24311657E+02, 0.10439183E+02, 0.00000000E+00/
DATA (GB( 3,10,IC),IC=1,3) / &
& 0.24311657E+02, 0.10555632E+02, 0.10000000E+01/
660: !
!----- INTERVAL = 4 ----- T = 225.0
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 4, 9,IC),IC=1,3) / &
665: & 0.24487300E+02, 0.10472049E+02, 0.00000000E+00/
DATA (GB( 4, 9,IC),IC=1,3) / &
& 0.24487300E+02, 0.10587891E+02, 0.10000000E+01/
DATA (GA( 4,10,IC),IC=1,3) / &
& 0.24196167E+02, 0.10417324E+02, 0.00000000E+00/
670: DATA (GB( 4,10,IC),IC=1,3) / &
& 0.24196167E+02, 0.10534169E+02, 0.10000000E+01/
!
!----- INTERVAL = 4 ----- T = 237.5
!
675: !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 5, 9,IC),IC=1,3) / &
& 0.24384935E+02, 0.10452961E+02, 0.00000000E+00/
DATA (GB( 5, 9,IC),IC=1,3) / &
& 0.24384935E+02, 0.10569156E+02, 0.10000000E+01/
680: DATA (GA( 5,10,IC),IC=1,3) / &
& 0.24093406E+02, 0.10397704E+02, 0.00000000E+00/
DATA (GB( 5,10,IC),IC=1,3) / &
& 0.24093406E+02, 0.10514900E+02, 0.10000000E+01/
!
685: !----- INTERVAL = 4 ----- T = 250.0
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 6, 9,IC),IC=1,3) / &
& 0.24292341E+02, 0.10435562E+02, 0.00000000E+00/
690: DATA (GB( 6, 9,IC),IC=1,3) / &
& 0.24292341E+02, 0.10552075E+02, 0.10000000E+01/
DATA (GA( 6,10,IC),IC=1,3) / &
& 0.24001597E+02, 0.10380038E+02, 0.00000000E+00/
DATA (GB( 6,10,IC),IC=1,3) / &
695: & 0.24001597E+02, 0.10497547E+02, 0.10000000E+01/
!
!----- INTERVAL = 4 ----- T = 262.5
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
700: DATA (GA( 7, 9,IC),IC=1,3) / &
& 0.24208572E+02, 0.10419710E+02, 0.00000000E+00/
DATA (GB( 7, 9,IC),IC=1,3) / &
& 0.24208572E+02, 0.10536510E+02, 0.10000000E+01/
DATA (GA( 7,10,IC),IC=1,3) / &
705: & 0.23919098E+02, 0.10364052E+02, 0.00000000E+00/
DATA (GB( 7,10,IC),IC=1,3) / &
& 0.23919098E+02, 0.10481842E+02, 0.10000000E+01/
!
!----- INTERVAL = 4 ----- T = 275.0
710: !
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 8, 9,IC),IC=1,3) / &
& 0.24132642E+02, 0.10405247E+02, 0.00000000E+00/
DATA (GB( 8, 9,IC),IC=1,3) / &
715: & 0.24132642E+02, 0.10522307E+02, 0.10000000E+01/
DATA (GA( 8,10,IC),IC=1,3) / &
& 0.23844511E+02, 0.10349509E+02, 0.00000000E+00/
DATA (GB( 8,10,IC),IC=1,3) / &
& 0.23844511E+02, 0.10467553E+02, 0.10000000E+01/
720: !
!----- INTERVAL = 4 ----- T = 287.5
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA( 9, 9,IC),IC=1,3) / &
725: & 0.24063614E+02, 0.10392022E+02, 0.00000000E+00/
DATA (GB( 9, 9,IC),IC=1,3) / &
& 0.24063614E+02, 0.10509317E+02, 0.10000000E+01/
DATA (GA( 9,10,IC),IC=1,3) / &
& 0.23776708E+02, 0.10336215E+02, 0.00000000E+00/
730: DATA (GB( 9,10,IC),IC=1,3) / &
& 0.23776708E+02, 0.10454488E+02, 0.10000000E+01/
!
!----- INTERVAL = 4 ----- T = 300.0
!
735: !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA(10, 9,IC),IC=1,3) / &
& 0.24000649E+02, 0.10379892E+02, 0.00000000E+00/
DATA (GB(10, 9,IC),IC=1,3) / &
& 0.24000649E+02, 0.10497402E+02, 0.10000000E+01/
740: DATA (GA(10,10,IC),IC=1,3) / &
& 0.23714816E+02, 0.10324018E+02, 0.00000000E+00/
DATA (GB(10,10,IC),IC=1,3) / &
& 0.23714816E+02, 0.10442501E+02, 0.10000000E+01/
!
745: !----- INTERVAL = 4 ----- T = 312.5
!
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45
DATA (GA(11, 9,IC),IC=1,3) / &
& 0.23943021E+02, 0.10368736E+02, 0.00000000E+00/
750: DATA (GB(11, 9,IC),IC=1,3) / &
& 0.23943021E+02, 0.10486443E+02, 0.10000000E+01/
DATA (GA(11,10,IC),IC=1,3) / &
& 0.23658197E+02, 0.10312808E+02, 0.00000000E+00/
DATA (GB(11,10,IC),IC=1,3) / &
755: & 0.23658197E+02, 0.10431483E+02, 0.10000000E+01/
!
!
!
!-- H2O -- WEAKER PARTS OF THE STRONG BANDS -- FROM ABS225 ----
760: !
!-- WATER VAPOR --- 350 - 500 CM-1
!
!-- G = - 0.2*SLA, 0.0 +0.5/(1+0.5U)
!
765: !----- INTERVAL = 5 ----- T = 187.5
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 1, 5,IC),IC=1,3) / &
& 0.15750172E+00,-0.22159303E-01, 0.00000000E+00/
770: DATA (GB( 1, 5,IC),IC=1,3) / &
& 0.15750172E+00, 0.38103212E+00, 0.10000000E+01/
DATA (GA( 1, 6,IC),IC=1,3) / &
& 0.17770551E+00,-0.24972399E-01, 0.00000000E+00/
DATA (GB( 1, 6,IC),IC=1,3) / &
775: & 0.17770551E+00, 0.41646579E+00, 0.10000000E+01/
!
!----- INTERVAL = 5 ----- T = 200.0
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
780: DATA (GA( 2, 5,IC),IC=1,3) / &
& 0.16174076E+00,-0.22748917E-01, 0.00000000E+00/
DATA (GB( 2, 5,IC),IC=1,3) / &
& 0.16174076E+00, 0.38913800E+00, 0.10000000E+01/
DATA (GA( 2, 6,IC),IC=1,3) / &
785: & 0.18176757E+00,-0.25537247E-01, 0.00000000E+00/
DATA (GB( 2, 6,IC),IC=1,3) / &
& 0.18176757E+00, 0.42345095E+00, 0.10000000E+01/
!
!----- INTERVAL = 5 ----- T = 212.5
790: !
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 3, 5,IC),IC=1,3) / &
& 0.16548628E+00,-0.23269898E-01, 0.00000000E+00/
DATA (GB( 3, 5,IC),IC=1,3) / &
795: & 0.16548628E+00, 0.39613651E+00, 0.10000000E+01/
DATA (GA( 3, 6,IC),IC=1,3) / &
& 0.18527967E+00,-0.26025624E-01, 0.00000000E+00/
DATA (GB( 3, 6,IC),IC=1,3) / &
& 0.18527967E+00, 0.42937476E+00, 0.10000000E+01/
800: !
!----- INTERVAL = 5 ----- T = 225.0
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 4, 5,IC),IC=1,3) / &
805: & 0.16881124E+00,-0.23732392E-01, 0.00000000E+00/
DATA (GB( 4, 5,IC),IC=1,3) / &
& 0.16881124E+00, 0.40222421E+00, 0.10000000E+01/
DATA (GA( 4, 6,IC),IC=1,3) / &
& 0.18833348E+00,-0.26450280E-01, 0.00000000E+00/
810: DATA (GB( 4, 6,IC),IC=1,3) / &
& 0.18833348E+00, 0.43444062E+00, 0.10000000E+01/
!
!----- INTERVAL = 5 ----- T = 237.5
!
815: !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 5, 5,IC),IC=1,3) / &
& 0.17177839E+00,-0.24145123E-01, 0.00000000E+00/
DATA (GB( 5, 5,IC),IC=1,3) / &
& 0.17177839E+00, 0.40756010E+00, 0.10000000E+01/
820: DATA (GA( 5, 6,IC),IC=1,3) / &
& 0.19100108E+00,-0.26821236E-01, 0.00000000E+00/
DATA (GB( 5, 6,IC),IC=1,3) / &
& 0.19100108E+00, 0.43880316E+00, 0.10000000E+01/
!
825: !----- INTERVAL = 5 ----- T = 250.0
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 6, 5,IC),IC=1,3) / &
& 0.17443933E+00,-0.24515269E-01, 0.00000000E+00/
830: DATA (GB( 6, 5,IC),IC=1,3) / &
& 0.17443933E+00, 0.41226954E+00, 0.10000000E+01/
DATA (GA( 6, 6,IC),IC=1,3) / &
& 0.19334122E+00,-0.27146657E-01, 0.00000000E+00/
DATA (GB( 6, 6,IC),IC=1,3) / &
835: & 0.19334122E+00, 0.44258354E+00, 0.10000000E+01/
!
!----- INTERVAL = 5 ----- T = 262.5
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
840: DATA (GA( 7, 5,IC),IC=1,3) / &
& 0.17683622E+00,-0.24848690E-01, 0.00000000E+00/
DATA (GB( 7, 5,IC),IC=1,3) / &
& 0.17683622E+00, 0.41645142E+00, 0.10000000E+01/
DATA (GA( 7, 6,IC),IC=1,3) / &
845: & 0.19540288E+00,-0.27433354E-01, 0.00000000E+00/
DATA (GB( 7, 6,IC),IC=1,3) / &
& 0.19540288E+00, 0.44587882E+00, 0.10000000E+01/
!
!----- INTERVAL = 5 ----- T = 275.0
850: !
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 8, 5,IC),IC=1,3) / &
& 0.17900375E+00,-0.25150210E-01, 0.00000000E+00/
DATA (GB( 8, 5,IC),IC=1,3) / &
855: & 0.17900375E+00, 0.42018474E+00, 0.10000000E+01/
DATA (GA( 8, 6,IC),IC=1,3) / &
& 0.19722732E+00,-0.27687065E-01, 0.00000000E+00/
DATA (GB( 8, 6,IC),IC=1,3) / &
& 0.19722732E+00, 0.44876776E+00, 0.10000000E+01/
860: !
!----- INTERVAL = 5 ----- T = 287.5
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 9, 5,IC),IC=1,3) / &
865: & 0.18097099E+00,-0.25423873E-01, 0.00000000E+00/
DATA (GB( 9, 5,IC),IC=1,3) / &
& 0.18097099E+00, 0.42353379E+00, 0.10000000E+01/
DATA (GA( 9, 6,IC),IC=1,3) / &
& 0.19884918E+00,-0.27912608E-01, 0.00000000E+00/
870: DATA (GB( 9, 6,IC),IC=1,3) / &
& 0.19884918E+00, 0.45131451E+00, 0.10000000E+01/
!
!----- INTERVAL = 5 ----- T = 300.0
!
875: !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA(10, 5,IC),IC=1,3) / &
& 0.18276283E+00,-0.25673139E-01, 0.00000000E+00/
DATA (GB(10, 5,IC),IC=1,3) / &
& 0.18276283E+00, 0.42655211E+00, 0.10000000E+01/
880: DATA (GA(10, 6,IC),IC=1,3) / &
& 0.20029696E+00,-0.28113944E-01, 0.00000000E+00/
DATA (GB(10, 6,IC),IC=1,3) / &
& 0.20029696E+00, 0.45357095E+00, 0.10000000E+01/
!
885: !----- INTERVAL = 5 ----- T = 312.5
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA(11, 5,IC),IC=1,3) / &
& 0.18440117E+00,-0.25901055E-01, 0.00000000E+00/
890: DATA (GB(11, 5,IC),IC=1,3) / &
& 0.18440117E+00, 0.42928533E+00, 0.10000000E+01/
DATA (GA(11, 6,IC),IC=1,3) / &
& 0.20159300E+00,-0.28294180E-01, 0.00000000E+00/
DATA (GB(11, 6,IC),IC=1,3) / &
895: & 0.20159300E+00, 0.45557797E+00, 0.10000000E+01/
!
!
!
!
900: !- WATER VAPOR - WINGS OF VIBRATION-ROTATION BAND - 1250-1450+1880-2820
!--- G = 0.0
!
!
!----- INTERVAL = 6 ----- T = 187.5
905: !
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 1,11,IC),IC=1,3) / &
& 0.11990218E+02,-0.12823142E+01, 0.00000000E+00/
DATA (GB( 1,11,IC),IC=1,3) / &
910: & 0.11990218E+02, 0.26681588E+02, 0.10000000E+01/
DATA (GA( 1,12,IC),IC=1,3) / &
& 0.79709806E+01,-0.74805226E+00, 0.00000000E+00/
DATA (GB( 1,12,IC),IC=1,3) / &
& 0.79709806E+01, 0.18377807E+02, 0.10000000E+01/
915: !
!----- INTERVAL = 6 ----- T = 200.0
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 2,11,IC),IC=1,3) / &
920: & 0.10904073E+02,-0.10571588E+01, 0.00000000E+00/
DATA (GB( 2,11,IC),IC=1,3) / &
& 0.10904073E+02, 0.24728346E+02, 0.10000000E+01/
DATA (GA( 2,12,IC),IC=1,3) / &
& 0.75400737E+01,-0.56252739E+00, 0.00000000E+00/
925: DATA (GB( 2,12,IC),IC=1,3) / &
& 0.75400737E+01, 0.17643148E+02, 0.10000000E+01/
!
!----- INTERVAL = 6 ----- T = 212.5
!
930: !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 3,11,IC),IC=1,3) / &
& 0.89126838E+01,-0.74864953E+00, 0.00000000E+00/
DATA (GB( 3,11,IC),IC=1,3) / &
& 0.89126838E+01, 0.20551342E+02, 0.10000000E+01/
935: DATA (GA( 3,12,IC),IC=1,3) / &
& 0.81804377E+01,-0.46188072E+00, 0.00000000E+00/
DATA (GB( 3,12,IC),IC=1,3) / &
& 0.81804377E+01, 0.19296161E+02, 0.10000000E+01/
!
940: !----- INTERVAL = 6 ----- T = 225.0
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 4,11,IC),IC=1,3) / &
& 0.85622405E+01,-0.58705980E+00, 0.00000000E+00/
945: DATA (GB( 4,11,IC),IC=1,3) / &
& 0.85622405E+01, 0.19955244E+02, 0.10000000E+01/
DATA (GA( 4,12,IC),IC=1,3) / &
& 0.10564339E+02,-0.40712065E+00, 0.00000000E+00/
DATA (GB( 4,12,IC),IC=1,3) / &
950: & 0.10564339E+02, 0.24951120E+02, 0.10000000E+01/
!
!----- INTERVAL = 6 ----- T = 237.5
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
955: DATA (GA( 5,11,IC),IC=1,3) / &
& 0.94892164E+01,-0.49305772E+00, 0.00000000E+00/
DATA (GB( 5,11,IC),IC=1,3) / &
& 0.94892164E+01, 0.22227100E+02, 0.10000000E+01/
DATA (GA( 5,12,IC),IC=1,3) / &
960: & 0.46896789E+02,-0.15295996E+01, 0.00000000E+00/
DATA (GB( 5,12,IC),IC=1,3) / &
& 0.46896789E+02, 0.10957372E+03, 0.10000000E+01/
!
!----- INTERVAL = 6 ----- T = 250.0
965: !
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 6,11,IC),IC=1,3) / &
& 0.13580937E+02,-0.51461431E+00, 0.00000000E+00/
DATA (GB( 6,11,IC),IC=1,3) / &
970: & 0.13580937E+02, 0.31770288E+02, 0.10000000E+01/
DATA (GA( 6,12,IC),IC=1,3) / &
& -0.30926524E+01, 0.43555255E+00, 0.00000000E+00/
DATA (GB( 6,12,IC),IC=1,3) / &
& -0.30926524E+01,-0.67432659E+01, 0.10000000E+01/
975: !
!----- INTERVAL = 6 ----- T = 262.5
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 7,11,IC),IC=1,3) / &
980: & -0.32050918E+03, 0.12373350E+02, 0.00000000E+00/
DATA (GB( 7,11,IC),IC=1,3) / &
& -0.32050918E+03,-0.74061287E+03, 0.10000000E+01/
DATA (GA( 7,12,IC),IC=1,3) / &
& 0.85742941E+00, 0.50380874E+00, 0.00000000E+00/
985: DATA (GB( 7,12,IC),IC=1,3) / &
& 0.85742941E+00, 0.24550746E+01, 0.10000000E+01/
!
!----- INTERVAL = 6 ----- T = 275.0
!
990: !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 8,11,IC),IC=1,3) / &
& -0.37133165E+01, 0.44809588E+00, 0.00000000E+00/
DATA (GB( 8,11,IC),IC=1,3) / &
& -0.37133165E+01,-0.81329826E+01, 0.10000000E+01/
995: DATA (GA( 8,12,IC),IC=1,3) / &
& 0.19164038E+01, 0.68537352E+00, 0.00000000E+00/
DATA (GB( 8,12,IC),IC=1,3) / &
& 0.19164038E+01, 0.49089917E+01, 0.10000000E+01/
!
1000: !----- INTERVAL = 6 ----- T = 287.5
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA( 9,11,IC),IC=1,3) / &
& 0.18890836E+00, 0.46548918E+00, 0.00000000E+00/
1005: DATA (GB( 9,11,IC),IC=1,3) / &
& 0.18890836E+00, 0.90279822E+00, 0.10000000E+01/
DATA (GA( 9,12,IC),IC=1,3) / &
& 0.23513199E+01, 0.89437630E+00, 0.00000000E+00/
DATA (GB( 9,12,IC),IC=1,3) / &
1010: & 0.23513199E+01, 0.59008712E+01, 0.10000000E+01/
!
!----- INTERVAL = 6 ----- T = 300.0
!
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
1015: DATA (GA(10,11,IC),IC=1,3) / &
& 0.14209226E+01, 0.59121475E+00, 0.00000000E+00/
DATA (GB(10,11,IC),IC=1,3) / &
& 0.14209226E+01, 0.37532746E+01, 0.10000000E+01/
DATA (GA(10,12,IC),IC=1,3) / &
1020: & 0.25566644E+01, 0.11127003E+01, 0.00000000E+00/
DATA (GB(10,12,IC),IC=1,3) / &
& 0.25566644E+01, 0.63532616E+01, 0.10000000E+01/
!
!----- INTERVAL = 6 ----- T = 312.5
1025: !
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45
DATA (GA(11,11,IC),IC=1,3) / &
& 0.19817679E+01, 0.74676119E+00, 0.00000000E+00/
DATA (GB(11,11,IC),IC=1,3) / &
1030: & 0.19817679E+01, 0.50437916E+01, 0.10000000E+01/
DATA (GA(11,12,IC),IC=1,3) / &
& 0.26555181E+01, 0.13329782E+01, 0.00000000E+00/
DATA (GB(11,12,IC),IC=1,3) / &
& 0.26555181E+01, 0.65558627E+01, 0.10000000E+01/
1035: !
!
! end of h2o
!
!-----------------------------------------------------
1040: !
! Pade-coefficients for co2
! - AFGL80
! - Lorentzian line shape
! - up-domain : pmax=1000hPa , uh2omax=1.e+01 g/cm^2
1045: ! pmin=1hPa , uh2omin=1.e-08 g/cm^2
! - fiu = 0.8+MAX(0.35,(7-iu)*0.9) in band 2
! 1.0 in band 3&4
!-----------------------------------------------------
!
1050: !
!----- INTERVAL = co2-b2 ---- BLACKBODY TEMP.INDEX = 1
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 31 40 45
! FOR DB-TERMS : 1 31 40 45
1055: DATA (GA( 1,13,JC),JC=1,3) / &
& 0.17540191E+00, 0.15605409E+01, 0.00000000E+00/
DATA (GB( 1,13,JC),JC=1,3) / &
& 0.17540191E+00, 0.29477053E+01, 0.10000000E+01/
DATA (GA( 1,14 ,JC),JC=1,3) / &
1060: & 0.14851155E+00, 0.13054865E+01, 0.00000000E+00/
DATA (GB( 1,14 ,JC),JC=1,3) / &
& 0.14851155E+00, 0.25552710E+01, 0.10000000E+01/
!
!----- INTERVAL = co2-b2 ---- BLACKBODY TEMP.INDEX = 2
1065: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 31 40 45
! FOR DB-TERMS : 1 31 40 45
DATA (GA( 2,13,JC),JC=1,3) / &
& 0.16713717E+00, 0.14812457E+01, 0.00000000E+00/
1070: DATA (GB( 2,13,JC),JC=1,3) / &
& 0.16713717E+00, 0.28277450E+01, 0.10000000E+01/
DATA (GA( 2,14 ,JC),JC=1,3) / &
& 0.14159881E+00, 0.12446606E+01, 0.00000000E+00/
DATA (GB( 2,14 ,JC),JC=1,3) / &
1075: & 0.14159881E+00, 0.24521159E+01, 0.10000000E+01/
!
!----- INTERVAL = co2-b2 ---- BLACKBODY TEMP.INDEX = 3
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 31 40 45
1080: ! FOR DB-TERMS : 1 31 40 45
DATA (GA( 3,13,JC),JC=1,3) / &
& 0.16015582E+00, 0.14157930E+01, 0.00000000E+00/
DATA (GB( 3,13,JC),JC=1,3) / &
& 0.16015582E+00, 0.27255102E+01, 0.10000000E+01/
1085: DATA (GA( 3,14 ,JC),JC=1,3) / &
& 0.13585698E+00, 0.11954021E+01, 0.00000000E+00/
DATA (GB( 3,14 ,JC),JC=1,3) / &
& 0.13585698E+00, 0.23659435E+01, 0.10000000E+01/
!
1090: !----- INTERVAL = co2-b2 ---- BLACKBODY TEMP.INDEX = 4
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 31 40 45
! FOR DB-TERMS : 1 31 40 45
DATA (GA( 4,13,JC),JC=1,3) / &
1095: & 0.15420116E+00, 0.13611108E+01, 0.00000000E+00/
DATA (GB( 4,13,JC),JC=1,3) / &
& 0.15420116E+00, 0.26377113E+01, 0.10000000E+01/
DATA (GA( 4,14 ,JC),JC=1,3) / &
& 0.13103797E+00, 0.11550178E+01, 0.00000000E+00/
1100: DATA (GB( 4,14 ,JC),JC=1,3) / &
& 0.13103797E+00, 0.22933006E+01, 0.10000000E+01/
!
!----- INTERVAL = co2-b2 ---- BLACKBODY TEMP.INDEX = 5
!
1105: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 31 40 45
! FOR DB-TERMS : 1 29 30 38
DATA (GA( 5,13,JC),JC=1,3) / &
& 0.14907841E+00, 0.13149437E+01, 0.00000000E+00/
DATA (GB( 5,13,JC),JC=1,3) / &
1110: & 0.14907841E+00, 0.25617666E+01, 0.10000000E+01/
DATA (GA( 5,14 ,JC),JC=1,3) / &
& 0.53690454E-01, 0.90252440E+00, 0.00000000E+00/
DATA (GB( 5,14 ,JC),JC=1,3) / &
& 0.53690454E-01, 0.15409961E+01, 0.10000000E+01/
1115: !
!----- INTERVAL = co2-b2 ---- BLACKBODY TEMP.INDEX = 6
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 31 40 45
! FOR DB-TERMS : 1 29 30 38
1120: DATA (GA( 6,13,JC),JC=1,3) / &
& 0.14463700E+00, 0.12756006E+01, 0.00000000E+00/
DATA (GB( 6,13,JC),JC=1,3) / &
& 0.14463700E+00, 0.24956306E+01, 0.10000000E+01/
DATA (GA( 6,14 ,JC),JC=1,3) / &
1125: & 0.53252129E-01, 0.89226704E+00, 0.00000000E+00/
DATA (GB( 6,14 ,JC),JC=1,3) / &
& 0.53252129E-01, 0.15280482E+01, 0.10000000E+01/
!
!----- INTERVAL = co2-b2 ---- BLACKBODY TEMP.INDEX = 7
1130: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 31 40 45
! FOR DB-TERMS : 1 29 30 38
DATA (GA( 7,13,JC),JC=1,3) / &
& 0.14075907E+00, 0.12417919E+01, 0.00000000E+00/
1135: DATA (GB( 7,13,JC),JC=1,3) / &
& 0.14075907E+00, 0.24376724E+01, 0.10000000E+01/
DATA (GA( 7,14 ,JC),JC=1,3) / &
& 0.52884332E-01, 0.88376764E+00, 0.00000000E+00/
DATA (GB( 7,14 ,JC),JC=1,3) / &
1140: & 0.52884332E-01, 0.15171129E+01, 0.10000000E+01/
!
!----- INTERVAL = co2-b2 ---- BLACKBODY TEMP.INDEX = 8
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 31 40 45
1145: ! FOR DB-TERMS : 1 29 30 38
DATA (GA( 8,13,JC),JC=1,3) / &
& 0.13735133E+00, 0.12125200E+01, 0.00000000E+00/
DATA (GB( 8,13,JC),JC=1,3) / &
& 0.13735133E+00, 0.23865836E+01, 0.10000000E+01/
1150: DATA (GA( 8,14 ,JC),JC=1,3) / &
& 0.52573528E-01, 0.87667130E+00, 0.00000000E+00/
DATA (GB( 8,14 ,JC),JC=1,3) / &
& 0.52573528E-01, 0.15078133E+01, 0.10000000E+01/
!
1155: !----- INTERVAL = co2-b2 ---- BLACKBODY TEMP.INDEX = 9
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 31 40 45
! FOR DB-TERMS : 1 29 30 38
DATA (GA( 9,13,JC),JC=1,3) / &
1160: & 0.13433916E+00, 0.11870015E+01, 0.00000000E+00/
DATA (GB( 9,13,JC),JC=1,3) / &
& 0.13433916E+00, 0.23413066E+01, 0.10000000E+01/
DATA (GA( 9,14 ,JC),JC=1,3) / &
& 0.52309140E-01, 0.87070360E+00, 0.00000000E+00/
1165: DATA (GB( 9,14 ,JC),JC=1,3) / &
& 0.52309140E-01, 0.14998543E+01, 0.10000000E+01/
!
!----- INTERVAL = co2-b2 ---- BLACKBODY TEMP.INDEX = 10
!
1170: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 31 40 45
! FOR DB-TERMS : 1 28 30 38
DATA (GA(10,13,JC),JC=1,3) / &
& 0.13166225E+00, 0.11646130E+01, 0.00000000E+00/
DATA (GB(10,13,JC),JC=1,3) / &
1175: & 0.13166225E+00, 0.23009800E+01, 0.10000000E+01/
DATA (GA(10,14 ,JC),JC=1,3) / &
& 0.43693974E-01, 0.77903153E+00, 0.00000000E+00/
DATA (GB(10,14 ,JC),JC=1,3) / &
& 0.43693974E-01, 0.13119580E+01, 0.10000000E+01/
1180: !
!----- INTERVAL = co2-b2 ---- BLACKBODY TEMP.INDEX = 11
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 31 40 45
! FOR DB-TERMS : 1 28 30 38
1185: DATA (GA(11,13,JC),JC=1,3) / &
& 0.12927136E+00, 0.11448514E+01, 0.00000000E+00/
DATA (GB(11,13,JC),JC=1,3) / &
& 0.12927136E+00, 0.22648957E+01, 0.10000000E+01/
DATA (GA(11,14 ,JC),JC=1,3) / &
1190: & 0.43530220E-01, 0.77524392E+00, 0.00000000E+00/
DATA (GB(11,14 ,JC),JC=1,3) / &
& 0.43530220E-01, 0.13067880E+01, 0.10000000E+01/
!
!
1195: !----- INTERVAL = co2-b3b4 ---- BLACKBODY TEMP.INDEX = 1
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 40 45 46
! FOR DB-TERMS : 1 40 45 46
DATA (GA( 1,15,JC),JC=1,3) / &
1200: & 0.33506842E+02, 0.14960472E+02, 0.00000000E+00/
DATA (GB( 1,15,JC),JC=1,3) / &
& 0.33506842E+02, 0.15185512E+02, 0.10000000E+01/
DATA (GA( 1,16 ,JC),JC=1,3) / &
& 0.33440883E+02, 0.15095074E+02, 0.00000000E+00/
1205: DATA (GB( 1,16 ,JC),JC=1,3) / &
& 0.33440883E+02, 0.15318986E+02, 0.10000000E+01/
!
!----- INTERVAL = co2-b3b4 ---- BLACKBODY TEMP.INDEX = 2
!
1210: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 40 45 46
! FOR DB-TERMS : 1 40 45 46
DATA (GA( 2,15,JC),JC=1,3) / &
& 0.33483478E+02, 0.15028213E+02, 0.00000000E+00/
DATA (GB( 2,15,JC),JC=1,3) / &
1215: & 0.33483478E+02, 0.15252692E+02, 0.10000000E+01/
DATA (GA( 2,16 ,JC),JC=1,3) / &
& 0.33450848E+02, 0.15194553E+02, 0.00000000E+00/
DATA (GB( 2,16 ,JC),JC=1,3) / &
& 0.33450848E+02, 0.15417682E+02, 0.10000000E+01/
1220: !
!----- INTERVAL = co2-b3b4 ---- BLACKBODY TEMP.INDEX = 3
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 40 45 46
! FOR DB-TERMS : 1 40 45 46
1225: DATA (GA( 3,15,JC),JC=1,3) / &
& 0.33478605E+02, 0.15102162E+02, 0.00000000E+00/
DATA (GB( 3,15,JC),JC=1,3) / &
& 0.33478605E+02, 0.15326053E+02, 0.10000000E+01/
DATA (GA( 3,16 ,JC),JC=1,3) / &
1230: & 0.33480945E+02, 0.15300183E+02, 0.00000000E+00/
DATA (GB( 3,16 ,JC),JC=1,3) / &
& 0.33480945E+02, 0.15522507E+02, 0.10000000E+01/
!
!----- INTERVAL = co2-b3b4 ---- BLACKBODY TEMP.INDEX = 4
1235: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 40 45 46
! FOR DB-TERMS : 1 40 45 46
DATA (GA( 4,15,JC),JC=1,3) / &
& 0.33487138E+02, 0.15179579E+02, 0.00000000E+00/
1240: DATA (GB( 4,15,JC),JC=1,3) / &
& 0.33487138E+02, 0.15402867E+02, 0.10000000E+01/
DATA (GA( 4,16 ,JC),JC=1,3) / &
& 0.33526209E+02, 0.15408603E+02, 0.00000000E+00/
DATA (GB( 4,16 ,JC),JC=1,3) / &
1245: & 0.33526209E+02, 0.15630122E+02, 0.10000000E+01/
!
!----- INTERVAL = co2-b3b4 ---- BLACKBODY TEMP.INDEX = 5
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 40 45 46
1250: ! FOR DB-TERMS : 1 40 45 46
DATA (GA( 5,15,JC),JC=1,3) / &
& 0.33506437E+02, 0.15258779E+02, 0.00000000E+00/
DATA (GB( 5,15,JC),JC=1,3) / &
& 0.33506437E+02, 0.15481462E+02, 0.10000000E+01/
1255: DATA (GA( 5,16 ,JC),JC=1,3) / &
& 0.33582327E+02, 0.15517344E+02, 0.00000000E+00/
DATA (GB( 5,16 ,JC),JC=1,3) / &
& 0.33582327E+02, 0.15738076E+02, 0.10000000E+01/
!
1260: !----- INTERVAL = co2-b3b4 ---- BLACKBODY TEMP.INDEX = 6
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 40 45 46
! FOR DB-TERMS : 1 40 45 46
DATA (GA( 6,15,JC),JC=1,3) / &
1265: & 0.33534394E+02, 0.15338608E+02, 0.00000000E+00/
DATA (GB( 6,15,JC),JC=1,3) / &
& 0.33534394E+02, 0.15560693E+02, 0.10000000E+01/
DATA (GA( 6,16 ,JC),JC=1,3) / &
& 0.33646124E+02, 0.15624894E+02, 0.00000000E+00/
1270: DATA (GB( 6,16 ,JC),JC=1,3) / &
& 0.33646124E+02, 0.15844863E+02, 0.10000000E+01/
!
!----- INTERVAL = co2-b3b4 ---- BLACKBODY TEMP.INDEX = 7
!
1275: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 40 45 46
! FOR DB-TERMS : 1 40 45 46
DATA (GA( 7,15,JC),JC=1,3) / &
& 0.33569175E+02, 0.15418230E+02, 0.00000000E+00/
DATA (GB( 7,15,JC),JC=1,3) / &
1280: & 0.33569175E+02, 0.15639729E+02, 0.10000000E+01/
DATA (GA( 7,16 ,JC),JC=1,3) / &
& 0.33715328E+02, 0.15730375E+02, 0.00000000E+00/
DATA (GB( 7,16 ,JC),JC=1,3) / &
& 0.33715328E+02, 0.15949612E+02, 0.10000000E+01/
1285: !
!----- INTERVAL = co2-b3b4 ---- BLACKBODY TEMP.INDEX = 8
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 40 45 46
! FOR DB-TERMS : 1 40 45 46
1290: DATA (GA( 8,15,JC),JC=1,3) / &
& 0.33609213E+02, 0.15497024E+02, 0.00000000E+00/
DATA (GB( 8,15,JC),JC=1,3) / &
& 0.33609213E+02, 0.15717953E+02, 0.10000000E+01/
DATA (GA( 8,16 ,JC),JC=1,3) / &
1295: & 0.33788250E+02, 0.15833265E+02, 0.00000000E+00/
DATA (GB( 8,16 ,JC),JC=1,3) / &
& 0.33788250E+02, 0.16051800E+02, 0.10000000E+01/
!
!----- INTERVAL = co2-b3b4 ---- BLACKBODY TEMP.INDEX = 9
1300: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 40 45 46
! FOR DB-TERMS : 1 40 45 46
DATA (GA( 9,15,JC),JC=1,3) / &
& 0.33653189E+02, 0.15574511E+02, 0.00000000E+00/
1305: DATA (GB( 9,15,JC),JC=1,3) / &
& 0.33653189E+02, 0.15794889E+02, 0.10000000E+01/
DATA (GA( 9,16 ,JC),JC=1,3) / &
& 0.33863537E+02, 0.15933187E+02, 0.00000000E+00/
DATA (GB( 9,16 ,JC),JC=1,3) / &
1310: & 0.33863537E+02, 0.16151051E+02, 0.10000000E+01/
!
!----- INTERVAL = co2-b3b4 ---- BLACKBODY TEMP.INDEX = 10
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 40 45 46
1315: ! FOR DB-TERMS : 1 40 45 46
DATA (GA(10,15,JC),JC=1,3) / &
& 0.33700015E+02, 0.15650309E+02, 0.00000000E+00/
DATA (GB(10,15,JC),JC=1,3) / &
& 0.33700015E+02, 0.15870156E+02, 0.10000000E+01/
1320: DATA (GA(10,16 ,JC),JC=1,3) / &
& 0.33939970E+02, 0.16029767E+02, 0.00000000E+00/
DATA (GB(10,16 ,JC),JC=1,3) / &
& 0.33939970E+02, 0.16246994E+02, 0.10000000E+01/
!
1325: !----- INTERVAL = co2-b3b4 ---- BLACKBODY TEMP.INDEX = 11
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 40 45 46
! FOR DB-TERMS : 1 40 45 46
DATA (GA(11,15,JC),JC=1,3) / &
1330: & 0.33748786E+02, 0.15724103E+02, 0.00000000E+00/
DATA (GB(11,15,JC),JC=1,3) / &
& 0.33748786E+02, 0.15943438E+02, 0.10000000E+01/
DATA (GA(11,16 ,JC),JC=1,3) / &
& 0.34016318E+02, 0.16122536E+02, 0.00000000E+00/
1335: DATA (GB(11,16 ,JC),JC=1,3) / &
& 0.34016318E+02, 0.16339159E+02, 0.10000000E+01/
!
!
! end of co2
1340: !
!-----------------------------------------------------
!
! Pade coefficients for trace gases
! =================================
1345: !
!-----------------------------------------------------
!
! Pade-coefficients for n2o
! - AFGL80
1350: ! - Lorentzian line shape
! - up-domain : pmax=1000hPa , uh2omax=1.e-02 g/cm^2
! pmin=1hPa , uh2omin=1.e-11 g/cm^2
! - fiu = 1.0
!-----------------------------------------------------
1355: !
!----- INTERVAL = n2o-b2 ---- BLACKBODY TEMP.INDEX = 1
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 3 15 43
! FOR DB-TERMS : 1 6 15 43
1360: DATA (GC( 1, 1,JC),JC=1,3) / &
& 0.21236703E-02, 0.36614934E+00, 0.00000000E+00/
DATA (GD( 1, 1,JC),JC=1,3) / &
& 0.21236703E-02, 0.36627566E+00, 0.10000000E+01/
DATA (GC( 1, 2 ,JC),JC=1,3) / &
1365: & 0.21287060E-02, 0.39681349E+00, 0.00000000E+00/
DATA (GD( 1, 2 ,JC),JC=1,3) / &
& 0.21287060E-02, 0.39693216E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b2 ---- BLACKBODY TEMP.INDEX = 2
1370: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 11 18 43
! FOR DB-TERMS : 1 7 15 43
DATA (GC( 2, 1,JC),JC=1,3) / &
& 0.21552209E-02, 0.37410759E+00, 0.00000000E+00/
1375: DATA (GD( 2, 1,JC),JC=1,3) / &
& 0.21552209E-02, 0.37423154E+00, 0.10000000E+01/
DATA (GC( 2, 2 ,JC),JC=1,3) / &
& 0.21287658E-02, 0.40880051E+00, 0.00000000E+00/
DATA (GD( 2, 2 ,JC),JC=1,3) / &
1380: & 0.21287658E-02, 0.40891635E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b2 ---- BLACKBODY TEMP.INDEX = 3
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 5 15 43
1385: ! FOR DB-TERMS : 1 13 18 43
DATA (GC( 3, 1,JC),JC=1,3) / &
& 0.21676798E-02, 0.38246880E+00, 0.00000000E+00/
DATA (GD( 3, 1,JC),JC=1,3) / &
& 0.21676798E-02, 0.38259298E+00, 0.10000000E+01/
1390: DATA (GC( 3, 2 ,JC),JC=1,3) / &
& 0.21693415E-02, 0.41839943E+00, 0.00000000E+00/
DATA (GD( 3, 2 ,JC),JC=1,3) / &
& 0.21693415E-02, 0.41851241E+00, 0.10000000E+01/
!
1395: !----- INTERVAL = n2o-b2 ---- BLACKBODY TEMP.INDEX = 4
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 12 18 43
! FOR DB-TERMS : 1 8 15 43
DATA (GC( 4, 1,JC),JC=1,3) / &
1400: & 0.21532644E-02, 0.39136844E+00, 0.00000000E+00/
DATA (GD( 4, 1,JC),JC=1,3) / &
& 0.21532644E-02, 0.39148749E+00, 0.10000000E+01/
DATA (GC( 4, 2 ,JC),JC=1,3) / &
& 0.21515712E-02, 0.42960779E+00, 0.00000000E+00/
1405: DATA (GD( 4, 2 ,JC),JC=1,3) / &
& 0.21515712E-02, 0.42972009E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b2 ---- BLACKBODY TEMP.INDEX = 5
!
1410: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 6 15 43
! FOR DB-TERMS : 1 14 18 43
DATA (GC( 5, 1,JC),JC=1,3) / &
& 0.21441492E-02, 0.39970214E+00, 0.00000000E+00/
DATA (GD( 5, 1,JC),JC=1,3) / &
1415: & 0.21441492E-02, 0.39982088E+00, 0.10000000E+01/
DATA (GC( 5, 2 ,JC),JC=1,3) / &
& 0.21576443E-02, 0.43906383E+00, 0.00000000E+00/
DATA (GD( 5, 2 ,JC),JC=1,3) / &
& 0.21576443E-02, 0.43917144E+00, 0.10000000E+01/
1420: !
!----- INTERVAL = n2o-b2 ---- BLACKBODY TEMP.INDEX = 6
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 6 15 43
! FOR DB-TERMS : 1 2 18 42
1425: DATA (GC( 6, 1,JC),JC=1,3) / &
& 0.21747371E-02, 0.40601701E+00, 0.00000000E+00/
DATA (GD( 6, 1,JC),JC=1,3) / &
& 0.21747371E-02, 0.40613571E+00, 0.10000000E+01/
DATA (GC( 6, 2 ,JC),JC=1,3) / &
1430: & 0.29470290E-02, 0.43915747E+00, 0.00000000E+00/
DATA (GD( 6, 2 ,JC),JC=1,3) / &
& 0.29470290E-02, 0.43930740E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b2 ---- BLACKBODY TEMP.INDEX = 7
1435: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 13 18 43
! FOR DB-TERMS : 1 9 15 43
DATA (GC( 7, 1,JC),JC=1,3) / &
& 0.21453285E-02, 0.41417275E+00, 0.00000000E+00/
1440: DATA (GD( 7, 1,JC),JC=1,3) / &
& 0.21453285E-02, 0.41428557E+00, 0.10000000E+01/
DATA (GC( 7, 2 ,JC),JC=1,3) / &
& 0.21732603E-02, 0.45601132E+00, 0.00000000E+00/
DATA (GD( 7, 2 ,JC),JC=1,3) / &
1445: & 0.21732603E-02, 0.45611919E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b2 ---- BLACKBODY TEMP.INDEX = 8
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 13 18 43
1450: ! FOR DB-TERMS : 1 3 18 42
DATA (GC( 8, 1,JC),JC=1,3) / &
& 0.21741952E-02, 0.41971142E+00, 0.00000000E+00/
DATA (GD( 8, 1,JC),JC=1,3) / &
& 0.21741952E-02, 0.41982434E+00, 0.10000000E+01/
1455: DATA (GC( 8, 2 ,JC),JC=1,3) / &
& 0.29334917E-02, 0.45734985E+00, 0.00000000E+00/
DATA (GD( 8, 2 ,JC),JC=1,3) / &
& 0.29334917E-02, 0.45749442E+00, 0.10000000E+01/
!
1460: !----- INTERVAL = n2o-b2 ---- BLACKBODY TEMP.INDEX = 9
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 8 15 43
! FOR DB-TERMS : 1 3 18 42
DATA (GC( 9, 1,JC),JC=1,3) / &
1465: & 0.21420386E-02, 0.42727281E+00, 0.00000000E+00/
DATA (GD( 9, 1,JC),JC=1,3) / &
& 0.21420386E-02, 0.42738518E+00, 0.10000000E+01/
DATA (GC( 9, 2 ,JC),JC=1,3) / &
& 0.29719525E-02, 0.46327250E+00, 0.00000000E+00/
1470: DATA (GD( 9, 2 ,JC),JC=1,3) / &
& 0.29719525E-02, 0.46341719E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b2 ---- BLACKBODY TEMP.INDEX = 10
!
1475: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 8 15 43
! FOR DB-TERMS : 1 5 18 42
DATA (GC(10, 1,JC),JC=1,3) / &
& 0.21650019E-02, 0.43227877E+00, 0.00000000E+00/
DATA (GD(10, 1,JC),JC=1,3) / &
1480: & 0.21650019E-02, 0.43239112E+00, 0.10000000E+01/
DATA (GC(10, 2 ,JC),JC=1,3) / &
& 0.29933542E-02, 0.46942228E+00, 0.00000000E+00/
DATA (GD(10, 2 ,JC),JC=1,3) / &
& 0.29933542E-02, 0.46956632E+00, 0.10000000E+01/
1485: !
!----- INTERVAL = n2o-b2 ---- BLACKBODY TEMP.INDEX = 11
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 14 18 43
! FOR DB-TERMS : 1 6 18 42
1490: DATA (GC(11, 1,JC),JC=1,3) / &
& 0.21517452E-02, 0.43827499E+00, 0.00000000E+00/
DATA (GD(11, 1,JC),JC=1,3) / &
& 0.21517452E-02, 0.43838252E+00, 0.10000000E+01/
DATA (GC(11, 2 ,JC),JC=1,3) / &
1495: & 0.29871862E-02, 0.47637076E+00, 0.00000000E+00/
DATA (GD(11, 2 ,JC),JC=1,3) / &
& 0.29871862E-02, 0.47651284E+00, 0.10000000E+01/
!
!
1500: !----- INTERVAL = n2o-b3 ---- BLACKBODY TEMP.INDEX = 1
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 21 31 40
! FOR DB-TERMS : 1 17 31 42
DATA (GC( 1, 3,JC),JC=1,3) / &
1505: & 0.38736236E-01, 0.15382716E+01, 0.00000000E+00/
DATA (GD( 1, 3,JC),JC=1,3) / &
& 0.38736236E-01, 0.15386180E+01, 0.10000000E+01/
DATA (GC( 1, 4 ,JC),JC=1,3) / &
& 0.32622103E-01, 0.11643113E+01, 0.00000000E+00/
1510: DATA (GD( 1, 4 ,JC),JC=1,3) / &
& 0.32622103E-01, 0.11647647E+01, 0.10000000E+01/
!
!----- INTERVAL = n2o-b3 ---- BLACKBODY TEMP.INDEX = 2
!
1515: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 19 32 40
! FOR DB-TERMS : 1 17 32 40
DATA (GC( 2, 3,JC),JC=1,3) / &
& 0.34905017E-01, 0.13460292E+01, 0.00000000E+00/
DATA (GD( 2, 3,JC),JC=1,3) / &
1520: & 0.34905017E-01, 0.13464478E+01, 0.10000000E+01/
DATA (GC( 2, 4 ,JC),JC=1,3) / &
& 0.27757852E-01, 0.10501898E+01, 0.00000000E+00/
DATA (GD( 2, 4 ,JC),JC=1,3) / &
& 0.27757852E-01, 0.10506182E+01, 0.10000000E+01/
1525: !
!----- INTERVAL = n2o-b3 ---- BLACKBODY TEMP.INDEX = 3
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 26 28 42
! FOR DB-TERMS : 1 18 31 41
1530: DATA (GC( 3, 3,JC),JC=1,3) / &
& 0.32480819E-01, 0.11958641E+01, 0.00000000E+00/
DATA (GD( 3, 3,JC),JC=1,3) / &
& 0.32480819E-01, 0.11961006E+01, 0.10000000E+01/
DATA (GC( 3, 4 ,JC),JC=1,3) / &
1535: & 0.26316672E-01, 0.93441499E+00, 0.00000000E+00/
DATA (GD( 3, 4 ,JC),JC=1,3) / &
& 0.26316672E-01, 0.93485721E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b3 ---- BLACKBODY TEMP.INDEX = 4
1540: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 19 31 41
! FOR DB-TERMS : 1 26 28 47
DATA (GC( 4, 3,JC),JC=1,3) / &
& 0.30004601E-01, 0.10855998E+01, 0.00000000E+00/
1545: DATA (GD( 4, 3,JC),JC=1,3) / &
& 0.30004601E-01, 0.10860319E+01, 0.10000000E+01/
DATA (GC( 4, 4 ,JC),JC=1,3) / &
& 0.23556590E-01, 0.86326059E+00, 0.00000000E+00/
DATA (GD( 4, 4 ,JC),JC=1,3) / &
1550: & 0.23556590E-01, 0.86348630E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b3 ---- BLACKBODY TEMP.INDEX = 5
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 25 30 41
1555: ! FOR DB-TERMS : 1 26 28 47
DATA (GC( 5, 3,JC),JC=1,3) / &
& 0.27365631E-01, 0.10009566E+01, 0.00000000E+00/
DATA (GD( 5, 3,JC),JC=1,3) / &
& 0.27365631E-01, 0.10012276E+01, 0.10000000E+01/
1560: DATA (GC( 5, 4 ,JC),JC=1,3) / &
& 0.21873733E-01, 0.79878472E+00, 0.00000000E+00/
DATA (GD( 5, 4 ,JC),JC=1,3) / &
& 0.21873733E-01, 0.79900794E+00, 0.10000000E+01/
!
1565: !----- INTERVAL = n2o-b3 ---- BLACKBODY TEMP.INDEX = 6
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 17 31 41
! FOR DB-TERMS : 1 27 41 47
DATA (GC( 6, 3,JC),JC=1,3) / &
1570: & 0.26163017E-01, 0.92418742E+00, 0.00000000E+00/
DATA (GD( 6, 3,JC),JC=1,3) / &
& 0.26163017E-01, 0.92463319E+00, 0.10000000E+01/
DATA (GC( 6, 4 ,JC),JC=1,3) / &
& 0.20916840E-01, 0.74233877E+00, 0.00000000E+00/
1575: DATA (GD( 6, 4 ,JC),JC=1,3) / &
& 0.20916840E-01, 0.74256824E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b3 ---- BLACKBODY TEMP.INDEX = 7
!
1580: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 17 31 41
! FOR DB-TERMS : 1 24 30 42
DATA (GC( 7, 3,JC),JC=1,3) / &
& 0.24604821E-01, 0.87162079E+00, 0.00000000E+00/
DATA (GD( 7, 3,JC),JC=1,3) / &
1585: & 0.24604821E-01, 0.87206452E+00, 0.10000000E+01/
DATA (GC( 7, 4 ,JC),JC=1,3) / &
& 0.20531846E-01, 0.68893550E+00, 0.00000000E+00/
DATA (GD( 7, 4 ,JC),JC=1,3) / &
& 0.20531846E-01, 0.68924241E+00, 0.10000000E+01/
1590: !
!----- INTERVAL = n2o-b3 ---- BLACKBODY TEMP.INDEX = 8
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 26 27 42
! FOR DB-TERMS : 1 26 27 41
1595: DATA (GC( 8, 3,JC),JC=1,3) / &
& 0.23392715E-01, 0.81655922E+00, 0.00000000E+00/
DATA (GD( 8, 3,JC),JC=1,3) / &
& 0.23392715E-01, 0.81679931E+00, 0.10000000E+01/
DATA (GC( 8, 4 ,JC),JC=1,3) / &
1600: & 0.19086793E-01, 0.65775523E+00, 0.00000000E+00/
DATA (GD( 8, 4 ,JC),JC=1,3) / &
& 0.19086793E-01, 0.65798897E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b3 ---- BLACKBODY TEMP.INDEX = 9
1605: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 25 30 47
! FOR DB-TERMS : 1 21 41 45
DATA (GC( 9, 3,JC),JC=1,3) / &
& 0.21617179E-01, 0.78591446E+00, 0.00000000E+00/
1610: DATA (GD( 9, 3,JC),JC=1,3) / &
& 0.21617179E-01, 0.78617797E+00, 0.10000000E+01/
DATA (GC( 9, 4 ,JC),JC=1,3) / &
& 0.18606327E-01, 0.62453485E+00, 0.00000000E+00/
DATA (GD( 9, 4 ,JC),JC=1,3) / &
1615: & 0.18606327E-01, 0.62489373E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b3 ---- BLACKBODY TEMP.INDEX = 10
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 27 41 47
1620: ! FOR DB-TERMS : 1 31 41 45
DATA (GC(10, 3,JC),JC=1,3) / &
& 0.20998946E-01, 0.74651196E+00, 0.00000000E+00/
DATA (GD(10, 3,JC),JC=1,3) / &
& 0.20998946E-01, 0.74674119E+00, 0.10000000E+01/
1625: DATA (GC(10, 4 ,JC),JC=1,3) / &
& 0.18206572E-01, 0.59682953E+00, 0.00000000E+00/
DATA (GD(10, 4 ,JC),JC=1,3) / &
& 0.18206572E-01, 0.59731758E+00, 0.10000000E+01/
!
1630: !----- INTERVAL = n2o-b3 ---- BLACKBODY TEMP.INDEX = 11
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 24 30 42
! FOR DB-TERMS : 1 33 41 45
DATA (GC(11, 3,JC),JC=1,3) / &
1635: & 0.20948452E-01, 0.70369063E+00, 0.00000000E+00/
DATA (GD(11, 3,JC),JC=1,3) / &
& 0.20948452E-01, 0.70399765E+00, 0.10000000E+01/
DATA (GC(11, 4 ,JC),JC=1,3) / &
& 0.18080221E-01, 0.57103958E+00, 0.00000000E+00/
1640: DATA (GD(11, 4 ,JC),JC=1,3) / &
& 0.18080221E-01, 0.57176163E+00, 0.10000000E+01/
!
!
!----- INTERVAL = n2o-b6 ---- BLACKBODY TEMP.INDEX = 1
1645: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 41 45 47
! FOR DB-TERMS : 1 41 45 47
DATA (GC( 1, 5,JC),JC=1,3) / &
& -0.89512102E-02, 0.64782303E-01, 0.00000000E+00/
1650: DATA (GD( 1, 5,JC),JC=1,3) / &
& -0.89512102E-02,-0.58084472E-01, 0.10000000E+01/
DATA (GC( 1, 6 ,JC),JC=1,3) / &
& -0.10050789E-01, 0.63773373E-01, 0.00000000E+00/
DATA (GD( 1, 6 ,JC),JC=1,3) / &
1655: & -0.10050789E-01,-0.67187898E-01, 0.10000000E+01/
!
!----- INTERVAL = n2o-b6 ---- BLACKBODY TEMP.INDEX = 2
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 41 45 47
1660: ! FOR DB-TERMS : 1 41 45 47
DATA (GC( 2, 5,JC),JC=1,3) / &
& -0.96961812E-02, 0.64054051E-01, 0.00000000E+00/
DATA (GD( 2, 5,JC),JC=1,3) / &
& -0.96961812E-02,-0.64506366E-01, 0.10000000E+01/
1665: DATA (GC( 2, 6 ,JC),JC=1,3) / &
& -0.10964687E-01, 0.61982079E-01, 0.00000000E+00/
DATA (GD( 2, 6 ,JC),JC=1,3) / &
& -0.10964687E-01,-0.75555191E-01, 0.10000000E+01/
!
1670: !----- INTERVAL = n2o-b6 ---- BLACKBODY TEMP.INDEX = 3
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 41 45 47
! FOR DB-TERMS : 1 41 45 47
DATA (GC( 3, 5,JC),JC=1,3) / &
1675: & -0.10448851E-01, 0.62933617E-01, 0.00000000E+00/
DATA (GD( 3, 5,JC),JC=1,3) / &
& -0.10448851E-01,-0.71064711E-01, 0.10000000E+01/
DATA (GC( 3, 6 ,JC),JC=1,3) / &
& -0.11928562E-01, 0.59337770E-01, 0.00000000E+00/
1680: DATA (GD( 3, 6 ,JC),JC=1,3) / &
& -0.11928562E-01,-0.84893540E-01, 0.10000000E+01/
!
!----- INTERVAL = n2o-b6 ---- BLACKBODY TEMP.INDEX = 4
!
1685: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 41 45 47
! FOR DB-TERMS : 1 41 45 47
DATA (GC( 4, 5,JC),JC=1,3) / &
& -0.11217644E-01, 0.61238545E-01, 0.00000000E+00/
DATA (GD( 4, 5,JC),JC=1,3) / &
1690: & -0.11217644E-01,-0.78197268E-01, 0.10000000E+01/
DATA (GC( 4, 6 ,JC),JC=1,3) / &
& -0.12962173E-01, 0.55562740E-01, 0.00000000E+00/
DATA (GD( 4, 6 ,JC),JC=1,3) / &
& -0.12962173E-01,-0.95770224E-01, 0.10000000E+01/
1695: !
!----- INTERVAL = n2o-b6 ---- BLACKBODY TEMP.INDEX = 5
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 41 45 47
! FOR DB-TERMS : 1 41 45 47
1700: DATA (GC( 5, 5,JC),JC=1,3) / &
& -0.12027731E-01, 0.58817555E-01, 0.00000000E+00/
DATA (GD( 5, 5,JC),JC=1,3) / &
& -0.12027731E-01,-0.86304911E-01, 0.10000000E+01/
DATA (GC( 5, 6 ,JC),JC=1,3) / &
1705: & -0.14086024E-01, 0.50386725E-01, 0.00000000E+00/
DATA (GD( 5, 6 ,JC),JC=1,3) / &
& -0.14086024E-01,-0.10867349E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b6 ---- BLACKBODY TEMP.INDEX = 6
1710: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 41 45 47
! FOR DB-TERMS : 1 41 45 47
DATA (GC( 6, 5,JC),JC=1,3) / &
& -0.12890580E-01, 0.55558631E-01, 0.00000000E+00/
1715: DATA (GD( 6, 5,JC),JC=1,3) / &
& -0.12890580E-01,-0.95599155E-01, 0.10000000E+01/
DATA (GC( 6, 6 ,JC),JC=1,3) / &
& -0.15315409E-01, 0.43554223E-01, 0.00000000E+00/
DATA (GD( 6, 6 ,JC),JC=1,3) / &
1720: & -0.15315409E-01,-0.12400394E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b6 ---- BLACKBODY TEMP.INDEX = 7
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 41 45 47
1725: ! FOR DB-TERMS : 1 41 45 47
DATA (GC( 7, 5,JC),JC=1,3) / &
& -0.13810412E-01, 0.51373305E-01, 0.00000000E+00/
DATA (GD( 7, 5,JC),JC=1,3) / &
& -0.13810412E-01,-0.10620674E+00, 0.10000000E+01/
1730: DATA (GC( 7, 6 ,JC),JC=1,3) / &
& -0.16663998E-01, 0.34808349E-01, 0.00000000E+00/
DATA (GD( 7, 6 ,JC),JC=1,3) / &
& -0.16663998E-01,-0.14214335E+00, 0.10000000E+01/
!
1735: !----- INTERVAL = n2o-b6 ---- BLACKBODY TEMP.INDEX = 8
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 41 45 47
! FOR DB-TERMS : 1 41 45 47
DATA (GC( 8, 5,JC),JC=1,3) / &
1740: & -0.14790084E-01, 0.46178468E-01, 0.00000000E+00/
DATA (GD( 8, 5,JC),JC=1,3) / &
& -0.14790084E-01,-0.11824259E+00, 0.10000000E+01/
DATA (GC( 8, 6 ,JC),JC=1,3) / &
& -0.18147247E-01, 0.23871385E-01, 0.00000000E+00/
1745: DATA (GD( 8, 6 ,JC),JC=1,3) / &
& -0.18147247E-01,-0.16351002E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b6 ---- BLACKBODY TEMP.INDEX = 9
!
1750: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 41 45 47
! FOR DB-TERMS : 1 41 45 47
DATA (GC( 9, 5,JC),JC=1,3) / &
& -0.15833929E-01, 0.39881650E-01, 0.00000000E+00/
DATA (GD( 9, 5,JC),JC=1,3) / &
1755: & -0.15833929E-01,-0.13184645E+00, 0.10000000E+01/
DATA (GC( 9, 6 ,JC),JC=1,3) / &
& -0.19784980E-01, 0.10423934E-01, 0.00000000E+00/
DATA (GD( 9, 6 ,JC),JC=1,3) / &
& -0.19784980E-01,-0.18860258E+00, 0.10000000E+01/
1760: !
!----- INTERVAL = n2o-b6 ---- BLACKBODY TEMP.INDEX = 10
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 41 45 47
! FOR DB-TERMS : 1 41 45 47
1765: DATA (GC(10, 5,JC),JC=1,3) / &
& -0.16948965E-01, 0.32369204E-01, 0.00000000E+00/
DATA (GD(10, 5,JC),JC=1,3) / &
& -0.16948965E-01,-0.14720222E+00, 0.10000000E+01/
DATA (GC(10, 6 ,JC),JC=1,3) / &
1770: & -0.21603730E-01,-0.59196988E-02, 0.00000000E+00/
DATA (GD(10, 6 ,JC),JC=1,3) / &
& -0.21603730E-01,-0.21804364E+00, 0.10000000E+01/
!
!----- INTERVAL = n2o-b6 ---- BLACKBODY TEMP.INDEX = 11
1775: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 41 45 47
! FOR DB-TERMS : 1 41 45 47
DATA (GC(11, 5,JC),JC=1,3) / &
& -0.18145483E-01, 0.23495639E-01, 0.00000000E+00/
1780: DATA (GD(11, 5,JC),JC=1,3) / &
& -0.18145483E-01,-0.16455201E+00, 0.10000000E+01/
DATA (GC(11, 6 ,JC),JC=1,3) / &
& -0.23639475E-01,-0.25643701E-01, 0.00000000E+00/
DATA (GD(11, 6 ,JC),JC=1,3) / &
1785: & -0.23639475E-01,-0.25263391E+00, 0.10000000E+01/
!
! end of n2o
!
!-----------------------------------------------------
1790: !
! Pade-coefficients for ch4
! - HITRAN91
! - Lorentzian line shape
! - up-domain : pmax=1000hPa , uh2omax=1.e-02 g/cm^2
1795: ! pmin=1hPa , uh2omin=1.e-11 g/cm^2
! - fiu = 1.0
!-----------------------------------------------------
!
!
1800: !----- INTERVAL = ch4-b3 ---- BLACKBODY TEMP.INDEX = 1
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 22 36 44
! FOR DB-TERMS : 1 21 36 44
DATA (GC( 1, 7,JC),JC=1,3) / &
1805: & 0.29464185E-01, 0.37639584E+01, 0.00000000E+00/
DATA (GD( 1, 7,JC),JC=1,3) / &
& 0.29464185E-01, 0.37640338E+01, 0.10000000E+01/
DATA (GC( 1, 8 ,JC),JC=1,3) / &
& 0.22137054E-01, 0.28259932E+01, 0.00000000E+00/
1810: DATA (GD( 1, 8 ,JC),JC=1,3) / &
& 0.22137054E-01, 0.28260773E+01, 0.10000000E+01/
!
!----- INTERVAL = ch4-b3 ---- BLACKBODY TEMP.INDEX = 2
!
1815: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 22 36 44
! FOR DB-TERMS : 1 18 36 44
DATA (GC( 2, 7,JC),JC=1,3) / &
& 0.25429868E-01, 0.32586303E+01, 0.00000000E+00/
DATA (GD( 2, 7,JC),JC=1,3) / &
1820: & 0.25429868E-01, 0.32587045E+01, 0.10000000E+01/
DATA (GC( 2, 8 ,JC),JC=1,3) / &
& 0.19565401E-01, 0.24583620E+01, 0.00000000E+00/
DATA (GD( 2, 8 ,JC),JC=1,3) / &
& 0.19565401E-01, 0.24584847E+01, 0.10000000E+01/
1825: !
!----- INTERVAL = ch4-b3 ---- BLACKBODY TEMP.INDEX = 3
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 22 36 44
! FOR DB-TERMS : 1 19 25 44
1830: DATA (GC( 3, 7,JC),JC=1,3) / &
& 0.22376682E-01, 0.28743247E+01, 0.00000000E+00/
DATA (GD( 3, 7,JC),JC=1,3) / &
& 0.22376682E-01, 0.28743978E+01, 0.10000000E+01/
DATA (GC( 3, 8 ,JC),JC=1,3) / &
1835: & 0.17604811E-01, 0.21756911E+01, 0.00000000E+00/
DATA (GD( 3, 8 ,JC),JC=1,3) / &
& 0.17604811E-01, 0.21758105E+01, 0.10000000E+01/
!
!----- INTERVAL = ch4-b3 ---- BLACKBODY TEMP.INDEX = 4
1840: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 24 36 44
! FOR DB-TERMS : 1 19 25 44
DATA (GC( 4, 7,JC),JC=1,3) / &
& 0.20195231E-01, 0.25737121E+01, 0.00000000E+00/
1845: DATA (GD( 4, 7,JC),JC=1,3) / &
& 0.20195231E-01, 0.25738055E+01, 0.10000000E+01/
DATA (GC( 4, 8 ,JC),JC=1,3) / &
& 0.15831758E-01, 0.19654453E+01, 0.00000000E+00/
DATA (GD( 4, 8 ,JC),JC=1,3) / &
1850: & 0.15831758E-01, 0.19655635E+01, 0.10000000E+01/
!
!----- INTERVAL = ch4-b3 ---- BLACKBODY TEMP.INDEX = 5
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 17 36 44
1855: ! FOR DB-TERMS : 1 22 37 44
DATA (GC( 5, 7,JC),JC=1,3) / &
& 0.18572760E-01, 0.23349538E+01, 0.00000000E+00/
DATA (GD( 5, 7,JC),JC=1,3) / &
& 0.18572760E-01, 0.23350794E+01, 0.10000000E+01/
1860: DATA (GC( 5, 8 ,JC),JC=1,3) / &
& 0.14793668E-01, 0.17856426E+01, 0.00000000E+00/
DATA (GD( 5, 8 ,JC),JC=1,3) / &
& 0.14793668E-01, 0.17857195E+01, 0.10000000E+01/
!
1865: !----- INTERVAL = ch4-b3 ---- BLACKBODY TEMP.INDEX = 6
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 19 25 44
! FOR DB-TERMS : 1 22 37 44
DATA (GC( 6, 7,JC),JC=1,3) / &
1870: & 0.17264791E-01, 0.21401711E+01, 0.00000000E+00/
DATA (GD( 6, 7,JC),JC=1,3) / &
& 0.17264791E-01, 0.21402898E+01, 0.10000000E+01/
DATA (GC( 6, 8 ,JC),JC=1,3) / &
& 0.13683359E-01, 0.16525766E+01, 0.00000000E+00/
1875: DATA (GD( 6, 8 ,JC),JC=1,3) / &
& 0.13683359E-01, 0.16526528E+01, 0.10000000E+01/
!
!----- INTERVAL = ch4-b3 ---- BLACKBODY TEMP.INDEX = 7
!
1880: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 19 25 44
! FOR DB-TERMS : 1 21 37 44
DATA (GC( 7, 7,JC),JC=1,3) / &
& 0.15986069E-01, 0.19880818E+01, 0.00000000E+00/
DATA (GD( 7, 7,JC),JC=1,3) / &
1885: & 0.15986069E-01, 0.19881996E+01, 0.10000000E+01/
DATA (GC( 7, 8 ,JC),JC=1,3) / &
& 0.12824018E-01, 0.15429550E+01, 0.00000000E+00/
DATA (GD( 7, 8 ,JC),JC=1,3) / &
& 0.12824018E-01, 0.15430411E+01, 0.10000000E+01/
1890: !
!----- INTERVAL = ch4-b3 ---- BLACKBODY TEMP.INDEX = 8
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 11 36 44
! FOR DB-TERMS : 1 16 37 44
1895: DATA (GC( 8, 7,JC),JC=1,3) / &
& 0.15319848E-01, 0.18563971E+01, 0.00000000E+00/
DATA (GD( 8, 7,JC),JC=1,3) / &
& 0.15319848E-01, 0.18566095E+01, 0.10000000E+01/
DATA (GC( 8, 8 ,JC),JC=1,3) / &
1900: & 0.12262147E-01, 0.14492369E+01, 0.00000000E+00/
DATA (GD( 8, 8 ,JC),JC=1,3) / &
& 0.12262147E-01, 0.14493686E+01, 0.10000000E+01/
!
!----- INTERVAL = ch4-b3 ---- BLACKBODY TEMP.INDEX = 9
1905: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 18 25 37
! FOR DB-TERMS : 1 14 37 44
DATA (GC( 9, 7,JC),JC=1,3) / &
& 0.14619582E-01, 0.17432285E+01, 0.00000000E+00/
1910: DATA (GD( 9, 7,JC),JC=1,3) / &
& 0.14619582E-01, 0.17433546E+01, 0.10000000E+01/
DATA (GC( 9, 8 ,JC),JC=1,3) / &
& 0.11748640E-01, 0.13710932E+01, 0.00000000E+00/
DATA (GD( 9, 8 ,JC),JC=1,3) / &
1915: & 0.11748640E-01, 0.13712573E+01, 0.10000000E+01/
!
!----- INTERVAL = ch4-b3 ---- BLACKBODY TEMP.INDEX = 10
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 22 37 44
1920: ! FOR DB-TERMS : 1 21 23 44
DATA (GC(10, 7,JC),JC=1,3) / &
& 0.13651472E-01, 0.16509688E+01, 0.00000000E+00/
DATA (GD(10, 7,JC),JC=1,3) / &
& 0.13651472E-01, 0.16510447E+01, 0.10000000E+01/
1925: DATA (GC(10, 8 ,JC),JC=1,3) / &
& 0.11222906E-01, 0.13019230E+01, 0.00000000E+00/
DATA (GD(10, 8 ,JC),JC=1,3) / &
& 0.11222906E-01, 0.13020118E+01, 0.10000000E+01/
!
1930: !----- INTERVAL = ch4-b3 ---- BLACKBODY TEMP.INDEX = 11
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 22 37 44
! FOR DB-TERMS : 1 21 23 44
DATA (GC(11, 7,JC),JC=1,3) / &
1935: & 0.13007159E-01, 0.15734685E+01, 0.00000000E+00/
DATA (GD(11, 7,JC),JC=1,3) / &
& 0.13007159E-01, 0.15735440E+01, 0.10000000E+01/
DATA (GC(11, 8 ,JC),JC=1,3) / &
& 0.10732079E-01, 0.12474356E+01, 0.00000000E+00/
1940: DATA (GD(11, 8 ,JC),JC=1,3) / &
& 0.10732079E-01, 0.12475238E+01, 0.10000000E+01/
!
!
!----- INTERVAL = ch4-b6 ---- BLACKBODY TEMP.INDEX = 1
1945: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 35 41 46
! FOR DB-TERMS : 1 36 40 44
DATA (GC( 1, 9,JC),JC=1,3) / &
& 0.64902259E-03, 0.48202086E-01, 0.00000000E+00/
1950: DATA (GD( 1, 9,JC),JC=1,3) / &
& 0.64902259E-03, 0.52031722E-01, 0.10000000E+01/
DATA (GC( 1,10 ,JC),JC=1,3) / &
& 0.52372873E-03, 0.54668241E-01, 0.00000000E+00/
DATA (GD( 1,10 ,JC),JC=1,3) / &
1955: & 0.52372873E-03, 0.57416420E-01, 0.10000000E+01/
!
!----- INTERVAL = ch4-b6 ---- BLACKBODY TEMP.INDEX = 2
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 35 41 44
1960: ! FOR DB-TERMS : 1 33 39 43
DATA (GC( 2, 9,JC),JC=1,3) / &
& 0.56638862E-03, 0.52856282E-01, 0.00000000E+00/
DATA (GD( 2, 9,JC),JC=1,3) / &
& 0.56638862E-03, 0.55911306E-01, 0.10000000E+01/
1965: DATA (GC( 2,10 ,JC),JC=1,3) / &
& 0.40650739E-03, 0.60072414E-01, 0.00000000E+00/
DATA (GD( 2,10 ,JC),JC=1,3) / &
& 0.40650739E-03, 0.61654792E-01, 0.10000000E+01/
!
1970: !----- INTERVAL = ch4-b6 ---- BLACKBODY TEMP.INDEX = 3
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 34 39 44
! FOR DB-TERMS : 1 29 37 43
DATA (GC( 3, 9,JC),JC=1,3) / &
1975: & 0.44321519E-03, 0.57370743E-01, 0.00000000E+00/
DATA (GD( 3, 9,JC),JC=1,3) / &
& 0.44321519E-03, 0.59301810E-01, 0.10000000E+01/
DATA (GC( 3,10 ,JC),JC=1,3) / &
& 0.28870585E-03, 0.65595062E-01, 0.00000000E+00/
1980: DATA (GD( 3,10 ,JC),JC=1,3) / &
& 0.28870585E-03, 0.66181180E-01, 0.10000000E+01/
!
!----- INTERVAL = ch4-b6 ---- BLACKBODY TEMP.INDEX = 4
!
1985: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 32 38 43
! FOR DB-TERMS : 1 24 36 42
DATA (GC( 4, 9,JC),JC=1,3) / &
& 0.37006167E-03, 0.61893826E-01, 0.00000000E+00/
DATA (GD( 4, 9,JC),JC=1,3) / &
1990: & 0.37006167E-03, 0.63167713E-01, 0.10000000E+01/
DATA (GC( 4,10 ,JC),JC=1,3) / &
& 0.22299865E-03, 0.71759852E-01, 0.00000000E+00/
DATA (GD( 4,10 ,JC),JC=1,3) / &
& 0.22299865E-03, 0.71887766E-01, 0.10000000E+01/
1995: !
!----- INTERVAL = ch4-b6 ---- BLACKBODY TEMP.INDEX = 5
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 30 37 46
! FOR DB-TERMS : 1 19 34 46
2000: DATA (GC( 5, 9,JC),JC=1,3) / &
& 0.29802424E-03, 0.66439763E-01, 0.00000000E+00/
DATA (GD( 5, 9,JC),JC=1,3) / &
& 0.29802424E-03, 0.67104773E-01, 0.10000000E+01/
DATA (GC( 5,10 ,JC),JC=1,3) / &
2005: & 0.18785629E-03, 0.78563435E-01, 0.00000000E+00/
DATA (GD( 5,10 ,JC),JC=1,3) / &
& 0.18785629E-03, 0.78581061E-01, 0.10000000E+01/
!
!----- INTERVAL = ch4-b6 ---- BLACKBODY TEMP.INDEX = 6
2010: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 8 25 42
! FOR DB-TERMS : 1 20 31 41
DATA (GC( 6, 9,JC),JC=1,3) / &
& 0.22263884E-03, 0.72068594E-01, 0.00000000E+00/
2015: DATA (GD( 6, 9,JC),JC=1,3) / &
& 0.22263884E-03, 0.72225239E-01, 0.10000000E+01/
DATA (GC( 6,10 ,JC),JC=1,3) / &
& 0.16153944E-03, 0.85576470E-01, 0.00000000E+00/
DATA (GD( 6,10 ,JC),JC=1,3) / &
2020: & 0.16153944E-03, 0.85587415E-01, 0.10000000E+01/
!
!----- INTERVAL = ch4-b6 ---- BLACKBODY TEMP.INDEX = 7
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 19 34 46
2025: ! FOR DB-TERMS : 1 4 23 29
DATA (GC( 7, 9,JC),JC=1,3) / &
& 0.18772379E-03, 0.77735508E-01, 0.00000000E+00/
DATA (GD( 7, 9,JC),JC=1,3) / &
& 0.18772379E-03, 0.77753272E-01, 0.10000000E+01/
2030: DATA (GC( 7,10 ,JC),JC=1,3) / &
& 0.13858688E-03, 0.93476296E-01, 0.00000000E+00/
DATA (GD( 7,10 ,JC),JC=1,3) / &
& 0.13858688E-03, 0.93496851E-01, 0.10000000E+01/
!
2035: !----- INTERVAL = ch4-b6 ---- BLACKBODY TEMP.INDEX = 8
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 19 32 41
! FOR DB-TERMS : 1 16 22 29
DATA (GC( 8, 9,JC),JC=1,3) / &
2040: & 0.16984639E-03, 0.83445077E-01, 0.00000000E+00/
DATA (GD( 8, 9,JC),JC=1,3) / &
& 0.16984639E-03, 0.83458086E-01, 0.10000000E+01/
DATA (GC( 8,10 ,JC),JC=1,3) / &
& 0.14104318E-03, 0.10264081E+00, 0.00000000E+00/
2045: DATA (GD( 8,10 ,JC),JC=1,3) / &
& 0.14104318E-03, 0.10265283E+00, 0.10000000E+01/
!
!----- INTERVAL = ch4-b6 ---- BLACKBODY TEMP.INDEX = 9
!
2050: !-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 2 23 29
! FOR DB-TERMS : 1 41 46 47
DATA (GC( 9, 9,JC),JC=1,3) / &
& 0.13542275E-03, 0.90576480E-01, 0.00000000E+00/
DATA (GD( 9, 9,JC),JC=1,3) / &
2055: & 0.13542275E-03, 0.90597167E-01, 0.10000000E+01/
DATA (GC( 9,10 ,JC),JC=1,3) / &
& -0.11919339E-01, 0.11446734E+00, 0.00000000E+00/
DATA (GD( 9,10 ,JC),JC=1,3) / &
& -0.11919339E-01, 0.10669153E-01, 0.10000000E+01/
2060: !
!----- INTERVAL = ch4-b6 ---- BLACKBODY TEMP.INDEX = 10
!
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 16 23 27
! FOR DB-TERMS : 1 41 46 47
2065: DATA (GC(10, 9,JC),JC=1,3) / &
& 0.12547077E-03, 0.97230912E-01, 0.00000000E+00/
DATA (GD(10, 9,JC),JC=1,3) / &
& 0.12547077E-03, 0.97241200E-01, 0.10000000E+01/
DATA (GC(10,10 ,JC),JC=1,3) / &
2070: & -0.13952451E-01, 0.12014451E+00, 0.00000000E+00/
DATA (GD(10,10 ,JC),JC=1,3) / &
& -0.13952451E-01, 0.59695502E-02, 0.10000000E+01/
!
!----- INTERVAL = ch4-b6 ---- BLACKBODY TEMP.INDEX = 11
2075: !
!-- INDICES FOR PADE APPROXIMATION: FOR B-TERMS : 1 16 22 29
! FOR DB-TERMS : 1 41 46 47
DATA (GC(11, 9,JC),JC=1,3) / &
& 0.14192013E-03, 0.10317147E+00, 0.00000000E+00/
2080: DATA (GD(11, 9,JC),JC=1,3) / &
& 0.14192013E-03, 0.10318350E+00, 0.10000000E+01/
DATA (GC(11,10 ,JC),JC=1,3) / &
& -0.16167840E-01, 0.12529108E+00, 0.00000000E+00/
DATA (GD(11,10 ,JC),JC=1,3) / &
2085: & -0.16167840E-01, 0.10186976E-02, 0.10000000E+01/
!
!
! end of ch4
!
2090:
END MODULE mo_longwave
Info Section
back to top
ECHAM 4 vf90 (C) 1998 Max-Planck-Institut für Meteorologie, Hamburg
Wed Nov 24 01:25:21 CST 1999
HTML derived from FORTRAN source by f2html.pl v0.3 (C) 1997,98 Beroud Jean-Marc.