54 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
55 |
C* ARGUMENTS: |
C* ARGUMENTS: |
56 |
INTEGER klim |
INTEGER klim |
57 |
REAL*8 PFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES |
DOUBLE PRECISION PFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES |
58 |
REAL*8 PBINT(KDLON,KFLEV+1) ! HALF LEVEL PLANCK FUNCTION |
DOUBLE PRECISION PBINT(KDLON,KFLEV+1) ! HALF LEVEL PLANCK FUNCTION |
59 |
REAL*8 PBSUIN(KDLON) ! SURFACE PLANCK FUNCTION |
DOUBLE PRECISION PBSUIN(KDLON) ! SURFACE PLANCK FUNCTION |
60 |
REAL*8 PCNTRB(KDLON,KFLEV+1,KFLEV+1) !CLEAR-SKY ENERGY EXCHANGE |
DOUBLE PRECISION PCNTRB(KDLON,KFLEV+1,KFLEV+1) !CLEAR-SKY ENERGY EXCHANGE |
61 |
REAL*8 PCTS(KDLON,KFLEV) ! CLEAR-SKY LAYER COOLING-TO-SPACE |
DOUBLE PRECISION PCTS(KDLON,KFLEV) ! CLEAR-SKY LAYER COOLING-TO-SPACE |
62 |
c |
c |
63 |
REAL*8 PCLDLD(KDLON,KFLEV) |
DOUBLE PRECISION PCLDLD(KDLON,KFLEV) |
64 |
REAL*8 PCLDLU(KDLON,KFLEV) |
DOUBLE PRECISION PCLDLU(KDLON,KFLEV) |
65 |
REAL*8 PEMIS(KDLON) |
DOUBLE PRECISION PEMIS(KDLON) |
66 |
C |
C |
67 |
REAL*8 PFLUX(KDLON,2,KFLEV+1) |
DOUBLE PRECISION PFLUX(KDLON,2,KFLEV+1) |
68 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
69 |
C* LOCAL VARIABLES: |
C* LOCAL VARIABLES: |
70 |
INTEGER IMX(KDLON), IMXP(KDLON) |
INTEGER IMX(KDLON), IMXP(KDLON) |
71 |
C |
C |
72 |
REAL*8 ZCLEAR(KDLON),ZCLOUD(KDLON),ZDNF(KDLON,KFLEV+1,KFLEV+1) |
DOUBLE PRECISION ZCLEAR(KDLON),ZCLOUD(KDLON) |
73 |
|
DOUBLE PRECISION ZDNF(KDLON,KFLEV+1,KFLEV+1) |
74 |
S , ZFD(KDLON), ZFN10(KDLON), ZFU(KDLON) |
S , ZFD(KDLON), ZFN10(KDLON), ZFU(KDLON) |
75 |
S , ZUPF(KDLON,KFLEV+1,KFLEV+1) |
S , ZUPF(KDLON,KFLEV+1,KFLEV+1) |
76 |
REAL*8 ZCLM(KDLON,KFLEV+1,KFLEV+1) |
DOUBLE PRECISION ZCLM(KDLON,KFLEV+1,KFLEV+1) |
77 |
C |
C |
78 |
INTEGER jk, jl, imaxc, imx1, imx2, jkj, jkp1, jkm1 |
INTEGER jk, jl, imaxc, imx1, imx2, jkj, jkp1, jkm1 |
79 |
INTEGER jk1, jk2, jkc, jkcp1, jcloud |
INTEGER jk1, jk2, jkc, jkcp1, jcloud |
80 |
INTEGER imxm1, imxp1 |
INTEGER imxm1, imxp1 |
81 |
REAL*8 zcfrac |
DOUBLE PRECISION zcfrac |
82 |
C ------------------------------------------------------------------ |
C ------------------------------------------------------------------ |
83 |
C |
C |
84 |
C* 1. INITIALIZATION |
C* 1. INITIALIZATION |