| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
2145 |
SAGPOL |
_RL one,expmin,e1,e2,e3,e4 |
|
./pkg/fizhi/fizhi_swrad.F |
2148 |
SAGPOL |
parameter (e3=2.92732e-2, e4=-3.827800e-3) |
|
./pkg/fizhi/fizhi_swrad.F |
2151 |
SAGPOL |
expmn = ((e4*fin + e3)*fin+e2)*fin+e1 |
|
./pkg/fizhi/fizhi_utils.F |
223 |
QSAT |
_RL e0, e1, e2, e3, e4, e5, e6 |
|
./pkg/fizhi/fizhi_utils.F |
289 |
QSAT |
parameter ( e4 = 0.170017544e-06 * esfac ) |
|
./pkg/fizhi/fizhi_utils.F |
349 |
QSAT |
dqx = e0+T*(e1+T*(e2+T*(e3+T*(e4+T*(e5+T*e6))))) |
|
./pkg/ecco/cost_drifter.F |
279 |
COST_DRIFTER |
wud(i,j,bi,bj) = 1e4*max(wudrift(i,j,bi,bj),5.D0)**(-2) |
|
./pkg/ecco/cost_drifter.F |
280 |
COST_DRIFTER |
wvd(i,j,bi,bj) = 1e4*max(wvdrift(i,j,bi,bj),5.D0)**(-2) |