46 |
C |
C |
47 |
INTEGER KUAER,KTRAER, KLIM |
INTEGER KUAER,KTRAER, KLIM |
48 |
C |
C |
49 |
REAL*8 PABCU(KDLON,NUA,3*KFLEV+1) ! ABSORBER AMOUNTS |
DOUBLE PRECISION PABCU(KDLON,NUA,3*KFLEV+1) ! ABSORBER AMOUNTS |
50 |
REAL*8 PADJD(KDLON,KFLEV+1) ! CONTRIBUTION BY ADJACENT LAYERS |
DOUBLE PRECISION PADJD(KDLON,KFLEV+1) ! CONTRIBUTION BY ADJACENT LAYERS |
51 |
REAL*8 PADJU(KDLON,KFLEV+1) ! CONTRIBUTION BY ADJACENT LAYERS |
DOUBLE PRECISION PADJU(KDLON,KFLEV+1) ! CONTRIBUTION BY ADJACENT LAYERS |
52 |
REAL*8 PB(KDLON,Ninter,KFLEV+1) ! SPECTRAL HALF-LEVEL PLANCK FUNCTIONS |
DOUBLE PRECISION PB(KDLON,Ninter,KFLEV+1) ! SPECTRAL HALF-LEVEL PLANCK FUNCTIONS |
53 |
REAL*8 PBINT(KDLON,KFLEV+1) ! HALF-LEVEL PLANCK FUNCTIONS |
DOUBLE PRECISION PBINT(KDLON,KFLEV+1) ! HALF-LEVEL PLANCK FUNCTIONS |
54 |
REAL*8 PBSUR(KDLON,Ninter) ! SPECTRAL SURFACE PLANCK FUNCTION |
DOUBLE PRECISION PBSUR(KDLON,Ninter) ! SPECTRAL SURFACE PLANCK FUNCTION |
55 |
REAL*8 PBSUI(KDLON) ! SURFACE PLANCK FUNCTION |
DOUBLE PRECISION PBSUI(KDLON) ! SURFACE PLANCK FUNCTION |
56 |
REAL*8 PBTOP(KDLON,Ninter) ! SPECTRAL T.O.A. PLANCK FUNCTION |
DOUBLE PRECISION PBTOP(KDLON,Ninter) ! SPECTRAL T.O.A. PLANCK FUNCTION |
57 |
REAL*8 PDISD(KDLON,KFLEV+1) ! CONTRIBUTION BY DISTANT LAYERS |
DOUBLE PRECISION PDISD(KDLON,KFLEV+1) ! CONTRIBUTION BY DISTANT LAYERS |
58 |
REAL*8 PDISU(KDLON,KFLEV+1) ! CONTRIBUTION BY DISTANT LAYERS |
DOUBLE PRECISION PDISU(KDLON,KFLEV+1) ! CONTRIBUTION BY DISTANT LAYERS |
59 |
REAL*8 PEMIS(KDLON) ! SURFACE EMISSIVITY |
DOUBLE PRECISION PEMIS(KDLON) ! SURFACE EMISSIVITY |
60 |
REAL*8 PPMB(KDLON,KFLEV+1) ! PRESSURE MB |
DOUBLE PRECISION PPMB(KDLON,KFLEV+1) ! PRESSURE MB |
61 |
REAL*8 PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
62 |
REAL*8 PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
63 |
REAL*8 PGASUR(KDLON,8,2) ! SURFACE PADE APPROXIMANTS |
DOUBLE PRECISION PGASUR(KDLON,8,2) ! SURFACE PADE APPROXIMANTS |
64 |
REAL*8 PGBSUR(KDLON,8,2) ! SURFACE PADE APPROXIMANTS |
DOUBLE PRECISION PGBSUR(KDLON,8,2) ! SURFACE PADE APPROXIMANTS |
65 |
REAL*8 PGATOP(KDLON,8,2) ! T.O.A. PADE APPROXIMANTS |
DOUBLE PRECISION PGATOP(KDLON,8,2) ! T.O.A. PADE APPROXIMANTS |
66 |
REAL*8 PGBTOP(KDLON,8,2) ! T.O.A. PADE APPROXIMANTS |
DOUBLE PRECISION PGBTOP(KDLON,8,2) ! T.O.A. PADE APPROXIMANTS |
67 |
C |
C |
68 |
REAL*8 PFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES |
DOUBLE PRECISION PFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES |
69 |
REAL*8 PCTS(KDLON,KFLEV) ! COOLING-TO-SPACE TERM |
DOUBLE PRECISION PCTS(KDLON,KFLEV) ! COOLING-TO-SPACE TERM |
70 |
C |
C |
71 |
C* LOCAL VARIABLES: |
C* LOCAL VARIABLES: |
72 |
C |
C |
73 |
REAL*8 ZBGND(KDLON) |
DOUBLE PRECISION ZBGND(KDLON) |
74 |
REAL*8 ZFD(KDLON) |
DOUBLE PRECISION ZFD(KDLON) |
75 |
REAL*8 ZFN10(KDLON) |
DOUBLE PRECISION ZFN10(KDLON) |
76 |
REAL*8 ZFU(KDLON) |
DOUBLE PRECISION ZFU(KDLON) |
77 |
REAL*8 ZTT(KDLON,NTRA) |
DOUBLE PRECISION ZTT(KDLON,NTRA) |
78 |
REAL*8 ZTT1(KDLON,NTRA) |
DOUBLE PRECISION ZTT1(KDLON,NTRA) |
79 |
REAL*8 ZTT2(KDLON,NTRA) |
DOUBLE PRECISION ZTT2(KDLON,NTRA) |
80 |
REAL*8 ZUU(KDLON,NUA) |
DOUBLE PRECISION ZUU(KDLON,NUA) |
81 |
REAL*8 ZCNSOL(KDLON) |
DOUBLE PRECISION ZCNSOL(KDLON) |
82 |
REAL*8 ZCNTOP(KDLON) |
DOUBLE PRECISION ZCNTOP(KDLON) |
83 |
C |
C |
84 |
INTEGER jk, jl, ja |
INTEGER jk, jl, ja |
85 |
INTEGER jstra, jstru |
INTEGER jstra, jstru |
86 |
INTEGER ind1, ind2, ind3, ind4, in, jlim |
INTEGER ind1, ind2, ind3, ind4, in, jlim |
87 |
REAL*8 zctstr |
DOUBLE PRECISION zctstr |
88 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
89 |
C |
C |
90 |
C* 1. INITIALIZATION |
C* 1. INITIALIZATION |