| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_extend.F |
14 |
THSICE_EXTEND |
U tSrf, tIc1, tIc2, qIc1, qIc2, |
|
./pkg/thsice/thsice_extend.F |
237 |
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 |
104 |
THSICE_SOLVE4TEMP |
_RL tIc1 (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 |
199 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
283 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = 0.5 _d 0 *(-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/a1 |
|
./pkg/thsice/thsice_solve4temp.F |
287 |
THSICE_SOLVE4TEMP |
IF (tIc1(i,j).GT.0. _d 0 ) THEN |
|
./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 |
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 |
309 |
THSICE_SOLVE4TEMP |
& ( rhoi*cpIce*tIc1(i,j) + rhoi*Lfresh*Tmlt1/tIc1(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
455 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = -(b1 + SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./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 |
462 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=',k,Tsf(i,j),tIc1(i,j),dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
467 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = (-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./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 |
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 |
531 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf(i,j),tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
537 |
THSICE_SOLVE4TEMP |
fct = k12(i,j)*(Tsf(i,j)-tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
562 |
THSICE_SOLVE4TEMP |
qIc1(i,j) = -cpWater*Tmlt1 + cpIce *(Tmlt1-tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
563 |
THSICE_SOLVE4TEMP |
& + Lfresh*(1. _d 0-Tmlt1/tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
569 |
THSICE_SOLVE4TEMP |
IF (tIc1(i,j) .GE. Tmlt1) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
571 |
THSICE_SOLVE4TEMP |
& ' BBerr - Bug: IceT(1) > Tmlt',i,j,bi,bj,tIc1(i,j),Tmlt1 |
|
./pkg/thsice/thsice_solve4temp.F |
580 |
THSICE_SOLVE4TEMP |
& Tsf(i,j), tIc1(i,j), tIc2(i,j), dTsrf(i,j) |