| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_solve4temp.F |
160 |
THSICE_SOLVE4TEMP |
_RL flxNet |
|
./pkg/thsice/thsice_solve4temp.F |
444 |
THSICE_SOLVE4TEMP |
flxNet = sHeat(i,j) + flxTexSW(i,j) |
|
./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 |
452 |
THSICE_SOLVE4TEMP |
b1 = b10(i,j) - k12(i,j)*(flxNet-dFlxdT(i,j)*Tsf(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
456 |
THSICE_SOLVE4TEMP |
dTsrf(i,j) = (flxNet + k12(i,j)*(tIc1(i,j)-Tsf(i,j))) |
|
./pkg/thsice/thsice_solve4temp.F |
498 |
THSICE_SOLVE4TEMP |
& 'BB: not converge: flxNet,dFlxT=', flxNet, dFlxdT(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
539 |
THSICE_SOLVE4TEMP |
flxNet = sHeat(i,j) + flxTexSW(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
540 |
THSICE_SOLVE4TEMP |
flxNet = flxNet + dFlxdT(i,j)*dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
553 |
THSICE_SOLVE4TEMP |
sHeat(i,j) = flxNet - fct |
|
./pkg/thsice/thsice_solve4temp.F |
558 |
THSICE_SOLVE4TEMP |
& flxNet,fct,flxNet-fct,flxCnB(i,j) |