| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1103 |
THSICE_CALC_THICKN |
qIc2(i,j) = qicen(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
1120 |
THSICE_CALC_THICKN |
qaux(2)=qIc2(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
124 |
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, hSnow, tSrf, qIc1, qIc2, |
|
./pkg/thsice/thsice_calc_thickn.F |
320 |
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 |
169 |
THSICE_EXTEND |
qicen(2)= qIc2(i,j) |
|
./pkg/thsice/thsice_extend.F |
240 |
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 |
103 |
THSICE_SOLVE4TEMP |
_RL qIc2 (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 |
284 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = (Lfresh-qIc2(i,j)) / cpIce |
|
./pkg/thsice/thsice_solve4temp.F |
295 |
THSICE_SOLVE4TEMP |
& ' BBerr: Tice(2) > 0 ; it=', myIter, qIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
564 |
THSICE_SOLVE4TEMP |
qIc2(i,j) = -cpIce *tIc2(i,j) + Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
582 |
THSICE_SOLVE4TEMP |
& sHeat(i,j), flxCnB(i,j), qIc1(i,j), qIc2(i,j) |