36 |
C ORIGINAL : 88-12-15 |
C ORIGINAL : 88-12-15 |
37 |
C |
C |
38 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
39 |
REAL*8 O1H, O2H |
DOUBLE PRECISION O1H, O2H |
40 |
PARAMETER (O1H=2230.) |
PARAMETER (O1H=2230.) |
41 |
PARAMETER (O2H=100.) |
PARAMETER (O2H=100.) |
42 |
REAL*8 RPIALF0 |
DOUBLE PRECISION RPIALF0 |
43 |
PARAMETER (RPIALF0=2.0) |
PARAMETER (RPIALF0=2.0) |
44 |
C |
C |
45 |
C* ARGUMENTS: |
C* ARGUMENTS: |
46 |
C |
C |
47 |
REAL*8 PGA(KDLON,8,2) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGA(KDLON,8,2) ! PADE APPROXIMANTS |
48 |
REAL*8 PGB(KDLON,8,2) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGB(KDLON,8,2) ! PADE APPROXIMANTS |
49 |
REAL*8 PUU1(KDLON,NUA) ! ABSORBER AMOUNTS FROM TOP TO LEVEL 1 |
DOUBLE PRECISION PUU1(KDLON,NUA) ! ABSORBER AMOUNTS FROM TOP TO LEVEL 1 |
50 |
REAL*8 PUU2(KDLON,NUA) ! ABSORBER AMOUNTS FROM TOP TO LEVEL 2 |
DOUBLE PRECISION PUU2(KDLON,NUA) ! ABSORBER AMOUNTS FROM TOP TO LEVEL 2 |
51 |
REAL*8 PTT(KDLON,NTRA) ! TRANSMISSION FUNCTIONS |
DOUBLE PRECISION PTT(KDLON,NTRA) ! TRANSMISSION FUNCTIONS |
52 |
C |
C |
53 |
C* LOCAL VARIABLES: |
C* LOCAL VARIABLES: |
54 |
C |
C |
55 |
INTEGER ja, jl |
INTEGER ja, jl |
56 |
REAL*8 zz, zxd, zxn |
DOUBLE PRECISION zz, zxd, zxn |
57 |
REAL*8 zpu, zpu10, zpu11, zpu12, zpu13 |
DOUBLE PRECISION zpu, zpu10, zpu11, zpu12, zpu13 |
58 |
REAL*8 zeu, zeu10, zeu11, zeu12, zeu13 |
DOUBLE PRECISION zeu, zeu10, zeu11, zeu12, zeu13 |
59 |
REAL*8 zx, zy, zuxy, zsq1, zsq2, zvxy, zaercn, zto1, zto2 |
DOUBLE PRECISION zx, zy, zuxy, zsq1, zsq2, zvxy, zaercn, zto1 |
60 |
REAL*8 zxch4, zych4, zsqh41, zodh41 |
DOUBLE PRECISION zto2 |
61 |
REAL*8 zxn2o, zyn2o, zsqn21, zodn21, zsqh42, zodh42 |
DOUBLE PRECISION zxch4, zych4, zsqh41, zodh41 |
62 |
REAL*8 zsqn22, zodn22, za11, zttf11, za12, zttf12 |
DOUBLE PRECISION zxn2o, zyn2o, zsqn21, zodn21, zsqh42, zodh42 |
63 |
REAL*8 zuu11, zuu12 |
DOUBLE PRECISION zsqn22, zodn22, za11, zttf11, za12, zttf12 |
64 |
|
DOUBLE PRECISION zuu11, zuu12 |
65 |
C ------------------------------------------------------------------ |
C ------------------------------------------------------------------ |
66 |
C |
C |
67 |
C* 1. HORNER'S ALGORITHM FOR H2O AND CO2 TRANSMISSION |
C* 1. HORNER'S ALGORITHM FOR H2O AND CO2 TRANSMISSION |