89 |
|
#include "color.h" |
90 |
|
#include "sun.h" |
91 |
|
|
92 |
< |
char *progname; /* Program name */ |
93 |
< |
char errmsg[128]; /* Error message buffer */ |
92 |
> |
char *progname; /* Program name */ |
93 |
|
const double DC_SolarConstantE = 1367.0; /* Solar constant W/m^2 */ |
94 |
|
const double DC_SolarConstantL = 127.5; /* Solar constant klux */ |
95 |
|
|
534 |
|
sunsfp, modsfp); |
535 |
|
continue; |
536 |
|
} |
537 |
+ |
if (!sun_in_sky && dir > (input==1 ? 20. : 20.*WHTEFFICACY)) |
538 |
+ |
fprintf(stderr, |
539 |
+ |
"%s: warning - unusually bright at %.1f on %d-%d\n", |
540 |
+ |
progname, hr, mo, da); |
541 |
|
/* convert measured values */ |
542 |
< |
if (dir_is_horiz && altitude > 0.) |
542 |
> |
if (dir_is_horiz && altitude > FTINY) |
543 |
|
dir /= sin(altitude); |
544 |
|
if (input == 1) { |
545 |
|
dir_irrad = dir; |