| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1982 |
DELEDD |
_RL zero,one,two,three,four,fourth,seven,tumin |
|
./pkg/fizhi/fizhi_swrad.F |
1985 |
DELEDD |
parameter (four=4., fourth=.25) |
|
./pkg/fizhi/fizhi_swrad.F |
2020 |
DELEDD |
gm1 = (seven - sscp*(four+xx))*fourth |
|
./pkg/fizhi/fizhi_swrad.F |
2021 |
DELEDD |
gm2 = -(one - sscp*(four-xx))*fourth |
|
./pkg/fizhi/fizhi_swrad.F |
2106 |
SAGPOL |
_RL one,three,four |
|
./pkg/fizhi/fizhi_swrad.F |
2107 |
SAGPOL |
parameter (one=1., three=3., four=4.) |
|
./pkg/fizhi/fizhi_swrad.F |
2130 |
SAGPOL |
tll = uuu*four*emt *st1 |