File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_solve4temp.F |
172 |
THSICE_SOLVE4TEMP |
_RL flxNet |
./pkg/thsice/thsice_solve4temp.F |
482 |
THSICE_SOLVE4TEMP |
flxNet = sHeat(i,j) + flxTexSW(i,j) |
./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 |
490 |
THSICE_SOLVE4TEMP |
b1 = b10(i,j) - k12(i,j)*(flxNet-dFlxdT(i,j)*Tsf(i,j)) |
./pkg/thsice/thsice_solve4temp.F |
494 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = (flxNet + k12(i,j)*(tIc1(i,j)-Tsf(i,j))) |
./pkg/thsice/thsice_solve4temp.F |
546 |
THSICE_SOLVE4TEMP |
& 'BB: not converge: flxNet,dFlxT=', flxNet, dFlxdT(i,j) |
./pkg/thsice/thsice_solve4temp.F |
589 |
THSICE_SOLVE4TEMP |
flxNet = sHeat(i,j) + flxTexSW(i,j) |
./pkg/thsice/thsice_solve4temp.F |
590 |
THSICE_SOLVE4TEMP |
flxNet = flxNet + dFlxdT(i,j)*dTsrf1(i,j) |
./pkg/thsice/thsice_solve4temp.F |
607 |
THSICE_SOLVE4TEMP |
sHeat(i,j) = flxNet - fct |
./pkg/thsice/thsice_solve4temp.F |
612 |
THSICE_SOLVE4TEMP |
& flxNet,fct,flxNet-fct,flxCnB(i,j) |