| 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 |
2005 |
DELEDD |
ff = g0*g0 |
|
./pkg/fizhi/fizhi_swrad.F |
2009 |
DELEDD |
gp = g0/(one+g0) |
|
./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_utils.F |
225 |
QSAT |
_RL g0, g1, g2, g3, g4, g5, g6 |
|
./pkg/fizhi/fizhi_utils.F |
307 |
QSAT |
parameter ( g0 = 0.312654072e+00 * esfac ) |
|
./pkg/fizhi/fizhi_utils.F |
358 |
QSAT |
dqx = g0+t*(g1+t*(g2+t*(g3+t*(g4+t*(g5+t*g6))))) |