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

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

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

revision 70 by guez, Thu Jan 6 17:52:19 2011 UTC revision 71 by guez, Mon Jul 8 18:12:18 2013 UTC
# Line 42  C--------------------------------------- Line 42  C---------------------------------------
42  C* ARGUMENTS:  C* ARGUMENTS:
43        INTEGER KLIM        INTEGER KLIM
44  C  C
45        REAL*8 PDP(KDLON,KFLEV)        DOUBLE PRECISION PDP(KDLON,KFLEV)
46        REAL*8 PDT0(KDLON)        DOUBLE PRECISION PDT0(KDLON)
47        REAL*8 PEMIS(KDLON)        DOUBLE PRECISION PEMIS(KDLON)
48        REAL*8 PPMB(KDLON,KFLEV+1)        DOUBLE PRECISION PPMB(KDLON,KFLEV+1)
49        REAL*8 PTL(KDLON,KFLEV+1)        DOUBLE PRECISION PTL(KDLON,KFLEV+1)
50        REAL*8 PTAVE(KDLON,KFLEV)        DOUBLE PRECISION PTAVE(KDLON,KFLEV)
51  C  C
52        REAL*8 PFLUC(KDLON,2,KFLEV+1)        DOUBLE PRECISION PFLUC(KDLON,2,KFLEV+1)
53  C      C    
54        REAL*8 PABCU(KDLON,NUA,3*KFLEV+1)        DOUBLE PRECISION PABCU(KDLON,NUA,3*KFLEV+1)
55        REAL*8 PBINT(KDLON,KFLEV+1)        DOUBLE PRECISION PBINT(KDLON,KFLEV+1)
56        REAL*8 PBSUI(KDLON)        DOUBLE PRECISION PBSUI(KDLON)
57        REAL*8 PCTS(KDLON,KFLEV)        DOUBLE PRECISION PCTS(KDLON,KFLEV)
58        REAL*8 PCNTRB(KDLON,KFLEV+1,KFLEV+1)        DOUBLE PRECISION PCNTRB(KDLON,KFLEV+1,KFLEV+1)
59  C  C
60  C-------------------------------------------------------------------------  C-------------------------------------------------------------------------
61  C  C
62  C* LOCAL VARIABLES:  C* LOCAL VARIABLES:
63        REAL*8 ZB(KDLON,Ninter,KFLEV+1)        DOUBLE PRECISION ZB(KDLON,Ninter,KFLEV+1)
64        REAL*8 ZBSUR(KDLON,Ninter)        DOUBLE PRECISION ZBSUR(KDLON,Ninter)
65        REAL*8 ZBTOP(KDLON,Ninter)        DOUBLE PRECISION ZBTOP(KDLON,Ninter)
66        REAL*8 ZDBSL(KDLON,Ninter,KFLEV*2)        DOUBLE PRECISION ZDBSL(KDLON,Ninter,KFLEV*2)
67        REAL*8 ZGA(KDLON,8,2,KFLEV)        DOUBLE PRECISION ZGA(KDLON,8,2,KFLEV)
68        REAL*8 ZGB(KDLON,8,2,KFLEV)        DOUBLE PRECISION ZGB(KDLON,8,2,KFLEV)
69        REAL*8 ZGASUR(KDLON,8,2)        DOUBLE PRECISION ZGASUR(KDLON,8,2)
70        REAL*8 ZGBSUR(KDLON,8,2)        DOUBLE PRECISION ZGBSUR(KDLON,8,2)
71        REAL*8 ZGATOP(KDLON,8,2)        DOUBLE PRECISION ZGATOP(KDLON,8,2)
72        REAL*8 ZGBTOP(KDLON,8,2)        DOUBLE PRECISION ZGBTOP(KDLON,8,2)
73  C  C
74        INTEGER nuaer, ntraer        INTEGER nuaer, ntraer
75  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21