| 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 |
270 |
THSICE_GET_EXF |
dFlxdT(i,j) = -dflwupdT |
|
./pkg/thsice/thsice_get_exf.F |
451 |
THSICE_GET_EXF |
dFlxdT(i,j) = dFlxdT(i,j) + dfshdT + dflhdT |
|
./pkg/thsice/thsice_get_exf.F |
495 |
THSICE_GET_EXF |
dFlxdT(i,j) = dFlxdT(i,j) + dfshdT + dflhdT |
|
./pkg/thsice/thsice_get_exf.F |
501 |
THSICE_GET_EXF |
& flxExcSw(i,j), dFlxdT(i,j), evapLoc(i,j),dEvdT(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
515 |
THSICE_GET_EXF |
dFlxdT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
69 |
THSICE_GET_EXF |
_RL dFlxdT (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
168 |
THSICE_SOLVE4TEMP |
_RL dFlxdT (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
217 |
THSICE_SOLVE4TEMP |
dFlxdT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
381 |
THSICE_SOLVE4TEMP |
O flx0exSW, dFlxdT, evap00, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
389 |
THSICE_SOLVE4TEMP |
O flx0exSW, dFlxdT, evap00, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
443 |
THSICE_SOLVE4TEMP |
O flxTexSW, dFlxdT, evapT, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
451 |
THSICE_SOLVE4TEMP |
O flxTexSW, dFlxdT, evapT, dEvdT, |
|
./pkg/thsice/thsice_solve4temp.F |
460 |
THSICE_SOLVE4TEMP |
dFlxdT(i,j) = flxExSW(i,j,2) |
|
./pkg/thsice/thsice_solve4temp.F |
486 |
THSICE_SOLVE4TEMP |
& flxNet, dFlxdT(i,j), k12(i,j), k12(i,j)-dFlxdT(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
489 |
THSICE_SOLVE4TEMP |
a1 = a10(i,j) - k12(i,j)*dFlxdT(i,j) / (k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
490 |
THSICE_SOLVE4TEMP |
b1 = b10(i,j) - k12(i,j)*(flxNet-dFlxdT(i,j)*Tsf(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
491 |
THSICE_SOLVE4TEMP |
& /(k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
495 |
THSICE_SOLVE4TEMP |
& /(k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
518 |
THSICE_SOLVE4TEMP |
dFlxdT(i,j) = 0. |
|
./pkg/thsice/thsice_solve4temp.F |
546 |
THSICE_SOLVE4TEMP |
& 'BB: not converge: flxNet,dFlxT=', flxNet, dFlxdT(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
590 |
THSICE_SOLVE4TEMP |
flxNet = flxNet + dFlxdT(i,j)*dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
605 |
THSICE_SOLVE4TEMP |
& + dFlxdT(i,j)*dTsrf1(i,j) + evpAtm(i,j)*Lfresh |