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

Diff of /trunk/libf/phylmd/Radlwsw/lwtt.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 PUU(KDLON,NUA)        DOUBLE PRECISION PUU(KDLON,NUA)
48        REAL*8 PTT(KDLON,NTRA)        DOUBLE PRECISION PTT(KDLON,NTRA)
49        REAL*8 PGA(KDLON,8,2)        DOUBLE PRECISION PGA(KDLON,8,2)
50        REAL*8 PGB(KDLON,8,2)        DOUBLE PRECISION PGB(KDLON,8,2)
51  C  C
52  C* LOCAL VARIABLES:  C* LOCAL VARIABLES:
53  C  C
54        REAL*8 zz, zxd, zxn        DOUBLE PRECISION zz, zxd, zxn
55        REAL*8 zpu, zpu10, zpu11, zpu12, zpu13        DOUBLE PRECISION zpu, zpu10, zpu11, zpu12, zpu13
56        REAL*8 zeu, zeu10, zeu11, zeu12, zeu13        DOUBLE PRECISION zeu, zeu10, zeu11, zeu12, zeu13
57        REAL*8 zx, zy, zsq1, zsq2, zvxy, zuxy        DOUBLE PRECISION zx, zy, zsq1, zsq2, zvxy, zuxy
58        REAL*8 zaercn, zto1, zto2, zxch4, zych4, zxn2o, zyn2o        DOUBLE PRECISION zaercn, zto1, zto2, zxch4, zych4, zxn2o, zyn2o
59        REAL*8 zsqn21, zodn21, zsqh42, zodh42        DOUBLE PRECISION zsqn21, zodn21, zsqh42, zodh42
60        REAL*8 zsqh41, zodh41, zsqn22, zodn22, zttf11, zttf12        DOUBLE PRECISION zsqh41, zodh41, zsqn22, zodn22, zttf11, zttf12
61        REAL*8 zuu11, zuu12, za11, za12        DOUBLE PRECISION zuu11, zuu12, za11, za12
62        INTEGER jl, ja        INTEGER jl, ja
63  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
64  C  C
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21