| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_extend.F |
14 |
THSICE_EXTEND |
U tSrf, tIc1, tIc2, qIc1, qIc2, |
|
./pkg/thsice/thsice_extend.F |
246 |
THSICE_EXTEND |
tIc1(i,j) = tFrz(i,j) |
|
./pkg/thsice/thsice_extend.F |
80 |
THSICE_EXTEND |
_RL tIc1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
114 |
THSICE_SOLVE4TEMP |
_RL tIc1 (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 |
211 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
302 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = 0.5 _d 0 *(-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/a1 |
|
./pkg/thsice/thsice_solve4temp.F |
306 |
THSICE_SOLVE4TEMP |
IF (tIc1(i,j).GT.0. _d 0 ) THEN |
|
./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 |
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 |
328 |
THSICE_SOLVE4TEMP |
& ( rhoi*cpIce*tIc1(i,j) + rhoi*Lfresh*Tmlt1/tIc1(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
493 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = -(b1 + SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./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 |
501 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=',k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
506 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = (-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./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 |
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 |
581 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf(i,j),tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
587 |
THSICE_SOLVE4TEMP |
fct = k12(i,j)*(Tsf(i,j)-tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
616 |
THSICE_SOLVE4TEMP |
qIc1(i,j) = -cpWater*Tmlt1 + cpIce *(Tmlt1-tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
617 |
THSICE_SOLVE4TEMP |
& + Lfresh*(1. _d 0-Tmlt1/tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
623 |
THSICE_SOLVE4TEMP |
IF (tIc1(i,j) .GE. Tmlt1) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
625 |
THSICE_SOLVE4TEMP |
& ' BBerr - Bug: IceT(1) > Tmlt',i,j,bi,bj,tIc1(i,j),Tmlt1 |
|
./pkg/thsice/thsice_solve4temp.F |
634 |
THSICE_SOLVE4TEMP |
& Tsf(i,j), tIc1(i,j), tIc2(i,j), dTsrf1(i,j) |