| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
214 |
BULKF_FORMULA_LANL |
df0dT=-dflwupdT+dfshdT+dflhdT |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
39 |
BULKF_FORMULA_LANL |
_RL df0dT ! derivative of heat flux with respect to Tsf |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
8 |
BULKF_FORMULA_LANL |
O flwupa, flha, fsha, df0dT, |
|
./pkg/bulk_force/bulkf_forcing.F |
102 |
BULKF_FORCING |
& fsh(i,j,bi,bj), df0dT, |
|
./pkg/bulk_force/bulkf_forcing.F |
175 |
BULKF_FORCING |
dFdT(i,j,bi,bj) = df0dT |
|
./pkg/bulk_force/bulkf_forcing.F |
63 |
BULKF_FORCING |
_RL df0dT,hfl, evp, dEvdT |
|
./pkg/thsice/thsice_solve4temp.F |
107 |
THSICE_SOLVE4TEMP |
_RL df0dT ! deriv of flx0 wrt Tsf (W m-2 deg-1) |
|
./pkg/thsice/thsice_solve4temp.F |
195 |
THSICE_SOLVE4TEMP |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
200 |
THSICE_SOLVE4TEMP |
df0dT = flxExcSw(2) |
|
./pkg/thsice/thsice_solve4temp.F |
203 |
THSICE_SOLVE4TEMP |
& flx0,df0dT,k12,k12-df0dT |
|
./pkg/thsice/thsice_solve4temp.F |
209 |
THSICE_SOLVE4TEMP |
a1 = a10 - k12*df0dT / (k12-df0dT) |
|
./pkg/thsice/thsice_solve4temp.F |
210 |
THSICE_SOLVE4TEMP |
b1 = b10 - k12*(flx0-df0dT*Tsf) / (k12-df0dT) |
|
./pkg/thsice/thsice_solve4temp.F |
212 |
THSICE_SOLVE4TEMP |
dTsf = (flx0 + k12*(Tice(1)-Tsf)) / (k12-df0dT) |
|
./pkg/thsice/thsice_solve4temp.F |
229 |
THSICE_SOLVE4TEMP |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
236 |
THSICE_SOLVE4TEMP |
df0dT = 0. |
|
./pkg/thsice/thsice_solve4temp.F |
284 |
THSICE_SOLVE4TEMP |
flx0 = flx0 + df0dT*dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
291 |
THSICE_SOLVE4TEMP |
flxAtm = flxSW + flxExceptSw + df0dT*dTsf |
|
./pkg/thsice/thsice_get_bulkf.F |
11 |
THSICE_GET_BULKF |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_get_bulkf.F |
46 |
THSICE_GET_BULKF |
_RL df0dT |
|
./pkg/thsice/thsice_get_bulkf.F |
70 |
THSICE_GET_BULKF |
O flwup, flh, fsh, df0dT, ust, vst, evap, ssq, dEvdT, |