| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_bulkf.F |
102 |
THSICE_GET_BULKF |
O flwup, flh, fsh, df0dT, ust, vst, evap, ssq, dEvdT, |
|
./pkg/thsice/thsice_get_bulkf.F |
108 |
THSICE_GET_BULKF |
O flwup, flh, fsh, df0dT, ust, vst, evap, ssq, dEvdT, |
|
./pkg/thsice/thsice_get_bulkf.F |
14 |
THSICE_GET_BULKF |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_get_bulkf.F |
50 |
THSICE_GET_BULKF |
_RL df0dT |
|
./pkg/thsice/thsice_get_bulkf.F |
84 |
THSICE_GET_BULKF |
df0dT = sFlx(2) |
|
./pkg/thsice/thsice_get_exf.F |
14 |
THSICE_GET_EXF |
O flxExceptSw, df0dT, evapLoc, dEvdT, |
|
./pkg/thsice/thsice_get_exf.F |
315 |
THSICE_GET_EXF |
df0dT = -dflwupdT+dfshdT+dflhdT |
|
./pkg/thsice/thsice_get_exf.F |
328 |
THSICE_GET_EXF |
df0dT = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
56 |
THSICE_GET_EXF |
_RL df0dT |
|
./pkg/thsice/thsice_solve4temp.F |
165 |
THSICE_SOLVE4TEMP |
_RL df0dT |
|
./pkg/thsice/thsice_solve4temp.F |
342 |
THSICE_SOLVE4TEMP |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
347 |
THSICE_SOLVE4TEMP |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
352 |
THSICE_SOLVE4TEMP |
df0dT = flxExSW(i,j,2) |
|
./pkg/thsice/thsice_solve4temp.F |
357 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: flx0,df0dT,k12,D=', flx0,df0dT,k12,k12-df0dT |
|
./pkg/thsice/thsice_solve4temp.F |
367 |
THSICE_SOLVE4TEMP |
a1 = a10 - k12*df0dT / (k12-df0dT) |
|
./pkg/thsice/thsice_solve4temp.F |
368 |
THSICE_SOLVE4TEMP |
b1 = b10 - k12*(flx0-df0dT*Tsf) / (k12-df0dT) |
|
./pkg/thsice/thsice_solve4temp.F |
370 |
THSICE_SOLVE4TEMP |
dTsf = (flx0 + k12*(Tice(1)-Tsf)) / (k12-df0dT) |
|
./pkg/thsice/thsice_solve4temp.F |
391 |
THSICE_SOLVE4TEMP |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
396 |
THSICE_SOLVE4TEMP |
O flxExceptSw, df0dT, evap, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
403 |
THSICE_SOLVE4TEMP |
df0dT = 0. |
|
./pkg/thsice/thsice_solve4temp.F |
425 |
THSICE_SOLVE4TEMP |
WRITE (6,*) 'BB: not converge: flx0,dfdT=',flx0,df0dT |
|
./pkg/thsice/thsice_solve4temp.F |
451 |
THSICE_SOLVE4TEMP |
flx0 = flx0 + df0dT*dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
462 |
THSICE_SOLVE4TEMP |
& + df0dT*dTsf + evpAtm(i,j)*Lfresh |
|
./pkg/bulk_force/bulkf_forcing.F |
102 |
BULKF_FORCING |
df0dT = sFlx(2) |
|
./pkg/bulk_force/bulkf_forcing.F |
113 |
BULKF_FORCING |
O fsh(i,j,bi,bj), df0dT, |
|
./pkg/bulk_force/bulkf_forcing.F |
129 |
BULKF_FORCING |
O fsh(i,j,bi,bj), df0dT, |
|
./pkg/bulk_force/bulkf_forcing.F |
187 |
BULKF_FORCING |
dFdT(i,j,bi,bj) = df0dT |
|
./pkg/bulk_force/bulkf_forcing.F |
66 |
BULKF_FORCING |
_RL df0dT, hfl, evp, dEvdT |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
11 |
BULKF_FORMULA_LANL |
O flwupa, flha, fsha, df0dT, |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
225 |
BULKF_FORMULA_LANL |
df0dT=-dflwupdT+dfshdT+dflhdT |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
57 |
BULKF_FORMULA_LANL |
_RL df0dT ! derivative of heat flux with respect to Tsf [W/m2/K] |
|
./pkg/bulk_force/bulkf_formula_lay.F |
11 |
BULKF_FORMULA_LAY |
O flwupa, flha, fsha, df0dT, |
|
./pkg/bulk_force/bulkf_formula_lay.F |
257 |
BULKF_FORMULA_LAY |
df0dT = -dflwupdT+dfshdT+dflhdT |
|
./pkg/bulk_force/bulkf_formula_lay.F |
63 |
BULKF_FORMULA_LAY |
_RL df0dT ! derivative of heat flux with respect to Tsf [W/m2/K] |