| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1108 |
THSICE_CALC_THICKN |
qIc2(i,j) = qicen(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
1125 |
THSICE_CALC_THICKN |
qaux(2)=qIc2(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
125 |
THSICE_CALC_THICKN |
_RL qIc2 (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 |
321 |
THSICE_CALC_THICKN |
qicen(i,j,2)= qIc2(i,j) |
|
./pkg/thsice/thsice_extend.F |
14 |
THSICE_EXTEND |
U tSrf, tIc1, tIc2, qIc1, qIc2, |
|
./pkg/thsice/thsice_extend.F |
178 |
THSICE_EXTEND |
qicen(2)= qIc2(i,j) |
|
./pkg/thsice/thsice_extend.F |
249 |
THSICE_EXTEND |
qIc2(i,j) = qicen(2) |
|
./pkg/thsice/thsice_extend.F |
83 |
THSICE_EXTEND |
_RL qIc2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
113 |
THSICE_SOLVE4TEMP |
_RL qIc2 (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 |
303 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = (Lfresh-qIc2(i,j)) / cpIce |
|
./pkg/thsice/thsice_solve4temp.F |
314 |
THSICE_SOLVE4TEMP |
& ' BBerr: Tice(2) > 0 ; it=', myIter, qIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
618 |
THSICE_SOLVE4TEMP |
qIc2(i,j) = -cpIce *tIc2(i,j) + Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
636 |
THSICE_SOLVE4TEMP |
& sHeat(i,j), flxCnB(i,j), qIc1(i,j), qIc2(i,j) |