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 ------------------------------------------------------------------ |