| 284 |
|
) |
| 285 |
|
{ |
| 286 |
|
if (sundir[2] > 0) { |
| 287 |
< |
printf("void spectrum sunrad\n0\n0\n22 380 780 "); |
| 287 |
> |
printf("void spectrum sunrad\n0\n0\n22 390 770 "); |
| 288 |
|
int i; |
| 289 |
|
for (i = 0; i < NSSAMP; ++i) { |
| 290 |
|
printf("%.3f ", sun_radiance[i]); |
| 686 |
|
"res -n nproc -c ccover -l mie -L dirnorm_illum difhor_illum " |
| 687 |
|
"-g grefl -f outpath\n", |
| 688 |
|
argv[0]); |
| 689 |
< |
return 0; |
| 689 |
> |
return 1; |
| 690 |
|
} |
| 691 |
|
|
| 692 |
|
month = atoi(argv[1]); |
| 790 |
|
DATARRAY *mie_dp = getdata(mie_path); |
| 791 |
|
if (mie_dp == NULL) { |
| 792 |
|
fprintf(stderr, "Error reading mie data\n"); |
| 793 |
< |
return 0; |
| 793 |
> |
return 1; |
| 794 |
|
} |
| 795 |
|
clear_atmos.beta_m = mie_dp; |
| 796 |
|
|
| 813 |
|
printf("# Pre-computing...\n"); |
| 814 |
|
if (!precompute(sorder, clear_paths, &clear_atmos, num_threads)) { |
| 815 |
|
fprintf(stderr, "Pre-compute failed\n"); |
| 816 |
< |
return 0; |
| 816 |
> |
return 1; |
| 817 |
|
} |
| 818 |
|
} |
| 819 |
|
|
| 847 |
|
freedata(irrad_clear_dp); |
| 848 |
|
freedata(scat1m_clear_dp); |
| 849 |
|
|
| 850 |
< |
return 1; |
| 850 |
> |
return 0; |
| 851 |
|
} |