| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1107 |
THSICE_CALC_THICKN |
qIc1(i,j) = qicen(i,j,1) |
|
./pkg/thsice/thsice_calc_thickn.F |
1124 |
THSICE_CALC_THICKN |
qaux(1)=qIc1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
124 |
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, hSnow1, tSrf, qIc1, qIc2, |
|
./pkg/thsice/thsice_calc_thickn.F |
320 |
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 |
177 |
THSICE_EXTEND |
qicen(1)= qIc1(i,j) |
|
./pkg/thsice/thsice_extend.F |
248 |
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 |
112 |
THSICE_SOLVE4TEMP |
_RL qIc1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
19 |
THSICE_SOLVE4TEMP |
U flxSW, tSrf1, qIc1, qIc2, |
|
./pkg/thsice/thsice_solve4temp.F |
300 |
THSICE_SOLVE4TEMP |
b1 = qIc1(i,j) + (cpWater-cpIce )*Tmlt1 - Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
308 |
THSICE_SOLVE4TEMP |
& ' BBerr: Tice(1) > 0 ; it=', myIter, qIc1(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 |
636 |
THSICE_SOLVE4TEMP |
& sHeat(i,j), flxCnB(i,j), qIc1(i,j), qIc2(i,j) |