| Symbol | Description | Uses |
| sun1 | 14 |
| File | Line number | Procedure | Code |
| ./pkg/bling/bling_light.F | 129 | BLING_LIGHT |
sun1 = -sin(delta)/cos(delta) * sin(lat)/cos(lat) |
| ./pkg/bling/bling_light.F | 130 | BLING_LIGHT |
IF (sun1.LE.-0.999 _d 0) sun1=-0.999 _d 0 |
| ./pkg/bling/bling_light.F | 131 | BLING_LIGHT |
IF (sun1.GE. 0.999 _d 0) sun1= 0.999 _d 0 |
| ./pkg/bling/bling_light.F | 132 | BLING_LIGHT |
dayhrs = abs(acos(sun1)) |
| ./pkg/bling/bling_light.F | 70 | BLING_LIGHT |
_RL lat, sun1, dayhrs |
| ./pkg/dic/insol.F | 42 | INSOL |
_RL lat, sun1, dayhrs |
| ./pkg/dic/insol.F | 73 | INSOL |
sun1 = -sin(delta)/cos(delta) * sin(lat)/cos(lat) |
| ./pkg/dic/insol.F | 74 | INSOL |
IF (sun1.LE.-0.999 _d 0) sun1=-0.999 _d 0 |
| ./pkg/dic/insol.F | 75 | INSOL |
IF (sun1.GE. 0.999 _d 0) sun1= 0.999 _d 0 |
| ./pkg/dic/insol.F | 76 | INSOL |
dayhrs = abs(acos(sun1)) |