| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1102 |
THSICE_CALC_THICKN |
qIc1(i,j) = qicen(i,j,1) |
|
./pkg/thsice/thsice_calc_thickn.F |
1119 |
THSICE_CALC_THICKN |
qaux(1)=qIc1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
123 |
THSICE_CALC_THICKN |
_RL qIc1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_calc_thickn.F |
14 |
THSICE_CALC_THICKN |
U icFrac, hIce, hSnow, tSrf, qIc1, qIc2, |
|
./pkg/thsice/thsice_calc_thickn.F |
319 |
THSICE_CALC_THICKN |
qicen(i,j,1)= qIc1(i,j) |
|
./pkg/thsice/thsice_extend.F |
14 |
THSICE_EXTEND |
U tSrf, tIc1, tIc2, qIc1, qIc2, |
|
./pkg/thsice/thsice_extend.F |
168 |
THSICE_EXTEND |
qicen(1)= qIc1(i,j) |
|
./pkg/thsice/thsice_extend.F |
239 |
THSICE_EXTEND |
qIc1(i,j) = qicen(1) |
|
./pkg/thsice/thsice_extend.F |
82 |
THSICE_EXTEND |
_RL qIc1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
102 |
THSICE_SOLVE4TEMP |
_RL qIc1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
14 |
THSICE_SOLVE4TEMP |
U flxSW, tSrf, qIc1, qIc2, |
|
./pkg/thsice/thsice_solve4temp.F |
281 |
THSICE_SOLVE4TEMP |
b1 = qIc1(i,j) + (cpWater-cpIce )*Tmlt1 - Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
289 |
THSICE_SOLVE4TEMP |
& ' BBerr: Tice(1) > 0 ; it=', myIter, qIc1(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 |
582 |
THSICE_SOLVE4TEMP |
& sHeat(i,j), flxCnB(i,j), qIc1(i,j), qIc2(i,j) |