15 |
|
|
16 |
implicit none |
implicit none |
17 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
18 |
|
#include "SIZE.h" |
19 |
|
#include "diagnostics_SIZE.h" |
20 |
#include "diagnostics.h" |
#include "diagnostics.h" |
21 |
#endif |
#endif |
22 |
|
|
46 |
c Local Variables |
c Local Variables |
47 |
c --------------- |
c --------------- |
48 |
integer i,j,L,nn,nsecf |
integer i,j,L,nn,nsecf |
49 |
integer nb2,ntmstp,nymd2,nhms2 |
integer ntmstp,nymd2,nhms2 |
50 |
real getcon,grav,cp,undef,pcheck |
real getcon,grav,cp,undef |
51 |
real ra,alf,reffw,reffi,tminv |
real ra,alf,reffw,reffi,tminv |
52 |
|
|
53 |
parameter ( reffw = 10.0 ) |
parameter ( reffw = 10.0 ) |
75 |
real TZL(ISTRIP,lm) |
real TZL(ISTRIP,lm) |
76 |
real OZL(ISTRIP,lm) |
real OZL(ISTRIP,lm) |
77 |
real PLE(ISTRIP,lm+1) |
real PLE(ISTRIP,lm+1) |
78 |
real OSZ(ISTRIP) |
real COSZ(ISTRIP) |
79 |
real dpstrip(ISTRIP,lm) |
real dpstrip(ISTRIP,lm) |
80 |
|
|
81 |
real albuvdr(ISTRIP),albuvdf(ISTRIP) |
real albuvdr(ISTRIP),albuvdf(ISTRIP) |
1033 |
|
|
1034 |
c-----include the pre-computed table for cai |
c-----include the pre-computed table for cai |
1035 |
|
|
1036 |
include 'cai.dat' |
#include "cai-dat.h" |
1037 |
save caib,caif |
# save caib,caif |
1038 |
|
|
1039 |
|
|
1040 |
c-----clouds within each of the high, middle, and low clouds are |
c-----clouds within each of the high, middle, and low clouds are |
2508 |
c******************************************************************** |
c******************************************************************** |
2509 |
c-----include co2 look-up table |
c-----include co2 look-up table |
2510 |
|
|
2511 |
include 'cah.dat' |
#include "cah-dat.h" |
2512 |
save cah |
# save cah |
2513 |
|
|
2514 |
c******************************************************************** |
c******************************************************************** |
2515 |
c-----table look-up for the reduction of clear-sky solar |
c-----table look-up for the reduction of clear-sky solar |