| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_extend.F |
14 |
THSICE_EXTEND |
U tSrf, tIc1, tIc2, qIc1, qIc2, |
|
./pkg/thsice/thsice_extend.F |
247 |
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 |
115 |
THSICE_SOLVE4TEMP |
_RL tIc2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
20 |
THSICE_SOLVE4TEMP |
O tIc1, tIc2, dTsrf1, |
|
./pkg/thsice/thsice_solve4temp.F |
212 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
303 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = (Lfresh-qIc2(i,j)) / cpIce |
|
./pkg/thsice/thsice_solve4temp.F |
310 |
THSICE_SOLVE4TEMP |
& ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
312 |
THSICE_SOLVE4TEMP |
IF ( tIc2(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
316 |
THSICE_SOLVE4TEMP |
& ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
319 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k, Ts, Tice=',0,tSrf1(i,j),tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
331 |
THSICE_SOLVE4TEMP |
& +rhoi*cpIce*hIce(i,j)*tIc2(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
576 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = ( 2. _d 0*dt*k32*(tIc1(i,j)+2. _d 0*tFrz(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
577 |
THSICE_SOLVE4TEMP |
& + rhoi*cpIce*hIce(i,j)*tIc2(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
581 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf(i,j),tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
588 |
THSICE_SOLVE4TEMP |
flxCnB(i,j) = 4. _d 0*kIce *(tIc2(i,j)-tFrz(i,j))/hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
618 |
THSICE_SOLVE4TEMP |
qIc2(i,j) = -cpIce *tIc2(i,j) + Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
627 |
THSICE_SOLVE4TEMP |
IF (tIc2(i,j) .GE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
629 |
THSICE_SOLVE4TEMP |
& ' BBerr - Bug: IceT(2) > 0',i,j,bi,bj,tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
634 |
THSICE_SOLVE4TEMP |
& Tsf(i,j), tIc1(i,j), tIc2(i,j), dTsrf1(i,j) |