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

Diff of /trunk/libf/phylmd/Radlwsw/lwvn.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 38  C* ARGUMENTS: Line 38  C* ARGUMENTS:
38  C  C
39        INTEGER KUAER,KTRAER        INTEGER KUAER,KTRAER
40  C  C
41        REAL*8 PABCU(KDLON,NUA,3*KFLEV+1) ! ABSORBER AMOUNTS        DOUBLE PRECISION PABCU(KDLON,NUA,3*KFLEV+1) ! ABSORBER AMOUNTS
42        REAL*8 PDBSL(KDLON,Ninter,KFLEV*2) ! SUB-LAYER PLANCK FUNCTION GRADIENT        DOUBLE PRECISION PDBSL(KDLON,Ninter,KFLEV*2) ! SUB-LAYER PLANCK FUNCTION GRADIENT
43        REAL*8 PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS        DOUBLE PRECISION PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS
44        REAL*8 PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS        DOUBLE PRECISION PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS
45  C  C
46        REAL*8 PADJD(KDLON,KFLEV+1) ! CONTRIBUTION OF ADJACENT LAYERS        DOUBLE PRECISION PADJD(KDLON,KFLEV+1) ! CONTRIBUTION OF ADJACENT LAYERS
47        REAL*8 PADJU(KDLON,KFLEV+1) ! CONTRIBUTION OF ADJACENT LAYERS        DOUBLE PRECISION PADJU(KDLON,KFLEV+1) ! CONTRIBUTION OF ADJACENT LAYERS
48        REAL*8 PCNTRB(KDLON,KFLEV+1,KFLEV+1) ! CLEAR-SKY ENERGY EXCHANGE MATRIX        DOUBLE PRECISION PCNTRB(KDLON,KFLEV+1,KFLEV+1) ! CLEAR-SKY ENERGY EXCHANGE MATRIX
49        REAL*8 PDBDT(KDLON,Ninter,KFLEV) !  LAYER PLANCK FUNCTION GRADIENT        DOUBLE PRECISION PDBDT(KDLON,Ninter,KFLEV) !  LAYER PLANCK FUNCTION GRADIENT
50  C  C
51  C* LOCAL ARRAYS:  C* LOCAL ARRAYS:
52  C  C
53        REAL*8 ZGLAYD(KDLON)        DOUBLE PRECISION ZGLAYD(KDLON)
54        REAL*8 ZGLAYU(KDLON)        DOUBLE PRECISION ZGLAYU(KDLON)
55        REAL*8 ZTT(KDLON,NTRA)        DOUBLE PRECISION ZTT(KDLON,NTRA)
56        REAL*8 ZTT1(KDLON,NTRA)        DOUBLE PRECISION ZTT1(KDLON,NTRA)
57        REAL*8 ZTT2(KDLON,NTRA)        DOUBLE PRECISION ZTT2(KDLON,NTRA)
58        REAL*8 ZUU(KDLON,NUA)        DOUBLE PRECISION ZUU(KDLON,NUA)
59  C  C
60        INTEGER jk, jl, ja, im12, ind, inu, ixu, jg        INTEGER jk, jl, ja, im12, ind, inu, ixu, jg
61        INTEGER ixd, ibs, idd, imu, jk1, jk2, jnu        INTEGER ixd, ibs, idd, imu, jk1, jk2, jnu
62        REAL*8 zwtr        DOUBLE PRECISION zwtr
63  c  c
64  C* Data Block:  C* Data Block:
65  c  c
66        REAL*8 WG1(2)        DOUBLE PRECISION WG1(2)
67        SAVE WG1        SAVE WG1
68        DATA (WG1(jk),jk=1,2) /1.0, 1.0/        DATA (WG1(jk),jk=1,2) /1.0, 1.0/
69  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21