| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1948 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./pkg/fizhi/fizhi_swrad.F |
1989 |
DELEDD |
_RL tau,ssc,g0,csm |
|
./pkg/fizhi/fizhi_swrad.F |
2006 |
DELEDD |
xx = one-ff*ssc |
|
./pkg/fizhi/fizhi_swrad.F |
2008 |
DELEDD |
sscp= ssc*(one-ff)/xx |
|
./pkg/fizhi/fizhi_swrad.F |
2075 |
SAGPOL |
subroutine SAGPOL(tau,ssc,g0,rll,tll) |
|
./pkg/fizhi/fizhi_swrad.F |
2111 |
SAGPOL |
_RL tau,ssc,g0 |
|
./pkg/fizhi/fizhi_swrad.F |
2121 |
SAGPOL |
xx = one-ssc*g0 |
|
./pkg/fizhi/fizhi_swrad.F |
2122 |
SAGPOL |
uuu = sqrt( xx/(one-ssc)) |
|
./pkg/fizhi/fizhi_swrad.F |
2123 |
SAGPOL |
ttt = sqrt( xx*(one-ssc)*three )*tau |