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

Diff of /trunk/libf/phylmd/Radlwsw/lwvd.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 37  C* ARGUMENTS: Line 37  C* ARGUMENTS:
37  C  C
38        INTEGER KUAER,KTRAER        INTEGER KUAER,KTRAER
39  C  C
40        REAL*8 PABCU(KDLON,NUA,3*KFLEV+1) ! ABSORBER AMOUNTS        DOUBLE PRECISION PABCU(KDLON,NUA,3*KFLEV+1) ! ABSORBER AMOUNTS
41        REAL*8 PDBDT(KDLON,Ninter,KFLEV) ! LAYER PLANCK FUNCTION GRADIENT        DOUBLE PRECISION PDBDT(KDLON,Ninter,KFLEV) ! LAYER PLANCK FUNCTION GRADIENT
42        REAL*8 PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS        DOUBLE PRECISION PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS
43        REAL*8 PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS        DOUBLE PRECISION PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS
44  C  C
45        REAL*8 PCNTRB(KDLON,KFLEV+1,KFLEV+1) ! ENERGY EXCHANGE MATRIX        DOUBLE PRECISION PCNTRB(KDLON,KFLEV+1,KFLEV+1) ! ENERGY EXCHANGE MATRIX
46        REAL*8 PDISD(KDLON,KFLEV+1) !  CONTRIBUTION BY DISTANT LAYERS        DOUBLE PRECISION PDISD(KDLON,KFLEV+1) !  CONTRIBUTION BY DISTANT LAYERS
47        REAL*8 PDISU(KDLON,KFLEV+1) !  CONTRIBUTION BY DISTANT LAYERS        DOUBLE PRECISION PDISU(KDLON,KFLEV+1) !  CONTRIBUTION BY DISTANT LAYERS
48  C  C
49  C* LOCAL VARIABLES:  C* LOCAL VARIABLES:
50  C  C
51        REAL*8 ZGLAYD(KDLON)        DOUBLE PRECISION ZGLAYD(KDLON)
52        REAL*8 ZGLAYU(KDLON)        DOUBLE PRECISION ZGLAYU(KDLON)
53        REAL*8 ZTT(KDLON,NTRA)        DOUBLE PRECISION ZTT(KDLON,NTRA)
54        REAL*8 ZTT1(KDLON,NTRA)        DOUBLE PRECISION ZTT1(KDLON,NTRA)
55        REAL*8 ZTT2(KDLON,NTRA)        DOUBLE PRECISION ZTT2(KDLON,NTRA)
56  C  C
57        INTEGER jl, jk, ja, ikp1, ikn, ikd1, jkj, ikd2        INTEGER jl, jk, ja, ikp1, ikn, ikd1, jkj, ikd2
58        INTEGER ikjp1, ikm1, ikj, jlk, iku1, ijkl, iku2        INTEGER ikjp1, ikm1, ikj, jlk, iku1, ijkl, iku2
59        INTEGER ind1, ind2, ind3, ind4, itt        INTEGER ind1, ind2, ind3, ind4, itt
60        REAL*8 zww, zdzxdg, zdzxmg        DOUBLE PRECISION zww, zdzxdg, zdzxmg
61  C  C
62  C*         1.    INITIALIZATION  C*         1.    INITIALIZATION
63  C                --------------  C                --------------
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21