| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_solve4temp.F |
106 |
THSICE_SOLVE4TEMP |
_RL dTsrf (iMin:iMax,jMin:jMax) |
|
./pkg/thsice/thsice_solve4temp.F |
15 |
THSICE_SOLVE4TEMP |
O tIc1, tIc2, dTsrf, |
|
./pkg/thsice/thsice_solve4temp.F |
378 |
THSICE_SOLVE4TEMP |
dTsrf(i,j) = Terrmax |
|
./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 |
458 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = Tsf(i,j) + dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
462 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=',k,Tsf(i,j),tIc1(i,j),dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
472 |
THSICE_SOLVE4TEMP |
dTsrf(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
475 |
THSICE_SOLVE4TEMP |
dTsrf(i,j) = 1000. |
|
./pkg/thsice/thsice_solve4temp.F |
481 |
THSICE_SOLVE4TEMP |
iceFlag(i,j) = ABS(dTsrf(i,j)).GE.Terrmax |
|
./pkg/thsice/thsice_solve4temp.F |
491 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf(i,j),tIc1(i,j),dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
496 |
THSICE_SOLVE4TEMP |
& 'BB: not converge: Tsf, dTsf=', Tsf(i,j), dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
540 |
THSICE_SOLVE4TEMP |
flxNet = flxNet + dFlxdT(i,j)*dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
543 |
THSICE_SOLVE4TEMP |
evpAtm(i,j) = evapT(i,j) + dEvdT(i,j)*dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
551 |
THSICE_SOLVE4TEMP |
& + dFlxdT(i,j)*dTsrf(i,j) + evpAtm(i,j)*Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
580 |
THSICE_SOLVE4TEMP |
& Tsf(i,j), tIc1(i,j), tIc2(i,j), dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
592 |
THSICE_SOLVE4TEMP |
dTsrf (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_temp.F |
174 |
THSICE_STEP_TEMP |
O Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj), dTsrf, |
|
./pkg/thsice/thsice_step_temp.F |
74 |
THSICE_STEP_TEMP |
_RL dTsrf (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |