| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_bulkf.F |
108 |
THSICE_GET_BULKF |
dFlxdT(i,j) = sFlx(2) |
|
./pkg/thsice/thsice_get_bulkf.F |
127 |
THSICE_GET_BULKF |
O flwup, flh, fsh, dFlxdT(i,j), ust, vst, |
|
./pkg/thsice/thsice_get_bulkf.F |
134 |
THSICE_GET_BULKF |
O flwup, flh, fsh, dFlxdT(i,j), ust, vst, |
|
./pkg/thsice/thsice_get_bulkf.F |
16 |
THSICE_GET_BULKF |
O flxExcSw, dFlxdT, evap, dEvdT, |
|
./pkg/thsice/thsice_get_bulkf.F |
58 |
THSICE_GET_BULKF |
_RL dFlxdT (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_exf.F |
16 |
THSICE_GET_EXF |
O flxExcSw, dFlxdT, evapLoc, dEvdT, |
|
./pkg/thsice/thsice_get_exf.F |
261 |
THSICE_GET_EXF |
dFlxdT(i,j) = -dflwupdT |
|
./pkg/thsice/thsice_get_exf.F |
416 |
THSICE_GET_EXF |
dFlxdT(i,j) = dFlxdT(i,j) + dfshdT + dflhdT |
|
./pkg/thsice/thsice_get_exf.F |
446 |
THSICE_GET_EXF |
dFlxdT(i,j) = dFlxdT(i,j) + dfshdT + dflhdT |
|
./pkg/thsice/thsice_get_exf.F |
452 |
THSICE_GET_EXF |
& flxExcSw(i,j), dFlxdT(i,j), evapLoc(i,j),dEvdT(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
465 |
THSICE_GET_EXF |
dFlxdT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
66 |
THSICE_GET_EXF |
_RL dFlxdT (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
156 |
THSICE_SOLVE4TEMP |
_RL dFlxdT (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
358 |
THSICE_SOLVE4TEMP |
O flx0exSW, dFlxdT, evap0, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
366 |
THSICE_SOLVE4TEMP |
O flx0exSW, dFlxdT, evap0, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
407 |
THSICE_SOLVE4TEMP |
O flxTexSW, dFlxdT, evapT, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
415 |
THSICE_SOLVE4TEMP |
O flxTexSW, dFlxdT, evapT, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
424 |
THSICE_SOLVE4TEMP |
dFlxdT(i,j) = flxExSW(i,j,2) |
|
./pkg/thsice/thsice_solve4temp.F |
448 |
THSICE_SOLVE4TEMP |
& flxNet, dFlxdT(i,j), k12(i,j), k12(i,j)-dFlxdT(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
451 |
THSICE_SOLVE4TEMP |
a1 = a10(i,j) - k12(i,j)*dFlxdT(i,j) / (k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
452 |
THSICE_SOLVE4TEMP |
b1 = b10(i,j) - k12(i,j)*(flxNet-dFlxdT(i,j)*Tsf(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
453 |
THSICE_SOLVE4TEMP |
& /(k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
457 |
THSICE_SOLVE4TEMP |
& /(k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
476 |
THSICE_SOLVE4TEMP |
dFlxdT(i,j) = 0. |
|
./pkg/thsice/thsice_solve4temp.F |
498 |
THSICE_SOLVE4TEMP |
& 'BB: not converge: flxNet,dFlxT=', flxNet, dFlxdT(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
540 |
THSICE_SOLVE4TEMP |
flxNet = flxNet + dFlxdT(i,j)*dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
551 |
THSICE_SOLVE4TEMP |
& + dFlxdT(i,j)*dTsrf(i,j) + evpAtm(i,j)*Lfresh |