| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_extend.F |
14 |
THSICE_EXTEND |
U tSrf, tIc1, tIc2, qIc1, qIc2, |
|
./pkg/thsice/thsice_extend.F |
238 |
THSICE_EXTEND |
tIc2(i,j) = tFrz(i,j) |
|
./pkg/thsice/thsice_extend.F |
81 |
THSICE_EXTEND |
_RL tIc2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
105 |
THSICE_SOLVE4TEMP |
_RL tIc2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
15 |
THSICE_SOLVE4TEMP |
O tIc1, tIc2, dTsrf, |
|
./pkg/thsice/thsice_solve4temp.F |
200 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
284 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = (Lfresh-qIc2(i,j)) / cpIce |
|
./pkg/thsice/thsice_solve4temp.F |
291 |
THSICE_SOLVE4TEMP |
& ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
293 |
THSICE_SOLVE4TEMP |
IF ( tIc2(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
297 |
THSICE_SOLVE4TEMP |
& ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
300 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k, Ts, Tice=',0,tSrf(i,j),tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
312 |
THSICE_SOLVE4TEMP |
& +rhoi*cpIce*hIce(i,j)*tIc2(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
526 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = ( 2. _d 0*dt*k32*(tIc1(i,j)+2. _d 0*tFrz(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
527 |
THSICE_SOLVE4TEMP |
& + rhoi*cpIce*hIce(i,j)*tIc2(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
531 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf(i,j),tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
538 |
THSICE_SOLVE4TEMP |
flxCnB(i,j) = 4. _d 0*kIce *(tIc2(i,j)-tFrz(i,j))/hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
564 |
THSICE_SOLVE4TEMP |
qIc2(i,j) = -cpIce *tIc2(i,j) + Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
573 |
THSICE_SOLVE4TEMP |
IF (tIc2(i,j) .GE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
575 |
THSICE_SOLVE4TEMP |
& ' BBerr - Bug: IceT(2) > 0',i,j,bi,bj,tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
580 |
THSICE_SOLVE4TEMP |
& Tsf(i,j), tIc1(i,j), tIc2(i,j), dTsrf(i,j) |