| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
2145 |
SAGPOL |
_RL one,expmin,e1,e2,e3,e4 |
|
./pkg/fizhi/fizhi_swrad.F |
2147 |
SAGPOL |
parameter (e1=1.0, e2=-2.507213e-1) |
|
./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 |
286 |
QSAT |
parameter ( e1 = 0.333092511e-01 * esfac ) |
|
./pkg/fizhi/fizhi_utils.F |
349 |
QSAT |
dqx = e0+T*(e1+T*(e2+T*(e3+T*(e4+T*(e5+T*e6))))) |
|
./pkg/openad/seawater.F |
156 |
SW_ADTG |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./pkg/openad/seawater.F |
178 |
SW_ADTG |
e1 = +1.8676 _d -14 |
|
./pkg/openad/seawater.F |
184 |
SW_ADTG |
& + ( e0 + (e1 + e2*T)*T )*P*P |
|
./model/src/seawater.F |
148 |
NO PROCEDURE |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./model/src/seawater.F |
170 |
NO PROCEDURE |
e1 = +1.8676 _d -14 |
|
./model/src/seawater.F |
176 |
NO PROCEDURE |
& + ( e0 + (e1 + e2*T)*T )*P*P |