File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_solve4temp.F |
121 |
THSICE_SOLVE4TEMP |
_RL dTsrf1 (iMin:iMax,jMin:jMax) |
./pkg/thsice/thsice_solve4temp.F |
20 |
THSICE_SOLVE4TEMP |
O tIc1, tIc2, dTsrf1, |
./pkg/thsice/thsice_solve4temp.F |
403 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = Terrmax |
./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 |
496 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = Tsf(i,j) + dTsrf1(i,j) |
./pkg/thsice/thsice_solve4temp.F |
501 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=',k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j) |
./pkg/thsice/thsice_solve4temp.F |
513 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = 0. _d 0 |
./pkg/thsice/thsice_solve4temp.F |
517 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = 1000. |
./pkg/thsice/thsice_solve4temp.F |
524 |
THSICE_SOLVE4TEMP |
IF (ABS(dTsrf1(i,j)).GE.Terrmax) THEN |
./pkg/thsice/thsice_solve4temp.F |
538 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j) |
./pkg/thsice/thsice_solve4temp.F |
544 |
THSICE_SOLVE4TEMP |
& 'BB: not converge: Tsf, dTsf=', Tsf(i,j), dTsrf1(i,j) |
./pkg/thsice/thsice_solve4temp.F |
590 |
THSICE_SOLVE4TEMP |
flxNet = flxNet + dFlxdT(i,j)*dTsrf1(i,j) |
./pkg/thsice/thsice_solve4temp.F |
595 |
THSICE_SOLVE4TEMP |
evpAtm(i,j) = evapT(i,j) + dEvdT(i,j)*dTsrf1(i,j) |
./pkg/thsice/thsice_solve4temp.F |
605 |
THSICE_SOLVE4TEMP |
& + dFlxdT(i,j)*dTsrf1(i,j) + evpAtm(i,j)*Lfresh |
./pkg/thsice/thsice_solve4temp.F |
634 |
THSICE_SOLVE4TEMP |
& Tsf(i,j), tIc1(i,j), tIc2(i,j), dTsrf1(i,j) |
./pkg/thsice/thsice_solve4temp.F |
646 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = 0. _d 0 |