| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1941 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1982 |
DELEDD |
_RL tau,ssc,g0,csm |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1998 |
DELEDD |
ff = g0*g0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2002 |
DELEDD |
gp = g0/(one+g0) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2068 |
SAGPOL |
subroutine SAGPOL(tau,ssc,g0,rll,tll) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2104 |
SAGPOL |
_RL tau,ssc,g0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2114 |
SAGPOL |
xx = one-ssc*g0 |
|
./pkg/fizhi/fizhi_swrad.F |
1940 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./pkg/fizhi/fizhi_swrad.F |
1981 |
DELEDD |
_RL tau,ssc,g0,csm |
|
./pkg/fizhi/fizhi_swrad.F |
1997 |
DELEDD |
ff = g0*g0 |
|
./pkg/fizhi/fizhi_swrad.F |
2001 |
DELEDD |
gp = g0/(one+g0) |
|
./pkg/fizhi/fizhi_swrad.F |
2067 |
SAGPOL |
subroutine SAGPOL(tau,ssc,g0,rll,tll) |
|
./pkg/fizhi/fizhi_swrad.F |
2103 |
SAGPOL |
_RL tau,ssc,g0 |
|
./pkg/fizhi/fizhi_swrad.F |
2113 |
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))))) |