36 |
INTEGER KNU ! INDEX OF THE SPECTRAL INTERVAL |
INTEGER KNU ! INDEX OF THE SPECTRAL INTERVAL |
37 |
INTEGER KABS ! NUMBER OF ABSORBERS |
INTEGER KABS ! NUMBER OF ABSORBERS |
38 |
INTEGER KIND(KABS) ! INDICES OF THE ABSORBERS |
INTEGER KIND(KABS) ! INDICES OF THE ABSORBERS |
39 |
REAL*8 PU(KDLON,KABS) ! ABSORBER AMOUNT |
DOUBLE PRECISION PU(KDLON,KABS) ! ABSORBER AMOUNT |
40 |
C |
C |
41 |
REAL*8 PTR(KDLON,KABS) ! TRANSMISSION FUNCTION |
DOUBLE PRECISION PTR(KDLON,KABS) ! TRANSMISSION FUNCTION |
42 |
C |
C |
43 |
C* LOCAL VARIABLES: |
C* LOCAL VARIABLES: |
44 |
C |
C |
45 |
REAL*8 ZR1(KDLON) |
DOUBLE PRECISION ZR1(KDLON) |
46 |
REAL*8 ZR2(KDLON) |
DOUBLE PRECISION ZR2(KDLON) |
47 |
REAL*8 ZU(KDLON) |
DOUBLE PRECISION ZU(KDLON) |
48 |
INTEGER jl, ja, i, j, ia |
INTEGER jl, ja, i, j, ia |
49 |
C |
C |
50 |
C* Prescribed Data: |
C* Prescribed Data: |
51 |
C |
C |
52 |
REAL*8 APAD(2,3,7), BPAD(2,3,7), D(2,3) |
DOUBLE PRECISION APAD(2,3,7), BPAD(2,3,7), D(2,3) |
53 |
SAVE APAD, BPAD, D |
SAVE APAD, BPAD, D |
54 |
DATA ((APAD(1,I,J),I=1,3),J=1,7) / |
DATA ((APAD(1,I,J),I=1,3),J=1,7) / |
55 |
S 0.912418292E+05, 0.000000000E-00, 0.925887084E-04, |
S 0.912418292E+05, 0.000000000E-00, 0.925887084E-04, |