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

Diff of /trunk/libf/phylmd/Radlwsw/lwttm.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  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
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21