/[lmdze]/trunk/libf/phylmd/Radlwsw/swtt1.f
ViewVC logotype

Diff of /trunk/libf/phylmd/Radlwsw/swtt1.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 70 by guez, Wed Mar 3 13:23:49 2010 UTC revision 71 by guez, Mon Jul 8 18:12:18 2013 UTC
# Line 36  C Line 36  C
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,
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21