| 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)) |