File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_calc_thickn.F |
119 |
THSICE_CALC_THICKN |
_RL flxCnB (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/thsice/thsice_calc_thickn.F |
13 |
THSICE_CALC_THICKN |
I snowP, prcAtm, sHeat, flxCnB, |
./pkg/thsice/thsice_calc_thickn.F |
463 |
THSICE_CALC_THICKN |
ebot(i,j) = (flxCnB(i,j)-Fbot(i,j)) * dt |
./pkg/thsice/thsice_solve4temp.F |
117 |
THSICE_SOLVE4TEMP |
_RL flxCnB (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/thsice/thsice_solve4temp.F |
21 |
THSICE_SOLVE4TEMP |
O sHeat, flxCnB, flxAtm, evpAtm, |
./pkg/thsice/thsice_solve4temp.F |
588 |
THSICE_SOLVE4TEMP |
flxCnB(i,j) = 4. _d 0*kIce *(tIc2(i,j)-tFrz(i,j))/hIce(i,j) |
./pkg/thsice/thsice_solve4temp.F |
612 |
THSICE_SOLVE4TEMP |
& flxNet,fct,flxNet-fct,flxCnB(i,j) |
./pkg/thsice/thsice_solve4temp.F |
636 |
THSICE_SOLVE4TEMP |
& sHeat(i,j), flxCnB(i,j), qIc1(i,j), qIc2(i,j) |