| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1996 |
DELEDD |
_RL zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2, |
|
./pkg/fizhi/fizhi_swrad.F |
2027 |
DELEDD |
akk = sqrt((gm1+gm2)*xx) |
|
./pkg/fizhi/fizhi_swrad.F |
2037 |
DELEDD |
xx = akk * two |
|
./pkg/fizhi/fizhi_swrad.F |
2041 |
DELEDD |
xx = akk * zth |
|
./pkg/fizhi/fizhi_swrad.F |
2045 |
DELEDD |
xx = akk * gm3 |
|
./pkg/fizhi/fizhi_swrad.F |
2049 |
DELEDD |
xx = akk * (one-gm3) |
|
./pkg/fizhi/fizhi_swrad.F |
2056 |
DELEDD |
st2 = expmn(-akk*taup) |
|
./pkg/fizhi/fizhi_swrad.F |
2059 |
DELEDD |
st1 = sscp / ((akk+gm1 + (akk-gm1)*st4) * st3) |