42 |
C* ARGUMENTS: |
C* ARGUMENTS: |
43 |
INTEGER KUAER,KTRAER, KLIM |
INTEGER KUAER,KTRAER, KLIM |
44 |
C |
C |
45 |
REAL*8 PABCU(KDLON,NUA,3*KFLEV+1) ! EFFECTIVE ABSORBER AMOUNTS |
DOUBLE PRECISION PABCU(KDLON,NUA,3*KFLEV+1) ! EFFECTIVE ABSORBER AMOUNTS |
46 |
REAL*8 PB(KDLON,Ninter,KFLEV+1) ! SPECTRAL HALF-LEVEL PLANCK FUNCTIONS |
DOUBLE PRECISION PB(KDLON,Ninter,KFLEV+1) ! SPECTRAL HALF-LEVEL PLANCK FUNCTIONS |
47 |
REAL*8 PBINT(KDLON,KFLEV+1) ! HALF-LEVEL PLANCK FUNCTIONS |
DOUBLE PRECISION PBINT(KDLON,KFLEV+1) ! HALF-LEVEL PLANCK FUNCTIONS |
48 |
REAL*8 PBSUR(KDLON,Ninter) ! SURFACE SPECTRAL PLANCK FUNCTION |
DOUBLE PRECISION PBSUR(KDLON,Ninter) ! SURFACE SPECTRAL PLANCK FUNCTION |
49 |
REAL*8 PBSUIN(KDLON) ! SURFACE PLANCK FUNCTION |
DOUBLE PRECISION PBSUIN(KDLON) ! SURFACE PLANCK FUNCTION |
50 |
REAL*8 PBTOP(KDLON,Ninter) ! T.O.A. SPECTRAL PLANCK FUNCTION |
DOUBLE PRECISION PBTOP(KDLON,Ninter) ! T.O.A. SPECTRAL PLANCK FUNCTION |
51 |
REAL*8 PDBSL(KDLON,Ninter,KFLEV*2) ! SUB-LAYER PLANCK FUNCTION GRADIENT |
DOUBLE PRECISION PDBSL(KDLON,Ninter,KFLEV*2) ! SUB-LAYER PLANCK FUNCTION GRADIENT |
52 |
REAL*8 PEMIS(KDLON) ! SURFACE EMISSIVITY |
DOUBLE PRECISION PEMIS(KDLON) ! SURFACE EMISSIVITY |
53 |
REAL*8 PPMB(KDLON,KFLEV+1) ! HALF-LEVEL PRESSURE (MB) |
DOUBLE PRECISION PPMB(KDLON,KFLEV+1) ! HALF-LEVEL PRESSURE (MB) |
54 |
REAL*8 PTAVE(KDLON,KFLEV) ! TEMPERATURE |
DOUBLE PRECISION PTAVE(KDLON,KFLEV) ! TEMPERATURE |
55 |
REAL*8 PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
56 |
REAL*8 PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
57 |
REAL*8 PGASUR(KDLON,8,2) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGASUR(KDLON,8,2) ! PADE APPROXIMANTS |
58 |
REAL*8 PGBSUR(KDLON,8,2) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGBSUR(KDLON,8,2) ! PADE APPROXIMANTS |
59 |
REAL*8 PGATOP(KDLON,8,2) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGATOP(KDLON,8,2) ! PADE APPROXIMANTS |
60 |
REAL*8 PGBTOP(KDLON,8,2) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGBTOP(KDLON,8,2) ! PADE APPROXIMANTS |
61 |
C |
C |
62 |
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 |
63 |
REAL*8 PCTS(KDLON,KFLEV) ! COOLING-TO-SPACE TERM |
DOUBLE PRECISION PCTS(KDLON,KFLEV) ! COOLING-TO-SPACE TERM |
64 |
REAL*8 PFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES |
DOUBLE PRECISION PFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES |
65 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
66 |
C LOCAL VARIABLES: |
C LOCAL VARIABLES: |
67 |
REAL*8 ZADJD(KDLON,KFLEV+1) |
DOUBLE PRECISION ZADJD(KDLON,KFLEV+1) |
68 |
REAL*8 ZADJU(KDLON,KFLEV+1) |
DOUBLE PRECISION ZADJU(KDLON,KFLEV+1) |
69 |
REAL*8 ZDBDT(KDLON,Ninter,KFLEV) |
DOUBLE PRECISION ZDBDT(KDLON,Ninter,KFLEV) |
70 |
REAL*8 ZDISD(KDLON,KFLEV+1) |
DOUBLE PRECISION ZDISD(KDLON,KFLEV+1) |
71 |
REAL*8 ZDISU(KDLON,KFLEV+1) |
DOUBLE PRECISION ZDISU(KDLON,KFLEV+1) |
72 |
C |
C |
73 |
INTEGER jk, jl |
INTEGER jk, jl |
74 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |