| 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 |
|
|
| 485 |
|
fprintf(stderr, "%s: %d sky patches\n", |
| 486 |
|
progname, nskypatch); |
| 487 |
|
if (sunsfp) |
| 488 |
< |
fprintf(stderr, "%s: outputting suns to file\n", |
| 489 |
< |
progname); |
| 488 |
> |
fprintf(stderr, "%s: outputting suns to %s\n", |
| 489 |
> |
progname, sunsfp==stdout ? "stdout" : "file"); |
| 490 |
|
if (rotation != 0) |
| 491 |
|
fprintf(stderr, "%s: rotating output %.0f degrees\n", |
| 492 |
|
progname, rotation); |
| 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; |
