| Symbol | Description | Uses |
| sun1 | 7 |
| File | Line number | Procedure | Code |
| ./pkg/dic/insol.F | 37 | INSOL |
_RL lat, sun1, dayhrs |
| ./pkg/dic/insol.F | 60 | INSOL |
sun1 = -sin(delta)/cos(delta) * sin(lat)/cos(lat) |
| ./pkg/dic/insol.F | 61 | INSOL |
if (sun1.le.-0.999) sun1=-0.999 |
| ./pkg/dic/insol.F | 62 | INSOL |
if (sun1.ge. 0.999) sun1= 0.999 |
| ./pkg/dic/insol.F | 63 | INSOL |
dayhrs = abs(acos(sun1)) |